home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inverse 8
/
Inverse_08_19xx_Oxygen_Side_C.d64
/
s
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
44 lines
1 foro=1to40:i$=i$+"[192]":next:e$=chr$(13):u$=" [159]![210][197][212][213][210][206]!
2 t$[178]"":[153]" list(NULL)\pos@ dysk z danymi"u$"load":[161]q$:[139]q$[179][177]e$[137]2
3 [159]2,8,2,"fn*,s,r":[132]2,t$:[160]2:[139]t$[178]""[167][159]1,8,15,"i":[160]1:[137]2
4 [153]"load clr(NULL)liki: "t$[166]59)"poke(list(NULL)print#/list(NULL)poke)list
5 getq$:ifq$="n"goto2
6 ifq$<>"t"goto5
7 printtab(9)"[145][201]lo[174][188] plik[185]w:":getq$:ifq$<"2"orq$>"9"goto7
8 h=val(q$):print"[158][145]"tab(22)h:open2,8,2,"[163],s,r":input#2,a,b:close2:ifa<hgoto12
9 x=int(a/h+1):print" [155][195]z[177][174][188] s\ownika: 1 -"x"[153]
10 [153][163]16)"on";:[133]q$:o[178][197](q$):[139]o[171][181](o)[177]0[176]o[179]1[176]o[177]x[137]10
11 m[178]o[172]h[171]h:[139]o[179]x[167]a[178]m[170]h[171]1:b[178]100
12 [153]"load list(NULL)\pos@ odpowiedni dysk"u$:[161]q$:[139]q$[179][177]e$[137]12
13 l[178](a[171]m)[172]100[170]b:[153]"loaddef(NULL)grywanieopen"l"defs\poswek:"e$"clr(NULL)lik nr:cont
14 dima$(l,1):open1,8,15:ifint(a/h)=a/hgoto17
15 foro=mtoa-1:printo:p$=str$(o):gosub35
16 forx=1to100:n=n+1:input#2,a$(n,0),a$(n,1):next:close2:next
17 print"[153]"a:p$=str$(a):gosub35
18 forx=1tob:n=n+1:input#2,a$(n,0),a$(n,1):next:close2:close1:m=1:j$=".....
19 [139]m[178]1[167][153]"loadpoke print# list (NULL)\ownik zagraniczno-polski list print# poke ":[137]21
20 [153]"loadpoke print# list (NULL)\ownik polsko-zagraniczny list print# poke "
21 [153]"onwaitsys^^list - zmiana typu s\ownika sys//list - wyj^cie
22 print"[145] [152][215]pisz pierwsze litery s\[185]wka:
23 [153]""i$:q$[178]"
24 print"[145][152]s\.[155]"n"[151](^^,//,= ) [159]";:inputq$:a=len(q$):ifa=0ora>6goto24
25 ifq$="^^"thenm=abs(m-1):goto19
26 ifq$="//"goto38
27 ifleft$(q$,1)="="thena=val(mid$(q$,2)):goto33
28 b=0:foro=1to5:ifleft$(q$,o)=left$(j$,o)thenb=b+1
29 next:print"[145][144]"i$"[145]";:x=0:t$=mid$(q$,b+1,a-b):a=a-b:b=b+1
30 foro=1ton:ift$=mid$(a$(o,m),b,a)thengosub32
31 next:print" '[153]"q$"' :[154]"x:goto23
32 print"[157][152]"o""a$(o,m)"[151][192][158]"a$(o,abs(m-1)):x=x+1:return
33 ifa-int(a)=0anda>0anda<n-8thenprint"[145][144]"i$"[145]";:foro=atoa+9:gosub32:next
34 goto23
35 open2,8,2,p$+",s,r":input#1,x:ifx=0thenreturn
36 print"[145][155][194]rak tego pliku na dysku!":getq$:ifq$<>e$goto36
37 close2:print"[145][144]"mid$(i$,9)"[154]":goto35
38 print"[147][211][150]\ownik"e$"[155][215]yj[174]cie
39 [161]q$:[139]q$[178]"s"[167][138]1
40 [139]q$[179][177]"(NULL)"[137]39
41 [153]"load list(NULL)\pos@ g\poswny dysk"u$"stop
42 getq$:ifq$<>e$goto42
43 print"g[207]42"e$"g[207]42":poke631,13:poke198,1:load"/",8