1 VC=53248:FORI=0TO63:READA:POKE50432+I,A:NEXT
2 GOSUB18
3 PRINTCHR$(147):PRINT" DEMO MALPROGRAMM (GRAPHBASIC) ":PRINT:PRINT
4 PRINT"FUNKTIONSTASTE 1 = PROGRAMMBEGINN":PRINT
5 PRINT"FUNKTIONSTASTE 3 = PROGRAMMENDE"
6 GETA$
7 IFA$="[133]"THENGOSUB19
8 IFA$="[134]"THEN21
9 J=PEEK(56320)
10 IF(JAND16)=0THEN:GPN,0
11 DX=SGN(JAND4)-SGN(JAND8):DY=SGN(JAND1)-SGN(JAND2):X=X+DX:Y=Y+DY
12 IFX<0THENX=319
13 IFX>319THENX=0
14 IFY<0THENY=199
15 IFY>199THENY=0
16 X1=X+13:Y1=Y+40:S=(X1>255):POKEVC,X1+S*256:POKEVC+16,-1*S:POKEVC+1,Y1
17 GPL,X,Y:GPN,1:GOTO6
18 GSC,0:POKEVC+21,0:RETURN
19 X=160:Y=100:POKEVC+39,0:POKEVC,X+13:POKEVC+1,Y+40:POKEVC+21,1
20 GSC,2:GCO,15:POKE52216,20:GPN,1:RETURN
21 GSC,0:PRINTCHR$(147):POKEVC+21,0:END
22 DATA0,0,0,0,0,0,0,0,0,0,0,0
23 DATA0,16,0,0,16,0,0,16,0,0,16,0
24 DATA0,0,0,0,0,0,7,199,192,0,0,0,0,0,0
25 DATA0,16,0,0,16,0,0,16,0,0,16,0
26 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0