Atari 8-bit Source code

1 POKE 842,​12:​REM 
5 GOSUB 8850
6 DEL 8850,​8883
90 CLR:​*B +:​TRAP 1:​POKE 54018,​60:​GOSUB 8900:​BB=0:​NZ$=" ":​ZP$=" ":​KZ$=" ":​PZ$=" "
100 DEL 5,​6:​*B +:​TRAP 1:​AA=1000:​BB=9:​GRAPHICS 0:​GOSUB 750:​POL=7:​DLN=7:​HOR=17:​PREP=0:​MAZ=0:​W=0:​FROM=RD-1:​TO=RD-2+10-BZ
113 RRR=15000:​RDR=9002:​POC=0:​GOSUB 1900:​? "":​GOSUB 600:​POSITION 1,​3:​? "":​W=1
114 POSITION 12,​5:​? "Obsah ";POCET;" progr.(";FRE(0) DIV 45;")":​? " ":​IF BZ>0 THEN DEL FROM,​TO
121 ? " ":​? " ":​? " "
125 ? "  Pro data zbyva":​? "  ";FRE(0);" bytes":​PREP=1
130 POSITION 7,​20:​? "Vyber funkce klavesami  a ":​GOTO 1900
200 POKE 702,​64:​IF FRE(0)<350 THEN 980
201 ? "":​GOSUB 600:​GOSUB 800:​GOSUB 850:​B1$=",​":​POKE 764,​255
202 POSITION 16,​5:​? POCET+1;".(";FRE(0) DIV 45;")":​POSITION 5,​8:​? NZ$;:​INPUT A$:​GOSUB 750:​A1$=A$:​GOSUB 6000:​A$=A1$:​IF LEN(A$)=0 THEN A$="*"
210 POSITION 5,​10:​? ZP$;:​INPUT B$:​GOSUB 750:​E=RD-DD:​A1$=B$:​GOSUB 6000:​B$=A1$:​IF LEN(B$)=0 THEN B$="*"
230 POSITION 5,​12:​? KZ$;:​INPUT C$:​GOSUB 750:​A1$=C$:​GOSUB 6000:​C$=A1$:​IF LEN(C$)=0 THEN C$="*":​GOTO 240
231 GOSUB 8000
240 *B +:​TRAP 1:​POKE 702,​0:​POSITION 5,​14:​? PZ$;:​INPUT D$:​GOSUB 750:​A1$=D$:​GOSUB 6000:​D$=A1$:​IF LEN(D$)=0 THEN D$="*"
247 POKE 559,​0:​B=2:​GOSUB 2012:​? "":​POSITION 2,​2:​? (B+DD-1);"D.";A$;",​";B$;",​";C$;",​";D$:​? "CONT":​POSITION 0,​0:​POKE 842,​13:​STOP
249 POKE 842,​12:​RD=RD+2:​? "":​POSITION 2,​2:​? DD;"D.";RD;",​";POCET+1:​? "CONT":​POSITION 0,​0:​POKE 842,​13:​STOP
252 POKE 842,​12:​RENUM DD,​DD,​2:​POCET=POCET+1:​GOSUB 750:​GOTO 200
270 GOSUB 960:​? "":​GOSUB 600:​GOSUB 1600:​GOSUB 900:​POKE 764,​255
271 *B +:​TRAP 1:​POSITION 7,​10:​? " Opravdu chces mazat? A/N ":​IF PEEK(764)=63 THEN ? "":​POKE 559,​0:​GOTO 280
275 IF PEEK(764)<>255 AND PEEK(764)<>63 THEN RUN
278 GOTO 271
280 DEL RDR,​RRR:​POCET=0:​RD=RDR:​GOSUB 1950:​? "":​GOSUB 600:​GOSUB 1600
286 POKE 559,​34:​POSITION 14,​9:​? "H O T O V O":​GOSUB 750:​PAUSE 50:​RUN
300 GOSUB 960:​? "":​GOSUB 600:​POSITION 1,​3:​? "":​GOSUB 800:​GOSUB 900:​POKE 764,​255
301 POSITION 6,​9:​? "Stiskni libovolnou klavesu":​*B +:​TRAP 1:​IF PEEK(764)=255 THEN 301
310 GRAPHICS 2:​POKE 752,​1:​SETCOLOR 2,​0,​0:​POSITION 8,​4:​? #6;"SAVE":​POKE 764,​255:​LIST "T:​",​DD,​RD:​? " HOTOVO":​PAUSE 100:​RUN
350 ? "":​GOSUB 600:​POSITION 1,​3:​? "":​GOSUB 800:​GOSUB 900
351 POSITION 16,​8:​? "":​POSITION 3,​10:​? "Pri cteni budou stara data smazana":​POSITION 15,​13:​? "CTENI A/N":​POKE 764,​255
355 IF PEEK(764)=63 THEN POKE 559,​0:​GOSUB 750:​DEL RDR,​RRR:​POCET=0:​RD=RDR:​GOSUB 1950:​GOTO 361
356 IF PEEK(764)<>255 AND PEEK(764)<>63 THEN RUN
357 GOTO 355
361 CT=1:​? "":​POSITION 2,​4:​? "E.";CHR$(34);"T:​";CHR$(34):​POSITION 2,​8:​? "RUN":​POSITION 2,​0:​POKE 842,​13:​STOP
362 POKE 842,​12:​RUN
391 RESTORE RDR:​POL=8:​PREP=0:​DLN=8:​HOR=12:​AA=1100:​BB=11:​GOSUB 1900
401 GOSUB 960:​? "":​GOSUB 600:​POSITION 1,​3:​? "":​? " "
405 ? " ":​? " ":​GOSUB 800:​PREP=1:​GOSUB 3000:​GOTO 1900
420 *B +:​TRAP 1:​POKE 764,​255:​POSITION 2,​ST:​? POC;".":​POSITION 7,​ST:​? A$:​POSITION 29,​ST:​? C$:​ST=ST+1:​IF P=1 THEN GOSUB 2050
423 SC=SC+1:​POCET=SC:​GOSUB 8998
425 POSITION 18,​3:​? "|";POCET;"|":​POSITION 18,​2:​? "";F$:​POSITION 18,​4:​? "";E$:​IF ST<16 THEN RETURN
426 IF P=1 THEN GOSUB 750:​ST=6:​? "":​RETURN
432 POSITION 7,​18:​? "Pokracovani - stisk klavesy":​IF PEEK(53279)=6 THEN X=1
435 IF PEEK(764)<>255 OR X=1 THEN GOSUB 750:​ST=6:​? "":​GOSUB 1850:​GOSUB 7500:​RETURN
440 GOTO 432
460 POL=7:​DLN=7:​HOR=13:​PREP=0:​AA=1200:​BB=11:​GOSUB 1900:​? "":​GOSUB 600:​GOSUB 830:​? " "
471 ? " ":​? " "
472 ? " ":​GOSUB 800:​PREP=1:​IF MAZ=1 THEN GOSUB 1750
474 GOSUB 3000:​GOTO 1900
475 POKE 702,​64:​POSITION 1,​10:​? "Nazvu programu:​";:​INPUT A1$:​GOSUB 750:​Q=1:​? "":​GOTO 500
478 POSITION 4,​10:​? "Podle zpusobu nahr.:​";:​INPUT B1$:​GOSUB 750:​Q=2:​? "":​GOTO 500
481 POSITION 13,​10:​? "Kazety:​";:​INPUT C1$:​GOSUB 750:​Q=3:​? "":​GOTO 500
482 C$=C1$:​GOSUB 8000:​C1$=C$:​GOTO 500
484 POKE 702,​0:​POSITION 6,​10:​? "Poznamky:​";:​INPUT D1$:​GOSUB 750:​Q=4:​W=0:​? ""
500 *B +:​TRAP 1:​POKE 559,​0:​TRAP 505:​READ A$,​B$,​C$,​D$:​*B +:​TRAP 1:​POC=POC+1:​ON Q GOTO 520,​530,​540,​550
505 GOSUB 600:​POKE 559,​34:​IF W<>1 THEN POSITION 6,​10:​? "TAKOVY ZAZNAM V DATECH NEMAM":​GOSUB 830:​GOSUB 800:​RESTORE RDR:​? "":​PAUSE 100:​RUN
507 *B +:​TRAP 1:​GOSUB 800:​POSITION 4,​18:​? "  ":​RESTORE RDR:​IF P=1 THEN PAUSE 100:​RUN
508 GOTO 508
510 RESTORE RDR:​POSITION 10,​17:​? "Prohlednut cely obsah":​GOSUB 800:​GOSUB 990
520 IF UINSTR(A$,​A1$)<>0 THEN GOSUB 1300
521 GOTO 500
530 IF UINSTR(B$,​B1$)<>0 THEN GOSUB 1300
531 GOTO 500
540 IF UINSTR(C$,​C1$)<>0 THEN GOSUB 1300
541 GOTO 500
550 IF UINSTR(D$,​D1$)<>0 THEN GOSUB 1300
551 GOTO 500
600 POKE 559,​34:​POKE 709,​202:​POKE 710,​146:​DL=PEEK(560)+256*PEEK(561):​POKE DL+6,​6:​POKE DL+7,​7:​POKE 752,​1
640 POSITION 1,​0:​? "":​? " archiv programu":​GOSUB 990:​RETURN
650 POSITION 1,​3:​? "":​POSITION 1,​20:​? ""
651 POSITION 18,​2:​? " ":​POSITION 18,​4:​? " ":​? "":​RETURN
700 *B +:​TRAP 1:​POOL=POL:​IF POOL<DLN THEN POOL=HOR
730 IF POOL>HOR THEN POOL=DLN
740 IF POOL<>PPOL THEN SOUND 0,​2*POOL,​10,​10:​PAUSE 3:​SOUND 0,​0,​0,​0:​PPOL=POOL
745 RETURN
750 *B +:​TRAP 1:​SOUND 0,​16,​10,​10:​PAUSE 4:​SOUND 0,​0,​0,​0:​RETURN
800 *B +:​TRAP 1:​POSITION 1,​20:​? "":​RETURN
830 *B +:​TRAP 1:​POSITION 1,​3:​? "":​RETURN
850 POSITION 1,​3:​? "":​GOSUB 1404:​RETURN
900 POSITION 1,​22:​? "":​RETURN
950 ? "":​GOSUB 600:​GOSUB 650:​POSITION 5,​10:​? "Program neobsahuje zadne udaje"
956 POSITION 1,​22:​? "":​RETURN
960 TRAP 970:​RESTORE RDR:​READ TEST$:​TEST=LEN(TEST$):​IF TEST<>0 THEN RETURN
970 *B +:​TRAP 1:​GOSUB 950:​PAUSE 150:​RUN
980 ? "":​GOSUB 600:​GOSUB 650:​POSITION 3,​9:​? "! Pocitac uz ma zaplnenou pamet !"
984 POSITION 1,​22:​? "":​PAUSE 150:​GOSUB 750:​RUN
990 POSITION 1,​22:​? "":​RETURN
1000 IF POL=DLN THEN 391
1030 IF POL=DLN+2 THEN POKE 752,​0:​GOTO 200
1032 IF POL=DLN+4 AND POCET<>1 THEN GOSUB 960:​GOSUB 750:​MAZ=1:​? "":​GOSUB 600:​GOSUB 830:​GOSUB 1750:​GOSUB 1400:​RESTORE RDR:​RD=RD-2:​GOTO 475
1033 IF POL=DLN+4 AND POCET=1 THEN 270
1034 IF POL=DLN+6 THEN 270
1035 IF POL=DLN+8 THEN 350
1036 IF POL=DLN+10 THEN 300
1037 *B +:​TRAP 1:​RETURN
1100 IF POL=8 THEN 1499
1104 IF POL=10 THEN RESTORE RDR:​B=1:​ST=6:​GOTO 460
1105 IF POL=12 AND POCET=1 THEN RESTORE RDR:​GOTO 420
1110 GOTO 460
1200 IF POL=7 THEN ? "":​WW=1
1206 IF POL=9 THEN ? "":​WW=2
1208 IF POL=11 THEN ? "":​WW=3
1210 IF POL=13 THEN ? "":​WW=4
1250 GOSUB 600:​GOSUB 1400:​GOSUB 830:​RESTORE RDR:​ON WW GOTO 475,​478,​481,​484
1300 IF B=1 THEN GOSUB 600:​GOSUB 1850:​GOSUB 800:​W=1:​GOTO 420
1305 GOSUB 750:​W=1:​POKE 559,​34:​? "":​GOSUB 600:​POSITION 1,​3:​? ""
1307 SC=SC+1:​POSITION 9,​16:​? "Por.cislo v archivu ";POC:​POSITION 10,​5:​? "Vyhledan ";SC;".program"
1310 POKE 764,​255:​? " ";NZ$;A$:​? " ";ZP$;B$:​? " ";KZ$;C$:​? " ";PZ$;D$:​?:​IF MAZ=0 THEN 1319
1312 POSITION 4,​18:​? ">>> Opravdu mam vymazat? A/N <<<":​GOSUB 800:​GOSUB 900:​IF PEEK(764)=63 THEN POKE 559,​0:​GOSUB 750:​GOTO 1780
1314 IF PEEK(764)<>255 THEN GOSUB 750:​RETURN
1315 GOTO 1312
1317 IF PEEK(53279)=6 THEN X=1
1318 IF X=1 THEN POKE 764,​1
1319 IF P=1 THEN GOSUB 2050:​GOTO 1350
1320 GOSUB 800:​POSITION 1,​22:​? "":​IF PEEK(764)=255 THEN 1317
1350 POKE 764,​255:​RETURN
1400 POSITION 1,​20:​? "":​GOSUB 1404:​RETURN
1404 POSITION 1,​22:​? "":​RETURN
1499 IF P<>1 THEN CLR:​W=1:​GOSUB 8900:​GOSUB 8500
1500 RESTORE RDR:​IF P=1 THEN POC=1
1501 ? "":​GOSUB 600:​GOSUB 1850:​ST=6:​POKE 764,​255
1502 GOSUB 8998:​IF POC<11 THEN GOSUB 750:​POSITION 12,​18:​? ""
1505 POSITION 18,​3:​? "|";POCET;"|":​POSITION 18,​2:​? "";F$:​POSITION 18,​4:​? "";E$
1510 FOR B=1 TO 10:​TRAP 1532:​READ A$,​B$,​C$,​D$:​*B +:​TRAP 1:​POSITION 2,​ST:​? POC;".":​POSITION 7,​ST:​? A$:​POSITION 29,​ST:​? C$:​IF P=1 THEN GOSUB 2050
1526 POC=POC+1:​ST=ST+1:​NEXT B:​ST=6:​POSITION 1,​20:​? " Listovani klavesami   ":​*B +:​TRAP 1:​IF P=1 THEN GOSUB 750:​GOTO 1501
1527 IF POC>11 THEN IF PEEK(764)=6 THEN GOSUB 750:​RR=RR-20:​POC=POC-20:​RESTORE RR-18:​Y=0:​GOTO 1501
1529 *B +:​TRAP 1:​IF POC>11 THEN IF PEEK(764)=12 THEN POC=1:​RR=DD+20:​GOSUB 750:​Y=0:​GOTO 1499
1530 IF Y=1 THEN 1527
1531 IF PEEK(764)=7 THEN RR=RR+20:​GOSUB 750:​GOSUB 1501
1532 IF POC-CCC=POCET+1 THEN POSITION 2,​18:​? " Konec souboru :​ RETURN = zacatek":​Y=1:​GOSUB 800:​POKE 764,​255:​IF P=1 THEN RUN
1535 IF POCET<11 THEN PAUSE 25:​POSITION 4,​18:​? "  ":​PAUSE 18:​GOTO 1532
1539 GOTO 1527
1600 POSITION 1,​3:​? "":​RETURN
1750 POSITION 6,​15:​? "Pro vymazani tohoto programu":​RETURN
1780 ? "":​DEL DD+(POC*2),​DD+(POC*2):​POCET=POCET-1:​GOSUB 1950:​RENUM DD,​DD,​2:​? "":​GOSUB 600:​GOSUB 1600:​GOTO 286
1850 POSITION 1,​3:​? "":​RETURN
1900 *B +:​TRAP 1:​AZ=PEEK(764):​POKE 764,​255
1904 IF AZ=12 THEN GOSUB 750:​W=0:​GOTO AA
1905 IF AZ=28 AND W=1 THEN W=0:​RUN
1907 IF AZ=28 AND P=0 THEN GOSUB 750:​P=1:​POSITION 25,​16:​? "":​GOTO 1910
1908 IF AZ=28 AND P=1 THEN GOSUB 750:​P=0:​POSITION 25,​16:​? " vyp."
1910 IF POL>HOR THEN POL=DLN
1915 IF POL<DLN THEN POL=HOR
1920 IF AZ=15 THEN POL=POL+2
1925 IF AZ=14 THEN POL=POL-2
1930 IF POL<>POLL THEN POSITION BB,​POLL:​? " "
1935 POSITION BB,​POL:​? "->":​GOSUB 700:​POLL=POL:​IF PREP=1 THEN 1900
1940 RETURN
1950 ? "":​POSITION 2,​2:​? DD;"D.";RD;",​";POCET:​? "CONT":​POSITION 0,​0:​POKE 842,​13:​STOP
1960 POKE 842,​12:​RETURN
2012 RESTORE DD+B:​TRAP 1037:​READ A1$,​B1$,​C1$,​D1$:​IF A1$>A$ THEN RETURN
2022 B=B+2:​GOTO 2012
2050 *B +:​TRAP 1:​DPOKE 795,​1567:​A1$=".":​B1$=STR$(POC):​B1$(LEN(B1$)+1)=A1$:​POKE 764,​255:​IF A=1 THEN 2100
2051 POSITION 4,​18:​? "ovy soubor nebo okracovani? N/P":​GOSUB 900:​POKE 764,​255
2052 IF PEEK(764)=10 THEN GOSUB 750:​GOSUB 8800:​A=1:​DPOKE 795,​1567:​GOTO 2100
2053 IF PEEK(764)<>35 THEN 2052
2054 GOSUB 750:​POKE 764,​255
2055 GOSUB 7000:​GOSUB 7100:​POKE 1792,​65:​POSITION 4,​18:​? "Zadej nazev:​";:​INPUT E$:​GOSUB 750:​POSITION 5,​20:​? " Stav ke dni:​";:​INPUT F$:​GOSUB 750
2056 LPRINT " ARCHIV PROGRAMU Ver.1.2"
2057 *B +:​TRAP 1:​LPRINT:​LPRINT " Nazev souboru:​ ";E$:​LPRINT:​LPRINT " Stav ke dni:​ ";F$:​A=1
2060 LPRINT:​LPRINT " *** K.K.Software & OK2BSP (c) 1988 Valasske Mezirici ***"
2070 LPRINT "============================================================================"
2080 LPRINT " c. ";NZ$;" ";ZP$;" ";KZ$;" ";PZ$:​LPRINT
2100 P$=" ":​P$(78)=" ":​P$(2)=P$:​P$(2)=B1$:​P$(8)=A$:​P$(31)=B$:​P$(44)=C$:​P$(58)=D$:​LPRINT P$:​RETURN
3000 POSITION 14,​16:​? "ESC = TISK:​ vyp.":​RETURN
6000 A=UINSTR(A1$,​B1$):​IF A=0 THEN POSITION 8,​17:​? " ":​RETURN
6010 POSITION 8,​17:​? "- Rusim carky v zadani -":​GOSUB 650:​PAUSE 20:​GOSUB 850:​GOSUB 800:​A1$(A,​A)="-":​GOTO 6000
7000 POSITION 13,​18:​? " ":​RETURN
7100 *B +:​TRAP 1:​POSITION 1,​20:​? " ":​RETURN
7500 POSITION 18,​3:​? "|";SC;"|":​POSITION 18,​2:​? "";F$:​POSITION 18,​4:​? "";E$:​RETURN
8000 IF LEN(C$)=1 THEN 8015
8005 IF ASC(C$(2,​2))<48 OR ASC(C$(2,​2))>57 THEN 8015
8010 RETURN
8015 D$="-":​D$(LEN(D$)+1)=C$:​C$=D$:​RETURN
8500 IF BZ=0 THEN RETURN
8505 POKE 559,​0:​BZ=10-BZ
8510 *B +:​TRAP 1:​ZZZ=DD+CCC+1+2*POCET:​BZZ=BZZ+1:​? "":​POSITION 2,​2:​? ZZZ;"D. ,​ ,​ ,​ ":​? "CONT":​POSITION 0,​0:​POKE 842,​13:​STOP
8520 POKE 842,​12:​CCC=CCC+1:​IF BZZ<>BZ THEN 8510
8525 RETURN
8800 IF PEEK(1782)=65 THEN RETURN
8805 LPRINT:​GOTO 8800
8850 DIM A$(20):​P=249:​GRAPHICS 2:​POKE 752,​1:​SETCOLOR 2,​0,​0:​POSITION 4,​4:​? #6;"CTU DATA"
8852 FOR I=$0600 TO $06F8:​P=P-1:​B=B+1:​READ A$:​POKE I,​DEC(A$)
8854 POSITION 13,​4:​? #6;P
8856 IF P=99 OR P=9 THEN GRAPHICS 2:​POKE 752,​1:​SETCOLOR 2,​0,​0:​POSITION 4,​4:​? #6;"CTU DATA"
8858 NEXT I:​DPOKE 795,​1567:​PAUSE 30:​GRAPHICS 2:​SETCOLOR 2,​0,​0:​POSITION 3,​4:​? #6;"OBSLUHA D-100":​POSITION 3,​6:​? #6;"JE AKTIVOVANA"
8860 DATA 00,​02,​00,​06,​6E,​06,​A9,​3C,​8D,​02,​D3,​A9,​F9,​8D,​E7,​02,​A9,​06,​8D,​E8,​02,​A9,​6E
8862 DATA 85,​0A,​A9,​06,​85,​0B,​18,​60,​2B,​06,​42,​06,​3F,​06,​42,​06,​3F,​06,​3F,​06,​01,​A9,​30
8864 DATA 8D,​02,​D3,​A9,​FF,​8D,​00,​D3,​A9,​34,​8D,​02,​D3,​A9,​80,​8D,​00,​D3,​A0,​01,​60,​C9,​9B
8866 DATA D0,​1D,​AD,​F8,​06,​8D,​F7,​06,​CE,​F6,​06,​10,​0D,​A9,​0C,​20,​64,​06,​EE,​F7,​06
8868 DATA A9,​41,​8D,​F6,​06,​EE,​F7,​06,​A9,​0A,​20,​BE,​06,​CE,​F7,​06,​F0,​DB,​D0,​D2,​A9
8870 DATA 1F,​8D,​1B,​03,​A9,​06,​8D,​1C,​03,​A9,​41,​8D,​F6,​06,​AD,​F8,​06,​8D,​F7,​06,​4C,​2C,​06
8872 DATA 68,​A5,​58,​85,​FE,​A5,​59,​85,​FF,​A9,​17,​8D,​F4,​06,​A9,​27,​8D,​F5,​06,​A2
8874 DATA 00,​A1,​FE,​29,​7F,​C9,​60,​B0,​02,​69,​20,​20,​BE,​06,​E6,​FE,​D0,​02,​E6,​FF,​CE
8876 DATA F5,​06,​10,​E8,​A9,​0D,​20,​BE,​06,​CE,​F4,​06,​10,​D7,​60,​AC,​11,​D0,​D0,​FB,​8E
8878 DATA FF,​06,​A2,​00,​8E,​0E,​D4,​A0,​80,​09,​80,​8D,​00,​D3,​29,​7F,​20,​EE,​06,​8D,​00
8880 DATA D3,​09,​80,​8D,​00,​D3,​20,​EE,​06,​8C,​00,​D3,​A2,​FF,​8E,​0E,​D4,​AE,​FF,​06,​60,​A2
8882 DATA 0F,​CA,​D0,​FD,​60,​17,​27,​41,​50,​50
8883 RETURN
8900 DIM B$(10),​C$(10),​D$(20),​A1$(20),​B1$(10),​C1$(10),​D1$(20),​TEST$(1),​NZ$(11),​ZP$(11),​KZ$(11),​PZ$(11),​F$(10),​A$(20)
8905 DIM E$(20),​P$(78):​READ RD,​POCET:​BZ=POCET MOD 10:​RDR=9002:​DD=9000:​IF W=1 THEN POC=1:​RR=DD+20:​RESTORE RDR:​RETURN
8910 RETURN
8998 F$="":​E$="":​IF POCET>9 THEN F$="":​E$="":​IF POCET>99 THEN F$="":​E$="":​RETURN
8999 RETURN
9000 DATA 9002,​0	

• Download link 1