Atari 8-bit Source code

1 REM 
2 REM  POPDOSEZ.STB 
3 REM 
4 REM  
5 REM Boris LETOCHA junior (PD)1989
6 REM  Hradec Krlov 
7 REM 
8 REM
10 DIM B$(460),​PO$(100),​UNI$(40),​DL$(7),​R1$(60),​R2$(60),​RP$(60),​OD(5)
11 DIM PO(%1),​NAZ$(30),​KAZ$(4),​C$(37)
12 C$="OTA NAZEV NA LEN ADR INIT CAS "
15 EXEC ABECEDA
20 MI1=18218:​DIM A$(MI1)
30 EXEC INIT
100 UNI$=UNI$:​*F +:​POKE 82,​%0:​IF ADR(DL$)<>DPEEK(560) THEN UNI$=UNI$:​EXEC UNI
101 ? "Menu:​-----"
110 ? ") Nov seznam"
111 ? ") Load seznam"
112 ? ") Save seznam"
113 ? ") Load popkaz"
119 ? ") Dir"
120 ?:​? "ZAV:​";ZAV,​"MAX:​";MI
130 GET KEY:​IF KEY<K1-%1 OR KEY>52 THEN ? "";:​GOTO 130
132 KEY=KEY-K1+%2:​? ""
135 ON KEY GOSUB 500,​1000,​2000,​4000,​3000
140 GOTO 100
200 PROC DP:​DP=ASC(B$(CP*C3+C3-%2)):​ENDPROC
300 PROC OP:​OP=ASC(B$(CP*C3+C3)):​ENDPROC
400 LP=DP:​RETURN
500 DIR:​GET KEY:​RETURN
950 ? "";:​RETURN
960 PROC INIT
961 ZAD=%0:​ROV=%0:​ZAV=%0:​K1=49:​C3=23:​A$=" ":​A$(MI1)=" ":​A$(%2)=A$:​B$=A$:​ENDPROC
962 PROC UNI
963 GRAPHICS %0:​POKE 756,​CHSET/256:​UNI$="0/0$/3%:​ oris,​etochajunior(+ralove":​UNI$(10,​10)=CHR$(34):​DL$=" "
964 DL$(%1,​%1)=CHR$(112)
965 DL$(%2,​%2)=CHR$(66):​DPOKE ADR(DL$(%3)),​ADR(UNI$):​DL$(5,​5)=CHR$(%1):​DPOKE ADR(DL$(6)),​DPEEK(560)+2:​DPOKE 560,​ADR(DL$)
969 ENDPROC
970 PROC P234:​EXEC DP:​GOSUB 400:​EXEC OP:​ENDPROC
1000 ------------------------------
1005 EXEC INIT
1046 GOSUB 950
1050 POL=%0:​RESTORE 1500
1060 POL=POL+%1
1065 READ PO$,​L:​IF L=%0 THEN POL=POL-%1:​GOTO 1160
1070 IF POL<5 THEN 1120
1080 ? PO$,​" 1-Ano Ostatn-Ne":​GET KEY:​IF KEY<>K1 THEN 1065
1120 B$(POL*C3-22,​POL*C3-C3+LEN(PO$))=PO$
1140 B$(POL*C3-%2,​POL*C3-%2)=CHR$(L)
1145 GOTO 1060
1160 ? "opravit 1-ano":​GET KEY:​IF KEY=K1 THEN B$=" ":​B$(460)=" ":​B$(%2)=B$:​GOTO 1050
1165 L=%0
1170 FOR CP=%0 TO POL-%1
1175 B$(CP*C3+C3,​CP*C3+C3)=CHR$(L+%1)
1190 EXEC DP:​L=L+DP
1220 NEXT CP
1230 MI=INT(MI1/L)-%1:​LE=L
1240 GOSUB 950:​? "Max. pocet zznam je ";MI:​GET KEY:​ZAD=%1:​RETURN
1500 DATA Kazeta,​4,​Otaky,​3,​Nzev,​10,​Na,​2,​Len,​4,​as,​4,​Popis,​20,​0,​0
1600 DATA 3,​-1,​2,​1,​9,​5,​1,​16,​3,​19,​3,​34
2000 ------------------------------
2005 EXEC INIT
2010 ? "Zarizeni:​nazev ";:​INPUT PO$:​IF PO$="" THEN GOSUB 950:​DIR:​GOSUB 950:​GOTO 2010
2015 ZAD=%0:​ROV=%0:​ZAV=%0:​A$=" ":​A$(MI1)=" ":​A$(%2)=A$
2020 CLOSE #%1:​OPEN #%1,​4,​%0,​PO$
2025 ZAD=%1
2030 INPUT #%1;ROV:​INPUT #%1;ZAV:​INPUT #%1;POL:​INPUT #%1;LE:​INPUT #%1;MI:​BGET #%1,​ADR(B$),​460
2035 BGET #%1,​ADR(A$),​LE*ZAV:​INPUT #%1;R1$:​INPUT #%1;R2$:​INPUT #%1;RP$
2040 CLOSE #%1
2050 RETURN
2999 ------------------------------
3000 IF ZAD=%0 THEN RETURN
3010 ? "Zarizeni:​nazev ";:​INPUT PO$:​IF PO$="" THEN GOSUB 950:​DIR:​GOSUB 950:​GOTO 3010
3020 CLOSE #%1:​OPEN #%1,​4,​%0,​PO$
3030 INPUT #%1;NAZ$
3040 GET #%1,​A:​PO(%0)=A:​GET #%1,​A:​PO(%1)=A
3041 FOR W=%0 TO %3+%2:​OD(W)=%0:​NEXT W
3042 RESTORE 1500:​FOR W=%0 TO %3+%2:​READ PO$,​L:​A=INSTR(B$,​PO$):​IF A<>%0:​CP=(A-%1) DIV C3:​EXEC OP:​OD(W)=OP:​ENDIF:​NEXT W
3050 FOR S=%0 TO %1:​KAZ$=NAZ$:​KAZ$(4)=CHR$(65+S)
3060 FOR P=%1 TO PO(S):​IF ZAV=MI THEN ? "Max program !!!":​POP:​POP:​POP:​GOTO 100
3070 BGET #%1,​ADR(C$),​37
3080 RESTORE 1600
3090 FOR W=%0 TO %3+%2:​READ X,​Y:​IF Y=-%1 AND OD(W)<>%0 THEN A$(ZAV*LE+OD(W),​ZAV*LE+OD(W)+X)=KAZ$:​GOTO 3095
3092 IF OD(W)<>%0 THEN A$(ZAV*LE+OD(W),​ZAV*LE+OD(W)+X)=C$(Y,​Y+X)
3095 NEXT W
3100 ZAV=ZAV+%1:​NEXT P
3110 NEXT S
3120 CLOSE #%1:​RETURN
3999 ------------------------------
4000 IF ZAD=%0 THEN RETURN
4010 ? "Zarizeni:​nazev ";:​INPUT PO$:​IF PO$="" THEN GOSUB 950:​DIR:​GOSUB 950:​GOTO 4010
4020 CLOSE #%1:​OPEN #%1,​8,​%0,​PO$
4030 ? #%1;ROV:​? #%1;ZAV:​? #%1;POL:​? #%1;LE:​? #%1;MI:​BPUT #%1,​ADR(B$),​460
4035 BPUT #%1,​ADR(A$),​LE*ZAV:​? #%1;R1$:​? #%1;R2$:​? #%1;RP$
4040 CLOSE #%1
4050 RETURN
4999 ------------------------------
30000 PROC ABECEDA
30001 ORIG=PEEK(106):​CHSET=(ORIG-4)*256:​POKE 106,​ORIG-4:​EXEC UNI:​POKE 756,​ORIG-4:​POKE 559,​%0
30002 MOVE 57344,​CHSET,​1024
30003 RESTORE 30008
30004 FOR A=0 TO 215:​READ B:​POKE 512+A+CHSET,​B:​NEXT A
30005 FOR A=0 TO 7:​READ B:​POKE 768+A+CHSET,​B:​NEXT A
30006 FOR A=0 TO 7:​READ B:​POKE 984+A+CHSET,​B:​NEXT A
30007 POKE 559,​34:​ENDPROC
30008 DATA 36,​0,​60,​102,​102,​102,​60,​0
30009 DATA 4,​8,​60,​6,​62,​102,​62,​0
30010 DATA 28,​126,​12,​24,​48,​96,​126,​0
30011 DATA 28,​8,​60,​96,​96,​96,​60,​0
30012 DATA 56,​22,​6,​62,​102,​102,​62,​0
30013 DATA 4,​8,​60,​102,​126,​96,​60,​0
30014 DATA 7,​58,​102,​96,​96,​102,​60,​0
30015 DATA 7,​58,​96,​60,​6,​6,​60,​0
30016 DATA 16,​82,​70,​102,​102,​102,​126,​0
30017 DATA 4,​8,​0,​56,​24,​24,​60,​0
30018 DATA 24,​24,​66,​102,​102,​102,​62,​0
30019 DATA 2,​122,​24,​24,​24,​24,​126,​0
30020 DATA 1,​61,​102,​102,​102,​102,​60,​0
30021 DATA 40,​24,​60,​102,​102,​126,​102,​0
30022 DATA 56,​16,​124,​102,​102,​102,​102,​0
30023 DATA 4,​8,​60,​102,​102,​102,​60,​0
30024 DATA 0,​124,​100,​124,​100,​124,​96,​0
30025 DATA 2,​26,​60,​102,​102,​126,​102,​0
30026 DATA 28,​8,​124,​102,​96,​96,​96,​0
30027 DATA 28,​8,​62,​96,​60,​6,​124,​0
30028 DATA 7,​26,​126,​24,​24,​24,​14,​0
30029 DATA 4,​8,​98,​102,​102,​102,​62,​0
30030 DATA 7,​122,​102,​102,​124,​108,​102,​0
30031 DATA 28,​8,​60,​102,​126,​96,​60,​0
30032 DATA 1,​125,​96,​124,​96,​96,​126,​0
30033 DATA 4,​8,​98,​102,​102,​62,​12,​120
30034 DATA 28,​8,​126,​12,​24,​48,​126,​0
30035 DATA 36,​0,​102,​102,​102,​102,​62,​0
30036 DATA 255,​255,​0,​0,​0,​0,​0,​0	

• Download link 1