This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
Listing 1
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
References
Listing downloads
Copyright holder