1 DIMPL$(100),AN$(100):FORA=1TO40:I$=I$+"[192]":NEXT:FORA=1TO38:A$=A$+" ":NEXT
2 E$=CHR$(13):PRINT"[147][197][158]DYCJA PLIK[185]W"E$"[206][159]OWY RODZAJ PLIK[185]W"E$"[153][215]YJ[174]CIE
3 H$[178]" OPEN!(null)VAL(null)(null)(null)(null)!":R$[178]"ONONONONONON":[161]Q$:[139]Q$[178]"E"[137]22
4 [139]Q$[178]"(null)"[167][153]"LOAD       LIST(null)\POS@ G\POSWNY DYSK"H$"STOP":[137]104
5 [139]Q$[179][177]"N"[137]3
6 [153]"LOAD LIST(null)\POS@ ODPOWIEDNI DYSK DO NOWYCH DANYCH"[166]57)H$:[161]Q$:[139]Q$[179][177]E$[137]6
7 [159]2,8,2,"FN*,S,R":[132]2,T$:[160]2:[139]T$[178]""[167][159]1,8,15,"I":[160]1:[137]11
8 [153]"LOAD"[163]9)"(null)A TYM DYSKU SOR JU@"[166]53)"PLIKI: SYS"T$
9 [161]Q$:[139]Q$[167][138]1
10 [137]9
11 [129]O[178]1[164]80:N$[178]N$[170]"0":[130]:[153]"LOADLIST      (null)AZWA NOWEGO RODZAJU PLIKPOSW:
12 FORO=5TO34:PRINTTAB(O)"[145][163]":NEXT:PRINT"[145][145][153]
13 [133]"   ON";T$:[139]T$[178]""[176][195](T$)[177]30[137]13
14 T$[178]T$[170][200](A$,30[171][195](T$)):[153][163]50)"LIST   (null)AZWA ETYKIETY:
15 FORO=13TO27:PRINTTAB(O)"[145][163]":NEXT:PRINT"[145][145][159]
16 [153][163]11):[133]"ON";O$:[139]O$[178]""[176][195](O$)[177]15[137]16
17 [153]"LOAD (null)LIKI: PRINT"T$E$" CLR(null)AZWA: OPEN"O$E$"VERIFY"I$[166]57)"POKE(LIST(null)PRINT#/LIST(null)POKE)
18 GETQ$:IFQ$="N"GOTO11
19 IFQ$<>"T"GOTO18
20 OPEN2,8,2,"[164],S,W":PRINT#2,N$:CLOSE2:OPEN2,8,2,"[165]"+O$+",S,W":PRINT#2,T$
21 CLOSE2:OPEN2,8,2,"[163],S,W":PRINT#2,0;E$0:CLOSE2:W$=" 0":A=0:GOTO37
22 T$="":PRINT"[147]      [155][215]\[185]@ DYSK Z DANYMI"H$:GETQ$:IFQ$<>E$GOTO22
23 OPEN2,8,2,"[165]*,S,R":INPUT#2,T$:CLOSE2:IFT$=""THENOPEN1,8,15,"I":CLOSE1:GOTO22
24 OPEN2,8,2,"[163],S,R":INPUT#2,A,N:CLOSE2:PRINT"[147]"I$" [156][208]LIKI: "T$"  "I$"
25 [139]N[179]100[167]O[178]1:[153]" VALSYSDYCJA PRINTNOWEGO SYSPLIKU PRINT#NROPEN"A"DEF(S\POSWEKCONT"N"CMDDEF)":[137]27
26 [153]" (null)DEFTWORZENIE PRINTNOWEGO DEFPLIKU PRINT#NROPEN"A[170]1
27 W[178]A[171]O:[139]A[177]0[176]O[178]0[167][153]" (null)OREKTA PRINTSTAREGO PLIKU PRINT#NROPEN
28 GETQ$:IF(Q$="E"ORA=0)ANDO=1THENW=A:GOTO34
29 IFQ$="U"ANDO=0THENA=A+1:W=A:N=0:GOTO34
30 IFQ$=""ANDW<A-OTHENW=W+1
31 IFQ$=""ANDW>0THENW=W-1
32 PRINT"[145]"TAB(25)W"[157] ":IFQ$<>"K"GOTO28
33 N=100:WW=1
34 W$=STR$(W):W=0:PRINT"[147][158]  "T$" [156]NR[158]"W$SPC(58)"[155][208][152]OWR[185]T
35 [161]Q$:[139]Q$[178]""[137]35
36 [139]Q$[178]"P"[137]22
37 [159]1,8,15:[139]N[178]0[167]N[178]1:[137]43
38 [153][163]7)"ONPOKE. PRINT#. LIST. . DEF(null)GRYWANIE . LIST. PRINT#. POKE.LISTON
39 OPEN2,8,2,W$+",S,R":INPUT#1,O:IFO=0GOTO42
40 PRINTTAB(7)"[194]RAK TEGO PLIKU NA DYSKU![145]":GETQ$:IFQ$<>E$GOTO40
41 CLOSE2:PRINTA$:GOTO38
42 FORO=1TON:INPUT#2,PL$(O),AN$(O):W=W+LEN(PL$(O)+AN$(O)):NEXT:CLOSE2
43 CLOSE1:E=N:Q=0:TI$="000000
44 [153]"LOADDEF (null)ODZAJ: "T$" OPEN";
45 [139]N[179]100[167][153]"  (null)ZUPE\NIANIE LUB KOREKTA PLIKU NRSYS"W$A$:[137]47
46 [153]"   (null)OREKTA DANYCH STAREGO PLIKU NRSYS"W$A$
47 [153]"ON LISTLEN(null)(null)(null)1 DEF- POPRZEDNIE (1) $SYS-(null)ATN(null)RIGHT$(null) PRINT!!-(null)VAL(null)(null)
48 PRINT" [155][195][210][211][210]2 [150]- NAST[177]PNE (1)       [155][[156]-PIERWSZE
49 [153]" LIST< - POPRZEDNIE (20) OPEN(null)LISTESET  LIST]CLR-OSTATNIE
50 PRINT" [155]> - NAST[177]PNE (20)  [159][218][155]AMIANA   [153][211][155]\OWNIK
51 [139]N[179]100[167][153]"ON (null)VAL(null)(null)(null)(null)PRINT-WPISANIE  OPEN(null)LISTSTAWKAONONONCMDCMDCMDOPEN(null)LISTOPIA
52 PRINTTAB(27)"[145][211]+[210][158]-KOREKTA[149]"E$I$" [154][201]LO[174][188] DANYCH[159]"N" [194]AJT[185]W[156]"W"[152]<"TI$;
53 PRINT"[157][157][157][157][148]:> "
54 B=VAL(W$):PRINT"[206]UMER S\[185]WKA:      [151][211]\[185]WKA:[129]"B*100+1"-";:IFB=ATHENPRINT"[158]";
55 PRINTVAL(W$)*100+N;E$"[152]"I$"
56 [139]O[179]1[167]O[178]1
57 [139]O[177]N[167]O[178]N
58 [153][163]13)R$"LIST"O"CMD  "E$"- OPEN"PL$(O)A$E$"- PRINT"AN$(O)A$
59 [161]Q$:[139]Q$[178]""[167]O[178]O[171]1:[137]56
60 [139]Q$[178]""[167]O[178]O[170]1:[137]57
61 [139]Q$[178]","[167]O[178]O[171]20:[137]56
62 [139]Q$[178]"."[167]O[178]O[170]20:[137]57
63 [139]Q$[178]":"[167]O[178]1:[137]58
64 [139]Q$[178]";"[167]O[178]N:[137]58
65 [139]Q$[178]""[175]N[179]100[137]97
66 [139]Q$[178]""[175]N[179]100[167]N[178]N[170]1:PL$(N)[178]PL$(O):AN$(N)[178]AN$(O):O[178]N:[137]44
67 [139]Q$[178]"(null)"[137]80
68 [139]Q$[178]""[167]Q$[178]PL$(O):PL$(O)[178]AN$(O):AN$(O)[178]Q$:[137]44
69 [139]Q$[178]""[137]43
70 [139]Q$[178]E$[175]N[179]100[167]N[178]N[170]1:O[178]N:[137]99
71 [139]Q$[178]"!"[175]Q[178]1[167][138]1
72 [139]Q$[178]"!"[167]Q[178]1
73 [139]Q$[178]"$"[137]100
74 [139]Q$[179][177][199](141)[175]PL$(1)[179][177]""[137]59
75 [153]"PRINT#"I$[166]11)"DEF(null)OREKTA S\POSWKA NRSYS"O
76 O$[178]PL$(O):N$[178]AN$(O):[153]""I$:[159]1,0:[153]"ONCONTPOLSKIE:OPEN"[166]34)O$E$"ONPRINT# >SYS";
77 [132]1,O$:O$[178][200](O$,37)
78 [153]E$"VERIFY"I$"CONTZAGRANICZNE:PRINT"[166]30)N$E$"ONPRINT# >SYS";:[132]1,N$:N$[178][200](N$,37)
79 [160]1:W[178]W[171][195](PL$(O)[170]AN$(O))[170][195](O$[170]N$):PL$(O)[178]O$:AN$(O)[178]N$:[153]:[137]44
80 [153]" PDEFOLSKO-CONTZAGRANICZNY  ZCONTAGRANICZNO-DEFPOLSKI
81 GETQ$:IFQ$="Z"GOTO89
82 IFQ$<>"P"THEN81
83 PRINT"[145][152][208]ODAJ PIERWSZ[176] LITER[177] S\[185]WKA [150]POLSKIEGO.[145][151]":GOSUB95
84 FORO=1TON:N$=LEFT$(PL$(O),1):IFN$<>O$THENNEXT:GOTO44
85 PRINTTAB(13)R$"[155]"O"[157]  "E$"- "N$"[159]"MID$(PL$(O),2)A$E$"- [153]"AN$(O)A$
86 GETQ$:IFO=NORQ$=E$GOTO44
87 IFQ$=" "THENNEXT
88 GOTO86
89 PRINT"[145][152][208]ODAJ PIERWSZ[176] LITER[177] S\[185]WKA [154]ZAGRANICZ.[145][151]":GOSUB95
90 FORO=1TON:N$=LEFT$(AN$(O),1):IFN$<>O$THENNEXT:GOTO44
91 PRINTTAB(13)R$"[155]"O"[157]  "E$"- [159]"PL$(O)A$E$"- "N$"[153]"MID$(AN$(O),2)A$
92 GETQ$:IFO=NORQ$=E$GOTO44
93 IFQ$=" "THENNEXT
94 GOTO92
95 GETO$:IFO$=""ORASC(O$+A$)<63ORASC(O$+A$)>218GOTO95
96 PRINTI$" [154][211][208][193][195][197][156]-NAST[177]PNE S\[185]WKO   [154][210][197][212][213][210][206][156]-WYJ[174]CIE[145][145][145]":RETURN
97 FORB=NTOOSTEP-1:PL$(B+1)=PL$(B):AN$(B+1)=AN$(B):NEXT:PL$(O)="-":AN$(O)="-
98 N[178]N[170]1:W[178]W[170]2
99 [153]"PRINT#"I$[166]11)"CLR(null)OWE S\POSWKO NR"O:[137]76
100 [139]N[177]E[167][153]N[171]E"WPISANYCH. (null)ZYBKO^LOG:SYS"[181](TI[173]60[173](N[171]E))"S/1 S\POSWKO
101 POKE53280,9:IFWW<1THENOPEN2,8,2,"@:[163],S,W":PRINT#2,A;E$N:CLOSE2
102 OPEN2,8,2,"@:"+W$+",S,W":FORO=1TON:PRINT#2,PL$(O)E$AN$(O):NEXT:CLOSE2
103 POKE53280,0:GOTO43
104 GETQ$:IFQ$<>E$GOTO104
105 PRINT"G[207]104"E$"G[207]104":POKE631,13:POKE198,1:LOAD"/",8