Programm 2 - CAS PrePro

1 PRINT "EINGABE DER GESCHWINDIGKEIT DES UFO'S":INPUT GESCHW
2 DIM A$(3)
3 GRAPHICS 1+16
5 SETCOLOR 2,0,0
45 Y=80
50 A=PEEK(106)-8
60 POKE 54279,A
70 ANF=256*A
80 POKE 559,46
90 POKE 53277,3
100 FOR I=ANF+512 TO ANF+1024
110 POKE I,0
120 NEXT I
130 FOR I=704 TO 708
140 POKE I,188
150 NEXT I
155 RESTORE
160 FOR H=0 TO 3
170 POKE 53248+H,X+H*8
180 POKE 53256+H,1
190 FOR I=(ANF+512+Y+(128*H)) TO (ANF+526+Y+(128*H))
195 L=0
200 READ A$
205 L=VAL(A$)
207 POKE I,L
210 NEXT I
220 NEXT H
230 FOR D=0 TO 228 STEP GESCHW
240 FOR P=0 TO 3
250 POS=D+16*P
260 IF POS<228 THEN POKE 53248+P,POS
270 NEXT P
280 NEXT D
290 GOTO 230
300 DATA 0,0,0,0,3,15,55,254,255,63,31,7,4,14,14
310 DATA 1,2,2,31,240,255,255,255,239,254,255,255,240,15,0
320 DATA 128,64,64,248,15,255,255,255,247,127,255,255,15,240,0
330 DATA 0,0,0,0,192,240,236,127,255,252,248,224,32,112,112