Atari 8-bit Source code

1 REM 
2 REM ||
3 REM ||
4 REM || by Libor KLUBAL ||
5 REM || ||
6 REM || fy P L Soft c 1988 ||
7 REM || ||
8 REM ||
9 REM 
10 GRAPHICS 0:​? "":​?:​?:​SETCOLOR 1,​1,​1:​POKE 710,​10
15 DIM A$(79),​PR$(30),​B$(20),​C$(20),​P$(20)
20 ? "       "
21 ? "        "
22 ? "        "
23 ? "      "
24 ? "       "
25 ? "        "
26 ? "        "
27 ?
28 ? "    "
29 ? "  | Libor KLUBAL |  | |"
30 ? " | c P L Soft 1988 |   "
31 ? "  "
33 ?
34 ?:​?:​? "Prosim cekej (cca 1min)":​GOSUB 27000:​? "Stiskni mezernik ":​POKE 54018,​48:​GOSUB 31100
35 GRAPHICS 0:​SETCOLOR 1,​1,​1:​POKE 710,​10:​? "":​?:​?:​?:​POKE 756,​224
36 ? "1.....Graficka tabulka 2.....Zakladni charakteristika"
37 ? "3.....Kovy a nekovy 4.....Rust nekterych vlastnosti prvku"
38 ? "5.....Novy tvar periodicke soustavy prvku 6.....Konec"
40 ?:​? "Vase volba:​";:​INPUT #16,​KEY
45 ON KEY GOTO 100,​354,​420,​540,​670,​32500
100 REM
105 GRAPHICS 8+16:​COLOR 3:​SETCOLOR 1,​1,​1:​POKE 710,​10:​POKE 756,​112
110 FOR K=0 TO 319 STEP 16
120 PLOT K,​0:​DRAWTO K,​128
130 NEXT K
140 FOR K=0 TO 128 STEP 16
150 PLOT 0,​K:​DRAWTO 303,​K
160 NEXT K
170 COLOR 0
180 FOR K=17 TO 31:​PLOT 43,​K:​DRAWTO 286,​K:​NEXT K
190 FOR K=31 TO 63:​PLOT 49,​K:​DRAWTO 207,​K:​NEXT K
200 COLOR 3:​PLOT 15,​0:​DRAWTO 15,​128:​PLOT 14,​0:​DRAWTO 14,​128
210 PLOT 0,​17:​DRAWTO 303,​17:​PLOT 0,​18:​DRAWTO 303,​18
220 FOR K=64 TO 288 STEP 16
230 PLOT K,​140:​DRAWTO K,​172
240 NEXT K
250 FOR K=140 TO 172 STEP 16
260 PLOT 64,​K:​DRAWTO 288,​K
270 NEXT K
271 COLOR 0
272 FOR K=1 TO 15
273 PLOT 140,​K:​DRAWTO 161,​K
274 NEXT K
275 COLOR 0
280 XX=6:​YY=20:​RESTORE 10000
290 PLOT XX,​YY
300 READ A$:​IF A$="!" THEN GOTO 319
304 IF A$="-" THEN XX=XX+16:​YY=-11:​GOTO 310
305 U=USR(1536,​ADR(A$),​LEN(A$),​128)
310 YY=YY+16
315 GOTO 290
319 XX=69:​YY=147:​RESTORE 10035
320 PLOT XX,​YY:​READ A$:​IF A$="!" THEN 351
330 IF A$="-" THEN XX=69-16:​YY=YY+16:​GOTO 345
340 U=USR(1536,​ADR(A$),​LEN(A$),​128)
345 XX=XX+16
350 GOTO 320
351 POKE 756,​224:​PLOT 10,​180:​U=USR(1536,​ADR("Stiskni mezernik"),​16,​0)
352 GOSUB 31100:​GOTO 35
354 GRAPHICS 0:​SETCOLOR 1,​1,​1:​POKE 710,​10
355 ?:​?:​?
356 ? "Periodickou soustavu sestavil rusky vedec D.I. Mendelejev.Prvky v tabulce usporadal podle rostouci ";
357 ? "relativni atomove hmotnosti. Po usporadani prvkuzjistil,​ ze se po urcitych intervalechopakuji prvky ";
358 ? "podobnych vlastnosti.Svepozorovani zhrnul v periodickem zakone"
359 ? "  Vlastnosti prvku jsou periodic-  kou funkci jejich protonoveho  cisla."
360 ?:​? "Periodicky zakon patri k nejvyznamej- sim prirodnim zakonum."
361 ?:​?:​?:​? "Stiskni mezernik":​POKE 764,​255
362 GOSUB 31100
363 ? "":​?:​?
364 ? "Zakladni fakta o periodicke soustave prvku:​ (plati pro starsi tabulku)":​?
365 ? "-Prvky jsou podle stoupajiciho proto- noveho cisla usporadany do 7 vodorov- nych rad - period":​?
366 ? "-Podobne prvky jsou umisteny v 16 svislych skupinach,​ ktere oznacujeme rimskymi cisly I az VIII":​?
367 ?:​?:​?:​?:​? "Stiskni mezernik"
368 GOSUB 31100
370 GOTO 35
419 GOTO 419
420 REM 
425 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​10:​COLOR 3:​Y=0
430 PLOT 10,​20:​DRAWTO 10,​100:​DRAWTO 50,​100:​DRAWTO 50,​90:​DRAWTO 250,​90:​DRAWTO 250,​20:​DRAWTO 240,​20:​DRAWTO 240,​30
435 DRAWTO 180,​30:​DRAWTO 180,​50
440 DRAWTO 30,​50:​DRAWTO 30,​30:​DRAWTO 20,​30:​DRAWTO 20,​20:​DRAWTO 10,​20
445 FOR K=20 TO 30:​PLOT 10,​K:​DRAWTO 20,​K:​PLOT 240,​K:​DRAWTO 250,​K:​NEXT K:​X=190
450 FOR K=1 TO 6
455 FOR L=30 TO 40
460 PLOT X,​Y+L:​DRAWTO 250,​Y+L
465 NEXT L
470 X=X+10:​Y=Y+10
475 NEXT K:​Y=30:​X=0
478 FOR L=1 TO 6
480 FOR K=180 TO 190 STEP 2
485 PLOT K+X,​Y:​DRAWTO K+X,​Y+10
490 NEXT K:​Y=Y+10:​X=X+10:​NEXT L
495 COLOR 0:​PLOT 240,​50:​DRAWTO 200,​55:​COLOR 3:​PLOT 200,​55:​DRAWTO 57,​73:​PLOT 60,​70:​DRAWTO 57,​73:​DRAWTO 60,​76
500 PLOT 10,​110:​DRAWTO 10,​120:​DRAWTO 20,​120:​DRAWTO 20,​110:​DRAWTO 10,​110:​POKE 756,​112
505 COLOR 0:​PLOT 25,​112:​U=USR(1536,​ADR("Kovy"),​4,​128):​COLOR 3
510 FOR K=51 TO 60 STEP 2:​PLOT K,​110:​DRAWTO K,​120:​NEXT K:​COLOR 0:​PLOT 65,​112
515 U=USR(1536,​ADR("Polokovy"),​8,​128):​COLOR 3
520 FOR K=100 TO 110:​PLOT K,​110:​DRAWTO K,​120:​NEXT K:​COLOR 0
525 PLOT 115,​112:​U=USR(1536,​ADR("Nekovy"),​6,​128)
530 PLOT 10,​130:​U=USR(1536,​ADR("Ve smru ipky roste kovov charakter prvk"),​43,​128)
534 COLOR 0:​PLOT 250,​180:​U=USR(1536,​ADR("Stiskni mezernik"),​16,​128):​GOSUB 31100:​GOTO 35
540 REM 
545 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​10:​COLOR 3:​Y=0:​POKE 756,​112
550 PLOT 10,​20:​DRAWTO 260,​20:​DRAWTO 260,​140:​DRAWTO 10,​140:​DRAWTO 10,​20
555 FOR K=1 TO 7:​COLOR 0
560 P$=STR$(K)
570 PLOT 5,​K*19
575 U=USR(1536,​ADR(P$),​LEN(P$),​128)
580 NEXT K:​RESTORE 10040
585 FOR K=1 TO 8
590 READ A$:​PLOT K*31-10,​10
595 U=USR(1536,​ADR(A$),​LEN(A$),​128)
600 NEXT K:​COLOR 3
605 PLOT 52,​135:​DRAWTO 206,​31:​PLOT 52,​136:​DRAWTO 205,​31:​PLOT 52,​137:​DRAWTO 204,​31:​PLOT 52,​138:​DRAWTO 204,​31
610 PLOT 52,​139:​DRAWTO 204,​31
615 PLOT 202,​42:​DRAWTO 204,​31:​DRAWTO 195,​30:​COLOR 0
620 PLOT 15,​25:​U=USR(1536,​ADR("Rst-"),​5,​128)
625 READ A$:​IF A$="!" THEN Y=0:​GOTO 645
630 PLOT 25,​Y+35:​U=USR(1536,​ADR(A$),​LEN(A$),​128)
640 Y=Y+9:​GOTO 625
645 PLOT 160,​70:​U=USR(1536,​ADR("Pokles-"),​7,​128)
650 READ A$:​IF A$="!" THEN 665
655 PLOT 145,​Y+80:​U=USR(1536,​ADR(A$),​LEN(A$),​128)
660 Y=Y+9:​GOTO 650
665 COLOR 0:​PLOT 250,​180:​U=USR(1536,​ADR("Stiskni mezernik"),​16,​128):​GOSUB 31100:​GOTO 35
669 REM 
670 GRAPHICS 8+16:​COLOR 3:​SETCOLOR 1,​1,​1:​POKE 710,​10
675 FOR K=0 TO 319 STEP 16
680 PLOT K,​0:​DRAWTO K,​128
685 NEXT K
690 FOR K=0 TO 128 STEP 16
695 PLOT 0,​K:​DRAWTO 303,​K
700 NEXT K
705 COLOR 0
710 FOR K=17 TO 31:​PLOT 43,​K:​DRAWTO 286,​K:​NEXT K
715 FOR K=31 TO 63:​PLOT 49,​K:​DRAWTO 207,​K:​NEXT K
720 COLOR 3:​PLOT 15,​0:​DRAWTO 15,​128:​PLOT 14,​0:​DRAWTO 14,​128
725 PLOT 0,​17:​DRAWTO 303,​17:​PLOT 0,​18:​DRAWTO 303,​18
730 FOR K=64 TO 288 STEP 16
735 PLOT K,​140:​DRAWTO K,​172
740 NEXT K
745 FOR K=140 TO 172 STEP 16
750 PLOT 64,​K:​DRAWTO 288,​K
755 NEXT K
760 COLOR 0
765 XX=6:​YY=20:​RESTORE 10060
770 PLOT XX,​YY
775 READ A$:​IF A$="!" THEN GOTO 805
780 IF A$="-" THEN XX=XX+16:​YY=-11:​GOTO 790
785 U=USR(1536,​ADR(A$),​LEN(A$),​128)
790 YY=YY+16
800 GOTO 770
805 XX=69:​YY=147:​RESTORE 10035
810 PLOT XX,​YY:​READ A$:​IF A$="!" THEN GOTO 830:​GOTO 35
815 IF A$="-" THEN XX=69-16:​YY=YY+16:​GOTO 825
820 U=USR(1536,​ADR(A$),​LEN(A$),​128)
825 XX=XX+16:​GOTO 810
830 COLOR 0:​PLOT 10,​180:​U=USR(1536,​ADR("Stiskni mezernik"),​16,​0):​GOSUB 31100
835 GRAPHICS 8+16:​COLOR 3:​SETCOLOR 1,​1,​1:​POKE 710,​9:​POKE 712,​5:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
836 A$="Chemie 2 Nov tvar soustavy prvk  P L Soft '88-89":​POKE 756,​112
837 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2:​U=USR(1536,​ADR(A$),​LEN(A$),​128)
840 RESTORE 10100:​XX=20:​COLOR 0
850 READ A$:​IF A$="!" THEN 900
860 PLOT 10,​XX:​UL=USR(1536,​ADR(A$),​LEN(A$),​128):​XX=XX+8
870 GOTO 850
900 REM 
903 A$="slovkov morfmy systematickho nzvoslov prvk"
905 PLOT 10,​100:​U=USR(1536,​ADR(A$),​LEN(A$),​128)
910 PLOT 50,​110:​A$="slice morfm zkratka":​GOSUB 1100
915 PLOT 50,​117:​A$=" 0 nil n":​GOSUB 1100
920 PLOT 50,​124:​A$=" 1 un u":​GOSUB 1100
925 PLOT 50,​131:​A$=" 2 bi b":​GOSUB 1100
930 PLOT 50,​138:​A$=" 3 tri t":​GOSUB 1100
935 PLOT 50,​146:​A$=" 4 qurd q":​GOSUB 1100
940 PLOT 50,​153:​A$=" 5 pent p":​GOSUB 1100
945 PLOT 50,​160:​A$=" 6 hex h":​GOSUB 1100
950 PLOT 50,​167:​A$=" 7 sept s":​GOSUB 1100
955 PLOT 50,​174:​A$=" 8 okt o":​GOSUB 1100
960 PLOT 50,​181:​A$=" 9 enn e":​GOSUB 1100
1000 COLOR 0:​PLOT 250,​180:​U=USR(1536,​ADR("Stiskni mezernik"),​16,​128):​GOSUB 31100:​GOTO 35
1100 U=USR(1536,​ADR(A$),​LEN(A$),​128):​RETURN
10000 REM
10010 DATA 1,​2,​3,​4,​5,​6,​7,​ ,​Lanthanoidy',​Aktinoidy",​-
10015 DATA 1A,​H,​Li,​Na,​K,​Rb,​Cs,​Fr,​-,​2A,​ ,​Be,​Mg,​Ca,​Sr,​Ba,​Ra,​-,​3B,​ ,​ ,​ ,​Se,​Y,​La',​Ac",​-,​4B,​ ,​ ,​ ,​Ti,​Zr,​Hf,​Ku,​-
10020 DATA 5B,​ ,​ ,​ ,​V,​Nb,​Ta,​-,​6B,​ ,​ ,​ ,​Cr,​Mo,​W,​-,​7B,​ ,​ ,​ ,​Mn,​Te,​Re,​-,​ ,​ ,​ ,​ ,​Fe,​Ru,​Os,​-,​8B,​ ,​ ,​ ,​Co,​Rh,​Ir
10025 DATA -,​ ,​ ,​ ,​ ,​Ni,​Pd,​Pt,​-,​1B,​ ,​ ,​ ,​Cu,​Ag,​Au,​-,​2B,​ ,​ ,​ ,​Zn,​Cd,​Hg
10027 DATA -,​3A,​ ,​B,​Al,​Ga,​In,​Tl,​-,​4A,​ ,​C,​Si,​Ge,​Sn,​Pb,​-,​5A,​ ,​N,​P,​As,​Sb,​Bi
10030 DATA -,​6A,​ ,​O,​S,​Se,​Te,​Po,​-,​7A,​ ,​F,​Cl,​Br,​I,​At,​-,​8A,​He,​Ne,​Ar,​Kr,​Xe,​Rn,​!
10035 DATA Ce,​Pr,​Nd,​Pm,​Sm,​Eu,​Gd,​Tb,​Dy,​Ho,​Er,​Tm,​Yb,​Lu,​-,​Th,​Pa,​U,​Np,​Pu,​Am,​Cm,​Bk,​Cf,​Es,​Fm,​Md,​No,​Lr,​!
10040 DATA I,​II,​III,​IV,​V,​VI,​VII,​VIII
10045 DATA elektronegativity,​ionizan energie,​nekovovho charakteru,​oxidanch ink
10050 DATA kyselosti oxid,​sily kyselin,​!
10055 DATA atomovho polomru,​kovovho charakteru,​reduknch ink,​zasaditosti oxid a sly bz,​!
10059 REM 
10060 DATA 1,​2,​3,​4,​5,​6,​7,​ ,​Lanthanoidy',​Aktinoidy",​-
10065 DATA 1,​H,​Li,​Na,​K,​Rb,​Cs,​Fr,​-,​2,​ ,​Be,​Mg,​Ca,​Sr,​Ba,​Ra,​-,​3,​ ,​ ,​ ,​Se,​Y,​La',​Ac",​-,​4,​ ,​ ,​ ,​Ti,​Zr,​Hf,​Unq,​-
10075 DATA 5,​ ,​ ,​ ,​V,​Nb,​Ta,​Unp,​-,​6,​ ,​ ,​ ,​Cr,​Mo,​W,​Unh,​-,​7,​ ,​ ,​ ,​Mn,​Te,​Re,​Uns,​-,​8,​ ,​ ,​ ,​Fe,​Ru,​Os,​Uno,​-
10080 DATA 9,​ ,​ ,​ ,​Co,​Rh,​Ir,​Une,​-,​10,​ ,​ ,​ ,​Ni,​Pd,​Pt,​Uun
10085 DATA -,​11,​ ,​ ,​ ,​Cu,​Ag,​Au,​Uuu,​-,​12,​ ,​ ,​ ,​Zn,​Cd,​Hg,​Uub
10087 DATA -,​13,​ ,​B,​Al,​Ga,​In,​Tl,​Uut,​-,​14,​ ,​C,​Si,​Ge,​Sn,​Pb,​Uug,​-,​15,​ ,​N,​P,​As,​Sb,​Bi,​Uup
10090 DATA -,​16,​ ,​O,​S,​Se,​Te,​Po,​Uuh,​-,​17,​ ,​F,​Cl,​Br,​I,​At,​Uus,​-,​18,​He,​Ne,​Ar,​Kr,​Xe,​Rn,​Uuo,​!
10099 REM 
10100 DATA Novou periodickou soustavu sestavil pedseda organizace IUPAC Kazuo Yamasaku.
10105 DATA Podle nho je tabulka rozdlena na 18 skupin oznaench arabskmi slcemi.
10110 DATA Nov tabulka je opt rozdlena podle vedlejho kvantovho sla na bloky
10115 DATA s;p;d;f. Nzvy a symboly prvku s protonovmi sly vtmi ne 103 jsou
10120 DATA v nov tabulce uvedeny podle dvjho nzvu IUPAC. Jsou odvozeny pmo
10125 DATA z tchto sel pouitm esti latinskch a tyr eckch slovkovch morfmu.
10130 DATA To znamen nejmench sti nzvu kter ji nelze dlit. Nzev prvku je
10135 DATA tvoen vdy temi morfmy s pipojenou koncovkou '-ium'. Nap. prvek 104
10140 DATA je unnilquadium a jeho symbol je Uug. Prvek 111 ke unununium = Uuu.,​!
27000 REM 
27001 IF PEEK(0)=100 THEN RETURN
27010 FOR K=57344 TO 58368:​POKE 28672+(K-57344),​PEEK(K):​NEXT K
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 REM
29010 FOR EE=1 TO LEN(A$)
29015 IF A$(EE,​EE)="0" THEN A$(EE,​EE)="O"
29020 NEXT EE
29030 RETURN
29999 GOTO 29999
30000 REM
30005 IF PEEK(0)=100 THEN RETURN
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,​10:​COLOR 3
32510 GRAPHICS 8+16:​COLOR 3:​SETCOLOR 1,​1,​1:​POKE 710,​9:​POKE 712,​5:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
32515 A$="Chemie 2 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 2,​ vyroben v dln P L Softu.":​GOSUB 1100
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 1100
32535 PLOT 10,​50:​A$="pite na adresu ":​GOSUB 1100
32540 PLOT 10,​60:​A$=" Libor KLUBAL ":​GOSUB 1100
32545 PLOT 10,​70:​A$=" Spojovac 812":​GOSUB 1100
32550 PLOT 10,​80:​A$=" 749 01 Vtkov":​GOSUB 1100
32555 PLOT 10,​90:​A$=" Czechoslovakia":​GOSUB 1100:​POKE 756,​224
32560 PLOT 100,​130:​U=USR(1536,​ADR("NASHLEDANOU"),​11,​0):​POKE 0,​0
32600 GOTO 32600
32700 ? "!! NO NO !!":​GOTO 35	

• Download link 1
• Download link 2