Programm 10 - CAS PrePro

Dieses Programm hat wav2cas klaglos konvertiert. Die Einleseversuche mit CLAOD scheiterten jedoch. Nachdem ich mir das Programm im Editor angeschaut habe, wußte ich auch warum. Das Programm war mit LIST "C:" gespeichert worden. Das Laden mit ENTER "C:" klappte dann auch auf Anhieb.

Mit diesem Basic-Programm kann man Kopfrechnen üben.
Keine Ahnung aus welcher Quelle das Programm stammt, ich würde allerdings auf ein Abtipplisting oder ähnliches tippen.

10 ? CHR$(125)
20 DIM B(2),ANT$(10)
30 B(1)=43:B(2)=45
40 ? "        Gib die Zahl ein, bis zu der "
50 ? "     Berechnungen erfolgen sollen"
60 ? "     und druecke  RETURN "
70 ? "      Eingabe ";
80 INPUT S
100 OPEN #1,4,0,"K:"
110 GRAPHICS 18
120 ? #6;CHR$(125)
130 AS=INT(RND(0)*1+0.5)+1
140 ANT$="          "
150 ON AS GOSUB 300,350
160 POSITION 4,4
170 ? #6;S1;" ";CHR$(B(AS));" ";S2;" = ";
190 FOR X=1 TO Z
200 GET #1,W
205 IF W=27 THEN GOTO 800
210 IF W<48 OR W>57 THEN GOTO 190
220 ANT$(X,X)=CHR$(W)
230 ? #6;CHR$(W);
240 NEXT X
250 AN=VAL(ANT$)
260 IF AN=ER THEN GOSUB 450:GOTO 120
270 GOSUB 500
280 GOTO 120
290 GRAPHICS 0:CLOSE #1:END
300 GOSUB 400
310 IF Z1>Z2 THEN ER=Z1:S1=Z2:GOTO 330
320 ER=Z2:S1=Z1
330 S2=ER-S1:Z=LEN(STR$(ER))
335 IF S1Z2 THEN S1=Z1:S2=Z2:GOTO 380
370 S1=Z2:S2=Z1
380 ER=S1-S2:Z=LEN(STR$(ER))
390 RETURN 
400 Z1=INT(RND(0)*S+0.5)
410 Z2=INT(RND(0)*S+0.5)
420 RETURN 
450 POSITION 4,6
460 ? #6;"RICHTIG !"
470 RI=RI+1
480 SO=1:GOSUB 550
490 RETURN 
500 POSITION 4,6
510 ? #6;"FALSCH !"
520 FA=FA+1
530 SO=2:GOSUB 550
540 RETURN 
550 IF SO=1 THEN RESTORE 600:GOTO 570
560 RESTORE 700
570 READ SO1,SO2,SO3,SO4,LE
575 IF SO1=999 THEN RETURN 
580 SOUND 0,SO1,10,7:SOUND 1,SO2,10,7:SOUND 2,SO3,10,7:SOUND 3,SO4,10,7
590 FOR LEN=0 TO LE:NEXT LEN:GOTO 570
595 RETURN 
600 DATA 121,0,0,0,50
605 DATA 121,96,0,0,50
610 DATA 121,96,81,0,50
615 DATA 121,96,81,60,50
620 DATA 47,96,81,60,50
630 DATA 47,40,81,60,50
640 DATA 47,40,29,60,250
650 DATA 0,0,0,0,0
695 DATA 999,0,0,0,0
700 DATA 108,108,128,128,75
705 DATA 148,148,128,128,75
710 DATA 148,148,168,168,75
715 DATA 188,188,168,168,75
720 DATA 188,188,208,208,75
725 DATA 228,228,208,208,75
730 DATA 228,228,248,248,75
735 DATA 255,255,240,240,150
790 DATA 0,0,0,0,0
795 DATA 999,0,0,0,0
800 ? #6;CHR$(125)
810 GES=RI+FA
820 PR=GES/100
830 IF RI>=PR*90 THEN Z=1:GOTO 880
840 IF RI>=PR*75 THEN Z=2:GOTO 880
850 IF RI>=PR*50 THEN Z=3:GOTO 880
860 IF RI>=PR*30 THEN Z=4:GOTO 880
870 Z=5
880 POSITION 8,5
890 ? #6;Z
900 FOR Z=0 TO 2000:NEXT Z
910 GOTO 290

Download der Datei als CAS-File (bitte im Atari mit ENTER "C:" laden):