1 SYS58692
10 IFA=0THENA=1:LOAD"GRAPHICCLR",8,8
20 IFA=1THENA=2:LOAD"BITMAPON",8,8
25 IFA=2THENA=3:LOAD"BITMAPOFF",8,8
30 IFA=3THENA=4:LOAD"COLORS",8,8
40 IFA=4THENA=5:LOAD"PLOT",8,8
42 SYS28700:REM BITMAP LOESCHEN
45 SYS28726:REM HIRES-MODUS EIN
46 FORI=1024TO2023:POKEI,1:NEXT:REM FARBRAM (HINTERGR=WEISS, VORDERGR=SCHWARZ)
50 FORY=0TO189STEP9:FORX=0TO216:GOSUB60:NEXTX,Y:REM HORIZONTALE LINIEN
55 FORY=0TO189:FORX=0TO216STEP9:GOSUB60:NEXTX,Y:REM VERTIKALE LINIEN
56 POKE198,0:WAIT198,1
57 SYS28743:END
60 XH=INT(X/256):XL=X-XH*256
70 POKE966,XL:POKE967,XH
90 POKE968,Y
100 POKE964,1
110 SYS28892:SYS28759
130 RETURN