start tok64 d64-IjkDlO
10 REM  q*bert boot
20 p$="q-bert"
30 s=4096
40 POKE53280,6:POKE53281,6:PRINT"{blue}"
50 PRINT"{clear}load"CHR$(34);p$;CHR$(34)",8,1"
60 PRINT"{down*4}new"
70 PRINT"{down*2}sys";s
80 POKE198,4
90 DATA 19,13,13,13
100 FORi=1TO4:READx:POKE630+i,x:NEXT:NEW
stop tok64
(bastext 1.0)