Atari 8-bit Source code

1 REM 
2 REM ||
3 REM | |
4 REM |autor:​ Libor KLUBAL |
5 REM | |
6 REM |vypracovano jako prace SOC |
7 REM | |
8 REM |c P & L Soft 1989 |
9 REM 
10 REM 
14 ? "":​?:​?:​TRAP 100
15 ? "Po zobrazeni hlavicky cekej asi 1 min"
17 FOR P=1 TO 2000:​NEXT P
20 DIM A$(100):​RESTORE 12000
30 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
40 DRAWTO 0,​0:​COLOR 3:​PLOT 10,​10
50 READ X,​Y:​IF X=-1 THEN X=Y:​READ Y:​PLOT X,​Y:​GOTO 50
55 IF X=-2 THEN 70
60 DRAWTO X,​Y:​GOTO 50
70 GOSUB 27000:​COLOR 0:​RE=12100:​XX=10:​YY=170:​GOSUB 954:​GOSUB 29010
90 GOSUB 27000
100 REM 
110 GRAPHICS 0:​SETCOLOR 1,​1,​1:​POKE 710,​8:​?:​?:​POKE 712,​5:​POKE 764,​255:​TRAP 100
120 ? " "
122 ? " ||"
125 ? " "
127 ? " | |"
130 ? " | 1.Obecna charakter.|"
132 ? " | 2.Alkany |"
135 ? " | 3.Alkeny |"
137 ? " | 4.Alkiny |"
140 ? " | 5.Konec |"
142 ? " | |"
145 ? " "
150 ?:​?:​?:​? "Vase volba:​";:​INPUT #16,​KEY
155 IF KEY<1 OR KEY>5 THEN ? "":​GOTO 150
160 ON KEY GOTO 200,​500,​700,​750,​32500
200 REM 
205 GOSUB 29030
230 RESTORE 10000:​YY=20:​PLOT 10,​20
240 READ A$:​IF A$="!" THEN 260
250 GOSUB 29000:​YY=YY+10:​PLOT 10,​YY:​GOTO 240
260 GOSUB 29010
270 GOSUB 29030
285 RESTORE 10065:​YY=20:​PLOT 30,​15
290 READ A$:​IF A$="!" THEN 310
300 GOSUB 29000:​YY=YY+10:​PLOT 10,​YY:​GOTO 290
310 GOSUB 29010
320 GOSUB 29030
335 RESTORE 10130:​YY=20:​PLOT 10,​20
340 READ A$:​IF A$="!" THEN 350
345 GOSUB 29000:​YY=YY+10:​PLOT 10,​YY:​GOTO 340
350 XX=60:​YY=100:​GOSUB 29100:​GOSUB 29010
351 GOSUB 29030
355 RESTORE 10200:​YY=20:​PLOT 10,​20
360 READ A$:​IF A$="!" THEN 370
365 GOSUB 29000:​YY=YY+10:​PLOT 10,​YY:​GOTO 360
370 GOSUB 29010:​GOTO 100
500 REM 
510 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
515 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
520 A$="Chemie 3 Alkany  P L Soft '88-89":​GOSUB 29000:​COLOR 0
530 PLOT 10,​20:​U=USR(1536,​ADR("ALKANY"),​6,​0):​COLOR 3:​PLOT 8,​28:​DRAWTO 55,​28:​COLOR 0
540 RESTORE 10300:​YY=35:​PLOT 30,​35:​COLOR 0:​PR=8
550 READ A$:​IF A$="!" THEN 560
553 IF A$="SPEC" THEN PR=4:​GOTO 550
554 IF A$="UNSPEC" THEN PR=8:​GOTO 550
555 GOSUB 29000:​YY=YY+PR:​PLOT 30,​YY:​GOTO 550
560 GOSUB 29010
570 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
575 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
580 A$="Chemie 3 Alkany  P L Soft '88-89":​GOSUB 29000:​COLOR 0
585 IF RTY=1 THEN GOTO 610
590 RESTORE 10360:​YY=20:​COLOR 0:​PLOT 10,​20:​PR=8:​RTY=1:​GOTO 550
610 RESTORE 10450:​YY=20:​PLOT 10,​YY:​RTY=0
615 READ A$:​IF A$="!" THEN 630
620 GOSUB 29000:​YY=YY+8:​PLOT 10,​YY:​GOTO 615
630 GOSUB 29010:​RE=10520
640 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
645 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
650 A$="Chemie 3 Alkany  P L Soft '88-89":​GOSUB 29000:​COLOR 0
655 RESTORE RE:​YY=20:​PLOT 10,​YY
660 READ A$:​IF A$="!" THEN 670
665 GOSUB 29000:​YY=YY+8:​PLOT 10,​YY:​GOTO 660
670 GOSUB 29010:​RE=10615:​IF RY=1 THEN 100
680 RY=1:​GOTO 640
700 REM 
705 GOSUB 990
710 PLOT 10,​20:​U=USR(1536,​ADR("ALKENY"),​6,​0):​COLOR 3:​PLOT 8,​28:​DRAWTO 55,​28:​COLOR 0
715 RE=10700:​XX=30:​YY=30:​GOSUB 954:​GOSUB 29010:​GOSUB 990
720 RE=10790:​XX=10:​YY=20:​GOSUB 954:​GOSUB 29010
730 GOTO 100
750 REM 
755 GOSUB 996
760 PLOT 10,​20:​U=USR(1536,​ADR("ALKINY"),​6,​0):​COLOR 3:​PLOT 8,​28:​DRAWTO 55,​28:​COLOR 0
765 RE=10850:​XX=30:​YY=30:​GOSUB 954:​GOSUB 29010
770 GOSUB 996:​RE=10930:​XX=10:​YY=20:​GOSUB 954:​GOSUB 29010:​GOTO 100
954 REM 
955 RESTORE RE:​PLOT XX,​YY
960 READ A$:​IF A$="!" THEN RETURN
965 GOSUB 29000:​YY=YY+8:​PLOT XX,​YY:​GOTO 960
990 REM 
991 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
993 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
995 A$="Chemie 3 Alkeny  P L Soft '88-89":​GOSUB 29000:​COLOR 0:​RETURN
996 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
997 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
998 A$="Chemie 3 Alkiny  P L Soft '88-89":​GOSUB 29000:​COLOR 0:​RETURN
1000 GOTO 1000
10000 DATA Pedmtem studia organick chemie je studium uhlku a jeho slouenin krom
10005 DATA nejjednoduch jako nap oxidy uhlku; kyselina uhliit a jeho sol nebo
10010 DATA sirouhlku. Mnoh organick ltky jsou prudce jedovat a je ada ltek kar-
10015 DATA ciogennch = mohou vyvolat zhoubn bujen. Proto musme s organickmi ltkami
10020 DATA pracovat velmi opatrn.
10025 DATA Pro organick ltky jsou charakteristick kovalentn vazby. To jsou takov
10030 DATA v nih dva atomy spolu sdlej jeden nebo vc elektronovch pr. V ppa-
10035 DATA d e sdlej jeden pr mluvme o vazb jednoduch. Jsou-li to pry dva =
10037 DATA vazba dvojn a pokud jsou ti je to vazba trojn. Dvojn a trojn vazby
10040 DATA oznaujeme spolenm nzvem nsobn.
10045 DATA  C-C C=C C C
10050 DATA  Jednoduch vazba Dvojn vazba Trojn vazba
10053 DATA  Vazby nsobn
10055 DATA Z rznch atom vychz rozdln poet vazeb. Atomy uhlku jsou tyvazn;
10060 DATA dusku trojvazn; kyslku a sry dvouvazn; halogen a vodku jednovazn.,​!
10065 DATA ROZDELENI ORGANICKYCH SLOUCENIN
10070 DATA I. Podle druhu uhlkovho etzce
10075 DATA 1> Sloueniny acyklick
10080 DATA - maj oteven etzec
10085 DATA CH-CH-CH-CH
10090 DATA 2> Sloueniny cyklick
10095 DATA - maj uzaven etzec
10100 DATA  CH-CH
10105 DATA  / \
10110 DATA CH CH
10115 DATA  \ /
10120 DATA  CH-CH,​!
10130 DATA II. Podle druhu kovalentnch vazeb mezi atomy
10135 DATA 1> Nasycen
10140 DATA - maj v etezci mezi atomy C pouze vazby jednoduch
10145 DATA CH-CHOH
10150 DATA 2> Nenasycen
10155 DATA - maj mezi atomy C alespon jednu vazbu dvojnou i trojnou
10160 DATA CH=CH ; CH CH
10165 DATA 3> Aromatick,​ ,​ Benzen
10195 DATA !
10200 DATA III. Podle chemickho sloen
10205 DATA 1> Uhlovodky
10210 DATA - obsahuj pouze atomy uhlku a vodku
10215 DATA CH-CH-CH
10220 DATA 2> Derivty uhlovodk
10225 DATA - vznikaj nahrazenm vodkovch a uhlovodkovch atom atomy jinch
10230 DATA prvk i skupinami atom prvk
10235 DATA CH-CHOH ; CH=CHCl,​!
10300 DATA - acyklick uhlovodky v jejih etzcch se nachzej pouze vazby
10305 DATA jednoduch
10310 DATA - obecn vzorec - Cn H2n+2
10315 DATA - vskyt - ropa ; zemn plyn
10320 DATA ,​Nzvoslov alkan
10325 DATA a> Alkany s nerozvtvenm etzcem,​SPEC,​
10330 DATA  CH Methan | C H Hexan
10332 DATA  4 | 6 14,​
10335 DATA  C H Ethan | C H Heptan
10337 DATA  2 6 | 7 16,​
10340 DATA  C H Propan | C H Oktan
10345 DATA  3 8 | 8 18,​
10347 DATA  C H Butan | C H Nonan
10350 DATA  4 10 | 9 20,​
10353 DATA  C H Pentan | C H Dekan
10354 DATA  5 12 10 22,​ ,​!
10360 DATA b> Alkany s rozvtvenm etzcem
10365 DATA - odtrenm jednoho nebo vce uhlkovch atom vznik uhlovodkov zbytek
10370 DATA Uhlovodkov zbytky,​SPEC
10375 DATA  CH - Methyl
10380 DATA  3,​
10385 DATA  CH -CH - Ethyl
10390 DATA  3 2,​
10395 DATA  CH -CH -CH - Prophyl
10400 DATA  3 2 2,​
10405 DATA  CH -CH-CH - Izoprophyl
10410 DATA  3 2
10415 DATA  ',​
10420 DATA  CH -CH -CH -CH - n-Butyl
10425 DATA  3 2 2 2,​ ,​UNSPEC,​ ,​
10430 DATA Uhlovodkov zbytky jsou pojmenovny trivilnm nzvoslovm. Ostatn
10435 DATA alkany budeme pojmenovvat nzvoslovm systematickm. Systematick nz-
10440 DATA voslov bylo schvleno organizac IUPAC v roce 1982.,​!
10450 DATA Pravidla pro urovn nzv podle systematickho nzvoslov.,​
10455 DATA 1> Urme nejdel etzec a bereme ho jako hlavn. Urme jeho nzev podle
10460 DATA nzvoslov alkn s nerozvtvEnm etzcem. (methan; pentan; hexan ...)
10465 DATA 2> Uhlkov atomy hlavnho etzce oslujeme tak aby slo 1 obdrel konco-
10470 DATA v uhlk bli postrannmu etzci (aby uit sla byla co nejmen).
10475 DATA Jsou-li dva postrann etzce (uhlovodkov zbytky) vzdleny stejn od
10480 DATA obou koncovch uhlk ozname slem 1 koncov uhlk najbli postrannmu
10485 DATA etzci (tj. mn sloitmu).
10490 DATA 3> Urme polohu a nzev postrannho etzce.,​
10495 DATA  1 2 3 4 5
10500 DATA  CH-CH-CH-CH-CH
10510 DATA  | 2-Methylpentan
10515 DATA  CH,​!
10520 DATA  CH
10525 DATA  5 4 3| 2 1
10530 DATA  CH-CH-CH-CH-C-CH-CH
10540 DATA  6| |
10545 DATA  CH CH
10550 DATA  7|
10555 DATA  CH 33-dimetyl-5-etyloktan
10560 DATA  8|
10565 DATA  CH,​
10570 DATA Je-li na postrann etzec navzan dal uhlovodkov zbytek m jeho
10575 DATA uhlkov atom kter souvis s hlavnm etzcem slo 1. Postrann etzec
10580 DATA s vyznaenm poloh jeho substituent dvme do zvorky.,​
10585 DATA  1 2 3 4 5 6 7 8 9
10590 DATA  CH-CH-CH-CH-CH-CH-CH-CH-CH
10595 DATA  1|
10600 DATA  CH-CH
10605 DATA  | 5-(1-methyletyl)-nonan
10610 DATA  CH,​!
10615 DATA Alkany - jsou nerozpustn ve vod bezbarv leh ne voda
10620 DATA  - jsou mlo reaktivn,​,​
10625 DATA Cykloalkany - jsou nasycen cyklick uhlovodky
10630 DATA  - obecn vzorec Cn H2n,​
10635 DATA  HC-CH HC-CH
10640 DATA  \/ | |
10645 DATA  CH HC-CH,​
10650 DATA  cyklopropan cyklobutan,​
10655 DATA !
10700 DATA - acyklick uhlovodky s jednou dvojnou vazbou
10705 DATA - obecn vzorec Cn H2n
10710 DATA Vskyt
10715 DATA - v malm mnostv doprovzej ropu
10720 DATA - ve velkm mnostv vznikaj pi zpracovn ropy,​
10725 DATA Nzvoslov
10730 DATA Uhlovodkov zbytky
10732 DATA  CH=CH- ethynyl
10735 DATA  CH-CH=CH- 1-propenyl,​
10740 DATA Pravidla pro nzvoslv alken
10745 DATA a> maj koncovku -en
10750 DATA b> hlavn etzec je ten kter obsahuje dvojnou vazbu
10755 DATA c> atomy C v hlavnm etzci oslujeme tak aby atom C z nho vychz
10760 DATA  dvojn vazba ml co nejni slo
10765 DATA d> ozname polohu postrannho etezce a jeho nzev potom polohu dvojn
10780 DATA  vazby a nzev hlavnho etezce,​!
10790 DATA  6 5 4 3 2 1
10795 DATA  CH-CH-CH-CH-CH=CH
10800 DATA  | 5-methyl-1-hexen
10805 DATA  CH,​
10810 DATA  6 5 4 3 2 1
10815 DATA  CH-CH-CH-CH=CH-CH 2-hexen,​
10820 DATA V souvislosti s alkeny hovome o jevu polymerace. Je to spojovn molekul
10825 DATA dan ltky do dlouhch etzc. Pi polymeraci nevznik dn odpadn produkt.,​
10830 DATA  z CH=CH CH=CH CH=CH
10835 DATA  vznik -CH-CH-CH-CH-CH-CH- Polyethylen,​!
10850 DATA - jsou acyklick uhlovodky s jednou trojnou vazbou
10855 DATA - obecn vzorec Cn H2n-2
10860 DATA - vyskytuj se pi zpracovn ropy,​
10865 DATA Nzvoslov
10870 DATA Uhlovodkov zbytek,​ CH CH- ethinyl
10875 DATA  ,​Alkiny maj koncovku -in. Za hlavn etzec povaujeme ten kter m
10880 DATA trojnou vazbu.,​
10885 DATA  CH-CH-C CH
10890 DATA  | 3-methyl-1-butin
10895 DATA  CH,​
10900 DATA  3 4 5 6
10905 DATA  CH-CH-CH-CH-CH-CH-CH
10910 DATA  | 3-prophyl-1-hexin
10915 DATA  C CH
10920 DATA  2 1,​!
10930 DATA Sloueniny ethinu s vodou se nazvaj karbidy (acetylidy). Acetylidy tekch
10935 DATA kov jsou velice explozivn.Technicky je vznamn acetylid vpnku ili
10940 DATA karbid vpenat kter se vyrb plenm oxidu vpenatho s koksem v elektric-
10945 DATA k peci
11000 DATA !
11999 REM 
12000 DATA 10,​10,​10,​60,​50,​60,​50,​50,​20,​50,​20,​20,​50,​20,​50,​10,​10,​10,​-1,​60,​10,​60,​60,​70,​60,​70,​45,​90,​45,​90,​60,​100,​60
12005 DATA 100,​10,​90,​10,​90,​35,​70,​35,​70,​10,​60,​10,​-1,​110,​10,​110,​60,​150,​60,​150,​50,​120,​50,​120,​40,​140,​40,​140,​30,​120,​30
12010 DATA 120,​20,​150,​20,​150,​10,​110,​10,​-1,​160,​10,​160,​60,​170,​60,​170,​20,​185,​40,​200,​20,​200,​60,​210,​60,​210,​10,​200,​10
12015 DATA 185,​30,​170,​10,​160,​10,​-1,​220,​10,​230,​10,​230,​60,​220,​60,​220,​10,​-1
12020 DATA 240,​10,​240,​60,​280,​60,​280,​50,​250,​50,​250,​40,​270,​40,​270,​30,​250,​30
12025 DATA 250,​20,​280,​20,​280,​10,​240,​10,​-1,​125,​80,​165,​80,​165,​130,​125,​130,​125,​120,​155,​120,​155,​110,​135,​110,​135,​100
12030 DATA 155,​100,​155,​90,​125,​90,​125,​80,​-1,​170,​120,​180,​120,​180,​130,​170,​130,​170,​120,​-2,​0
12100 DATA By Libor KLUBAL
12110 DATA  P L Soft 1989,​!
26999 END
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,​12,​17,​1,​4,​29,​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,​29,​0,​29,​0,​29,​0,​0,​0,​0,​28,​1,​12,​1,​28,​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,​4,​4,​4,​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
29010 COLOR 0:​PLOT 250,​180:​A$="Stiskni mezernk":​GOSUB 29000:​POKE 764,​255
29015 IF PEEK(764)<>33 THEN 29015
29020 FOR POI=1 TO 5:​SOUND 0,​80,​10,​5:​NEXT POI:​SOUND 0,​0,​0,​0:​RETURN
29030 REM 
29040 GRAPHICS 8+16:​SETCOLOR 1,​1,​1:​POKE 710,​8:​POKE 712,​5:​COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​DRAWTO 319,​191:​DRAWTO 0,​191
29045 DRAWTO 0,​0:​PLOT 0,​10:​DRAWTO 319,​10:​COLOR 0:​PLOT 10,​2
29050 A$="Chemie 3 Obecn charakteristika  P L Soft '88-89":​GOSUB 29000:​RETURN
29100 REM 
29105 COLOR 3:​PLOT XX,​YY:​DRAWTO XX+10,​YY+5:​DRAWTO XX+10,​YY+25:​DRAWTO XX,​YY+30:​DRAWTO XX-10,​YY+25
29110 DRAWTO XX-10,​YY+5:​DRAWTO XX,​YY:​PLOT XX-4,​YY+10:​DRAWTO XX,​YY+8:​DRAWTO XX+4,​YY+10:​DRAWTO XX+6,​YY+15
29115 DRAWTO XX+3,​YY+20:​DRAWTO XX,​YY+22:​DRAWTO XX-4,​YY+20:​DRAWTO XX-6,​YY+14:​DRAWTO XX-4,​YY+10
29200 RETURN
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 3,​ 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