start tok64 d64-IuhjD9
10 PRINT"{gray}{clear}{down*3}{ct n}By Robby Boy!":PRINT"{down*2}0304-22158 (Sweden of course !)"
20 POKE53281,0:POKE53280,0:PRINT"{cyan}":ad=49152
30 FORz=0TO68
40 sl=0:FORli=0TO9:READa:POKEad+z*10+li,a:sl=sl+a:NEXTli
50 PRINT"{home}Lines left to decode:{space*3}{left*3}";68-z
60 READch:IFch<>slTHEN90
70 NEXTz
80 PRINT"{clear}sys49152:poke254,0:{arrow left}":PRINT"{down*2}run800";:POKE198,3:POKE631,19
85 POKE632,13:POKE633,13:END
90 a=z*10+100:PRINT"{clear}Fel i rad";a:PRINT"{home}{down*2}list"a"{home}";:POKE198,1:POKE631,13:END
100 DATA169,192,141,9,3,169,11,141,8,3,846
110 DATA96,32,115,0,201,95,208,6,32,27,812
120 DATA192,76,116,164,76,231,167,120,169,192,1503
130 DATA162,40,141,21,3,142,20,3,88,96,716
140 DATA165,254,201,10,208,3,76,191,192,165,1465
150 DATA251,201,1,240,104,165,203,201,3,208,1577
160 DATA40,173,141,2,208,35,32,68,229,169,1097
170 DATA12,141,0,4,169,9,141,1,4,169,650
180 DATA19,141,2,4,169,20,141,3,4,169,672
190 DATA13,141,119,2,169,1,133,198,76,191,1043
200 DATA192,201,6,208,34,173,141,2,201,0,1158
210 DATA208,27,32,68,229,169,18,141,0,4,896
220 DATA169,21,141,1,4,169,14,141,2,4,666
230 DATA169,13,141,119,2,169,1,133,198,201,1146
240 DATA4,208,83,173,141,2,208,78,169,0,1066
250 DATA133,252,230,251,169,3,141,5,220,166,1570
260 DATA252,189,194,192,141,119,2,169,1,133,1392
270 DATA198,165,252,201,31,208,9,169,0,133,1366
280 DATA251,169,50,141,5,220,230,252,76,191,1585
290 DATA192,76,49,234,141,145,76,79,65,68,1125
300 DATA32,29,29,29,29,29,29,29,29,29,293
310 DATA29,29,29,29,29,29,29,29,29,44,305
320 DATA56,44,56,32,157,157,165,203,201,5,1076
330 DATA208,47,173,141,2,208,42,32,68,229,1150
340 DATA162,0,189,8,193,157,119,2,232,224,1286
350 DATA9,208,245,169,10,133,198,169,10,133,1284
360 DATA254,76,191,192,83,89,83,52,57,52,1129
370 DATA57,51,13,76,191,192,76,231,193,165,1245
380 DATA203,201,4,208,247,173,141,2,201,1,1381
390 DATA208,240,32,68,229,169,15,141,0,4,1106
400 DATA169,12,141,1,4,169,4,141,2,4,647
410 DATA169,141,141,119,2,169,1,133,198,169,1242
420 DATA1,168,145,43,32,51,165,138,105,2,850
430 DATA133,45,165,35,105,0,133,46,76,191,929
440 DATA192,32,95,193,169,0,133,251,133,254,1452
450 DATA96,32,68,229,169,36,133,251,169,251,1434
460 DATA133,187,169,0,133,188,169,1,133,183,1296
470 DATA169,8,133,186,169,96,133,185,32,213,1324
480 DATA243,165,186,32,180,255,165,185,32,150,1593
490 DATA255,169,0,133,144,160,3,132,251,32,1279
500 DATA165,255,133,252,164,144,208,61,32,165,1579
510 DATA255,164,144,208,56,164,251,136,208,233,1819
520 DATA166,252,32,205,189,169,32,32,210,255,1542
530 DATA165,145,201,127,240,35,32,228,255,201,1629
540 DATA32,208,3,32,223,193,32,165,255,166,1309
550 DATA144,208,18,170,240,6,32,210,255,76,1359
560 DATA174,193,169,13,32,210,255,160,2,208,1416
570 DATA182,32,66,246,169,0,133,145,96,32,1101
580 DATA228,255,201,32,208,249,96,165,203,201,1838
590 DATA5,208,10,173,141,2,201,1,208,3,952
600 DATA76,38,194,76,71,194,169,0,32,189,1039
610 DATA255,169,15,162,8,160,15,32,186,255,1257
620 DATA32,192,255,162,15,32,198,255,169,255,1565
630 DATA133,199,32,207,255,32,210,255,201,13,1537
640 DATA208,246,32,231,255,169,0,133,254,96,1624
650 DATA169,10,133,254,162,0,189,62,194,157,1330
660 DATA119,2,232,224,9,208,245,169,10,133,1351
670 DATA198,76,191,192,83,89,83,52,57,54,1075
680 DATA53,56,13,165,203,201,3,208,10,173,1085
690 DATA141,2,201,1,208,3,76,90,194,76,992
700 DATA129,194,165,210,133,253,165,209,133,252,1843
710 DATA24,101,211,144,2,230,253,133,252,165,1515
720 DATA213,56,229,211,168,169,32,145,252,136,1611
730 DATA192,255,208,249,169,0,133,207,76,191,1680
740 DATA192,165,203,201,6,208,10,173,141,2,1301
750 DATA201,1,208,3,76,148,194,76,191,192,1290
760 DATA165,210,133,253,165,209,133,252,164,211,1895
770 DATA169,32,145,252,136,192,255,208,249,169,1807
780 DATA0,133,207,76,191,192,0,255,0,0,1054
800 PRINT"{yellow}{clear}f1- LOAD ,8,8. f1+return p] directoryrad{space*3}laddar programmet.
810 PRINT"f2- OLD. f2 h[mtar tillbaka gammalt pro-{space*3}gram.
820 PRINT"f3- DIRECOTRY. f3 ger diskettens direc-{space*4}tory.
830 PRINT"f4- GET ERROR. f4 ger diskstatus.
840 PRINT"f5- RUN. f5 startar ditt program.
850 PRINT"f6- CLSTART. f6 rensar tecknen fr]n mar-{space*3}k{pound}ren till b{pound}rjan av raden.
860 PRINT"f7- LIST. f7 utf{pound}r kommandot list.
870 PRINT"f8- CLEND. f8 rensar fr]n mark{pound}ren till{space*4}slutet av raden.
880 PRINT"Obs! f2=shift+f1,f4=shift+f3,f6=shift+f5{space*5}f8=shift+f7.
890 PRINT"Av: Robert Gustavsson, Ell{pound}s. DMz 10/87.
900 POKE53281,9:POKE53280,8
stop tok64
(bastext 1.0)