start tok64 d64-bx9PPx
1 REM initialize "gf/screen loader"
2 DIMsf$(23):ca$="{156}{reverse on}":su=15:bo=4:FORz=1TO39:z$=z$+" ":NEXT:PRINT"{clear}"
90 :
95 :REM call "gf/screen loader"
100 fi$="cr/doodle":GOSUB10000
110 GETgt$:IFgt$=""THEN110
120 GOSUB11000:GOTO110
9990 :
9995 :REM read/load fi$ (screen file)
10000 OPEN8,8,8,"0:"+fi$+",s,r":FORsf=1TO23:INPUT#8,s1$:INPUT#8,s2$
10005 sf$(sf)=s1$+s2$:NEXT:CLOSE8
10010 :
10995 REM print screen file
11000 POKE53281,su:POKE53280,bo:PRINT"{home}";:zz=0:FORz=1TO24:PRINTca$z$:zz=zz+40
11005 POKE1023+zz,160:POKE55295+zz,bo:NEXT:PRINTca$z$"{up}":POKE2023,160
11010 POKE56295,bo:PRINT"{home}{down}";:FORsf=1TO23:PRINT"{right}"sf$(sf):NEXT:RETURN
stop tok64
(bastext 1.0)