start tok64 d64-iAFIBv
10 REM ***    autostart    ***
20 REM *** av mikael pawlo ***
30 REM *** f{pound}r 64 in toto. ***
40 FORt=49152TO49536:READbymp
50 POKEt,bymp:NEXT
60 INPUT"anv[nder du kassett eller diskett (k/d)";io$
70 IFio$="k"THENPOKE49268,1:POKE49418,1
80 PRINT"starta med sys 49152."
300 DATA169,152,160,192,32
310 DATA30,171,32,96,165
320 DATA162,255,232,224,16
330 DATA176,8,189,0,2
340 DATA157,55,193,208,243
350 DATA142,54,193,169,200
360 DATA160,192,32,30,171
370 DATA32,228,255,240,251
380 DATA201,66,240,42,201
390 DATA77,208,243,169,236
400 DATA160,192,32,30,171
410 DATA32,96,165,169,0
420 DATA133,122,169,2,133
430 DATA123,32,121,0,32
440 DATA107,169,165,20,141
450 DATA52,193,165,21,141
460 DATA53,193,169,176,208
470 DATA2,169,144,141,41
480 DATA193,162,0,189,253
490 DATA192,157,178,2,232
500 DATA224,82,208,245,169
510 DATA4,162,249,160,192
520 DATA32,189,255,169,1
530 DATA162,8,160,1,32
540 DATA186,255,169,178,133
550 DATA251,169,2,133,252
560 DATA169,251,162,4,160
570 DATA3,32,216,255,169
580 DATA191,141,2,3,169
590 DATA164,141,3,3,108
600 DATA2,160,147,17,17
610 DATA86,65,68,32,72
620 DATA69,84,69,82,32
630 DATA70,73,76,69,78
640 DATA32,68,85,32,86
650 DATA73,76,76,32,76
660 DATA91,71,71,65,32
670 DATA65,85,84,79,83
680 DATA84,65,82,84,13
690 DATA80,93,63,32,0
700 DATA13,18,66,146,65
710 DATA83,73,67,32,69
720 DATA76,76,69,82,32
730 DATA18,77,146,65,83
740 DATA75,73,78,75,79
750 DATA68,32,63,32,40
760 DATA66,47,77,41,32
770 DATA0,13,83,84,65
780 DATA82,84,45,74,77
790 DATA80,63,32,0,65
800 DATA85,84,79,169,131
810 DATA141,2,3,169,164
820 DATA141,2,3,169,1
830 DATA162,8,160,1,32
840 DATA186,255,173,235,2
850 DATA162,236,160,2,32
860 DATA189,255,169,0,32
870 DATA213,255,134,45,132
880 DATA46,169,13,32,210
890 DATA255,56,144,8,169
900 DATA0,32,113,168,76
910 DATA174,167,76,102,254
920 DATA0,0,0,0,0
930 DATA0,0,0,0,0
940 DATA0,0,0,0,0
950 DATA0,0,0,0,0
960 DATA0,139,227,178,2
970 DATA255,255,255,255,255
980 DATA255,255,255,255,255
990 DATA255,255,255,255,255
1000 DATA255,255,0,0,0
1010 DATA0,0,0,0,0
1020 DATA0,0,0,0,0
1030 DATA0,0,0,0,0
1040 DATA0,0,0,0,0
1050 DATA0,0,0,0,0
1060 DATA0,0,0,0,255
stop tok64
(bastext 1.0)