home *** CD-ROM | disk | FTP | other *** search
/ Inverse 8 / Inverse_08_19xx_Oxygen_Side_B.d64 / n (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  144 lines
  1. 1 foro=1to40:i$=i$+"[192]":next:v$="  [146][158] ^^[155] - zmiana typu s\ownika    [158]//[155] - [205][197][206][213]
  2. 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. 3 t$="":print"      [155][215]\[185]@ dysk z danymi"u$"[147]":getq$:ifq$<>e$goto3
  4. 4 open2,8,2,"[165]*,s,r":input#2,t$:close2:ift$=""thenopen1,8,15,"i":close1:goto3
  5. 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. 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. 7 [153]"":a[178]a[171]1:n[178]100:[139]a[179]0[137]3
  8. 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. 9 [130]:[153][163]48)"for(NULL)panowywanych:list"q"poke/print#"o[166]57)"def(NULL)szystkich pkt:clr"y
  10. 10 [153]"open(NULL)lik nr       cont(NULL)panowanie:"e$e$y$
  11. 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. 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. 13 [161]q$:[139]q$[178]""[175]o[179]a[167]o[178]o[170]1:[137]12
  14. 14 [139]q$[178]""[175]o[177]0[167]o[178]o[171]1:[137]12
  15. 15 [139]q$[178]"input"[167][138]1
  16. 16 [139]q$[179][177]e$[137]13
  17. 17 r$[178][196](o):[139]o[179]a[167]n[178]100
  18. 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. 19 print""i$spc(47)"[151]. [152]. [155]. . [150][215]grywanie . [155]. [152]. [151].[155][145]
  20. 20 [159]2,8,2,r$[170]",s,r":[132]1,o:[139]o[178]0[137]25
  21. 21 [160]2:[153]"  peekrak tego pliku na dysku! poke(print#asc1-powrpostpoke)on
  22. 22 getq$:ifq$="[133]"thenclose1:run1
  23. 23 ifq$<>e$goto22
  24. 24 printa$:goto19
  25. 25 foro=1ton:input#2,pl$(o),an$(o):next:close2:close1:y=1
  26. 26 forq=1ton:c%(q)=0:next:print"[147] [153] "t$" [155]nr[159]"r$"  [146]"i$spc(53)"[211][159]\ownik
  27. 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. 28 q[178]0:[153][163]9)" cont open print (NULL)printapoznanie open cont  
  29. 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. 30 [153][163]53)"list(NULL)print#yj^cie"e$i$[166]48)"def(NULL)oziom nauki g\poswnej:open"y;
  31. 31 [161]q$:[139]q$[178]"p"[167]o[178]0:[137]59
  32. 32 [139]q$[178]"o"[175]n[177]20[137]68
  33. 33 [139]q$[178]"(NULL)"[167][129]q[178]1[164]n:d%(q)[178]0:[130]:e[178]0:[137]26
  34. 34 [139]q$[178]"z"[167]d[178]0:a[178]0:ti$[178]"000000":[137]75
  35. 35 [139]q$[178]"n"[167]d[178]0:j[178]0:m[178]0:ti$[178]"000000":[153]"load":[137]96
  36. 36 [139]q$[178]"right$"[167][138]1
  37. 37 [139]q$[178]"(NULL)"[167][153]"load       list(NULL)\pos@ g\poswny dysk "u$"stop":[137]142
  38. 38 [139]q$[177]"0"[175]q$[179]"4"[167]y[178][197](q$):[153]"cmdcmdcmd"y;
  39. 39 [139]q$[179][177]"s"[137]31
  40. 40 [153]"loadpoke  print#   list  (NULL)\ownik zagraniczno-polski  print#   poke"v$
  41. 41 [153]""i$:a[178]0:c[178]0:q$[178]"
  42. 42 input"[145][151](^^,//) [159]";q$:b=len(q$):ifb=0orb>6goto42
  43. 43 ifq$="^^"goto49
  44. 44 ifq$="//"goto26
  45. 45 print"[145][144]"i$"[145]";:foro=1to5:ifleft$(q$,o)=left$(j$,o)thena=a+1
  46. 46 next:foro=1ton:ifmid$(q$,a+1,b-a)=mid$(an$(o),a+1,b-a)thengosub48
  47. 47 next:print"  '[153]"q$"' :[154]"c:goto41
  48. 48 print"[157][152]"o""an$(o)"[151][192][158]"pl$(o):c=c+1:return
  49. 49 print"[147][151]  [152]   [155]  [211]\ownik polsko-zagraniczny  [152]   [151]"v$
  50. 50 print""i$:a=0:c=0:q$="
  51. 51 [133]"onpoke(^^,//) open";q$:b[178][195](q$):[139]b[178]0[176]b[177]6[137]51
  52. 52 [139]q$[178]"^^"[137]40
  53. 53 [139]q$[178]"//"[137]26
  54. 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. 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. 56 [130]:[153]"  'print"q$"' :cont"c:[137]50
  57. 57 [153]"cmdprint#"o""pl$(o)"poketansys"an$(o):c[178]c[170]1:[142]
  58. 58 [139]o[179]0[167]o[178]10[172][181]((n[171]1)[173]10)
  59. 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. 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. 61 o=o+1:a=a+1:gosub67
  62. 62 ifa<10ando<ngoto61
  63. 63 getq$:ifq$=" "goto59
  64. 64 ifpeek(653)=2theno=o-a-10:goto58
  65. 65 ifq$="[133]"goto26
  66. 66 goto63
  67. 67 print"[157][152]"o"[158]"an$(o)"[157][144]"e$o"[157][157][150]"pl$(o):return
  68. 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. 69 getq$:ifq$=""andn-e>20thene=e+1-d%(q):d%(q)=1:goto73
  70. 70 ifq$="[133]"goto26
  71. 71 ifq$<>" "goto69
  72. 72 e=e-d%(q):d%(q)=0
  73. 73 print"[145][145]";:gosub74:next:goto26
  74. 74 o$=right$(str$(q),2):printchr$(152-d%(q))o$"[153]"an$(q)e$"[144]"o$""pl$(q):return
  75. 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. 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. 77 [153]" ";:[130]:[153]"abs":b[178][181]([187](1)[172]4)[170]1
  78. 78 [153]"    (NULL)ytanie nrsys"a"  forstr$o zapoznania:list"n[171]d""e$i$
  79. 79 [129]o[178]1[164]4:a(o)[178][181]([187](1)[172]n)[170]1:[130]
  80. 80 [139]c%(a(b))[178]1[167]a(b)[178][181]([187](1)[172]n)[170]1:[137]80
  81. 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. 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. 83 [153]""i$[166]47)"clr(NULL)odaj odpowiedni numer:sys
  84. 84 getq$:ifq$="[133]"goto26
  85. 85 ifq$<"1"orq$>"4"goto84
  86. 86 o=val(q$)
  87. 87 printtab(40*o-1)o""tab(40*b+2)an$(a(b))""a$"[145][145][155]
  88. 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. 89 [153]"forcmd"o"cmd:print#"pl$(a(o))e$[163]51)"list"a[171]d"defz\a odpowied/
  90. 90 printtab(55)"[207]cena:[129]"int(d/a*100)"[157]%
  91. 91 [161]q$:[139]q$[178]"input"[137]26
  92. 92 [139]q$[178]""[137]91
  93. 93 [139]d[179]n[137]75
  94. 94 r[178][197]([200](ti$,2))[172]60[170][197]([202](ti$,3,2))
  95. 95 [153]"load     open  (NULL)apozna\e^ si> ze s\poswkami.open  ":[129]a[178]0[164]1300:[130]:[137]26
  96. 96 [153]" (NULL)dczyt: list(NULL)\pos@ dysk do sysodczytu"u$e$"  (NULL)auka: open!(NULL)(NULL)atnlenval!
  97. 97 getq$:ife>0orq$=" "goto106
  98. 98 ifq$<>e$goto97
  99. 99 print"[147]":q$="":open2,8,2,"[,s,r":input#2,q$:ifr$=" "+q$goto102
  100. 100 close2:open1,8,15,"i":close1:ifq$=""goto96
  101. 101 print"       [150][218]apis by\ dla [153]"q$" [150]a nie[153]"r$:goto96
  102. 102 input#2,q$,w$,o$,y,j,m,q,d:close2:ti$=o$:q$=q$+w$:b=0:foro=1ton
  103. 103 c%(o)=asc(mid$(q$,o,1)+"@")-64:b=b+c%(o):next:ifb<n*ygoto106
  104. 104 printtab(10)"[155][205]ateria\ opanowany![145]":getq$:ifq$=""goto104
  105. 105 goto26
  106. 106 c=int(rnd(1)*n)+1:ifc%(c)=yord%(c)=1goto106
  107. 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. 108 q$[178]"":[133]"openon";q$:[139][195](q$)[177]37[137]108
  109. 109 [153]""i$e$:[139]q$[178]an$(c)[176]q$[170]"!"[178]an$(c)[176]q$[170]"?"[178]an$(c)[137]114
  110. 110 c%(c)[178]0:d[178][195](q$):o[178][195](an$(c)):[153]"listononononon* print";
  111. 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. 112 [153]o$"print";:[130]:[139]d[177]o[167][129]x[178]o[170]1[164]d:[153]"poketo";:[130]
  113. 113 d[178]0:[153]e$[166]131)"open"j[171]m"z\a contodpowied/":[137]116
  114. 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. 115 [153][163]10)"onopen"m"dobra contodpowied/
  116. 116 b=0:printtab(11)"[152][195]zas nauki: [155]"ti$"[157][157][157][157][148]:  
  117. 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. 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. 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. 120 printtab(7)"[155][206]auczonych s\[185]wek:[158]"x"[152]/[159]"n-e"[151]"e$i$:ifx=n-egoto129
  121. 121 print" ![210][197][212][213][210][206]!     [155][215][152]yj[174]cie   [150][218][129]apis
  122. 122 [161]q$:[139]q$[178]e$[167][153]"on        ":[137]106
  123. 123 [139]q$[178]""[137]26
  124. 124 [139]q$[179][177]""[137]122
  125. 125 [153]"on     list(NULL)\pos@ dysk do syszapisu"u$:[161]q$:[139]q$[179][177]e$[137]125
  126. 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. 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. 128 close2:goto106
  129. 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. 130 [153]" przezsys"[197]([200](ti$,2))[172]60[170][197]([202](ti$,3,2))"listminut ";
  131. 131 [153]"+sys"r"listminut - zapoznanie
  132. 132 printtab(13)"na poziomie[158]"y;e$"      [159][207][155]dpowiedzia\e[174] na[158]"j"[155]pyta[170].
  133. 133 a[178][197](r$):[153]"   right$lo^log z\ych odpowiedzi wynosisys"j[171]m"cmdlist,
  134. 134 o=val(mid$(y$,a+1,1))+2*y-1:print"       a zatem twoja skuteczno[174][188]
  135. 135 [153]"    dobrego odpowiadania wynosisys"[181](m[173]j[172]n)"cmd%
  136. 136 ifn<100ore>0thenw=1:goto125
  137. 137 q$="":print"      [155][215]\[185]@ dysk z danymi"u$"[145]"e$a$"[145]":getq$:ifq$<>e$goto137
  138. 138 open2,8,2,"[164]":close2:open1,8,15:input#1,q$:close1:ifq$<>"00"goto137
  139. 139 open2,8,2,"@:[164],s,w":print#2,left$(y$,a)+right$(str$(o),1)+mid$(y$,a+2)
  140. 140 close2:getq$:ifq$<>e$goto140
  141. 141 goto26
  142. 142 getq$:ifq$<>e$goto142
  143. 143 print"g[207]142"e$"g[207]142":poke631,13:poke198,1:load"/",8
  144.