start tok64 d64-qq2kJE 5 REM club 64:s pd 1989 10 FOR i=0TO7:READ m(i):NEXT:DATA1,4,25,128,2,10,60,255 20 POKE53280,12:POKE53281,12:PRINT"{black}":GOSUB450 30 REM 40 kal=49664:a=49696:char=251:x=253:y=254 50 seed=kal+126:POKE seed,255*RND(-ti)+1 60 POKEseed+1,256*RND(1):POKEx,0:POKEx,0:POKEy,0:POKEchar,160:GOSUB270 80 PRINT"{down*5}{space*10}v[lkommen till{down*2}":PRINT"{space*10}U{sh asterisk*11}I" 90 PRINT"{space*10}BkalejdoskopB" 100 PRINT"{space*10}J{sh asterisk*11}K{down*4}":PRINT"{space*10}tryck en knapp" 110 GOSUB290:POKEa,25:GOTO330 120 REM 130 SYS kal:FORi=1TOd:NEXT:GETa$:IFa$=""THEN130 140 v=VAL(a$):IFa$="0"THENd=1 150 IFv>0THENd=2.4^v 160 IFa$="s"THENEND 170 FORi=0TO7:IFa$=CHR$(133+i)THENPOKEa,m(i) 180 NEXTi:IFa$="b"THENGOSUB250 190 IFa$="f"THENGOSUB270 200 IFa$=CHR$(147)THENPRINTCHR$(147):GOTO130 210 IFa$="h"THEN330 220 IFa$=" "THENGOSUB290 230 GOTO130 250 POKE49692,1:RETURN 270 POKE49692,15:RETURN 290 GETa$:IFa$<>""THEN290 300 GETa$:IFa$=""THEN300 310 RETURN 330 PRINT"{clear}{space*3}till kontroll av bilden f{pound}lj dessa" 340 PRINT"{space*3}bruksanvisningar till kalejdoskop!" 360 PRINT"{down*2}f1 till f8 : kontroll av uppl{pound}sning" 370 PRINT"0 till 9 : kontroll av fart" 380 PRINT"b : svart och vit f[rg" 390 PRINT"f : 16 f[rger":PRINT"space : fryser bilden" 400 PRINT"shift/clr : rensar sk[rmen":PRINT"h : hj[lp{!*3}" 410 PRINT"s : slut" 420 PRINT"tryck en tangent f{pound}r start!":GOSUB290:PRINTCHR$(147) 430 GOTO130 440 REM 450 PRINTCHR$(147)"l[ser data, ett {pound}gonblick" 460 s=0:c=49664:FORi=cTOc+248:READx:POKEi,x:s=s+x:NEXT 470 IFs<>33124 THEN PRINT"fel i datasatserna{!*3}":END 480 RETURN 490 DATA173,32,194,133,165,32 500 DATA33,194,32,90,194,32 510 DATA33,194,32,90,194,198 520 DATA165,208,240,238,240,193 530 DATA173,240,193,41,15,133 540 DATA252,96,25,32,43,194 550 DATA32,65,194,32,43,194 560 DATA96,32,172,194,32,74 570 DATA194,32,172,194,32,82 580 DATA194,32,172,194,32,74 590 DATA194,32,172,194,96,165 600 DATA253,164,254,133,254,132 610 DATA253,96,169,24,56,229 620 DATA253,133,253,96,169,24 630 DATA56,229,254,133,254,96 640 DATA32,109,194,144,7,32 650 DATA109,194,144,28,176,35 660 DATA32,109,194,144,43,176 670 DATA50,14,127,194,46,126 680 DATA194,144,8,173,127,194 690 DATA73,45,141,127,194,96 700 DATA109,12,198,253,16,4 710 DATA169,24,133,253,96,230 720 DATA253,165,253,201,25,208 730 DATA4,169,0,133,253,96 740 DATA198,254,16,4,169,24 750 DATA133,254,96,230,254,165 760 DATA254,201,25,208,4,169 770 DATA0,133,254,96,32,193 780 DATA194,165,251,160,0,145 790 DATA163,169,212,24,101,164 800 DATA133,164,165,252,145,163 810 DATA96,169,4,133,164,165 820 DATA253,24,105,7,133,163 830 DATA166,254,160,0,32,230 840 DATA194,32,230,194,32,230 850 DATA194,32,237,194,32,230 860 DATA194,32,230,194,32,237 870 DATA194,96,138,10,170,152 880 DATA42,168,96,24,138,101 890 DATA163,133,163,152,101,164 900 DATA133,164,96 stop tok64 (bastext 1.0)