home *** CD-ROM | disk | FTP | other *** search
/ Inverse 8 / Inverse_08_19xx_Oxygen_Side_B.d64 / e (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  106 lines
  1. 1 dimpl$(100),an$(100):fora=1to40:i$=i$+"[192]":next:fora=1to38:a$=a$+" ":next
  2. 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. 3 h$[178]" open!(NULL)val(NULL)(NULL)(NULL)(NULL)!":r$[178]"onononononon":[161]q$:[139]q$[178]"e"[137]22
  4. 4 [139]q$[178]"(NULL)"[167][153]"load       list(NULL)\pos@ g\poswny dysk"h$"stop":[137]104
  5. 5 [139]q$[179][177]"n"[137]3
  6. 6 [153]"load list(NULL)\pos@ odpowiedni dysk do nowych danych"[166]57)h$:[161]q$:[139]q$[179][177]e$[137]6
  7. 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. 8 [153]"load"[163]9)"(NULL)a tym dysku sor ju@"[166]53)"pliki: sys"t$
  9. 9 [161]q$:[139]q$[167][138]1
  10. 10 [137]9
  11. 11 [129]o[178]1[164]80:n$[178]n$[170]"0":[130]:[153]"loadlist      (NULL)azwa nowego rodzaju plikposw:
  12. 12 foro=5to34:printtab(o)"[145][163]":next:print"[145][145][153]
  13. 13 [133]"   on";t$:[139]t$[178]""[176][195](t$)[177]30[137]13
  14. 14 t$[178]t$[170][200](a$,30[171][195](t$)):[153][163]50)"list   (NULL)azwa etykiety:
  15. 15 foro=13to27:printtab(o)"[145][163]":next:print"[145][145][159]
  16. 16 [153][163]11):[133]"on";o$:[139]o$[178]""[176][195](o$)[177]15[137]16
  17. 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. 18 getq$:ifq$="n"goto11
  19. 19 ifq$<>"t"goto18
  20. 20 open2,8,2,"[164],s,w":print#2,n$:close2:open2,8,2,"[165]"+o$+",s,w":print#2,t$
  21. 21 close2:open2,8,2,"[163],s,w":print#2,0;e$0:close2:w$=" 0":a=0:goto37
  22. 22 t$="":print"[147]      [155][215]\[185]@ dysk z danymi"h$:getq$:ifq$<>e$goto22
  23. 23 open2,8,2,"[165]*,s,r":input#2,t$:close2:ift$=""thenopen1,8,15,"i":close1:goto22
  24. 24 open2,8,2,"[163],s,r":input#2,a,n:close2:print"[147]"i$" [156][208]liki: "t$"  "i$"
  25. 25 [139]n[179]100[167]o[178]1:[153]" valsysdycja printnowego syspliku print#nropen"a"def(s\poswekcont"n"cmddef)":[137]27
  26. 26 [153]" (NULL)deftworzenie printnowego defpliku print#nropen"a[170]1
  27. 27 w[178]a[171]o:[139]a[177]0[176]o[178]0[167][153]" (NULL)orekta printstarego pliku print#nropen
  28. 28 getq$:if(q$="e"ora=0)ando=1thenw=a:goto34
  29. 29 ifq$="u"ando=0thena=a+1:w=a:n=0:goto34
  30. 30 ifq$=""andw<a-othenw=w+1
  31. 31 ifq$=""andw>0thenw=w-1
  32. 32 print"[145]"tab(25)w"[157] ":ifq$<>"k"goto28
  33. 33 n=100:ww=1
  34. 34 w$=str$(w):w=0:print"[147][158]  "t$" [156]nr[158]"w$spc(58)"[155][208][152]owr[185]t
  35. 35 [161]q$:[139]q$[178]""[137]35
  36. 36 [139]q$[178]"p"[137]22
  37. 37 [159]1,8,15:[139]n[178]0[167]n[178]1:[137]43
  38. 38 [153][163]7)"onpoke. print#. list. . def(NULL)grywanie . list. print#. poke.liston
  39. 39 open2,8,2,w$+",s,r":input#1,o:ifo=0goto42
  40. 40 printtab(7)"[194]rak tego pliku na dysku![145]":getq$:ifq$<>e$goto40
  41. 41 close2:printa$:goto38
  42. 42 foro=1ton:input#2,pl$(o),an$(o):w=w+len(pl$(o)+an$(o)):next:close2
  43. 43 close1:e=n:q=0:ti$="000000
  44. 44 [153]"loaddef (NULL)odzaj: "t$" open";
  45. 45 [139]n[179]100[167][153]"  (NULL)zupe\nianie lub korekta pliku nrsys"w$a$:[137]47
  46. 46 [153]"   (NULL)orekta danych starego pliku nrsys"w$a$
  47. 47 [153]"on listlen(NULL)(NULL)(NULL)1 def- poprzednie (1) $sys-(NULL)atn(NULL)right$(NULL) print!!-(NULL)val(NULL)(NULL)
  48. 48 print" [155][195][210][211][210]2 [150]- nast[177]pne (1)       [155][[156]-pierwsze
  49. 49 [153]" list< - poprzednie (20) open(NULL)listeset  list]clr-ostatnie
  50. 50 print" [155]> - nast[177]pne (20)  [159][218][155]amiana   [153][211][155]\ownik
  51. 51 [139]n[179]100[167][153]"on (NULL)val(NULL)(NULL)(NULL)(NULL)print-wpisanie  open(NULL)liststawkaonononcmdcmdcmdopen(NULL)listopia
  52. 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. 53 print"[157][157][157][157][148]:> "
  54. 54 b=val(w$):print"[206]umer s\[185]wka:      [151][211]\[185]wka:[129]"b*100+1"-";:ifb=athenprint"[158]";
  55. 55 printval(w$)*100+n;e$"[152]"i$"
  56. 56 [139]o[179]1[167]o[178]1
  57. 57 [139]o[177]n[167]o[178]n
  58. 58 [153][163]13)r$"list"o"cmd  "e$"- open"pl$(o)a$e$"- print"an$(o)a$
  59. 59 [161]q$:[139]q$[178]""[167]o[178]o[171]1:[137]56
  60. 60 [139]q$[178]""[167]o[178]o[170]1:[137]57
  61. 61 [139]q$[178]","[167]o[178]o[171]20:[137]56
  62. 62 [139]q$[178]"."[167]o[178]o[170]20:[137]57
  63. 63 [139]q$[178]":"[167]o[178]1:[137]58
  64. 64 [139]q$[178]";"[167]o[178]n:[137]58
  65. 65 [139]q$[178]""[175]n[179]100[137]97
  66. 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. 67 [139]q$[178]"(NULL)"[137]80
  68. 68 [139]q$[178]""[167]q$[178]pl$(o):pl$(o)[178]an$(o):an$(o)[178]q$:[137]44
  69. 69 [139]q$[178]""[137]43
  70. 70 [139]q$[178]e$[175]n[179]100[167]n[178]n[170]1:o[178]n:[137]99
  71. 71 [139]q$[178]"!"[175]q[178]1[167][138]1
  72. 72 [139]q$[178]"!"[167]q[178]1
  73. 73 [139]q$[178]"$"[137]100
  74. 74 [139]q$[179][177][199](141)[175]pl$(1)[179][177]""[137]59
  75. 75 [153]"print#"i$[166]11)"def(NULL)orekta s\poswka nrsys"o
  76. 76 o$[178]pl$(o):n$[178]an$(o):[153]""i$:[159]1,0:[153]"oncontpolskie:open"[166]34)o$e$"onprint# >sys";
  77. 77 [132]1,o$:o$[178][200](o$,37)
  78. 78 [153]e$"verify"i$"contzagraniczne:print"[166]30)n$e$"onprint# >sys";:[132]1,n$:n$[178][200](n$,37)
  79. 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. 80 [153]" pdefolsko-contzagraniczny  zcontagraniczno-defpolski
  81. 81 getq$:ifq$="z"goto89
  82. 82 ifq$<>"p"then81
  83. 83 print"[145][152][208]odaj pierwsz[176] liter[177] s\[185]wka [150]polskiego.[145][151]":gosub95
  84. 84 foro=1ton:n$=left$(pl$(o),1):ifn$<>o$thennext:goto44
  85. 85 printtab(13)r$"[155]"o"[157]  "e$"- "n$"[159]"mid$(pl$(o),2)a$e$"- [153]"an$(o)a$
  86. 86 getq$:ifo=norq$=e$goto44
  87. 87 ifq$=" "thennext
  88. 88 goto86
  89. 89 print"[145][152][208]odaj pierwsz[176] liter[177] s\[185]wka [154]zagranicz.[145][151]":gosub95
  90. 90 foro=1ton:n$=left$(an$(o),1):ifn$<>o$thennext:goto44
  91. 91 printtab(13)r$"[155]"o"[157]  "e$"- [159]"pl$(o)a$e$"- "n$"[153]"mid$(an$(o),2)a$
  92. 92 getq$:ifo=norq$=e$goto44
  93. 93 ifq$=" "thennext
  94. 94 goto92
  95. 95 geto$:ifo$=""orasc(o$+a$)<63orasc(o$+a$)>218goto95
  96. 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. 97 forb=ntoostep-1:pl$(b+1)=pl$(b):an$(b+1)=an$(b):next:pl$(o)="-":an$(o)="-
  98. 98 n[178]n[170]1:w[178]w[170]2
  99. 99 [153]"print#"i$[166]11)"clr(NULL)owe s\poswko nr"o:[137]76
  100. 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. 101 poke53280,9:ifww<1thenopen2,8,2,"@:[163],s,w":print#2,a;e$n:close2
  102. 102 open2,8,2,"@:"+w$+",s,w":foro=1ton:print#2,pl$(o)e$an$(o):next:close2
  103. 103 poke53280,0:goto43
  104. 104 getq$:ifq$<>e$goto104
  105. 105 print"g[207]104"e$"g[207]104":poke631,13:poke198,1:load"/",8
  106.