Programm 3 - CAS PrePro
Dieses Programm habe ich mit meinem wav2X2cas (eigene Entwicklung auf Basis Excel und VBA) konvertiert.
Glücklicherweise gelang auch hier die Konvertierung auf Anhieb.
Das Basic-Programm ist ein Programm zur Demonstration von Vorder- und Hintergrund für Player
Das Listing ist sicher aus einem Buch oder einer Zeitschrift.
5 COLOR 3
10 GRAPHICS 7+16
20 DATA 60,126,219,255,189,195,126,60
30 SETCOLOR 2,0,0
40 PLOT 125,95
50 DRAWTO 80,0
60 DRAWTO 79,0
70 POSITION 45,95
80 POKE 765,1
85 XIO 18,#6,0,0,"S:"
90 A=PEEK(106)-24
100 POKE 54279,A
110 ANF=256*A
120 POKE 559,46
130 POKE 53277,3
140 FOR J=ANF+512 TO ANF+1024
150 POKE J,0
160 NEXT J
170 FOR I=ANF+580 TO ANF+587
180 READ X
190 POKE I,X
200 NEXT I
230 POKE 623,4
240 POKE 704,86
250 FOR K=60 TO 180
260 POKE 53248,K
270 NEXT K
280 POKE 623,1
290 FOR J=180 TO 60 STEP -1
300 POKE 53248,J
310 NEXT J
320 GOTO 230Download der Datei als CAS-File (bitte im Atari mit CLOAD laden):