Atari 8-bit Source code

1 REM #$%&@#$%&@#$%&@#$%&@$%&#
2 REM #  #
3 REM % (PD) 1989 Jiri Pilny %
4 REM & Kosmonosy 657 &
5 REM #$%&@#$%&@#$%&@#$%&@$%&# ABC 7/34
6 GRAPHICS 2:​? #6;:​? #6;" ":​? " V uprave Ing.Buchtika":​? " Tabor 2383 (1990)":​? " ABC 7/34"
7 FOR W=1 TO 50:​SOUND 0,​242,​14,​2:​SOUND 1,​193,​14,​2:​SOUND 2,​162,​10,​1:​NEXT W
9 SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0:​SOUND 2,​0,​0,​0:​FOR P=1 TO 2000:​NEXT P:​GRAPHICS 0:​GOSUB 300
10 DIM L$(15),​N$(5),​R$(1):​POKE 16,​64:​POKE 53774,​64:​GOSUB 300
15 N$="Dobre":​L$="Spatne-znovu !!"
16 ? "Chces zmenit spodni hranici pouziva- nych nahodilych cisel? Standarni hod- noty jsou 5 a 3.......(A/N)";
17 IF PEEK(764)=63 THEN POKE 764,​255:​? "Oprav hodnoty v listingu na obrazovce":​LIST 71:​LIST 91:​LIST 521:​LIST 531:​END
18 IF PEEK(764)=35 THEN POKE 764,​255:​GOSUB 300:​GOTO 20
19 GOTO 17
20 TRAP 20:​? "":​?:​? " Napis pocet prikladu";:​INPUT A
30 GOSUB 1000
40 ?:​? "Napis do kolika chces  cislo ";:​INPUT C
42 ?:​? "Napis do kolika chces  cislo ";:​INPUT Z
43 IF B=2 OR B=4 OR B=6 OR B=7 THEN 50
44 ?:​? "Chces pocitat se zapornymi cisly.................(A/N)";:​INPUT R$
50 D=C+1:​V=Z+1:​GOSUB 300
55 IF B=4 OR B=5 OR B=6 OR B=7 THEN 500
56 FOR E=1 TO A:​? ""
57 IF B=1 THEN G=(INT(RND(0)*2)+1):​GOTO 70
58 IF B=2 THEN G=(INT(RND(0)*2)+3):​GOTO 70
59 IF B=3 THEN G=(INT(RND(0)*4)+1):​GOTO 70
62 ? " Pises chybne-znovu":​POP:​GOTO 30
70 GOSUB 300:​F=INT(RND(0)*D)
71 IF F<5 THEN GOTO 70
90 GOSUB 300:​H=INT(RND(0)*V)
91 IF H<3 THEN GOTO 90
93 S=S+1
95 ? " Priklad cislo ";S:​?:​?
100 ON G GOSUB 150,​180,​220,​250
110 NEXT E
112 ?:​?:​? "Mas ";X;" chyb-znamka ";
114 Y=X/S
115 IF Y<=0.05 THEN ? "1":​GOTO 120
116 IF Y<=0.15 THEN ? "2":​GOTO 120
117 IF Y<=0.2 THEN ? "3":​GOTO 120
118 IF Y<=0.25 THEN ? "4":​GOTO 120
119 ? "5"
120 POSITION 5,​23:​? "Chces jeste pocitat...(A/N)";
130 IF PEEK(764)=63 THEN POKE 764,​255:​RUN
135 IF PEEK(764)=35 THEN POKE 764,​255:​GRAPHICS 0:​GOSUB 300:​END
140 GOTO 130
150 TRAP 150:​? " ";:​? F;"+";H;"=";:​INPUT I
160 J=F+H:​IF I=J THEN ?:​GOSUB 1500:​? N$:​FOR I=1 TO 200:​NEXT I:​RETURN
170 GOSUB 1600:​?:​? L$:​?:​X=X+1:​GOTO 150
180 IF R$="A" THEN 190
182 GOSUB 300:​IF H>F THEN H=INT(RND(0)*V):​GOTO 182
190 TRAP 190:​? " ";:​? F;"-";H;"=";:​INPUT I
200 J=F-H:​IF I=J THEN ?:​GOSUB 1500:​? N$:​FOR O=1 TO 300:​NEXT O:​RETURN
210 GOSUB 1600:​?:​? L$:​?:​X=X+1:​GOTO 190
220 TRAP 220:​? " ";:​? F;"*";H;"=";:​INPUT I
230 J=F*H:​IF I=J THEN ?:​GOSUB 1500:​? N$:​FOR O=1 TO 400:​NEXT O:​RETURN
240 TRAP 240:​GOSUB 1600:​?:​? L$:​?:​X=X+1:​GOTO 220
250 GOSUB 300:​IF F=0 THEN F=INT(RND(O)*V):​GOTO 250
255 IF H>F OR H=0 THEN H=INT(RND(0)*V):​GOTO 250
257 J=F/H:​J=INT(J):​F=J*H
260 ? " ";:​? F;":​";H;"=";:​INPUT I
270 IF I=J THEN ?:​GOSUB 1500:​? N$:​FOR O=1 TO 500:​NEXT O:​RETURN
280 GOSUB 1600:​?:​? L$:​?:​X=X+1:​GOTO 260
300 FOR P=1 TO 3:​SOUND 3,​200,​14,​2:​NEXT P:​SOUND 3,​0,​0,​0
310 RETURN
500 FOR M=1 TO A
510 ? ""
515 S=S+1:​? " Priklad cislo ";S:​?:​?
520 GOSUB 300:​F=INT(RND(0)*D)
521 IF F<5 THEN GOTO 520
530 GOSUB 300:​H=INT(RND(0)*V)
531 IF H<3 THEN GOTO 530
540 ON B-3 GOSUB 150,​180,​220,​250
550 NEXT M
560 GOTO 112
1000 ? "":​?:​? "Chces scitani a odecitani.......1"
1010 ?:​? "Chces nasobeni a deleni.........2"
1020 ?:​? "Chces vsechno...................3"
1030 ?:​? "Chces scitani...................4"
1040 ?:​? "Chces odcitani..................5"
1050 ?:​? "Chces nasobeni..................6"
1060 ?:​? "Chces deleni....................7"
1065 ? "---------------------------------"
1070 POSITION 33,​16:​INPUT B
1080 RETURN
1500 FOR TON=250 TO 5 STEP -25:​HLAS=INT(RND(0)*2+2):​SOUND 3,​TON,​14,​HLAS:​NEXT TON:​SOUND 3,​0,​0,​0
1510 RETURN
1600 FOR Q=1 TO 300:​SOUND 1,​Q*2.5/3,​10,​4:​NEXT Q:​FOR W=150 TO 10 STEP -1:​SOUND 1,​150,​2,​W/10:​NEXT W
1610 SOUND 1,​0,​0,​0
1620 RETURN	

• Download link 1
• Download link 2