Programm 1 - CAS PrePro
Dieses Programm widersetzte sich wav2cas.
Mit meiner Eigenentwicklung klappte die Konvertierung auf Anhieb.
Das Basic-Programm demonstriert die Modifikation des Zeichensatzes.
Das Listing ist sicher aus einem Buch oder einer Zeitschrift.
5 DIM ZSATZ(5)
10 DATA 48,16,56,124,186,72,132,130
20 DATA 48,16,56,124,186,56,16,40
30 DATA 48,16,56,56,120,40,40,16
40 DATA 48,16,56,56,120,172,72,68
50 DATA 48,16,56,56,124,56,72,72
60 GRAPHICS 0
70 SETCOLOR 2,12,8
80 SETCOLOR 1,0,0
90 FOR H=1 TO 5
100 ZSATZ(H)=(PEEK(742)-H*4)*256
110 FOR I=ZSATZ(H) TO ZSATZ(H)+7
120 READ X
130 POKE I,X
140 NEXT I
150 NEXT H
160 POSITION 0,0
170 LIST
180 FOR I=1 TO 5
190 POKE 756,INT(ZSATZ(I)/256)
200 IF I=2 THEN GOSUB 900
210 FOR Z=1 TO 15:NEXT Z
220 NEXT I
230 GOTO 180
900 FOR Q=0 TO 3
910 SOUND Q,255,0,4
920 NEXT Q
930 FOR Q=0 TO 3
940 SOUND Q,0,0,0
950 NEXT Q
960 RETURNDownload der Datei als CAS-File (bitte ohne BASIC laden, START und OPTION drücken am Atari):