Atari 8-bit Source code

1 REM 
2 REM  SEZNAM.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),​TIS$(6),​PO1$(51),​PO2$(100),​UNI$(40),​DL$(7),​R1$(60),​R2$(60),​RP$(60),​M1$(268)
15 EXEC IRAZ:​EXEC ABECEDA
20 MI1=FRE(%0)-1200:​DIM A$(MI1)
30 EXEC INIT
100 *F +:​POKE 82,​%0:​IF ADR(DL$)<>DPEEK(560) THEN EXEC UNI
101 ? "Menu:​-----"
110 ? ") Nov seznam"
111 ? ") Load"
112 ? ") Save"
113 ? ") Zadvn seznamu"
114 ? ") Vpis seznamu"
115 ? ") Hledn + oprava seznamu"
116 ? ") Zadvn dk 1. 2. posledn"
119 ? ") Zmna tiskrny nyn:​";TIS$
130 GET KEY:​IF KEY<K1-%1 OR KEY>55 THEN ? "";:​GOTO 130
132 KEY=KEY-K1+%2:​? ""
135 ON KEY GOSUB 500,​1000,​2000,​4000,​3000,​5000,​6000,​7000
140 GOTO 100
200 PROC DP:​DP=ASC(B$(CP*C3+C3-%2)):​ENDPROC
269 ? "Zadej poad pol. k tisku":​? ") KONEC"
270 GOSUB 900
271 FOR A=%0 TO POL-%1:​? CHR$(A+193);") ";B$(A*C3+%1,​A*C3+C3-%3):​NEXT A:​GET KEY:​IF KEY<64 OR KEY>POL+64 THEN ? "":​GOTO 270
280 KEY=KEY-65:​GOSUB 910:​GOSUB 950:​RETURN
300 PROC OP:​OP=ASC(B$(CP*C3+C3)):​ENDPROC
310 PROC TP:​CP=ASC(B$(PT*C3+C3-%1)):​ENDPROC
320 PROC ZTP:​B$(PT*C3+C3-%1,​PT*C3+C3-%1)=CHR$(CP):​ENDPROC
350 PO$(LEN(PO$)+%1)=PO1$:​RETURN
390 RESTORE 5500:​GOTO 410
400 RESTORE 1500
410 IF DP<K1+%2 THEN LP=DP:​RETURN
420 POKE 182,​(DP-K1-%2):​READ LP:​RETURN
500 IF TIS=%0 THEN TIS$="BT 100":​TIS=%1:​RETURN
510 IF TIS=%2 THEN TIS=%0:​TIS$="AT1029":​RETURN
520 IF TIS=%1 THEN TIS=%2:​TIS$="XY4150":​RETURN
800 T=CP:​PO$="":​FOR CP=%0 TO POL-%1:​EXEC DP:​IF DP>127 THEN 820
810 GOSUB 16000
820 NEXT CP:​? PO$:​CP=T:​RETURN
900 SHCO=PEEK(702):​POKE 702,​64:​RETURN
910 POKE 702,​SHCO:​RETURN
950 ? "";:​RETURN
960 PROC INIT
961 ZAD=%0:​ROV=%0:​ZAV=%0:​K1=49:​C3=23:​TIS=%0:​TIS$="AT1029":​A$=" ":​A$(MI1)=" ":​A$(%2)=A$:​B$=A$:​ENDPROC
962 PROC UNI
963 GRAPHICS %0:​POKE 756,​CHSET/256:​UNI$="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
980 PROC PP:​PO$="":​FOR CP=%0 TO POL-%1:​EXEC P234
981 GOSUB 390:​PO1$=" ":​PO1$(LP)=" ":​PO1$(%2)=PO1$:​PO1$(%1,​LP)=B$(CP*C3+%1,​CP*C3+C3-%3):​GOSUB 350
982 NEXT CP:​? PO$;"|":​POKE 85,​20:​? "":​ENDPROC
1000 ------------------------------
1005 EXEC INIT
1046 GOSUB 950
1050 ?:​? "Zadej kolik polozek ";:​INPUT POL:​POL=INT(POL):​IF POL<%1 OR POL>20 THEN ? "":​GOTO 1050
1060 FOR A=%1 TO POL
1070 ? "Zadej nazev polozky ";A;" (max zn.20) ":​INPUT PO$
1080 B$(A*C3-22,​A*C3-C3+LEN(PO$))=PO$
1090 ? ") Text":​? ") Datum":​? ") Cel slo 0-254":​? ") Cel slo 0-65534":​? ") Desetin slo"
1110 GET KEY:​IF KEY<K1 OR KEY>K1+4 THEN ? "":​GOTO 1110
1115 KEY=KEY-K1+%1
1120 IF KEY=%1 THEN ? "Zadej delku (max zn.50) ";:​INPUT L:​L=INT(L):​IF L<%1 OR L>50 THEN ? "":​GOTO 1120
1130 IF KEY>%1 THEN L=KEY+K1
1140 B$(A*C3-%2,​A*C3-%2)=CHR$(L)
1145 GOSUB 950
1150 NEXT A
1155 EXEC PP
1156 IF LEN(PO$)>60 THEN ? "doporuuji skrtit"
1160 ? "opravit 1-ano":​GET KEY:​IF KEY=K1 THEN B$=" ":​B$(460)=" ":​B$(%2)=B$:​GOTO 1050
1165 L=%0:​GOSUB 950
1170 FOR CP=%0 TO POL-%1
1175 B$(CP*C3+C3,​CP*C3+C3)=CHR$(L+%1)
1180 EXEC DP:​DP=DP&127:​B$(CP*C3+C3-%2,​CP*C3+C3-%2)=CHR$(DP)
1190 GOSUB 400:​L=L+LP
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 3,​1,​2,​3
2000 ------------------------------
2005 EXEC INIT
2010 GOSUB 900:​? "Zarizeni:​nazev ";:​INPUT PO$:​GOSUB 910:​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 AND ZAV<MI THEN RETURN
3010 ? "Zadv ";ZAV+%1;". poloku"
3040 REM
3050 CP=%0
3060 IF CP>POL-%1 THEN 3400
3070 EXEC DP
3085 ? B$(CP*C3+%1,​CP*C3+C3-%3)
3090 IF DP<51 THEN 3150
3091 IF DP=54 THEN 3200
3110 RESTORE 3500+DP:​A=%0
3115 READ PO$:​IF PO$="end" THEN CP=CP+%1:​GOSUB 12100:​GOTO 3060
3120 READ MIN,​MAX
3125 TRAP 3125:​? "Zadej ";PO$:​INPUT Z:​Z=INT(Z):​IF Z<MIN OR Z>MAX THEN ? "":​GOTO 3125
3130 IF MAX>255 THEN EXEC OP:​V=ADR(A$(ZAV*LE+A+OP)):​DPOKE V,​Z:​GOSUB 12000:​A=A+%2:​GOTO 3115
3140 EXEC OP:​POKE ADR(A$(ZAV*LE+A+OP)),​Z:​A=A+%1:​GOTO 3115
3150 ? "zadej text max. ";DP;" zn.":​INPUT PO$:​IF LEN(PO$)>DP OR LEN(PO$)<%1 THEN ? "":​GOTO 3150
3155 PO1$=" ":​PO1$(50)=" ":​PO1$(%2)=PO1$:​PO1$(%1,​LEN(PO$))=PO$
3160 EXEC P234:​A$(ZAV*LE+OP,​ZAV*LE-%1+OP+LP)=PO$:​CP=CP+%1:​GOTO 3060
3200 ? "Zadej cislo xxxx.xx":​INPUT PO$:​Z=INSTR(PO$,​"."):​IF LEN(PO$)>7 OR Z>5 OR (LEN(PO$)-Z>%2 AND Z<>0) THEN ? "":​GOTO 3200
3205 IF LEN(PO$)=%0 THEN ? "":​GOTO 3200
3210 FOR A=%1 TO LEN(PO$):​IF (PO$(A,​A)<"0" OR PO$(A,​A)>"9") AND PO$(A,​A)<>"." THEN POP:​? "":​GOTO 3200
3220 NEXT A
3222 IF Z=%0 THEN 3233
3225 PO1$="":​PO1$(%1,​Z+%2)="0000000":​PO1$(%1,​LEN(PO$))=PO$:​PO$=PO1$
3230 IF Z=%1 THEN X=%0:​GOTO 3240
3233 IF Z=%0 THEN X=VAL(PO$):​GOTO 3240
3235 X=VAL(PO$(%1,​Z-%1))
3240 EXEC OP:​V=ADR(A$(ZAV*LE+OP)):​DPOKE V,​X:​GOSUB 12000
3245 IF Z=%0 THEN X=%0:​GOTO 3255
3250 X=VAL(PO$(Z+%1,​LEN(PO$)))
3255 OP=OP+%2:​POKE ADR(A$(ZAV*LE+OP)),​X
3260 CP=CP+%1:​GOTO 3060
3400 ? "Opravit 1-ano":​GET KEY:​IF KEY=K1 THEN 3010
3410 ZAV=ZAV+%1:​? "Konec 1-ano":​GET KEY:​IF KEY=K1 THEN RETURN
3420 GOTO 3040
3551 DATA den,​1,​31,​mesic,​1,​12,​rok rr,​0,​99,​end
3552 DATA cislo 0-254,​0,​254,​end
3553 DATA cislo 0-65534,​0,​65534,​end
3999 ------------------------------
4000 IF ZAD=%0 THEN RETURN
4010 GOSUB 900:​? "Zarizeni:​nazev ";:​INPUT PO$:​GOSUB 910
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 ------------------------------
5000 IF ZAD=%0 OR ZAV<%1 THEN RETURN
5005 ? "Vystup 1-jen obrazovka":​GET KEY:​TTT=(KEY=K1):​GOSUB 950
5020 GOSUB 900:​FOR CP=%0 TO POL-%1
5025 ? CHR$(CP+193);" ";B$(CP*C3+%1,​CP*C3+C3-%3)
5030 NEXT CP
5040 GET CP:​CP=INT(CP)-65:​IF CP<%0 OR CP>POL-%1 THEN ? "":​GOTO 5020
5050 GOSUB 27000
5060 PT=%0
5070 GOSUB 269:​IF KEY=-%1 THEN 5090
5080 CP=KEY:​EXEC ZTP:​PT=PT+%1:​GOTO 5070
5090 MPT=PT-%1
5100 ? "1=bez poad":​GET KEY:​TPP=%1:​IF KEY=K1 THEN TPP=%0
5200 GOSUB 10000
5300 FOR POR=%0 TO ZAV-%1
5305 PO$="":​IF TPP THEN PO1$=" ":​I=POR+%1:​GOSUB 14000:​PO1$=" ":​GOSUB 350
5310 A=POR:​FOR PT=%0 TO MPT:​EXEC TP:​EXEC DP
5320 GOSUB 16000
5330 NEXT PT:​GOSUB 20000
5340 NEXT POR
5350 GOSUB 13000:​GET KEY:​RETURN
5500 DATA 8,​3,​5,​7
5999 ------------------------------
6000 IF ZAD=%0 OR ZAV<%1 THEN RETURN
6010 ?:​? "Hledat podle :​":​?:​GOSUB 270:​CP=KEY
6030 GOSUB 6090
6040 GOTO 6300
6090 EXEC DP:​DP=DP&127:​IF DP<51 THEN GOSUB 6150:​RETURN
6091 IF DP=54 THEN GOSUB 6200:​RETURN
6110 A=%0:​GOSUB 400:​PO1$="":​PO1$(%1,​LP)=" ":​RESTORE 3500+DP
6115 READ PO$:​IF PO$="end" THEN GOSUB 12200:​RETURN
6120 READ MIN,​MAX
6125 ? "Zadej ";PO$:​INPUT Z:​Z=INT(Z):​IF Z<MIN OR Z>MAX THEN ? "":​GOTO 6125
6130 IF MAX>254 THEN V=ADR(PO1$(A+%1)):​DPOKE V,​Z:​GOSUB 12000:​A=A+%2:​GOTO 6115
6140 POKE ADR(PO1$(A+%1)),​Z:​A=A+%1:​GOTO 6115
6150 ? "zadej text max. ";DP;" zn.":​INPUT PO$:​IF LEN(PO$)>DP OR LEN(PO$)<%1 THEN ? "":​GOTO 6150
6160 PO1$=PO$:​RETURN
6200 ? "Zadej cislo xxxx.xx":​INPUT PO$:​Z=INSTR(PO$,​"."):​IF LEN(PO$)>7 OR Z>5 OR (LEN(PO$)-Z>%2 AND Z<>0) THEN ? "":​GOTO 6200
6205 IF LEN(PO$)=%0 THEN ? "":​GOTO 6200
6210 FOR A=%1 TO LEN(PO$):​IF (PO$(A,​A)<"0" OR PO$(A,​A)>"9") AND PO$(A,​A)<>"." THEN POP:​? "":​GOTO 6200
6220 NEXT A
6222 IF Z=%0 THEN PO1$=" ":​GOTO 6233
6225 PO1$="":​PO1$(%1,​Z+%2)="0000000":​PO1$(%1,​LEN(PO$))=PO$:​PO$=PO1$:​PO1$=" "
6230 IF Z=%1 THEN X=%0:​GOTO 6240
6233 IF Z=%0 THEN X=VAL(PO$):​GOTO 6240
6235 X=VAL(PO$(%1,​Z-%1))
6240 V=ADR(PO1$(%1)):​DPOKE V,​X:​GOSUB 12000
6245 IF Z=%0 THEN X=%0:​GOTO 6255
6250 X=VAL(PO$(Z+%1,​LEN(PO$)))
6255 POKE ADR(PO1$(%3)),​X
6260 RETURN
6300 PO2$=PO1$:​OD=%0:​O2=CP
6310 PO1$=PO2$:​A=INSTR(A$,​PO1$,​OD):​IF A=%0 THEN ? "Nenalezeno !!!":​RETURN
6320 OD=A:​A=(A-%1) DIV LE:​CP=O2:​EXEC P234:​IF OD<A*LE+OP OR OD>A*LE+OP+LP-%1 THEN 6310
6325 Q=A
6330 A=Q:​GOSUB 800
6340 GOSUB 950:​GOSUB 910:​? "pravit":​? "mazat":​? "enu":​? "ledat dal":​GET KEY:​GOSUB 900
6350 IF KEY=ASC("O") THEN 6399
6360 IF KEY=ASC("S") THEN 6500
6370 IF KEY=ASC("M") THEN RETURN
6380 IF KEY=ASC("H") THEN 6310
6390 IF KEY<%0 THEN ? "":​GOTO 6330
6395 KEY=KEY-32:​GOTO 6350
6399 GOSUB 270
6400 A=Q:​CP=KEY:​EXEC DP
6409 GOSUB 950:​EXEC DP:​GOSUB 6090:​EXEC P234:​CP=O2:​PO$=" ":​PO$(50)=" ":​PO$(%2)=PO$
6410 IF LEN(PO1$)<LP THEN PO1$(LEN(PO1$)+1,​LP)=PO$
6420 A=Q:​A$(A*LE+OP,​A*LE+OP+LP-%1)=PO1$
6430 GOTO 6330
6500 ? "Opravdu 1-ano":​GET KEY:​IF KEY<>K1 THEN 6330
6510 MOVE ADR(A$(A*LE+LE+%1)),​ADR(A$(A*LE+%1)),​(ZAV-A)*LE:​ZAV=ZAV-%1:​GOTO 6330
7000 ? "Zadej prvn dek":​INPUT PO$:​IF PO$<>"" THEN R1$=" ":​R1$(60)=" ":​R1$(%2)=R1$:​R1$(31-LEN(PO$)/%2)=PO$
7005 ? "Zadej druh dek":​INPUT PO$:​IF PO$<>"" THEN R2$=" ":​R2$(60)=" ":​R2$(%2)=R2$:​R2$(31-LEN(PO$)/%2)=PO$
7010 ? "Zadej posledn dek":​INPUT PO$:​IF PO$<>"" THEN RP$=PO$
7040 RETURN
8000 PROC R3
8010 PO$="":​IF TPP THEN PO$=" "
8020 FOR PT=%0 TO MPT:​EXEC TP
8030 EXEC P234:​GOSUB 390:​PO1$=" ":​PO1$(LP)=" ":​PO1$(%2)=PO1$:​PO1$(%1,​LP)=B$(CP*C3+%1,​CP*C3+C3-%3):​GOSUB 350
8040 NEXT PT:​GOSUB 20000
8045 IF NOT (TTT=%0 AND TIS=%2):​FOR A=%1 TO LEN(PO$):​PO$(A,​A)="":​NEXT A:​GOSUB 20000:​ELSE
8046 ? #%1;"PUMA0",​R*4-%1;"PDMA";2.4*LEN(PO$),​R*4-%1;"PU":​R=R-%1:​ENDIF
8050 ENDPROC
8065 PROC RNS
8070 R=38:​IF TIS=%1 THEN R=65:​REM 
8071 IF TTT=%0 AND TIS=%2 THEN R=66:​CLOSE #%1:​OPEN #%1,​8,​%1,​"A:​"
8075 IF TTT THEN R=22
8076 ENDPROC
8077 PROC NS:​EXEC RNS
8080 ? "STISKNI KLAVESU";:​GET KEY:​? "";:​EXEC R3
8090 ENDPROC
8100 PROC INITTISK
8110 EXEC RNS:​IF TIS=%0 AND TTT=%0 THEN EXEC T1029
8112 IF TIS=%2 AND TTT=%0 THEN CLOSE #%1:​OPEN #%1,​8,​%1,​"A:​"
8120 ENDPROC
10000 EXEC INITTISK
10010 PO$=R1$:​GOSUB 20000
10020 PO$=R2$:​GOSUB 20000:​PO$="":​GOSUB 20000
10025 EXEC R3
10030 RETURN
12000 V1=PEEK(V):​POKE V,​PEEK(V+%1):​POKE V+%1,​V1:​RETURN
12100 IF DP<>51 THEN RETURN
12110 V=ADR(A$(ZAV*LE+OP)):​GOSUB 12000:​V=V+%1:​GOSUB 12000:​V=V-%1:​GOSUB 12000:​RETURN
12200 IF DP<>51 THEN RETURN
12210 V=ADR(PO1$):​GOSUB 12000:​V=V+%1:​GOSUB 12000:​V=V-%1:​GOSUB 12000:​RETURN
13000 PO$="":​GOSUB 20000:​PO$=RP$:​GOSUB 20000:​CLOSE #4:​CLOSE #%1:​RETURN
13990 PO1$="00"
14000 W1=LEN(PO1$):​PO1$(W1+%1-LEN(STR$(I)),​W1)=STR$(I):​GOSUB 350:​RETURN
15000 EXEC DP
15001 GOSUB 390:​PO1$=" ":​PO1$(51)=" ":​PO1$(%2)=PO1$:​PO1$(1,​LP)=A$(A*LE+OP,​A*LE+OP+LP-%1):​PO1$=PO1$(1,​LP+%1):​GOSUB 350:​RETURN
15010 I=PEEK(ADR(A$(A*LE+OP+%2))):​GOSUB 13990:​PO1$=".":​GOSUB 350
15011 I=PEEK(ADR(A$(A*LE+OP+%1))):​GOSUB 13990:​PO1$=".":​GOSUB 350
15012 I=PEEK(ADR(A$(A*LE+OP))):​GOSUB 13990:​PO1$=" ":​GOSUB 350:​RETURN
15030 PO1$=" ":​I=PEEK(ADR(A$(A*LE+OP))):​GOSUB 14000:​PO1$=" ":​GOSUB 350:​RETURN
15040 PO1$=" ":​V=ADR(A$(A*LE+OP)):​GOSUB 12000:​I=DPEEK(V):​GOSUB 12000:​GOSUB 14000:​PO1$=" ":​GOSUB 350:​RETURN
15050 PO1$=" ":​V=ADR(A$(A*LE+OP)):​GOSUB 12000:​I=DPEEK(V):​GOSUB 12000:​GOSUB 14000:​PO1$=".":​GOSUB 350
15052 V=V+%2:​I=PEEK(V):​GOSUB 13990:​PO1$=" ":​GOSUB 350:​RETURN
16000 EXEC DP:​DP=DP&127:​IF DP<(K1+%2) THEN DP=K1+%1
16010 DP=DP-K1:​EXEC OP:​ON DP GOSUB 15000,​15010,​15030,​15040,​15050:​RETURN
20000 IF R<=%0 THEN PO2$=PO$:​EXEC NS:​PO$=PO2$
20001 ? PO$
20002 R=R-%1:​IF TTT AND LEN(PO$)>39 THEN R=R-%1
20007 IF TTT THEN RETURN
20009 IF TIS<>%1 THEN 20020
20010 LPRINT PO$:​RETURN
20020 IF TIS=%2 THEN 21000
20021 IF PO$="" THEN LPRINT:​LPRINT:​RETURN
20025 TISK=USR(1546,​ADR(PO$),​LEN(PO$))
20050 RETURN
21000 IF PO$="" THEN RETURN
21001 P=ADR("")
21005 ? #%1;"MA0",​R*4;"WR";
21010 FOR A=%1 TO LEN(PO$)
21015 IF PO$(A,​A)>=" " THEN ? #%1;PO$(A,​A);:​GOTO 21030
21020 FOR B=%0 TO 22:​IF PEEK(P+B)=ASC(PO$(A)) THEN POP:​GOTO 21022
21021 NEXT B:​? #%1;" ";:​GOTO 21030
21022 RESTORE B+21040
21023 READ B:​? #%1;CHR$(B);:​READ B:​? #%1;CHR$(B);
21030 NEXT A:​? #%1:​RETURN
21040 DATA 3,​97
21041 DATA 3,​65
21042 DATA 8,​99
21043 DATA 8,​67
21044 DATA 8,​100
21045 DATA 3,​101
21046 DATA 3,​69
21047 DATA 8,​101
21048 DATA 3,​105
21049 DATA 8,​108
21050 DATA 8,​110
21051 DATA 3,​111
21052 DATA 3,​79
21053 DATA 8,​114
21054 DATA 8,​82
21055 DATA 8,​115
21056 DATA 8,​83
21057 DATA 8,​116
21058 DATA 3,​117
21059 DATA 11,​117
21060 DATA 3,​121
21061 DATA 8,​122
21062 DATA 8,​90
27000 ? "Zadej 1=sestupne azen":​GET KEY:​VZ=%1:​IF KEY=K1 THEN VZ=%0
27010 EXEC P234:​IF DP<K1+%2 THEN 29000
28000 EXEC P234:​IF VZ THEN 28005
28001 FOR A=%0 TO 255:​POKE 1536+A,​A:​NEXT A
28002 GOTO 28010
28005 FOR A=%0 TO 255:​POKE 1536+A,​255-A:​NEXT A
28010 A=USR(ADR(M1$),​ADR(A$),​ZAV,​LE,​OP-%1,​OP+LP-%1,​X)
28020 RETURN
29000 EXEC P234:​IF VZ THEN 29005
29001 P=ADR(" 0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ*!.,​/()'?:​;")
29002 GOTO 29010
29005 P=ADR(";:​?')(/,​.!*ZzYyXxWwVvUuTtSsRrQqPpOoNnMmLlKkJjIiHhGgFfEeDdCcBbAa9876543210 ")
29010 A=INSTR(A$,​"ch"):​WHILE A<>0:​A$(A,​A+%1)="":​A=INSTR(A$,​"ch",​A):​WEND
29011 A=INSTR(A$,​"Ch"):​WHILE A<>0:​A$(A,​A+%1)="":​A=INSTR(A$,​"Ch",​A):​WEND
29012 A=INSTR(A$,​"CH"):​WHILE A<>0:​A$(A,​A+%1)="":​A=INSTR(A$,​"CH",​A):​WEND
29015 MOVE P,​1536,​100
29020 A=USR(ADR(M1$),​ADR(A$),​ZAV,​LE,​OP-%1,​OP+LP-%1,​X)
29025 A=INSTR(A$,​""):​WHILE A<>0:​A$(A,​A+1)="ch":​A=INSTR(A$,​"",​A):​WEND
29026 A=INSTR(A$,​""):​WHILE A<>0:​A$(A,​A+1)="Ch":​A=INSTR(A$,​"",​A):​WEND
29027 A=INSTR(A$,​""):​WHILE A<>0:​A$(A,​A+1)="CH":​A=INSTR(A$,​"",​A):​WEND
29030 RETURN
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
31000 PROC IRAZ
31020 M1$(1,​90)="hhhhhhhhhhhhhFf`ee8"
31030 M1$(91,​180)="Fuu&uu"
31040 M1$(181,​268)="(&Hh88"
31050 ENDPROC
32000 PROC T1029:​RESTORE 32001:​FOR I=1546 TO 1775:​READ A:​POKE I,​A:​NEXT I:​CLOSE #4:​OPEN #4,​8,​%0,​"P:​":​ENDPROC
32001 DATA 104,​104,​133,​204,​104,​133
32002 DATA 203,​104,​104,​133,​205,​169,​0,​133
32003 DATA 209,​169,​27,​32,​204,​6,​169,​57
32004 DATA 32,​204,​6,​169,​27,​32,​204,​6
32005 DATA 169,​65,​32,​204,​6,​169,​0,​133
32006 DATA 206,​165,​205,​10,​10,​10,​38,​206
32007 DATA 170,​165,​206,​32,​204,​6,​138,​32
32008 DATA 204,​6,​160,​0,​132,​220,​164,​220
32009 DATA 169,​0,​133,​207,​133,​210,​177,​203
32010 DATA 16,​2,​198,​210,​41,​127,​201,​96
32011 DATA 176,​11,​201,​32,​176,​4,​9,​64
32012 DATA 208,​3,​56,​233,​32,​10,​10,​38
32013 DATA 207,​10,​38,​207,​133,​206,​24,​165
32014 DATA 207,​109,​244,​2,​133,​207,​169,​0
32015 DATA 170,​157,​0,​6,​232,​224,​8,​208,​248,​168
32016 DATA 162,​7,​165,​209,​240,​4,​160,​7
32017 DATA 162,​1,​134,​211,​162,​0,​177,​206
32018 DATA 69,​210,​157,​0,​6,​200,​232,​228
32019 DATA 211,​208,​243,​160,​8,​162,​0,​134
32020 DATA 208,​30,​0,​6,​38,​208,​232,​224
32021 DATA 7,​208,​246,​32,​206,​6,​136,​208
32022 DATA 236,​230,​220,​165,​220,​197,​205,​208
32023 DATA 139,​169,​155,​32,​204,​6,​230,​209
32024 DATA 165,​209,​201,​2,​240,​3,​76,​25
32025 DATA 6,​96,​133,​208,​132,​210,​134,​212
32026 DATA 162,​64,​169,​0,​157,​72,​3,​157
32027 DATA 73,​3,​169,​11,​157,​66,​3,​165
32028 DATA 208,​32,​86,​228,​173,​255,​2,​208
32029 DATA 251,​164,​210,​166,​212,​96	

• Download link 1