start tok64 d64-WrnjQU 5 SYS12307 10 POKE53265,43 20 POKE53280,0:POKE53281,0:PRINT"{clear}{white}{down*12}{space*14}l o a d i n g !" 30 PRINT"{home}{black}load"CHR$(34)"scroll"CHR$(34)",8,1":PRINT"{down*4}goto50" 40 POKE198,3:POKE631,19:POKE632,13:POKE633,13:END 50 SYS12288 60 FORi=49152TO49189:READx:POKEi,x:c=c+x:NEXT:IFc<>5982THEN PRINT"fel {!*3}" 70 DATA 0,0,160,0,177,251,145,253,165,252,205,1 80 DATA 192,208,8,165,251,205,0,192,208,1,96,230 90 DATA 251,208,2,230,252,230,253,208,227,230,254,76,4,192 100 POKE2,3 110 POKE56576,4:POKE53272,56 120 GOTO220 130 SYS12307:POKE53280,0:s=32576:POKE53270,216 140 t=52224:e=s+999:GOSUB190 150 s=24576:e=s+7999:t=57344:GOSUB190 160 s=33576:e=s+999:t=55296:GOSUB190 170 POKE53265,59 180 GOTO270 190 POKE252,s/256:POKE251,s-256*PEEK(252) 200 POKE254,t/256:POKE253,t-256*PEEK(254) 210 POKE49153,e/256:POKE49152,e-256*PEEK(49153):SYS49154:RETURN 220 POKE53280,0:POKE53281,0:PRINT"{clear}{white}{down*12}{space*14}l o a d i n g !" 230 PRINT"{home}{black}load"CHR$(34)"inlb"CHR$(34)",8,1":PRINT"{down*4}goto130" 240 REM 250 POKE198,3:POKE631,19:POKE632,13:POKE633,13 260 END 270 POKE53280,0:POKE53281,0:SYS12307:CLR 300 POKE53280,0:POKE53281,0 330 GOTO2000 2000 POKE53280,0 2001 GETa$:IFa$=""THEN2001 2002 IFVAL(a$)<1 OR VAL(a$)>9 THEN2001 2003 SYS12288:IFa$="1"THEN SYS12307:q$=",1":n$="blood war":SYS12307 2004 IFa$="2"THENn$="bowling" 2005 IFa$="3"THENn$="fantasy" 2006 IFa$="4"THENn$="golden gate" 2007 IFa$="5"THENn$="iq" 2008 IFa$="6"THENn$="maze" 2009 IFa$="7"THENn$="mystiska boken" 2010 IFa$="8"THENn$="snake" 2011 IFa$="9"THENn$="vic 15" 2020 POKE 53272,20:POKE 56576,7:POKE 53265,27:POKE53270,200 2080 POKE53280,0:POKE53281,0:PRINT"{clear}{white}{down*12}{space*14}l o a d i n g !" 2090 PRINT"{home}{black}load"CHR$(34);n$;CHR$(34)",8";q$:PRINT"{down*4}run" 2100 POKE198,3:POKE631,19:POKE632,13:POKE633,13:END stop tok64 (bastext 1.0)