1 FORO=1TO40:I$=I$+"[192]":NEXT:V$="  [146][158] ^^[155] - ZMIANA TYPU S\OWNIKA    [158]//[155] - [205][197][206][213]
2 V$[178]V$[170]"      PRINT#(null)PISZ PIERWSZE LITERY S\POSWKA:":E$[178][199](13):U$[178]" OPEN!(null)VAL(null)(null)(null)(null)!
3 T$="":PRINT"      [155][215]\[185]@ DYSK Z DANYMI"U$"[147]":GETQ$:IFQ$<>E$GOTO3
4 OPEN2,8,2,"[165]*,S,R":INPUT#2,T$:CLOSE2:IFT$=""THENOPEN1,8,15,"I":CLOSE1:GOTO3
5 PRINT"[147][156] [210]ODZAJ: "T$:OPEN2,8,2,"[163],S,R":INPUT#2,A,N:CLOSE2:OPEN2,8,2,"[164],S,R
6 [132]2,Y$:[160]2:Q[178]0:[139]N[177]19[167][153][163]48)"PRINT#(null)STATNI PLIK-S\POSWEK:"N:[137]8
7 [153]"":A[178]A[171]1:N[178]100:[139]A[179]0[137]3
8 [129]O[178]0[164]A:B[178][197]([202](Y$,O[170]1,1)):Y[178]Y[170]B:[139]B[179][177]0[167]Q[178]Q[170]1
9 [130]:[153][163]48)"FOR(null)PANOWYWANYCH:LIST"Q"POKE/PRINT#"O[166]57)"DEF(null)SZYSTKICH PKT:CLR"Y
10 [153]"OPEN(null)LIK NR       CONT(null)PANOWANIE:"E$E$Y$
11 [153]" PRINT#(DEFLEN(null)(null)(null)PRINT#-WYBPOSR DEF(null)VAL(null)(null)(null)(null)PRINT#-WGRANIE DEFASC1PRINT#-POWRPOST)ONONONONON":O[178]A:Y[178]55696
12 [153][163]7)"ON"O"CMD ":[151]Y[170]O[171]1,14:[151]Y[170]O,13:[151]Y[170]O[170]1,14
13 [161]Q$:[139]Q$[178]""[175]O[179]A[167]O[178]O[170]1:[137]12
14 [139]Q$[178]""[175]O[177]0[167]O[178]O[171]1:[137]12
15 [139]Q$[178]"INPUT"[167][138]1
16 [139]Q$[179][177]E$[137]13
17 R$[178][196](O):[139]O[179]A[167]N[178]100
18 [129]O[178]1[164]38:A$[178]A$[170]" ":[130]:[159]1,8,15:[134]PL$(N),AN$(N),C%(N),D%(N):J$[178]".....
19 PRINT""I$SPC(47)"[151]. [152]. [155]. . [150][215]GRYWANIE . [155]. [152]. [151].[155][145]
20 [159]2,8,2,R$[170]",S,R":[132]1,O:[139]O[178]0[137]25
21 [160]2:[153]"  PEEKRAK TEGO PLIKU NA DYSKU! POKE(PRINT#ASC1-POWRPOSTPOKE)ON
22 GETQ$:IFQ$="[133]"THENCLOSE1:RUN1
23 IFQ$<>E$GOTO22
24 PRINTA$:GOTO19
25 FORO=1TON:INPUT#2,PL$(O),AN$(O):NEXT:CLOSE2:CLOSE1:Y=1
26 FORQ=1TON:C%(Q)=0:NEXT:PRINT"[147] [153] "T$" [155]NR[159]"R$"  [146]"I$SPC(53)"[211][159]\OWNIK
27 [153][163]53)"(null)RZEGLORD"[166]59)"PRINT#((null)LEFT$RIGHT$ASC(null)+(null)->0) (null)DEFD\ORCZENIE:SYS"E"PRINT#/LIST"N"PRINT#>PRINT"N[171]E
28 Q[178]0:[153][163]9)" CONT OPEN PRINT (null)PRINTAPOZNANIE OPEN CONT  
29 PRINTTAB(8)"[149]  [129] [150] [158] [206][158]AUKA G\[185]WNA [150] [129]  [149] [146]"SPC(63)"[155][201][156]NNY PLIK
30 [153][163]53)"LIST(null)PRINT#YJ^CIE"E$I$[166]48)"DEF(null)OZIOM NAUKI G\POSWNEJ:OPEN"Y;
31 [161]Q$:[139]Q$[178]"P"[167]O[178]0:[137]59
32 [139]Q$[178]"O"[175]N[177]20[137]68
33 [139]Q$[178]"(null)"[167][129]Q[178]1[164]N:D%(Q)[178]0:[130]:E[178]0:[137]26
34 [139]Q$[178]"Z"[167]D[178]0:A[178]0:TI$[178]"000000":[137]75
35 [139]Q$[178]"N"[167]D[178]0:J[178]0:M[178]0:TI$[178]"000000":[153]"LOAD":[137]96
36 [139]Q$[178]"RIGHT$"[167][138]1
37 [139]Q$[178]"(null)"[167][153]"LOAD       LIST(null)\POS@ G\POSWNY DYSK "U$"STOP":[137]142
38 [139]Q$[177]"0"[175]Q$[179]"4"[167]Y[178][197](Q$):[153]"CMDCMDCMD"Y;
39 [139]Q$[179][177]"S"[137]31
40 [153]"LOADPOKE  PRINT#   LIST  (null)\OWNIK ZAGRANICZNO-POLSKI  PRINT#   POKE"V$
41 [153]""I$:A[178]0:C[178]0:Q$[178]"
42 INPUT"[145][151](^^,//) [159]";Q$:B=LEN(Q$):IFB=0ORB>6GOTO42
43 IFQ$="^^"GOTO49
44 IFQ$="//"GOTO26
45 PRINT"[145][144]"I$"[145]";:FORO=1TO5:IFLEFT$(Q$,O)=LEFT$(J$,O)THENA=A+1
46 NEXT:FORO=1TON:IFMID$(Q$,A+1,B-A)=MID$(AN$(O),A+1,B-A)THENGOSUB48
47 NEXT:PRINT"  '[153]"Q$"' :[154]"C:GOTO41
48 PRINT"[157][152]"O""AN$(O)"[151][192][158]"PL$(O):C=C+1:RETURN
49 PRINT"[147][151]  [152]   [155]  [211]\OWNIK POLSKO-ZAGRANICZNY  [152]   [151]"V$
50 PRINT""I$:A=0:C=0:Q$="
51 [133]"ONPOKE(^^,//) OPEN";Q$:B[178][195](Q$):[139]B[178]0[176]B[177]6[137]51
52 [139]Q$[178]"^^"[137]40
53 [139]Q$[178]"//"[137]26
54 [153]"ONSTOP"I$"ON";:[129]O[178]1[164]5:[139][200](Q$,O)[178][200](J$,O)[167]A[178]A[170]1
55 [130]:[129]O[178]1[164]N:[139][202](Q$,A[170]1,B[171]A)[178][202](PL$(O),A[170]1,B[171]A)[167][141]57
56 [130]:[153]"  'PRINT"Q$"' :CONT"C:[137]50
57 [153]"CMDPRINT#"O""PL$(O)"POKETANSYS"AN$(O):C[178]C[170]1:[142]
58 [139]O[179]0[167]O[178]10[172][181]((N[171]1)[173]10)
59 A[178]0:[153]"LOADPOKE  PRINT#   LIST (null) R Z E G L OR D  S \ POS W E K PRINT#   POKE  PRINT
60 PRINT"[145]  [211][208][193][195][197][155]-NASTEPNE [153][195]=[155]-POPRZEDNIE [153][198]1[154]-[205][197][206][213][149]"E$I$;:IFO=NTHENO=0
61 O=O+1:A=A+1:GOSUB67
62 IFA<10ANDO<NGOTO61
63 GETQ$:IFQ$=" "GOTO59
64 IFPEEK(653)=2THENO=O-A-10:GOTO58
65 IFQ$="[133]"GOTO26
66 GOTO63
67 PRINT"[157][152]"O"[158]"AN$(O)"[157][144]"E$O"[157][157][150]"PL$(O):RETURN
68 PRINT"[147][151]  [152]  [155] [207] D \ [176] C Z E N I E [152]   [153] [198]1 [159]-WYJ[174]CIE":FORQ=1TON:GOSUB74
69 GETQ$:IFQ$=""ANDN-E>20THENE=E+1-D%(Q):D%(Q)=1:GOTO73
70 IFQ$="[133]"GOTO26
71 IFQ$<>" "GOTO69
72 E=E-D%(Q):D%(Q)=0
73 PRINT"[145][145]";:GOSUB74:NEXT:GOTO26
74 O$=RIGHT$(STR$(Q),2):PRINTCHR$(152-D%(Q))O$"[153]"AN$(Q)E$"[144]"O$""PL$(Q):RETURN
75 A=A+1:PRINT"[147][151]  [152]   [155]     [218][160][193][160][208][160][207][160][218][160][206][160][193][160][206][160][201] [197]      [152]   [151]  [129]
76 [153]" ON(null)TAN NAUKI:   PRINT#LENZAS:LIST"TI$"CMDCMDCMDCMDSAVE:   PRINTASC1 CONT- (null)VAL(null)(null)":[129]O[178]1[164]D[173]N[172]39
77 [153]" ";:[130]:[153]"ABS":B[178][181]([187](1)[172]4)[170]1
78 [153]"    (null)YTANIE NRSYS"A"  FORSTR$O ZAPOZNANIA:LIST"N[171]D""E$I$
79 [129]O[178]1[164]4:A(O)[178][181]([187](1)[172]N)[170]1:[130]
80 [139]C%(A(B))[178]1[167]A(B)[178][181]([187](1)[172]N)[170]1:[137]80
81 [129]X[178]1[164]3:[129]O[178]X[170]1[164]4:[139]AN$(A(X))[178]AN$(A(O))[137]79
82 [130]O,X:[153]"ON: PRINT"PL$(A(B))"":[129]O[178]1[164]4:[153]"CMDPOKE"O"CMD)OPEN"AN$(A(O)):[130]
83 [153]""I$[166]47)"CLR(null)ODAJ ODPOWIEDNI NUMER:SYS
84 GETQ$:IFQ$="[133]"GOTO26
85 IFQ$<"1"ORQ$>"4"GOTO84
86 O=VAL(Q$)
87 PRINTTAB(40*O-1)O""TAB(40*B+2)AN$(A(B))""A$"[145][145][155]
88 [139]O[178]B[167]D[178]D[170]1:C%(A(B))[178]1:[153][163]91)D"CONTDOBRA ODPOWIED/":[137]90
89 [153]"FORCMD"O"CMD:PRINT#"PL$(A(O))E$[163]51)"LIST"A[171]D"DEFZ\A ODPOWIED/
90 PRINTTAB(55)"[207]CENA:[129]"INT(D/A*100)"[157]%
91 [161]Q$:[139]Q$[178]"INPUT"[137]26
92 [139]Q$[178]""[137]91
93 [139]D[179]N[137]75
94 R[178][197]([200](TI$,2))[172]60[170][197]([202](TI$,3,2))
95 [153]"LOAD     OPEN  (null)APOZNA\E^ SI> ZE S\POSWKAMI.OPEN  ":[129]A[178]0[164]1300:[130]:[137]26
96 [153]" (null)DCZYT: LIST(null)\POS@ DYSK DO SYSODCZYTU"U$E$"  (null)AUKA: OPEN!(null)(null)ATNLENVAL!
97 GETQ$:IFE>0ORQ$=" "GOTO106
98 IFQ$<>E$GOTO97
99 PRINT"[147]":Q$="":OPEN2,8,2,"[,S,R":INPUT#2,Q$:IFR$=" "+Q$GOTO102
100 CLOSE2:OPEN1,8,15,"I":CLOSE1:IFQ$=""GOTO96
101 PRINT"       [150][218]APIS BY\ DLA [153]"Q$" [150]A NIE[153]"R$:GOTO96
102 INPUT#2,Q$,W$,O$,Y,J,M,Q,D:CLOSE2:TI$=O$:Q$=Q$+W$:B=0:FORO=1TON
103 C%(O)=ASC(MID$(Q$,O,1)+"@")-64:B=B+C%(O):NEXT:IFB<N*YGOTO106
104 PRINTTAB(10)"[155][205]ATERIA\ OPANOWANY![145]":GETQ$:IFQ$=""GOTO104
105 GOTO26
106 C=INT(RND(1)*N)+1:IFC%(C)=YORD%(C)=1GOTO106
107 J=J+1:PRINT"[147]"TAB(11)"[159][208]YTANIE NR[153]"J"   [152][208]OZIOM:[150]"Y""E$I$"[155]! [158]"PL$(C)"
108 Q$[178]"":[133]"OPENON";Q$:[139][195](Q$)[177]37[137]108
109 [153]""I$E$:[139]Q$[178]AN$(C)[176]Q$[170]"!"[178]AN$(C)[176]Q$[170]"?"[178]AN$(C)[137]114
110 C%(C)[178]0:D[178][195](Q$):O[178][195](AN$(C)):[153]"LISTONONONONON* PRINT";
111 [129]X[178]1[164]O:O$[178][202](AN$(C),X,1):W$[178][202](Q$,X,1):[139]O$[179][177]W$[167][153]"";
112 [153]O$"PRINT";:[130]:[139]D[177]O[167][129]X[178]O[170]1[164]D:[153]"POKETO";:[130]
113 D[178]0:[153]E$[166]131)"OPEN"J[171]M"Z\A CONTODPOWIED/":[137]116
114 C%(C)[178]C%(C)[170]1:M[178]M[170]1:D[178]D[170]1:[139]D[177]Q[167]Q[178]D
115 [153][163]10)"ONOPEN"M"DOBRA CONTODPOWIED/
116 B=0:PRINTTAB(11)"[152][195]ZAS NAUKI: [155]"TI$"[157][157][157][157][148]:  
117 [153][163]8)"(null)KUTECZNO^LOG NAUKI:OPEN"[181](M[173]J[172]N)"CMD%"E$[163]11)"CLRMIDOPR:"Q"PRINT#>CLR"D
118 [153][163]10)"(null)CENACONT"C"PYTANIA =PRINT#"C%(C):X[178]0:[129]O[178]1[164]N:[139]C%(O)[178]Y[167]X[178]X[170]1
119 B[178]B[170]C%(O):[130]:[153]"      DEFSTR$O OPANOWANIA:PRINT"Y[172](N[171]E)[171]B"DEFT.DB.ODP.PRINT
120 PRINTTAB(7)"[155][206]AUCZONYCH S\[185]WEK:[158]"X"[152]/[159]"N-E"[151]"E$I$:IFX=N-EGOTO129
121 PRINT" ![210][197][212][213][210][206]!     [155][215][152]YJ[174]CIE   [150][218][129]APIS
122 [161]Q$:[139]Q$[178]E$[167][153]"ON        ":[137]106
123 [139]Q$[178]""[137]26
124 [139]Q$[179][177]""[137]122
125 [153]"ON     LIST(null)\POS@ DYSK DO SYSZAPISU"U$:[161]Q$:[139]Q$[179][177]E$[137]125
126 [153]"ON"A$:Q$[178]"":[129]O[178]1[164]N:Q$[178]Q$[170][199](C%(O)[170]64):[130]:[159]2,8,2,"@:[,S,W
127 PRINT#2,R$E$LEFT$(Q$,50)E$MID$(Q$,51)E$TI$E$Y;E$J;E$M;E$Q;E$D:IFW=1GOTO140
128 CLOSE2:GOTO106
129 PRINT"[147][153]"SPC(9)"[207]PANOWA\E[174] MATERIA\!!!"SPC(58)"[155][213]CZY\E[174] SI[177][158]"N-E"[155]S\[185]WEK
130 [153]" PRZEZSYS"[197]([200](TI$,2))[172]60[170][197]([202](TI$,3,2))"LISTMINUT ";
131 [153]"+SYS"R"LISTMINUT - ZAPOZNANIE
132 PRINTTAB(13)"NA POZIOMIE[158]"Y;E$"      [159][207][155]DPOWIEDZIA\E[174] NA[158]"J"[155]PYTA[170].
133 A[178][197](R$):[153]"   RIGHT$LO^LOG Z\YCH ODPOWIEDZI WYNOSISYS"J[171]M"CMDLIST,
134 O=VAL(MID$(Y$,A+1,1))+2*Y-1:PRINT"       A ZATEM TWOJA SKUTECZNO[174][188]
135 [153]"    DOBREGO ODPOWIADANIA WYNOSISYS"[181](M[173]J[172]N)"CMD%
136 IFN<100ORE>0THENW=1:GOTO125
137 Q$="":PRINT"      [155][215]\[185]@ DYSK Z DANYMI"U$"[145]"E$A$"[145]":GETQ$:IFQ$<>E$GOTO137
138 OPEN2,8,2,"[164]":CLOSE2:OPEN1,8,15:INPUT#1,Q$:CLOSE1:IFQ$<>"00"GOTO137
139 OPEN2,8,2,"@:[164],S,W":PRINT#2,LEFT$(Y$,A)+RIGHT$(STR$(O),1)+MID$(Y$,A+2)
140 CLOSE2:GETQ$:IFQ$<>E$GOTO140
141 GOTO26
142 GETQ$:IFQ$<>E$GOTO142
143 PRINT"G[207]142"E$"G[207]142":POKE631,13:POKE198,1:LOAD"/",8