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
|
|
-
Entry name:Capek-Centronics Konvertor
-
Category:Printer utilities
Listing 1
10 REM
60 GRAPHICS 0:CLR:CLOSE:POKE 195,0:SETCOLOR 3,6,4:SETCOLOR 2,6,4:POKE 752,1:POKE 82,2
70 G=1:DL=DPEEK(560)
80 POKE DL+10,55:POSITION 4,5:? "capek-centronics"
90 POKE DL+12,54:POSITION 31,6:? "KONVERTOR"
100 POSITION 19,10:? "ATARI KLUB SUMPERK"
110 POSITION 19,20:? "Jiri Svrcina V.1"
120 PAUSE 1900
130 DIM A$(120),B$(120),Y$(120),C$(12),HL$(120),FL$(120),NS$(15),NP$(13),V$(1),Z$(4),U$(120),D$(970),E$(200)
132 DIM MH$(39),VH$(39),MC$(39),VC$(39),MK$(39),VK$(39),M$(24),X$(40)
140 GRAPHICS 0:SETCOLOR 2,G,4:POKE 752,0:POKE 82,0
150 POSITION 12,G:? ""
155 N=0:X=0:X$="":Y$="":D$=""
160 D=0:POSITION 4,3:? "Zdrojove zarizeni: D1"
170 POSITION 4,4:? "(C,T,D1-D4,D8)":POSITION 22,3:INPUT " ",Z$:IF Z$<>"C" AND Z$<>"T" THEN D=G
180 IF Z$<>"D1" AND Z$<>"D2" AND Z$<>"D3" AND Z$<>"D4" AND Z$<>"D8" AND D<>0 THEN POSITION 23,3:? " ":GOTO 160
185 POSITION 4,7:? "directory-"
190 POSITION 4,6:INPUT "Jmeno souboru: ",NP$
200 IF Z$<>"C" AND Z$<>"T" AND (LEN(NP$)<1 OR LEN(NP$)>12) THEN POSITION 23,6:? " ":GOTO 10000
210 TRAP 220:POSITION 4,9:? "Horni okraj 1":POSITION 22,9:INPUT " ",C
220 IF ERR>0 THEN POKE 195,0:POSITION 23,9:? " ":GOTO 210
230 TRAP 240:POSITION 4,11:? "Levy okraj: 5":POSITION 22,11:INPUT " ",L
240 IF L<1 OR L>60 OR ERR>0 THEN POKE 195,0:POSITION 23,11:? " ":GOTO 230
250 TRAP 260:POSITION 4,13:? "Pravy okraj: 75":POSITION 22,13:INPUT " ",P
260 IF P<L+20 OR P>132 OR ERR>0 THEN POKE 195,0:POSITION 23,13:? " ":GOTO 250
270 TRAP 280:POSITION 4,15:? "Pocet radku: 64":POSITION 22,15:INPUT " ",S
280 IF S<10 OR S>66 OR ERR>0 THEN POKE 195,0:POSITION 23,15:? " ":GOTO 270
300 POSITION 4,17:? "Vystupni zarizeni: P":POSITION 22,17:INPUT " ",V$
310 IF V$<>"E" AND V$<>"P" THEN POKE 752,1:POSITION 23,17:? "":PAUSE 70
320 IF V$<>"E" AND V$<>"P" THEN POSITION 23,16:? " ":POKE 752,0:GOTO 300
322 POKE 752,G:? "":CLS:IF V$="E" THEN 420
323 POSITION 11,10:? ""
325 POSITION 11,12:? " DOPISNI KVALITA"
330 POSITION 11,14:? " BEZNA KVALITA"
335 GET Q:IF Q<49 OR Q>50 THEN 335
340 IF Q=49 THEN NLQ=76
350 IF Q=50 THEN NLQ=89
360 PAUSE 20
380 CLS:POSITION 11,10:? ""
390 POSITION 11,12:? " JEDNOTLIVE LISTY"
400 POSITION 11,14:? " SKLADANY PAPIR"
410 GET Q:IF Q<49 OR Q>50 THEN 410
415 IF Q=49 AND S>59 THEN S=59
420 CLS:TRAP 430:CLOSE #2:OPEN #2,8,0,V$:POKE 752,G:SETCOLOR 2,12,4:IF ERR=0 THEN EXEC INIC:GOTO 460
430 POSITION 8,11:? "":POSITION 8,13:? "TISKARNA ZAPNUTA ":GET Q1
440 POKE 195,0:CLOSE #2:IF Q1<>155 THEN ? "":GOTO 430
450 GOTO 420
460 NS$=Z$:IF Z$="C":GOTO 470:ELSE:NS$(LEN(NS$)+G)=":":NS$(LEN(NS$)+G)=NP$:ENDIF
470 TRAP 480:OPEN #G,4,0,NS$:IF ERR=0 THEN 530
480 POSITION 3,11:? ""
490 POSITION 3,13:? "PROGRAM VLOZEN , NAVRAT ":GET Q1:IF Q1<>155 AND Q1<>27 THEN 490
500 POKE 195,0:CLOSE #G
510 IF Q1=27 THEN 140
520 CLS:GOTO 470
530 POKE 766,G:D=0:IF V$="P" THEN POKE 559,0
540 PSL=G:MAX=P-L+G:H6=0:F6=0:L3=0:L5=0
550 PS=0:C2=0:C1=0:F2=0:H6=0:F6=0:HL$="":FL$="":A$="":E$="":D$="":B$="":Y$=""
552 IF C>G THEN FOR X=G TO C:? #2:? #2:NEXT X
554 REM
555 ------------------------------
560 REM
562 IF C=G AND H6=G THEN EXEC HLAVICKA
565 ME=0:ME2=G:IF PSL>G AND PS=0 THEN A$(G,LEN(C$))=C$
570 IF PSL>G AND PS>0 THEN Y$(LEN(Y$)+G)=C$
580 IF PS>0 THEN PSL=LEN(Y$)+G:A$(LEN(A$)+G)=Y$
590 FOR I=PSL TO MAX+G+L5:M5=0
600 TRAP 605:GET #G,A:IF A=155 OR (I=MAX+G+L5 AND A=32) THEN B$=A$:PSL=G:PS=0:MEV=0:POP:EXEC WORD:GOTO 720
605 IF ERR>0 THEN POKE 195,0:GOTO 722
607 IF A=246 OR A=249 OR A=250 OR A=173 OR A=174 THEN I=I-G:A$(LEN(A$)+G)=CHR$(A):GOTO 690
608 IF A=237 AND L3<=L THEN I=I-G:L5=L-L3:PSL=G:POP:GOTO 560
610 IF A=27 OR A>127 THEN EXEC POVEL:PSL=G:POP:GOTO 560
620 IF I=MAX+G+L5 AND A<>32 THEN PSL=2:B$=A$:C$=CHR$(A):POP:GOTO 700
630 IF I=MAX+G+L5 AND A=32 THEN C$="":PSL=G
640 A$(LEN(A$)+G)=CHR$(A)
650 IF A<>32 THEN PS=PS+G:Y$(PS,PS)=CHR$(A)
660 IF A=32 THEN ME=ME+G:ME2=ME2+G:M5=G
670 IF PS<G AND M5<>G THEN ME=0
675 M5=0
680 IF A=32 AND I<=MAX+L5 THEN PS=0:Y$=""
690 NEXT I
700 MEV=ME-PS:IF PS=0 THEN MEV=0
710 EXEC WORD
720 GOTO 560
721 ------------------------------
722 CLOSE #G:EXEC WORD:? #2;CHR$(27);CHR$(64);:CLOSE #2:CLS:POKE 559,34:POSITION 12,12:? "DALSI VYPIS?/"
723 GET Q1:CLS:IF Q1=65 THEN 140
725 POKE 82,2:GRAPHICS 0:END
730 PROC WORD
735 REM
740 B$=A$:A$="":M1=0:M3=0:IF PS>=ME-G AND PS>0 THEN RO=PS-ME+2
750 IF LEN(B$)<G THEN 820
755 IF B$(LEN(B$),LEN(B$))=" " THEN M3=1
760 FOR I=G TO LEN(B$)-PS
770 A=ASC(B$(I,I))
780 IF A=32 AND I=LEN(B$)-PS THEN POP:GOTO 820
790 IF A=32 AND PS>0 THEN M1=M1+G:IF M1>=ME2-PS-2 THEN EXEC SORT
792 IF A=32 AND RO>0 THEN IF M1>=ME2-PS-2 THEN EXEC SORT:RO=RO-G
793 IF A=32 AND RO>=ME-2 THEN IF M1>=ME2-PS-2 THEN EXEC SORT:RO=RO-G
795 IF A=32 AND M3=G THEN M2=M2+G:IF M2>ME2-ME THEN EXEC SORT:M3=0:M2=0
800 EXEC SORT
810 NEXT I:PS=0
820 C=C+G:RO=0:EXEC TISKZNAKU
821 IF C=S-2 AND F6=G THEN EXEC PODCAR
825 IF RA>G THEN FOR X=G TO RA-G:? #2:? #2:C=C+G:NEXT X
827 IF Q=49 AND C>S THEN C=G:EXEC VYMENA:GOTO 830
828 IF C>S THEN FOR X=0 TO 72-C:? #2:? #2:NEXT X:C=G
830 ENDPROC
1200 PROC INIC
1210 REM
1215 TY=0:TU=0
1220 IF V$="P" THEN ? #2;CHR$(27);CHR$(64);CHR$(27);CHR$(108);CHR$(L);
1230 IF V$="P" THEN ? #2;CHR$(27);"3";CHR$(18);
1240 IF V$="P" AND NLQ=76 THEN ? #2;CHR$(27);CHR$(120);CHR$(49);
1260 EXEC PICA
1270 ENDPROC
2000 PROC VYMENA
2010 CLS:POKE 766,0:POKE 559,34
2020 POSITION 5,11:? "":POSITION 5,13:? "TISKARNA PRIPRAVENA "
2030 GET Q1:IF Q1<>155 THEN 2030
2040 CLS:POKE 559,0:POKE 766,G
2050 ENDPROC
2100 PROC POVEL
2110 REM
2115 IF A=225 AND TU=0 THEN TY=0:EXEC TYPE
2120 IF A=225 AND TU=G THEN TY=0:EXEC TYP
2125 IF A=228 AND TU=0 THEN TY=G:EXEC TYPE
2130 IF A=228 AND TU=G THEN TY=G:EXEC TYP
2135 IF A=235 AND TU=O THEN TY=2:EXEC TYPE
2140 IF A=235 AND TU=G THEN TY=2:EXEC TYP
2145 IF A=239 AND TU=0 THEN TY=3:EXEC TYPE
2150 IF A=239 AND TU=G THEN TY=3:EXEC TYP
2155 IF A=232 THEN EXEC DEFHL
2160 IF A=230 THEN EXEC DEFFL
2165 IF A=236 THEN EXEC LEVY
2170 IF A=242 THEN EXEC PRAVY
2175 IF A=238 THEN EXEC NOVASTR
2180 IF A=227 THEN EXEC CENTR
2185 IF A=229 THEN EXEC VPRAVO
2187 IF A=241 THEN EXEC VLEVO
2190 IF A=27 OR A=177 THEN EXEC TISKPRIKAZ
2200 IF A=192 THEN EXEC CISLO
2230 IF A=243 THEN EXEC RADKOVANI
2235 IF A=231 THEN EXEC FILE:POP:CLOSE #1:GOTO 470
2239 REM
2240 IF A=233 THEN EXEC POZNAMKA:REM prikaz
2245 IF A=244 THEN EXEC POZNAMKA:REM horni okraj - prikaz
2250 IF A=226 THEN EXEC POZNAMKA:REM dolni okraj - prikaz
2255 IF A=240 THEN EXEC POZNAMKA:REM delka strany - prikaz
2260 IF A=191 THEN EXEC POZNAMKA:REM tisk od cisla strany - prikaz
2265 IF A=248 THEN EXEC POZNAMKA:REM prikaz -
2290 ENDPROC
2300 PROC DEFHL
2310 REM
2315 J=0:C1=0:C2=0:H6=G:U$=""
2320 GET #G,A
2330 IF A=227 THEN C1=G:GOTO 2320
2340 IF A=163 THEN 2400:REM
2345 IF A=155 THEN 2480
2350 J=J+G:U$(J,J)=CHR$(A):GOTO 2320
2400 C2=G:REM
2410 K=0:Z$=""
2420 GET #G,A
2430 IF A=155 THEN GOTO 2460
2440 K=K+G:Z$(K,K)=CHR$(A):GOTO 2420
2460 IF LEN(Z$)<G THEN Z=G
2470 IF LEN(Z$)>=G THEN Z=VAL(Z$)
2480 IF C1=0 THEN HL$=U$
2500 IF C1=G AND C2=G THEN Z$="":GOTO 2550
2510 IF C1=G AND C2=0 THEN DL=LEN(U$):DL2=(MAX-DL) DIV 2:A$="":A$(G)=" ":A$(DL2-G)=" ":A$(2)=A$:GOTO 2530
2520 GOTO 2590
2530 A$(LEN(A$)+G)=U$:HL$=A$:A$=""
2540 GOTO 2590
2550 B$=U$
2560 DL=LEN(B$):DL2=(MAX-DL+LEN(Z$)) DIV 2
2570 A$="":A$(G)=" ":A$(DL2-G)=" ":A$(2)=A$
2580 A$(LEN(A$)+G)=B$:HL$=A$:A$=""
2590 ENDPROC
2600 PROC HLAVICKA
2610 C=4:A$="":IF C2=G THEN Z=Z+G
2620 IF C2=G THEN A$=HL$:A$(LEN(A$)+G)=STR$(Z)
2625 IF C2=0 THEN A$=HL$
2626 EXEC TISK
2630 FOR X=G TO 6:? #2:NEXT X
2640 ENDPROC
2700 PROC PODCAR
2710 C=C+2:A$="":IF F2=G THEN Z=Z+G
2715 FOR X=G TO 4:? #2:NEXT X
2720 IF F2=G THEN A$=FL$:A$(LEN(A$)+G)=STR$(Z)
2725 IF F2=0 THEN A$=FL$
2730 EXEC TISK
2735 A$=""
2740 ENDPROC
2800 PROC LEVY:REM
2810 Z$=""
2820 GET #G,A
2830 IF A=155 THEN 2850
2840 Z$(LEN(Z$)+G)=CHR$(A):GOTO 2820
2850 L=VAL(Z$):MAX=P-L+G
2860 IF V$="P" THEN ? #2;CHR$(27);CHR$(108);CHR$(L);
2870 ENDPROC
2900 PROC PRAVY:REM
2910 Z$=""
2920 GET #G,A
2930 IF A=155 THEN 2950
2940 Z$(LEN(Z$)+G)=CHR$(A):GOTO 2920
2950 P=VAL(Z$):MAX=P-L+G
2970 ENDPROC
3000 PROC NOVASTR
3010 REM
3015 IF Q=49 THEN C=G:EXEC VYMENA:GOTO 3025
3020 FOR X=0 TO 72-C:? #2:? #2:NEXT X:C=G
3025 GET #G,A
3030 ENDPROC
3100 PROC CENTR
3110 REM
3120 K=0:U$="":A$=""
3130 GET #G,A
3135 IF A>172 THEN K=K+G
3140 IF A=155 THEN 3160
3150 U$(LEN(U$)+G)=CHR$(A):GOTO 3130
3160 DL=LEN(U$)-K:DL2=(MAX-DL) DIV 2
3170 A$(G)=" ":A$(DL2-G)=" ":A$(2)=A$
3180 A$(LEN(A$)+G)=U$:EXEC TISK
3190 ENDPROC
3200 PROC VPRAVO
3210 REM
3211 REM
3220 K=0:U$="":A$=""
3230 GET #G,A
3235 IF A>172 THEN K=K+G
3240 IF A=155 THEN 3260
3250 U$(LEN(U$)+G)=CHR$(A):GOTO 3230
3260 DL=LEN(U$)-K:DL2=MAX-DL-G
3270 A$(G)=" ":A$(DL2)=" ":A$(2)=A$
3280 A$(LEN(A$)+G)=U$:EXEC TISK
3290 ENDPROC
3300 PROC DEFFL
3310 REM
3315 J=0:C1=0:F2=0:F6=G
3320 GET #G,A
3330 IF A=227 THEN C1=G:GOTO 3320
3340 IF A=163 THEN 3400:REM
3345 IF A=155 THEN 3480
3350 J=J+G:U$(J,J)=CHR$(A):GOTO 3320
3400 F2=G:REM
3410 K=0:Z$=""
3420 GET #G,A
3430 IF A=155 THEN GOTO 3460
3440 K=K+G:Z$(K,K)=CHR$(A):GOTO 3420
3460 IF LEN(Z$)<G THEN Z=0
3470 IF LEN(Z$)>=G THEN Z=VAL(Z$)
3480 IF C1=0 THEN FL$=U$
3500 IF C1=G AND F2=G THEN Z$="":GOTO 3550
3510 IF C1=G AND F2=0 THEN DL=LEN(U$):DL2=(MAX-DL) DIV 2:A$="":A$(G)=" ":A$(DL2-G)=" ":A$(2)=A$:GOTO 3530
3520 GOTO 3590
3530 A$(LEN(A$)+G)=U$:FL$=A$:A$=""
3540 GOTO 3590
3550 B$=U$
3560 DL=LEN(B$):DL2=(MAX-DL+LEN(Z$)) DIV 2
3570 A$="":A$(G)=" ":A$(DL2-G)=" ":A$(2)=A$
3580 A$(LEN(A$)+G)=B$:FL$=A$:A$=""
3590 ENDPROC
3600 PROC TISKPRIKAZ:REM
3610 A2=0
3620 GET #G,A
3630 IF A=155 THEN 3700
3635 GET #G,A2
3640 IF (A=14 OR A=178) AND A2=155 THEN IF V$="P" THEN ? #2;CHR$(27);"W1";:TU=G:EXEC TYP:GOTO 3700
3650 IF (A=20 OR A=179) AND A2=155 THEN IF V$="P" THEN ? #2;CHR$(27);"W0";:TU=0:EXEC TYPE:GOTO 3700
3655 IF A2=155 THEN 3700
3660 GOTO 3620
3700 ENDPROC
3910 PROC CISLO:REM
3920 Z$=""
3930 GET #G,A
3940 IF A=155 THEN 3960
3950 Z$(LEN(Z$)+G)=CHR$(A):GOTO 3930
3960 Z=VAL(Z$)
3970 ENDPROC
4000 PROC TISK
4010 B$=A$:A$="":IF LEN(B$)<G THEN 4060
4020 FOR I=G TO LEN(B$)
4030 A=ASC(B$(I,I))
4040 EXEC SORT
4050 NEXT I
4060 C=C+G:EXEC TISKZNAKU
4070 IF C=S-2 AND F6=G THEN EXEC PODCAR
4080 IF RA>G THEN FOR X=G TO RA-G:? #2:? #2:C=C+G:NEXT X
4090 IF Q=49 AND C>S THEN C=G:EXEC VYMENA:GOTO 4100
4095 IF C>S THEN FOR X=0 TO 72-C:? #2:? #2:NEXT X:C=G
4100 ENDPROC
4200 PROC TYP
4210 REM
4220 IF TY=0 THEN MAX=(P-L+G) DIV 2:EXEC TPICA
4230 IF TY=G THEN MAX=INT(((P-L+G)*1.2)/2):EXEC TELITE
4240 IF TY=2 THEN MAX=(P-L+G) DIV 2:EXEC TKURZIVA
4250 IF TY=3 THEN MAX=INT(((P-L+G)*1.2)/2):EXEC TEKURZIVA
4255 GET #G,A
4260 ENDPROC
4300 PROC TYPE
4310 REM
4320 IF TY=0 THEN MAX=P-L+G:EXEC PICA
4330 IF TY=G THEN MAX=INT((P-L+G)*1.2):EXEC ELITE
4340 IF TY=2 THEN MAX=P-L+G:EXEC KURZIVA
4350 IF TY=3 THEN MAX=INT((P-L+G)*1.2):EXEC EKURZIVA
4355 GET #G,A
4360 ENDPROC
4400 PROC RADKOVANI
4410 Z$=""
4420 GET #G,A
4430 IF A=155 THEN 4450
4440 Z$(LEN(Z$)+G)=CHR$(A):GOTO 4420
4450 RA=VAL(Z$)
4460 ENDPROC
4500 PROC FILE
4510 REM
4520 NS$=""
4530 GET #G,A
4540 IF A=155 THEN 4560
4550 NS$(LEN(NS$)+G)=CHR$(A):GOTO 4530
4560 ENDPROC
4600 PROC POZNAMKA
4610 GET #G,A
4620 IF A=155 THEN 4640
4630 GOTO 4610
4640 ENDPROC
4700 PROC TISKZNAKU
4710 REM
4715 IF L5>0 AND V$="P" THEN ? #2;"l";CHR$(L3);
4720 IF V$="P" AND LEN(D$)<G THEN ? #2:GOTO 4750
4730 IF LEN(E$)<G THEN ? #2:ENDPROC
4735 IF V$<>"P" THEN D$=""
4740 IF V$="P" THEN ? #2;CHR$(27);CHR$(NLQ);CHR$(LEN(D$) MOD 256);CHR$(LEN(D$) DIV 256);D$:D$=""
4750 ? #2;E$:E$=""
4755 IF L5>0 AND V$="P" THEN ? #2;"l";CHR$(L);:L5=0
4760 ENDPROC
4800 PROC VLEVO
4810 K=0:Z$=""
4820 GET #G,A
4830 IF A=155 THEN 4850
4840 K=K+G:Z$(K,K)=CHR$(A):GOTO 4820
4850 L3=VAL(Z$)
4860 ENDPROC
5000 PROC SORT
5010 IF A>31 AND A<36 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=CHR$(A):ENDPROC
5020 IF A>96 AND A<123 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=CHR$(A):ENDPROC
5030 IF A>64 AND A<91 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=CHR$(A):ENDPROC
5040 IF A>43 AND A<64 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=CHR$(A):ENDPROC
5045 IF A=0 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="."
5050 IF A=36 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=")":ENDPROC
5055 IF A=37 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="e":ENDPROC
5060 IF A=38 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="s":ENDPROC
5065 IF A=39 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="c":ENDPROC
5070 IF A=40 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="z":ENDPROC
5075 IF A=41 THEN D$(LEN(D$)+G)=MC$:E$(LEN(E$)+G)="i":ENDPROC
5080 IF A=42 THEN D$(LEN(D$)+G)=MC$:E$(LEN(E$)+G)="a":ENDPROC
5090 IF A=43 THEN D$(LEN(D$)+G)=MK$:E$(LEN(E$)+G)="u":ENDPROC
5095 IF A=9 THEN D$(LEN(D$)+G)=VC$:E$(LEN(E$)+G)="I"
5100 IF A=10 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+G)="N"
5110 IF A=11 THEN D$(LEN(D$)+G)=VC$:E$(LEN(E$)+G)="O"
5120 IF A=12 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+1)="E"
5130 IF A=13 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=" "
5140 IF A=14 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="n"
5150 IF A=15 THEN D$(LEN(D$)+G)=MC$:E$(LEN(E$)+G)="o"
5160 IF A=16 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=""
5170 IF A=17 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=" "
5180 IF A=18 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+G)="R"
5190 IF A=19 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+G)="S"
5200 IF A=20 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="t"
5210 IF A=21 THEN D$(LEN(D$)+G)=VC$:E$(LEN(E$)+G)="U"
5220 IF A=22 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="@"
5230 IF A=23 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="%"
5240 IF A=24 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=" "
5250 IF A=25 THEN D$(LEN(D$)+G)=VC$:E$(LEN(E$)+G)="Y"
5260 IF A=26 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+G)="Z"
5280 IF A=28 THEN D$(LEN(D$)+G)=VK$:E$(LEN(E$)+G)="U"
5290 IF A=29 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+G)="T"
5310 IF A=31 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+G)="D"
5360 IF A=1 THEN D$(LEN(D$)+G)=VC$:E$(LEN(E$)+G)="A"
5370 IF A=2 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="+"
5380 IF A=3 THEN D$(LEN(D$)+G)=VH$:E$(LEN(E$)+G)="C"
5390 IF A=4 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="d"
5400 IF A=5 THEN D$(LEN(D$)+G)=VC$:E$(LEN(E$)+G)="E"
5410 IF A=6 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="("
5420 IF A=7 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="$"
5430 IF A=8 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="*"
5440 IF A>43 AND A<64 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=CHR$(A)
5450 IF A=64 THEN D$(LEN(D$)+G)=MH$:E$(LEN(E$)+G)="r"
5470 IF A=91 THEN D$(LEN(D$)+G)=MC$:E$(LEN(E$)+G)="e"
5480 IF A=92 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="_"
5490 IF A=93 THEN D$(LEN(D$)+G)=MC$:E$(LEN(E$)+G)="u"
5500 IF A>93 AND A<96 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=CHR$(A)
5510 IF A=96 THEN D$(LEN(D$)+G)=MC$:E$(LEN(E$)+G)="y"
5530 IF A=123 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="("
5550 IF A=124 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="I"
5570 IF A=125 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)=")"
5590 IF A=126 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="-"
5610 IF A=127 THEN D$(LEN(D$)+G)=M$:E$(LEN(E$)+G)="&"
5620 IF A=246 AND V$="P" THEN E$(LEN(E$)+G)="S0"
5630 IF A=249 AND V$="P" THEN E$(LEN(E$)+G)="S1"
5640 IF A=250 AND V$="P" THEN E$(LEN(E$)+G)="T"
5650 IF A=173 AND V$="P" THEN E$(LEN(E$)+G)="-1"
5660 IF A=174 AND V$="P" THEN E$(LEN(E$)+G)="-0"
5690 ENDPROC
6000 PROC PICA
6020 MH$="":MH$=""
6030 MC$="":MC$=""
6040 MK$="":MK$=""
6060 VH$="":VH$=""
6070 VC$="":VC$=""
6080 VK$="":VK$="8((8"
6090 M$="":M$=""
6095 IF V$="P" THEN ? #2;CHR$(27);"5";CHR$(27);"P";
6100 ENDPROC
6200 PROC TPICA
6220 MH$="":MH$=""
6230 MC$="":MC$=""
6240 MK$="":MK$=""
6260 VH$="":VH$=" 0000 "
6270 VC$="":VC$="80 "
6280 VK$="":VK$="88((((88"
6290 M$="":M$=""
6295 IF V$="P" THEN ? #2;CHR$(27);"5";CHR$(27);"P";
6300 ENDPROC
6400 PROC ELITE
6420 MH$="":MH$=""
6430 MC$="":MC$=""
6440 MK$="":MK$=""
6450 M$="":M$=""
6460 VH$="":VH$=""
6470 VC$="":VC$=""
6480 VK$="":VK$="8((8"
6495 IF V$="P" THEN ? #2;CHR$(27);"5";CHR$(27);"M";
6500 ENDPROC
6600 PROC TELITE
6620 MH$="":MH$=""
6630 MC$="":MC$=""
6640 MK$="":MK$=""
6650 M$="":M$=""
6660 VH$="":VH$=" 00 "
6670 VC$="":VC$="80 "
6680 VK$="":VK$="88(((88"
6685 IF V$="P" THEN ? #2;CHR$(27);"5";CHR$(27);"M";
6690 ENDPROC
6800 PROC KURZIVA
6820 MH$="":MH$=""
6830 MC$="":MC$=""
6840 MK$="":MK$=""
6850 M$="":M$=""
6860 VH$="":VH$=""
6870 VC$="":VC$=""
6880 VK$="":VK$="8((8"
6885 IF V$="P" THEN ? #2;CHR$(27);"P";CHR$(27);"4";
6890 ENDPROC
7000 PROC TKURZIVA
7020 MH$="":MH$=""
7030 MC$="":MC$=""
7040 MK$="":MK$=""
7050 M$="":M$=""
7060 VH$="":VH$=" 0000 "
7070 VC$="":VC$="80 "
7080 VK$="":VK$="88((((88"
7085 IF V$="P" THEN ? #2;CHR$(27);"P";CHR$(27);"4";
7090 ENDPROC
7200 PROC TEKURZIVA
7220 MH$="":MH$=""
7230 MC$="":MC$="@"
7240 MK$="":MK$=""
7250 M$="":M$=""
7260 VH$="":VH$=" 00 "
7270 VC$="":VC$="80 "
7280 VK$="":VK$="88(((88"
7285 IF V$="P" THEN ? #2;CHR$(27);"M";CHR$(27);"4";
7290 ENDPROC
7400 PROC EKURZIVA
7420 MH$="":MH$=""
7430 MC$="":MC$=""
7440 MK$="":MK$=""
7450 M$="":M$=""
7460 VH$="":VH$=""
7470 VC$="":VC$=""
7480 VK$="":VK$="8((8"
7485 IF V$="P" THEN ? #2;CHR$(27);"M";CHR$(27);"4";
7490 ENDPROC
10000 REM DIRECTORY
10010 POKE 82,2:GOSUB 10500
10020 POKE 752,G
10030 CLOSE #3:OPEN #3,6,0,"D:*.*"
10040 POKE 87,0:POSITION 2,2:? ""
10050 B$=" ":GOTO 10120
10060 IF A$(5,8)="FREE" OR A$(5,8)="VOLN" THEN A$="PRO JINY DISK TYPUJ (00)":GOTO 10200
10070 N=N+G:Y$=A$(3,10):Y$(9,9)=".":Y$(10,12)=A$(11,13)
10080 E$="|":E$(LEN(E$)+G)=Y$:D$(LEN(D$)+G)=Y$
10090 E$(14,14)="(":FOR I=G TO LEN(E$):IF E$(I,I)=" " THEN E$(I,I)="."
10100 NEXT I:X$=STR$(N):IF N<10 THEN X$(2,2)=X$(G,G):X$(G,G)="0"
10110 RETURN
10120 TRAP 10230:INPUT #3,A$:TRAP 40000
10130 IF A$(3,5)="DUP" OR A$(3,9)="AUTORUN" THEN 10120
10140 IF A$(3,6)="DOS " THEN 10120
10150 GOSUB 10060:? #6;E$;X$;") ";
10160 TRAP 10200:INPUT #3,A$:TRAP 40000
10170 IF A$(3,5)="DUP" OR A$(3,9)="AUTORUN" THEN 10160
10180 IF A$(3,6)="DOS " THEN 10160
10190 GOSUB 10060:? #6;E$(2,14);X$;")|":GOTO 10120
10200 TRAP 10450:POSITION 36,(N/2)+3:PRINT #6;"|":TRAP 40000
10210 POSITION 2,(N/2)+3:? #6;"|"
10220 POSITION 36,(N/2)+2:? #6;"|"
10230 ? #6;"| |"
10240 ? #6;"| ";A$;" |"
10250 ? #6;"":POKE 752,G
10260 ? #6:? #6;" "
10270 POSITION 8,20:? #6;B$
10280 POSITION G,20:? #6;" ";
10290 TRAP 10270:INPUT X:TRAP 40000
10300 IF X<>INT(X) THEN 10270
10310 IF X=0 THEN 10450
10320 IF X=G THEN Y$=D$(G,12):GOTO 10350
10330 TRAP 10270:Y$=D$((X-G)*12+G,(X-G)*12+12):TRAP 40000
10340 IF Y$(11,11)=" " THEN Y$=Y$(G,8)
10350 IF Y$(G,3)="DOS" THEN DOS
10360 A$(40)=" ":A$(G,G)=" ":A$(2)=A$:A$="":FOR I=G TO LEN(Y$):IF Y$(I,I)=" " THEN 10380
10370 A$(LEN(A$)+G)=Y$(I,I)
10380 NEXT I:Y$=A$
10390 A$="D1:":A$(LEN(A$)+G)=Y$
10400 CLOSE #3:GRAPHICS 0:SETCOLOR 2,G,4:POKE 752,0:POKE 82,0
10410 POSITION 12,G:? ""
10420 POSITION 4,3:? "Zdrojove zarizeni: ";Z$
10430 POSITION 4,6:? "Jmeno souboru: ";Y$:NP$=Y$
10440 GOTO 210
10450 POSITION 3,20:? " JINY , PRESS "
10460 GET A:IF A<>155 THEN 10450
10470 N=0:X=0:X$="":Y$="":D$="":GOTO 10010
10480 N=0:GOTO 10010
10500 GRAPHICS 0:POKE 710,0
10510 BEGIN=DPEEK(560)+4
10520 POKE BEGIN-G,71
10530 POKE BEGIN+2,7
10540 POKE BEGIN+24,65:POKE BEGIN+25,PEEK(560):POKE BEGIN+26,PEEK(561)
10550 SETCOLOR 3,6,4:SETCOLOR 2,6,4
10560 SETCOLOR 4,G,0
10570 POKE 87,2:? #6;" DIRECTORY ":RETURN
Listing downloads
Copyright holder