start tok64 d64-2Hv1pA 10 REM *** flap-rasters *** 20 REM *** gjorda av: *** 30 REM *** mikael pawlo *** 40 REM *** f{pound}r svenska *** 50 REM *** hemdator *** 60 REM *** nytt *** 70 REM *** 1990 *** 80 REM *** be cool... *** 90 REM *** be bymp!!! *** 100 FOR b= 51456 TO 53247 :READa:POKEb,a:NEXTb 110 PRINT"{clear}{white}":POKE53280,0:POKE53281,0 120 INPUT"vill du ha en demonstration av rutinen";a$ 130 IFa$="j"ORa$="y"ORa$="yes"ORa$="ja"THEN GOTO 210 140 PRINT"{clear}{dark gray}flaprasters av mikael pawlo f{pound}r shn!" 150 PRINT"{down} rutinen ligger mellan 51456-51551" 160 PRINT" vilket betyder $c900-$c{f*3}." 170 PRINT" starta den med sys 51456 eller ett" 180 PRINT" anrop till $c900." 190 PRINT"{down} lycka till! / {white}mikael pawlo{orange}" 200 END 210 PRINT"{clear}{black}"; 220 PRINT"{down}{reverse on}f{pound}r olika effekter prova att trycka :" 230 PRINT"1 - ingenting i ramen." 240 PRINT"2 - ingenting p] pappret." 250 PRINT"3 - p] ramen och pappret." 260 PRINT"{down*3}{reverse on} f{pound}r 64 in toto / shn av mikael pawlo !" 270 SYS51456 280 GETa$:IFa$=""THEN GOTO 280 290 IFa$="1"THEN POKE 51548,33:POKE51551,33 300 IFa$="2"THEN POKE 51548,32:POKE51551,32 310 IFa$="3"THEN POKE 51548,32:POKE51551,33 320 GOTO280 330 REM *** datasatser *** 340 DATA 120,169,32,141,20,3,169,201,141,21,3,169,1,141,26,208,169 350 DATA 27,141,17,208,169,127,141,13,220,88,96,255,0,255,0,169,50 360 DATA 141,18,208,32,80,201,32,0,205,234,6,33,234,234,234,169,1 370 DATA 141,25,208,76,49,234,1,141,25,208,76,49,234,68,229,255,0 380 DATA 255,0,255,0,255,0,255,0,255,0,255,0,162,0,188,0,203,136 390 DATA 208,253,189,0,206,141,33,208,141,32,208,232,224,199,208 400 DATA 236,96,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0 410 DATA 255,0,255,0,255,64,255,0,255,0,255,0,255,0,255,0,255,0,255 420 DATA 0,255,0,255,0,20,8,5,32,2,25,13,16,32,32,32,32,32,32,32 430 DATA 32,13,9,11,1,5,12,32,32,16,1,23,12,15,32,57,48,255,0,255 440 DATA 0,255,0,255,0,255,0,255,0,255,0,0,255,0,255,0,255,0,255 450 DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0 460 DATA 255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255 470 DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,247,0 480 DATA 255,32,228,255,240,251,201,83,240,7,201,78,240,35,76,0,202 490 DATA 169,0,32,41,32,96,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 500 DATA 0,0,0,0,0,0,0,32,144,202,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0 510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 520 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,160,0,162,0 540 DATA 189,0,4,157,0,10,232,208,247,200,238,150,202,238,153,202 550 DATA 192,4,208,234,169,4,141,150,202,76,0,202,0,0,0,0,0,0,0,0 560 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 570 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 580 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,8,8,8,8,8,8,1,8,8,8,8 590 DATA 8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1 600 DATA 8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8 610 DATA 8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1 620 DATA 8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8 630 DATA 8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1 640 DATA 8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8 650 DATA 8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1 660 DATA 8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8 670 DATA 8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,13,13,1,13,13,15 680 DATA 15,12,12,12,11,11,9,9,0,0,0,0,0,0,0,0,0,6,6,4,4,14,14,14 690 DATA 3,3,7,7,1,1,7,7,3,3,14,14,4,4,6,6,0,0,0,0,0,0,0,9,9,8,10 700 DATA 10,15,15,7,7,1,1,1,7,15,15,10,10,8,8,9,9,0,0,0,0,0,0,0,9 710 DATA 9,11,12,15,15,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 720 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 730 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 740 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 750 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 760 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 770 DATA 0,0,0,0,0,0,0,0,169,1,206,1,205,240,1,96,169,1,141,1,205 780 DATA 162,0,189,0,204,157,0,206,189,1,204,157,8,206,189,2,204 790 DATA 157,16,206,189,3,204,157,24,206,189,4,204,157,32,206,189 800 DATA 5,204,157,40,206,189,6,204,157,48,206,189,7,204,157,56,206 810 DATA 189,8,204,157,64,206,189,9,204,157,72,206,189,10,204,157 820 DATA 80,206,189,11,204,157,88,206,189,12,204,157,96,206,189,13 830 DATA 204,157,104,206,189,14,204,157,112,206,189,15,204,157,120 840 DATA 206,189,16,204,157,128,206,189,17,204,157,136,206,189,18 850 DATA 204,157,144,206,189,19,204,157,152,206,189,20,204,157,160 860 DATA 206,189,21,204,157,168,206,189,22,204,157,176,206,189,23 870 DATA 204,157,184,206,189,24,204,157,191,206,232,224,8,208,28 880 DATA 234,234,234,162,0,189,1,204,157,0,204,232,224,87,208,245 890 DATA 173,0,204,141,87,204,169,0,141,198,206,96,76,15,205,255 900 DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0 910 DATA 255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255 920 DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,15,13,13 930 DATA 1,13,13,15,15,13,13,1,13,13,15,15,12,13,1,13,13,15,15,12 940 DATA 12,1,13,13,15,15,12,12,12,13,13,15,15,12,12,12,11,13,15 950 DATA 15,12,12,12,11,11,15,15,12,12,12,11,11,9,15,12,12,12,11 960 DATA 11,9,9,12,12,12,11,11,9,9,0,12,12,11,11,9,9,0,0,12,11,11 970 DATA 9,9,0,0,0,11,11,9,9,0,0,0,0,11,9,9,0,0,0,0,0,9,9,0,0,0,0 980 DATA 0,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 990 DATA 0,0,0,0,0,6,0,0,0,0,0,0,6,6,0,0,0,0,0,6,6,4,0,0,0,0,6,6 1000 DATA 4,4,0,0,0,6,6,4,4,14,0,0,6,6,4,4,14,14,0,6,6,4,4,14,14,14 1010 DATA 6,4,4,14,14,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 1020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 1030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,169 1040 DATA 2,206,1,205,240,1,96,169,2,141,1,205,162,0,189,0,204,157 1050 DATA 0,206,189,1,0,0,169,2,206,1,205,240,0,169,2,206,1,205,240 1060 DATA 1,169,2,206,1,205,240,1,96,2,206,1,205,240,1,96,169,206 1070 DATA 1,29,240,1,96,169,2,1,29,240,1,96,169,2,141,29,240,1,96 1080 DATA 169,2,141,1,240,1,96,169,2,141,1,205,1,96,169,2,141,1,205 1090 DATA 162,96,169,2,141,1,205,162,0,169,2,141,1,205,162,0,189,2 1100 DATA 141,1,29,162,0,189,0,141,1,29,162,0,189,0,204,1,29,162,0 1110 DATA 189,0,204,157,29,162,0,189,0,204,157,0,162,0,189,0,204,157 1120 DATA 0,206,0,189,0,204,157,0,206,189,189,0,28,157,0,206,189,1 1130 DATA 204,157,0,206,189,1,204,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8 1140 DATA 1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8 1150 DATA 8,8,8,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,255 stop tok64 (bastext 1.0)