start tok64 d64-2bOsgT
0 POKE53280,0:POKE53281,0:PRINT"{white}"
10 REM ***    tech-tech    ***
20 REM *** av mikael pawlo ***
30 FORshn=16384TO16640:READbymp
40 POKEshn,bymp:NEXT
50 INPUT"vill du ha en demonstration av rutinen";a$
60 IFa$="j"ORa$="ja"ORa$="y"ORa$="yes"THEN GOTO 90
70 PRINT"starta rutinen med sys 49152."
80 PRINT"avbryt den med ett tryck p] mellanslag.":END
90 PRINTCHR$(147)
100 PRINT"{home}{space*3}en liten s] kallad tech-tech rutin"
110 PRINT"gjord av mikael pawlo f{pound}r shn."
120 FORt=1TO200:PRINT"{light blue}{.*4}";:NEXTt
130 SYS 16384
300 DATA  169 , 9 , 141 , 22 , 208
310 DATA  32 , 27 , 64 , 169 , 8
320 DATA  141 , 22 , 208 , 32 , 27
330 DATA  64 , 169 , 9 , 141 , 22
340 DATA  208 , 32 , 27 , 64 , 76
350 DATA  37 , 64 , 160 , 0 , 200
360 DATA  192 , 85 , 208 , 251 , 76
370 DATA  133 , 64 , 169 , 10 , 141
380 DATA  22 , 208 , 32 , 27 , 64
390 DATA  169 , 11 , 141 , 22 , 208
400 DATA  32 , 27 , 64 , 169 , 12
410 DATA  141 , 22 , 208 , 32 , 27
420 DATA  64 , 169 , 13 , 141 , 22
430 DATA  208 , 32 , 27 , 64 , 169
440 DATA  14 , 141 , 22 , 208 , 32
450 DATA  27 , 64 , 169 , 15 , 141
460 DATA  22 , 208 , 32 , 27 , 64
470 DATA  169 , 14 , 141 , 22 , 208
480 DATA  32 , 27 , 64 , 169 , 13
490 DATA  141 , 22 , 208 , 32 , 27
500 DATA  64 , 169 , 12 , 141 , 22
510 DATA  208 , 32 , 27 , 64 , 169
520 DATA  11 , 141 , 22 , 208 , 32
530 DATA  27 , 64 , 169 , 10 , 141
540 DATA  22 , 208 , 32 , 27 , 64
550 DATA  76 , 0 , 64 , 255 , 255
560 DATA  255 , 0 , 255 , 32 , 228
570 DATA  255 , 201 , 32 , 240 , 4
580 DATA  96 , 255 , 255 , 255 , 169
590 DATA  160 , 141 , 126 , 64 , 96
600 DATA  255 , 255 , 255 , 255 , 255
610 DATA  255 , 255 , 255 , 255 , 255
620 DATA  169 , 0 , 141 , 126 , 64
630 DATA  96 , 255 , 255 , 255 , 255
640 DATA  255 , 255 , 255 , 255 , 255
650 DATA  255 , 252 , 252 , 251 , 27
660 DATA  252 , 252 , 252 , 252 , 241
670 DATA  246 , 176 , 251 , 27 , 241
680 DATA  241 , 252 , 166 , 188 , 251
690 DATA  241 , 251 , 252 , 252 , 252
700 DATA  252 , 241 , 241 , 241 , 240
710 DATA  27 , 252 , 252 , 252 , 252
720 DATA  252 , 252 , 241 , 27 , 251
730 DATA  246 , 246 , 182 , 251 , 241
740 DATA  241 , 252 , 252 , 252 , 241
750 DATA  39 , 98 , 18 , 27 , 252
760 DATA  241 , 241 , 252 , 252 , 188
770 DATA  27 , 251 , 28 , 193 , 243
780 DATA  241 , 241 , 27 , 241 , 251
790 DATA  251 , 27 , 252 , 252 , 252
800 DATA  252 , 252 , 241 , 240 , 240
810 DATA  176 , 12 , 12 , 12 , 12
stop tok64
(bastext 1.0)