start tok64 d64-nUQDyT
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)