home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 38 / 64er_Magazin_Sonderheft_38_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / cat.main (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  365 lines
  1. 1 (NULL)to1000
  2. 10 u=ut+1:onugoto9000,9010,9020,9030,9040,9050,9060,9070,9080,9090:u=u-10
  3. 20 onugoto9100,9110,9120,9130,9140,9150,9160,9170,9180,9190:u=u-10
  4. 30 onugoto9200,9210,9220,9230,9240,9250,9260,9270,9280,9290:u=u-10
  5. 40 onugoto9300,9310,9320,9330,9340,9350,9360,9370,9380,9390:u=u-10
  6. 50 onugoto9400,9410,9420,9430,9440,9450,9460,9470,9480,9490:u=u-10
  7. 60 onugoto42418,23205,11610,12333,64048,9210,9210,9210,9210,9210:u=u-10
  8. 70 onugoto9210,9210,9210,9210,9210,9210,9210,9210,9210,9210:u=u-10
  9. 80 onugoto9210,9210,9210,9210,9210,9210,9210,9210,9210,9210:u=u-10
  10. 90 onugoto9210,9210,9210,9210,9210,9210,9210,9210,9210,9210:u=u-10
  11. 500 kl=4
  12. 502 ifut<40thenkl=3
  13. 504 ifut<32thenkl=2
  14. 505 ifut<08thenkl=1
  15. 506 ifbothen4050
  16. 509 pokel,2:pokes,20:sysm:print"[144]"kl
  17. 510 pokel,8:pokes,8:sysm:printleft$(sp$,23)
  18. 520 pokel,12:pokes,9:sysm:printf1"[157] "tab(24)au"[157] "tab(31)left$(sp$,7)
  19. 530 pokel,16:pokes,2:sysm:printleft$(sp$,15)spc(4)left$(sp$,19)
  20. 540 pokel,20:pokes,7:sysm:printna$+left$(sp$,9-len(na$))
  21. 550 pokel,23:pokes,10:sysm:printlv"[157] "
  22. 560 pokel,22:pokes,26:sysm:print"     "
  23. 570 pokel,8:pokes,8:sysm
  24. 580 ifx1>0thenprintx1;
  25. 590 printtab(13)x1$;
  26. 600 ifx2>0thenprintx2;
  27. 610 printtab(19)"=";
  28. 620 ifx3>0thenprintx3;
  29. 630 ifx4<>0thenprint"[145]":printtab(19)x2$tab(25)"=";:ifx4<>-1thenprintx4;
  30. 640 print"[145]"
  31. 650 ifx1=-1thenprinttab(9):x1=er
  32. 660 ifx2=-1thenprinttab(15):x2=er
  33. 670 ifx3=-1thenprinttab(21):x3=er
  34. 680 ifx4=-1thenprinttab(27)
  35. 690 e1$=""
  36. 700 getq$:poke204,0
  37. 710 ifval(q$)>0orq$="0"then750
  38. 715 ifq$="a"orq$="[133]"then880
  39. 720 ifq$=chr$(13)then780
  40. 730 if(q$<>chr$(20)andq$<>"_")orlen(e1$)=0then700
  41. 740 poke204,1:print"[157]  [157][157]";:e1$=left$(e1$,len(e1$)-1):goto700
  42. 750 e1$=e1$+q$:printq$;
  43. 760 iflen(e1$)>3thenpoke204,1:print"[157][157][157][157]    [157][157][157][157]";:e1$=""
  44. 770 goto700
  45. 780 ife1$=""then700
  46. 785 poke204,1:print" ":au=au+1
  47. 786 x4=0
  48. 787 ifval(e1$)=erthenf2=f2+1:sysrichtig:return
  49. 790 fe=fe+1:f1=f1+1:f2=f2-1:poke198,0:iff2<0thenf2=0
  50. 795 pokel,16:pokes,2:sysm:print"leider falsch !"tab(22)"richtig waere:"er
  51. 800 pokel,22:pokes,26:sysm:print"taste[146]"
  52. 810 forx=1to10:next:print"[145]"tab(26)"     ":getq$:ifq$=""then800
  53. 820 hh=5
  54. 830 ifx1$="+"thenhh=0:ifx1+x2>100thenreturn
  55. 840 ifx1$="-"thenhh=1:ifx1-x2<0thenretrun
  56. 850 ifhh=5orx1>100orx2>100thenreturn
  57. 860 print"[154][147]":sys49152,x1,hh,x2
  58. 870 gosub5000:return
  59. 880 ifpos(x)>20andpos(x)<27thenx3=-1
  60. 882 ifpos(x)>14andpos(x)<21thenx2=-1
  61. 884 ifpos(x)<15thenx1=-1
  62. 889 print"[147] willst du wirklich abbrechen ?"
  63. 890 print" das waere eigentlich sehr schade,"
  64. 900 print" und du bekommst dann auch weniger"
  65. 905 print" punkte!"
  66. 910 input"             (j/n)";q$
  67. 920 ifq$<>"j"thengosub5000:goto500
  68. 930 ma=.9:goto3360
  69. 1000 deffnz(x)=int(rnd(1)*x)+1:open4,4
  70. 1010 l=214:s=211:m=58640:an=49:dimu%(an):richtig=51000:na$="joachim  "
  71. 1020 dimu$(an):forx=0toan:readu$(x):next
  72. 1030 sp$="                                        ":e$=" [164][164][164] "
  73. 1040 h$=" [161]"+left$(sp$,18)+"[161]"+left$(sp$,16)+"[161][146]"
  74. 1060 x=rnd(0)*100:fory=1tox:z=rnd(1):next
  75. 1100 poke51054,100:ma=1:f2=0:fe=0:au=0:f1=0:bo=0
  76. 1800 poke53280,12:poke53281,12:print"";chr$(142);chr$(8)
  77. 1805 print"[147][155]"sp$;
  78. 1810 forx=1to23:print" "spc(38)" ";:next
  79. 1820 print"[157]"sp$"[157]"chr$(148)" ";
  80. 1850 print""tab(5)"[144]f1[146]  datei laden"
  81. 1852 printtab(5)"[144]f2[146]  datei sichern"
  82. 1855 printtab(5)"[144]f3[146]  datei entwerfen/anschauen"
  83. 1857 printtab(5)"[144]f4[146]  name : ";na$
  84. 1860 print"[155]"sp$
  85. 1862 printtab(5)"[144]f5[146]  arbeitsblatt (zufalls m.)"
  86. 1865 printtab(5)"[144]f6[146]  arbeitsblatt drucken"
  87. 1867 printtab(5)"[144]f7[146]  beginnen (zufalls modus)"
  88. 1870 printtab(5)"[144]f8[146]  beginnen"
  89. 1875 print"[155]"sp$:print"[158]"r$
  90. 1880 getq$:q=abs(asc(left$(q$+" ",1))-132)
  91. 1890 onqgoto3250,2000,4500,3500,3200,3100,4000,3300
  92. 1900 goto1880
  93. 2000 poke53280,00:poke53281,00
  94. 2010 print"[147][158] [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  95. 2020 printh$
  96. 2040 print" [161]nummer des","[161]   anzahl der"tab(37)"[161]"
  97. 2050 print" [161] unterprogramms :","[161]   abfragen ?"tab(37)"[161]"
  98. 2060 print" [161]",,"[161]"tab(37)"[161]"
  99. 2070 print" [188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]"
  100. 2080 printh$,h$,h$,""left$(sp$,37)
  101. 2090 forx=1to3:print"  "tab(37)" ":next:print" "left$(sp$,37)
  102. 2100 print"    +   -  : zehnerstelle aendern"
  103. 2110 print"   0 bis 9 : einerstelle aendern"
  104. 2130 print"   return[146]  : uebernehmen wie angezeigt"
  105. 3025 u1=0:poke650,128
  106. 3030 forx=0toan:u5=u%(x)-u1:u4=int(u5/10):u3=u5-u4*10:u1=u%(x)
  107. 3035 pokel,11:pokes,3:sysm:printleft$(sp$,34)
  108. 3040 print"[145][159]"left$(sp$,(37-len(u$(x)))/2)+u$(x)
  109. 3045 getq$
  110. 3046 q=val(q$):ifq=0andq$<>"0"thenq=u3
  111. 3048 ifq$="+"thenifu4<9thenu4=u4+1
  112. 3049 ifq$="-"thenu4=0
  113. 3054 ifu4thenprint"[157]";
  114. 3055 u2=u4*10+q:ifxthenu%(x)=u2+u%(x-1):goto3065
  115. 3060 u%(.)=u2
  116. 3065 pokel,7:pokes,9:sysm:printxtab(28);:ifu4thenprint"[157]";
  117. 3070 printu2:u3=q
  118. 3071 ifq$=chr$(13)then3075
  119. 3072 goto3045
  120. 3075 next:poke650,0
  121. 3080 r$="gesamtzahl der abfragen :"+str$(u%(an))
  122. 3090 goto1800
  123. 3100 print"[145][145]"left$(sp$,38)
  124. 3110 print"[145][145][145]";:gosub3600:goto1800
  125. 3200 open1,8,15:close1:ifst<0thenr$="1541 nicht angeschlossen!":goto1800
  126. 3210 open1,8,2,"@:!rech."+na$+",s,w"
  127. 3220 forx=0toan:print#1,u%(x):next
  128. 3230 close1:goto1800
  129. 3250 open1,8,15:close1:ifst<0thenr$="1541 nicht angeschlossen!":goto1800
  130. 3255 print"[144]":sys50300
  131. 3260 print"":gosub3600
  132. 3270 f$="!rech."+na$+",s,r"
  133. 3272 open1,8,2,f$:open2,8,15:input#2,x,r$:close1:close2
  134. 3277 ifx<>0then1800
  135. 3280 open1,8,2,f$
  136. 3282 forx=0toan:input#1,u%(x):next
  137. 3285 close1:goto1800
  138. 3300 gosub5000:u3=0:f2=0
  139. 3310 ifu3=an+1then3360
  140. 3320 iff2=u%(u3)thenu3=u3+1:goto3310
  141. 3340 lv=int(100/u%(an)*f2)
  142. 3350 ut=u3:gosub10:goto3310
  143. 3360 ifbothenr$="roger":goto1100
  144. 3362 pu=int(-log((fe+.4)/(f2+.1))*log((f2+.1)*1e20)*f2*3.57526e-03*ma)
  145. 3363 print"[147]"
  146. 3365 ifpu<1thenr$="keine punkte !!!":goto1100
  147. 3366 r$=str$(pu)+" punkte"
  148. 3367 ifpu=1thenr$=" einen punkt"
  149. 3370 pokel,12:pokes,4:sysm:print"du hast   fuer"r$
  150. 3380 pokel,19:pokes,24:sysm:print"gerechnet !!!"
  151. 3390 pu=pu+20:ifpu>255thenpu=0
  152. 3400 poke51233,0:poke51054,pu
  153. 3410 forx=1to8:sys51000:next
  154. 3420 goto1100
  155. 3500 ifu%(an)<300thenr$="nur bei mindest. 300 aufg. in datei!":goto1100
  156. 3505 input"[147] wieviele aufgaben";du
  157. 3507 ifdu<1ordu>9999thenr$="unsinnige eingabe":goto1100
  158. 3510 gosub5000:f2=0
  159. 3520 ford1=1todu
  160. 3530 u3=fnz(an)
  161. 3540 iffnz(99)>u%(u3)-u%(u3-1)then3530
  162. 3550 lv=int(100/du*(d1-1)):ut=u3:gosub10
  163. 3560 next
  164. 3570 goto3360
  165. 3600 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"spc(23);
  166. 3610 print"[194]name:          [194]"spc(23)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][145][145]":printtab(9);:n$=""
  167. 3620 getq$
  168. 3630 ifq$=chr$(13)then3670
  169. 3640 ifq$=chr$(20)andlen(n$)>0thenprint"[157] [157]";:n$=left$(n$,len(n$)-1)
  170. 3650 ifq$<>""theniflen(n$)<9andasc(q$)>45andasc(q$)<96thenprintq$;:n$=n$+q$
  171. 3660 goto3620
  172. 3670 iflen(n$)>0thenna$=left$(n$+sp$,9)
  173. 3680 r$="":return
  174. 4000 bo=1:goto3300
  175. 4050 iff2=0thenprint#4,"arbeitsblatt:  "na$:print#4
  176. 4055 n$=str$(f2)+")"
  177. 4057 ifx1>0thenn$=n$+left$(str$(x1)+sp$,5):goto4070
  178. 4060 n$=n$+e$
  179. 4070 n$=n$+x1$
  180. 4080 ifx2>0thenn$=n$+left$(str$(x2)+sp$,5):goto4100
  181. 4090 n$=n$+e$
  182. 4100 ifx4thenn$=n$+x2$:goto4120
  183. 4110 n$=n$+"="
  184. 4120 ifx3>0thenn$=n$+left$(str$(x3)+sp$,5):goto4140
  185. 4130 n$=n$+e$
  186. 4140 ifx4=0thenn$=n$+left$(sp$,6):goto4180
  187. 4150 n$=n$+"="
  188. 4160 ifx4>0thenn$=n$+left$(str$(x4)+sp$,5):goto4180
  189. 4170 n$=n$+e$
  190. 4180 n$=left$(n$+sp$,50)+"erg:"+str$(er)
  191. 4190 f2=f2+1:print#4,n$:x4=0:return
  192. 4500 bo=1:goto3500
  193. 5000 print"[144]":poke53280,5:poke53281,7:printchr$(142)chr$(147);
  194. 5010 print"[149]"sp$;
  195. 5020 print"       [144][146][207]";:forz=1to23:print"[183]";:next
  196. 5030 print"[208][149]               [144][146][165] rechnungen   . klasse [170][149]        ";
  197. 5040 print"       [144][146][204]";:forz=1to23:print"[175]";:next
  198. 5050 print"[186][149]        "sp$""sp$sp$;
  199. 5080 print""
  200. 5110 print""sp$;
  201. 5120 print" [146]"spc(12)" [146]"spc(15)" [146]"spc(9)" ";
  202. 5130 print" [146] [144]fehler:     [146] [144]aufgaben:      [146]"spc(9)" ";
  203. 5140 print" [146]"spc(12)" [146]"spc(15)" [146]"spc(9)" "sp$;
  204. 5160 print"[146]"spc(19)" "
  205. 5170 printspc(19)" "
  206. 5180 printspc(19)" "
  207. 5190 print""sp$;
  208. 5200 print"[146]"spc(17)" "
  209. 5210 print" [144]name:"spc(11)" "
  210. 5220 printspc(17)" [146]"spc(6)"         "
  211. 5230 print"                  [146]"spc(6)" [146]        "
  212. 5240 print"   [144]level :"spc(7)" [146]"spc(6)"         "
  213. 5250 print"                  [146][144]";
  214. 5260 return
  215. 6500 data"e + e = e[146]","e - e = e[146]","e + e[146] = e","e - e[146] = e"
  216. 6505 data"e + e = ze[146]","ze - e = e[146]"
  217. 6510 data"z0 + z0[146] = z0","z0 - z0[146] = z0","ze + e = ze[146]","ze - e = ze[146]"
  218. 6520 data"e[146] + ze = ze","ze - e[146] = ze","ze + ze = ze[146]","ze - ze = ze[146]"
  219. 6530 data"ze[146] + ze[146] = ze","ze[146] - ze[146] = ze","e * 10 = ze[146]","e * 5 = ze[146]"
  220. 6540 data"e * 2 = ze[146]","e * 4 = ze[146]","e * 8 = ze[146]","ze : 10 = ze[146]"
  221. 6550 data"ze : 5 = ze[146]","ze : 2 = ze[146]","ze : 4 = ze[146]","ze : 8 = ze[146]"
  222. 6560 data"10 * e[146] + e[146] = ze[146]","5 * e[146] + e[146] = ze[146]","4 * e[146] + e[146] = ze[146]"
  223. 6570 data"2 * e[146] + e[146] = ze[146]","8 * e[146] + e[146] = ze[146]"
  224. 6580 data"e[146] * 10,5,4,2,8 - e[146] = ze[146]","e * 3 = ze[146]","e * 6 = ze[146]"
  225. 6590 data"e * 9 = ze[146]","e * 7 = ze[146]","ze[146] : 3,6,7,9 = ze[146]"
  226. 6600 data"hze[146] + ze[146] = hze[146]","hze[146] - ze[146] = hze[146]","ze + ze + ze = hze[146]"
  227. 6610 data"hze - ze - ze = hze[146]","ze[146] * e[146] = hze[146]","hze[146] : e[146] = ze[146]"
  228. 6620 data"e[146] * e[146] + ze[146] = hze[146]","hze[146] - hze[146] - hze[146] = hze[146]"
  229. 6630 data"100 bis 199[146] * 2 bis 5[146] = hze[146]","e[146] * e[146] +- hze[146] = hze[146]"
  230. 6640 data"e[146] ^ 2,3[146] = hze[146]","11 * 10 bis 18 = hze[146]","11 * ze = hze[146]"
  231. 6650 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  232. 9000 x1=fnz(9):x2=fnz(9):er=x1+x2
  233. 9002 ifer>9then9000
  234. 9004 x3=-1:x1$="+"
  235. 9006 goto500
  236. 9010 x1=fnz(9):x2=fnz(9):er=x1-x2
  237. 9012 ifer<1then9010
  238. 9014 x3=-1:x1$="-"
  239. 9016 goto500
  240. 9020 x1=fnz(9):er=fnz(9):x3=x1+er
  241. 9022 ifx3>9then9020
  242. 9024 x2=-1:x1$="+"
  243. 9026 goto500
  244. 9030 x1=fnz(9):er=fnz(9):x3=x1-er
  245. 9032 ifx3<1then9030
  246. 9034 x2=-1:x1$="-"
  247. 9036 goto500
  248. 9040 x1=fnz(9):x2=fnz(9):er=x1+x2
  249. 9042 ifer<10then9040
  250. 9046 goto9004
  251. 9050 er=fnz(9):x3=fnz(9):x1=er+x3
  252. 9052 ifx1<10then9050
  253. 9056 goto9034
  254. 9060 x1=fnz(9)*10:er=fnz(9)*10:x3=er+x1
  255. 9062 ifx3>100then9060
  256. 9066 goto9024
  257. 9070 er=fnz(9)*10:x3=fnz(9)*10:x1=er+x3
  258. 9072 ifx1>100then9070
  259. 9076 goto9034
  260. 9080 x1=fnz(82)+9:x2=fnz(9):er=x1+x2
  261. 9086 goto9004
  262. 9090 x1=fnz(91)+9:x2=fnz(9):er=x1-x2
  263. 9096 goto9014
  264. 9100 er=fnz(9):x2=fnz(82)+9:x3=er+x2
  265. 9104 x1=-1:x1$="+"
  266. 9106 goto500
  267. 9110 x1=fnz(91)+9:er=fnz(9):x3=x1-er
  268. 9116 goto9034
  269. 9120 x1=fnz(81)+9:x2=fnz(81)+9:er=x1+x2
  270. 9122 ifer>100then9120
  271. 9126 goto9004
  272. 9130 x2=fnz(81)+9:er=fnz(81)+9:x1=x2+er
  273. 9132 ifx1>100then9130
  274. 9136 goto9014
  275. 9140 x1=fnz(81)+9:x2=fnz(81)+9:x3=x1+x2
  276. 9142 ifx3>100then9140
  277. 9144 iffnz(2)=1thener=x1:goto9104
  278. 9146 er=x2:goto9024
  279. 9150 x2=fnz(81)+9:x3=fnz(81)+9:x1=x2+x3
  280. 9152 ifx1>100then9150
  281. 9154 iffnz(2)=1thener=x1:x1$="-":x1=-1:goto500
  282. 9156 er=x2:goto9034
  283. 9160 x2=10
  284. 9165 x3=-1:x1$="*":x1=fnz(9):er=x1*x2
  285. 9166 goto500
  286. 9170 x2=5:goto9165
  287. 9180 x2=2:goto9165
  288. 9190 x2=4:goto9165
  289. 9200 x2=8:goto9165
  290. 9210 x2=10
  291. 9215 er=fnz(9):x1=er*x2:x3=-1:x1$=":"
  292. 9216 goto500
  293. 9220 x2=5:goto9215
  294. 9230 x2=2:goto9215
  295. 9240 x2=4:goto9215
  296. 9250 x2=8:goto9215
  297. 9260 x1=10
  298. 9262 x2=fnz(9):x3=fnz(9):x4=x1*x2+x3:z=fnz(3)
  299. 9264 ifz=1thener=x2:x2=-1
  300. 9265 ifz=2thener=x3:x3=-1
  301. 9266 ifz=3thener=x4:x4=-1
  302. 9268 x1$="*":x2$="+":goto500
  303. 9270 x1=5:goto9262
  304. 9280 x1=4:goto9262
  305. 9290 x1=2:goto9262
  306. 9300 x1=8:goto9262
  307. 9310 x2=fnz(10):ifx2=1orx2=3orx2=6orx2=7orx2=9then9310
  308. 9312 x1=x2*fnz(9):x3=fnz(9)
  309. 9314 x4=x1/x2-x3:ifx4<1then9312
  310. 9315 z=fnz(3):ifz=1thener=x1:x1=-1
  311. 9316 ifz=2thener=x3:x3=-1
  312. 9317 ifz=3thener=x4:x4=-1
  313. 9318 x1$=":":x2$="-":goto500
  314. 9320 x2=3:goto9165
  315. 9330 x2=6:goto9165
  316. 9340 x2=9:goto9165
  317. 9350 x2=7:goto9165
  318. 9360 x2=fnz(9):ifnot(x2=3orx2=6orx2=7orx2=9)then9360
  319. 9362 x3=fnz(9):x1=x2*x3:x1$=":"
  320. 9365 iffnz(2)=1thener=x1:x1=-1:goto500
  321. 9366 er=x3:x3=-1:goto500
  322. 9370 x1=fnz(800)+99:x2=fnz(99):x3=x1+x2
  323. 9371 x1$="+"
  324. 9374 z=fnz(3):ifz=1thener=x1:x1=-1
  325. 9375 ifz=2thener=x2:x2=-1
  326. 9376 ifz=3thener=x3:x3=-1
  327. 9377 goto500
  328. 9380 x1=fnz(900)+99:x2=fnz(99):x3=x1-x2
  329. 9381 x1$="-":goto9374
  330. 9390 x1=fnz(99):x2=fnz(99):x3=fnz(99)
  331. 9395 x4=-1:er=x1+x2+x3
  332. 9396 x1$="+":x2$="+":goto500
  333. 9400 x2=fnz(99):x3=fnz(99):er=fnz(99)
  334. 9405 x4=-1:x1=er+x2+x3
  335. 9406 x1$="-":x2$="-":goto500
  336. 9410 x1=fnz(89)+10:x2=fnz(8)+1:x3=x1*x2:x1$="*"
  337. 9412 goto9374
  338. 9420 x2=fnz(8)+1:x3=fnz(89)+10:x1=x2*x3:x1$=":"
  339. 9422 goto9374
  340. 9430 x1=fnz(8)+1:x2=fnz(8)+1:x3=fnz(100)
  341. 9431 x4=x1*x2+x3:x1$="*":x2$="+"
  342. 9432 z=fnz(4)
  343. 9433 ifz=1thener=x1:x1=-1
  344. 9434 ifz=2thener=x2:x2=-1
  345. 9435 ifz=3thener=x3:x3=-1
  346. 9436 ifz=4thener=x4:x4=-1
  347. 9437 goto500
  348. 9440 x1=fnz(999):x2=fnz(999):x3=fnz(999)
  349. 9442 x4=x1-x2+x3:x1$="-":x2$="+"
  350. 9444 ifx4>999orx4<1then9440
  351. 9446 goto9432
  352. 9450 x1=fnz(99)+100:x2=fnz(4)+1:x3=x1*x2
  353. 9455 x1$="*":goto9374
  354. 9460 x1=fnz(8)+1:x2=fnz(8)+1:x3=fnz(999):x1$="*"
  355. 9462 iffnz(2)=1thenx4=x1*x2-x3:x2$="-":goto9466
  356. 9464 x4=x1*x2+x3:x2$="+"
  357. 9466 ifx4<1orx4>999then9460
  358. 9468 goto9432
  359. 9470 x1=fnz(8)+1:x2=fnz(2)+1:x3=int(x1^x2)
  360. 9472 x1$="^":goto9374
  361. 9480 x2=fnz(8)+10
  362. 9482 x3=-1:x1$="*":x1=11:er=x1*x2
  363. 9484 goto500
  364. 9490 x2=fnz(90):goto9482
  365.