home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh34c.d64 / cat.main (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.