home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inverse 8
/
Inverse_08_19xx_Oxygen_Side_B.d64
/
n
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
144 lines
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