Atari 8-bit Source code

1 REM 
2 REM ||
3 REM ||
4 REM ||Libor KLUBAL ||
5 REM || ||
6 REM || ||
7 REM || c P L Soft 1989||
8 REM ||
9 REM 
10 GRAPHICS 0:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​?:​?
20 ? "        "
30 ? "         "
35 ? "         "
40 ? "        "
43 ? "        "
45 ? "        "
50 ?:​?
55 ? "      "
60 ? "       "
65 ? "       "
70 ? "      "
75 ? "       "
80 ? "       "
84 ?
85 DIM A$(100),​OT(51,​1),​B$(80),​C$(80),​P$(80)
86 ? " "
87 ? " |By Libor KLUBAL |"
88 ? " |c P L Soft 1989 |"
89 ? " "
90 FOR K=1 TO 50:​OT(K,​1)=0:​NEXT K
95 GOSUB 27000
100 REM 
110 GRAPHICS 0:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​?:​?:​?:​POKE 764,​255
115 ? " "
120 ? " ||"
125 ? " "
130 ? " | |"
132 ? " | 1. Test |"
135 ? " | 2. Vyhodnoceni |"
137 ? " | 3. Konec |"
140 ? " | |"
145 ? " "
150 ?:​?:​? "Vase volba:​";:​INPUT #16,​KEY
155 IF KEY<1 OR KEY>3 THEN ? " ":​GOTO 150
160 ON KEY GOTO 200,​520,​32500
200 REM 
210 REM ||
212 REM |Otazky na radku 10000 |
213 REM 
220 GRAPHICS 0:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​?:​?:​?
230 ? "Zadej pocet otazek(min.5 max.30):​ ";:​INPUT #16,​PO
240 IF PO<5 OR PO>30 THEN GOTO 230
250 FOR K=1 TO PO
255 IF PO=30 THEN A=K:​GOTO 265
260 A=INT(RND(0)*30)+1
265 IF OT(A,​1)=1 THEN 260
270 OT(A,​1)=1
280 NEXT K
285 REM 
287 FOR K=1 TO 30:​POKE 764,​255
288 IF OT(K,​1)=0 THEN 510
290 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3
295 PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191:​DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
300 A$="Chemie Tester Zkouen  P L Soft '88-89":​POKE 756,​112:​GOSUB 29000
305 COLOR 3:​PLOT 0,​35:​DRAWTO 319,​35:​PLOT 0,​110:​DRAWTO 319,​110:​PLOT 0,​112:​DRAWTO 319,​112:​YY=25:​COLOR 0
355 RESTORE 9999+K
357 READ A$:​PLOT 10,​20:​GOSUB 29000:​YY=40:​A$=""
360 PLOT 40,​YY:​A$="1.....":​GOSUB 29000:​READ A$,​B$,​C$,​SO
365 A=INT(RND(0)*2)+1
370 IF A<>1 THEN 397
375 P$=A$:​A$=C$:​C$=P$
380 IF SO=1 THEN SO=3:​GOTO 390
385 IF SO=3 THEN SO=1
390 P$=C$:​C$=B$:​B$=P$:​IF SO=2 THEN SO=3:​GOTO 397
395 IF SO=3 THEN SO=2
397 PLOT 70,​40:​GOSUB 29000:​A$="2.....":​PLOT 40,​50:​GOSUB 29000:​A$=B$:​PLOT 70,​50:​GOSUB 29000:​A$="3.....":​PLOT 40,​60
398 GOSUB 29000:​A$=C$:​PLOT 70,​60:​GOSUB 29000
400 PLOT 20,​120:​A$="Vae odpovd-":​GOSUB 29000
410 OPEN #4,​4,​0,​"K:​"
415 GET #4,​KEY:​IF KEY<49 OR KEY>51 THEN 415
420 KEY=KEY-48
423 IF SO=KEY THEN DO=DO+1
425 IF SO=KEY THEN A$="Vborn":​PLOT 90,​140:​GOSUB 29000:​FOR P=150 TO 50 STEP -3:​SOUND 0,​P,​10,​3:​NEXT P:​GOTO 500
430 FOR P=50 TO 150 STEP 2:​SOUND 0,​P,​10,​3:​NEXT P:​SOUND 0,​0,​0,​0
440 RESTORE 9999+K:​READ A$,​A$,​B$,​C$,​SO
445 IF SO=2 THEN A$=B$
450 IF SO=3 THEN A$=C$
455 P$=A$:​A$="Sprvn odpovd=":​PLOT 80,​140:​GOSUB 29000:​A$=P$:​PLOT 150,​140:​GOSUB 29000:​SP=SP+1
500 COLOR 0:​PLOT 250,​180:​A$="Stiskni mezernk":​GOSUB 29000:​POKE 764,​255:​SOUND 0,​0,​0,​0
505 IF PEEK(764)<>33 THEN 505
510 SOUND 0,​0,​0,​0:​CLOSE #4:​NEXT K
520 REM 
525 IF PO=0 THEN GOTO 100
530 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3
535 PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191:​DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
540 A$="Chemie Tester Vyhodnocen  P L Soft '88-89":​POKE 756,​112:​GOSUB 29000
545 COLOR 0:​PLOT 10,​20:​A$="Sprvn odpovdi-":​GOSUB 29000
550 A$=STR$(DO):​PLOT 80,​20:​GOSUB 29000
560 PLOT 10,​30:​A$="Spatn odpovdi -":​GOSUB 29000
563 PLOT 80,​30:​A$=STR$(SP):​GOSUB 29000
565 PLOT 10,​40:​A$="Uspnost -":​GOSUB 29000:​US=DO/PO:​A$=STR$(US):​PLOT 80,​40:​GOSUB 29000
600 COLOR 0:​PLOT 250,​180:​A$="Stiskni mezernk":​GOSUB 29000:​POKE 764,​255:​SOUND 0,​0,​0,​0
605 IF PEEK(764)<>33 THEN 605
610 GOTO 100
9999 REM 
10000 DATA Kdo sestavil periodickou soustavu prvk?,​Lomonosov,​Mendlejev,​Yamasaku,​2
10001 DATA Kdo je autorem nov periodick soustavy z roku 1986?,​Mendlejev,​Lomonosov,​Yamasaku,​3
10002 DATA Kter z dle uvedench prvk nen radioaktivn?,​Uran,​Plutonium,​Germanium,​3
10003 DATA Kter z uvedench prvk nepat do skupiny vzcnch plyn?,​Neon,​Jod,​Argon,​2
10004 DATA Kter prvek je tetm nejrozenjm prvkem na Zemi?,​Hlink,​Kemk,​Kyslk,​1
10005 DATA Kter prvek je nejrozenj na Zemi?,​Uhlk,​Kyslk,​Vodk,​2
10006 DATA Kter prvek je nejleh?,​Vodk,​Helium,​Kyslk,​1
10007 DATA V periodick tabulce pevauj,​Nekovy,​Polokovy,​Kovy,​3
10008 DATA Prvek kyslk O pat mezi,​Halogeny,​Chalkogeny,​Vzcn plyny,​2
10009 DATA Prvek Germanium Ge je,​Kov,​Polokov,​Nekov,​2
10010 DATA Dusk se uchovv v lahvch se,​Zelenm pruhem,​Hndm pruhem,​Modrm pruhem,​1
10011 DATA Kter z nsledujcch prvk pat mezi chalkogeny?,​Germanium,​Sra,​Bismut,​2
10012 DATA Kyslk se nejastji vyskytuje v oxidanm sle,​II,​-I,​-II,​3
10013 DATA Vodk se nejastji vyskytuje v oxidanm isle,​-I,​I,​II,​2
10014 DATA Voln atomy maj oxidan slo,​I,​-I,​0,​3
10015 DATA Velk elektronegativita prvk pevauje v,​Prav horn sti,​Stedn,​Lev doln sti tabulky,​1
10016 DATA Elektronegativita je,​Napt prvku,​Schopnost pitahovat elektronov pr,​Uruje polaritu naboje prvku,​2
10017 DATA 7 valennch elektron maj a jedovat jsou,​Vzacn plyny,​Chalkogeny,​Halogeny,​3
10018 DATA Alkany maj obecn vzorec,​Cn H2n+2,​Cn Hn+2,​Cn H2n,​1
10019 DATA C5 H12 je,​Hexan,​Pentan,​Butan,​2
10020 DATA C8 H18 je,​Oktan,​Hexan,​Propan,​1
10021 DATA Alkany s jednm a tymi atomy uhlku jsou ve skupenstv,​Plynnm,​Kapalnm,​Pevnm,​1
10022 DATA Alkany jsou ve vod,​Rozpustn,​Nerozpustn,​Zle na slouenin,​2
10023 DATA Cykloalkany maj obecn vzorec,​Cn Hn+2,​Cn H2n,​Cn H2n+2,​2
10024 DATA Alkeny maj obecn vzorec,​Cn Hn,​Cn H2n,​Cn H2n+2,​2
10025 DATA Alkeny maj,​Jednu dvojnou vazbu a ostatn jednoduch,​2 dvojn vazby a -- '' --,​Jen jednoduch vazby,​1
10026 DATA Alkeny jsou,​Mlo reaktivn,​Pomrn hodn reaktivn,​Nereaguj vbec,​2
10027 DATA Polymerace je,​Spalovn alken,​Spojovn molekul ltky v dlouh etzce,​Tvarovn plastickch hmot,​2
10028 DATA CH2=CH2 je vzorec,​Acethylenu,​Ethenu,​Propanu,​2
10029 DATA Vulkanizace je,​Zpracovn pirodnho kauuku,​Reakce probhajci ped vbuchem sopky,​Hoeni alken,​1
10030 DATA Alkiny maj obecn vzorec,​Cn Hn+2,​Cn H2n,​Cn H2n-2,​3
10031 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10032 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10033 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10034 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10035 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10036 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10037 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10038 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10039 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10040 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10041 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10042 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10043 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10044 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10045 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10046 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10047 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10048 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10049 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
10050 DATA OTAZKA,​ODPOVED,​ODPOVED,​ODPOVED,​1
20000 FOR K=28000 TO 28100
20010 ? "":​?:​?:​?
20020 ? K:​? "CONT":​POSITION 0,​0:​END
20030 NEXT K
26999 END
27000 REM 
27001 IF PEEK(0)=100 THEN RETURN
27005 U=USR(ADR("hhh`"),​28672)
27052 RESTORE 27130:​FOR K=28936 TO 29143:​READ A:​POKE K,​A:​NEXT K
27060 RESTORE 27250:​FOR K=29448 TO 29655:​READ A:​POKE K,​A:​NEXT K
27070 RESTORE 27350:​FOR K=28800 TO 28887:​READ A:​POKE K,​A:​NEXT K
27082 RESTORE 27450:​FOR K=29184 TO 29439:​READ A:​POKE K,​A:​NEXT K:​GOSUB 30000:​POKE 0,​100:​RETURN
27130 DATA 0,​16,​52,​36,​36,​52,​36,​0,​0,​48,​36,​48,​36,​36,​48,​0,​0,​16,​36,​32,​32,​36,​16,​0,​0,​48,​36,​36,​36,​36,​48,​0
27140 DATA 0,​52,​32,​32,​48,​32,​52,​0,​0,​52,​32,​52,​32,​32,​32,​0,​0,​16,​36,​32,​52,​36,​16,​0,​0,​36,​36,​36,​52,​36,​36,​0
27150 DATA 0,​16,​16,​16,​16,​16,​16,​0,​0,​4,​4,​4,​4,​36,​16,​0,​0,​36,​36,​48,​48,​36,​36,​0,​0,​32,​32,​32,​32,​32,​52,​0
27160 DATA 0,​36,​52,​52,​36,​36,​36,​0,​0,​36,​52,​52,​52,​52,​36,​0,​0,​16,​36,​36,​36,​36,​16,​0,​0,​48,​36,​36,​48,​32,​32,​0
27170 DATA 0,​16,​36,​36,​36,​52,​20,​0,​0,​48,​36,​36,​48,​36,​36,​0,​0,​20,​32,​48,​4,​36,​16,​0,​0,​52,​16,​16,​16,​16,​16,​0
27180 DATA 0,​36,​36,​36,​36,​36,​52,​0,​0,​36,​36,​36,​36,​52,​16,​0,​0,​36,​36,​36,​52,​52,​36,​0,​0,​36,​36,​16,​16,​36,​36,​0
27190 DATA 0,​36,​36,​16,​16,​16,​16,​0,​0,​52,​4,​16,​16,​32,​52,​0
27250 DATA 0,​0,​48,​4,​20,​36,​52,​0,​0,​32,​32,​48,​38,​38,​48,​0,​0,​0,​20,​32,​32,​32,​20,​0,​0,​4,​4,​20,​38,​38,​20,​0,​0,​0,​16,​38,​54,​32,​20,​0
27260 DATA 0,​4,​16,​16,​54,​16,​16,​0,​0,​0,​16,​38,​38,​20,​4,​48,​0,​32,​32,​48,​38,​38,​38,​0,​0,​16,​0,​48,​16,​16,​52,​0
27270 DATA 0,​16,​0,​16,​16,​16,​16,​48,​0,​32,​32,​38,​48,​48,​38,​0,​0,​48,​16,​16,​16,​16,​52,​0,​0,​0,​38,​52,​52,​38,​38,​0,​0
27280 DATA 0,​48,​38,​38,​38,​38,​0,​0,​0,​16,​38,​38,​38,​16,​0,​0,​0,​48,​38,​38,​48,​32,​32,​0,​0,​20,​38,​38,​20,​4,​4,​0,​0,​48,​38,​32,​32,​32,​0
27290 DATA 0,​0,​20,​32,​48,​4,​48,​0,​0,​16,​16,​16,​52,​16,​20,​0,​0,​0,​38,​38,​38,​38,​20,​0,​0,​0,​38,​38,​38,​16,​16,​0,​0,​0,​38,​38,​52,​52,​38
27300 DATA 0,​0,​0,​38,​38,​16,​38,​38,​0,​0,​0,​38,​38,​38,​52,​4,​48,​0,​0,​52,​4,​16,​32,​52,​0
27350 DATA 0,​16,​36,​36,​52,​36,​16,​0
27355 DATA 0,​4,​20,​36,​4,​4,​4,​0,​0,​16,​36,​4,​16,​32,​52,​0,​0,​48,​4,​16,​4,​4,​48,​0,​0,​4,​20,​36,​36,​52,​4,​0,​0,​52,​32,​48,​4,​36,​16,​0
27360 DATA 0,​16,​36,​32,​48,​36,​16,​0,​0,​52,​4,​4,​16,​16,​32,​0,​0,​16,​36,​16,​36,​36,​16,​0,​0,​16,​36,​20,​4,​36,​16,​0,​0,​16,​36,​36,​52,​36
27450 DATA 0,​0,​0,​0,​0,​0,​0,​0,​4,​16,​48,​4,​20,​36,​52,​0,​0,​0,​0,​0,​0,​0,​0,​0,​36,​20,​20,​32,​32,​32,​20,​0,​36,​20,​4,​20,​38,​38,​16,​0
27460 DATA 4,​16,​20,​36,​52,​32,​20,​0,​36,​16,​20,​36,​52,​32,​20,​0,​5,​16,​33,​36,​36,​33,​16,​5,​48,​4,​33,​1,​1,​33,​4,​48
27465 DATA 4,​16,​0,​48,​16,​16,​52,​0
27470 DATA 0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​36,​16,​48,​36,​36,​36,​36,​0
27480 DATA 4,​16,​16,​36,​36,​36,​16,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​36,​16,​48,​36,​32,​32,​32,​0,​36,​16,​20,​32,​48,​4,​48,​0
27490 DATA 0,​17,​20,​16,​52,​16,​20,​0,​16,​16,​36,​36,​36,​36,​20,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0,​0
27500 DATA 4,​16,​36,​36,​36,​52,​4,​48,​36,​16,​52,​4,​16,​32,​52,​0,​36,​16,​52,​4,​16,​32,​52,​0,​0
27510 DATA 0,​0,​16,​52,​16,​16,​0,​0,​0,​0,​16,​16,​52,​16,​0,​0,​0,​0,​0,​16,​53,​16,​0,​0,​0,​0,​0,​4,​53,​4,​0
29000 POKE 756,​112:​U=USR(1536,​ADR(A$),​LEN(A$),​128):​POKE 756,​224:​RETURN
30000 REM
30010 S=0:​RESTORE 30100
30015 POKE 0,​100
30020 FOR A=1536 TO 1746:​READ D:​POKE A,​D:​S=S+D:​NEXT A:​RETURN
30030 IF S<>25816 THEN ? "DATEN-FEHLER!":​STOP
30100 DATA 104,​104,​133,​209,​104,​133,​208,​104,​104,​133,​210,​104,​104,​133
30110 DATA 214,​169,​0,​133,​211,​133,​205,​133,​213,​165,​92,​133,​216,​165,​91
30120 DATA 102,​216,​106,​102,​216,​106,​133,​212,​165,​212,​201,​80,​176,​103
30130 DATA 106,​102,​213,​165,​94,​133,​203,​165,​95,​133,​204,​160,​0,​132,​207
30140 DATA 164,​211,​177,​208,​41,​127,​201,​96,​176,​11,​201,​32,​176,​4,​9,​64
30150 DATA 208,​3,​56,​233,​32,​10,​10,​38,​207,​10,​38,​207,​133,​206,​24,​165,​207
30160 DATA 109,​244,​2,​133,​207,​162,​8,​160,​0,​177,​206,​36,​214,​16,​3,​32,​147
30170 DATA 6,​32,​191,​6,​36,​214,​80,​3,​32,​191,​6,​230,​206,​202,​208,​230,​230
30180 DATA 212,​36,​214,​16,​6,​36,​213,​48,​4,​16,​4,​230,​212,​230,​205,​230,​211
30190 DATA 198,​210,​208,​147,​96,​133,​215,​169,​0,​133,​216,​160,​3,​185,​183
30200 DATA 6,​36,​215,​240,​7,​185,​187,​6,​5,​216,​133,​216,​136,​16,​239,​165,​216
30210 DATA 36,​213,​48,​4,​10,​10,​10,​10,​96,​1,​4,​16,​32,​1,​2,​4,​8,​72,​164,​205
30220 DATA 17,​203,​145,​203,​24,​165,​203,​105,​40,​133,​203,​144,​2,​230,​204,​104,​96
31000 REM
31005 IF LEN(P$)<=2 THEN 31040
31010 FOR W=1 TO LEN(P$)
31015 IF ASC(P$(W,​W))>=97 THEN NEXT W:​GOTO 31035
31020 AS=ASC(P$(W,​W))
31025 P$(W,​W)=CHR$(AS+32)
31030 NEXT W
31035 RETURN
31040 IF ASC(P$(1,​1))>=97 THEN AS=ASC(P$(1,​1)):​P$(1,​1)=CHR$(AS-32)
31043 IF LEN(P$)=1 THEN RETURN
31045 IF ASC(P$(2,​2))<97 THEN AS=ASC(P$(2,​2)):​P$(2,​2)=CHR$(AS+32)
31050 RETURN
31100 REM
31105 POKE 764,​255
31107 SOUND 0,​100,​10,​10:​FOR P=1 TO 5:​NEXT P:​SOUND 0,​0,​0,​0
31110 IF PEEK(764)<>33 THEN 31110
31120 POKE 764,​255
32000 REM
32005 FOR SO=1 TO 6:​SOUND 0,​50,​10,​10:​NEXT SO:​SOUND 0,​0,​0,​0
32010 RETURN
32500 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​COLOR 3
32510 GRAPHICS 8+16:​COLOR 3:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
32515 A$="Chemie Tester Rozlouen  P L Soft '88-89":​POKE 756,​112
32520 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2:​U=USR(1536,​ADR(A$),​LEN(A$),​128)
32525 COLOR 0:​PLOT 10,​30:​A$="Lou se s Vmi program CHEMIE Tester,​ vyroben v dln P L Softu.":​GOSUB 29000
32530 PLOT 10,​40:​A$="Mte-li zjem o dal programy P L Softu,​ nebo o vmnu firemnch program,​":​GOSUB 29000
32535 PLOT 10,​50:​A$="pite na adresu ":​GOSUB 29000
32540 PLOT 10,​60:​A$=" Libor KLUBAL ":​GOSUB 29000
32545 PLOT 10,​70:​A$=" Spojovac 812":​GOSUB 29000
32550 PLOT 10,​80:​A$=" 749 01 Vtkov":​GOSUB 29000:​POKE 756,​224
32560 PLOT 100,​130:​U=USR(1536,​ADR("NASHLEDANOU"),​11,​0)
32600 GOTO 32600
32700 ? "!! NO NO !!":​GOTO 35	

• Download link 1
• Download link 2