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