home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 May / 1994-05b.d64 / exponents (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  11.8 KB  |  316 lines
  1. 5 rem copyright 1994 -compute publications intl ltd - all rights reserved
  2. 10 rem by robert quinn
  3. 20 gosub2760
  4. 30 getb$:js=peek(p6)andpeek(p7)andp8
  5. 40 pokevm+p(px),peek(vm+p(px))-n8:pokevm+p(px)-1,n2:pokevm+p(px)+1,n2
  6. 50 :
  7. 60 r=(js=30)+abs(js=29):ifr<>k0thenpx=px+r:px=px+(px=11)*ka-(px=k0)*ka
  8. 70 ifjs>kfandjs<28thenifpx<>k4andpx<>k6thengosub190
  9. 80 ifb$>"0"thenifb$<"7"thennc=val(b$)
  10. 90 ifb$="q"thennc=7
  11. 100 ifb$="w"thennc=8
  12. 110 ifb$="e"thennc=9
  13. 120 ifb$="t"thennc=10
  14. 130 if(js=kf)or(b$=b1$)thennc=px
  15. 140 ifnc>k0thenpx=nc
  16. 150 pokevm+p(px),peek(vm+p(px))+n8:pokevm+p(px)-k1,k0:pokevm+p(px)+k1,k0
  17. 160 ifnc>k0then220
  18. 170 ifb$>b1$thenifb$<>chr$(95)thengosub2940
  19. 180 forr=1to44:next:goto30
  20. 190 ifpx<k4thenpx=px+k6:return
  21. 200 ifpx>k6andpx<kathenpx=px-k6:return
  22. 210 px=px+(px=ka)*k5-(px=k5)*k5:return
  23. 220 forr=720+vmtor+39:poker,n2:next:poke829,11:sys828:poke53280,12:xf=k0
  24. 230 ifnc<>k1andnc<>k4thensys879
  25. 240 onncgosub270,1010,1010,270,1960,2330,830,1750,1750,1960
  26. 250 ifnc<>k1andnc<>k4andnc<>k6thensys879
  27. 260 nc=k0:poke53280,14:poke198,k0:goto30
  28. 270 bn=int(rnd(1)*ka)+n4:cn=int(rnd(k1)*ka)+n4:ifnc=k4thencn=int(rnd(k1)*9)+49
  29. 280 ifbn=peek(907)orcn=peek(908)then270
  30. 290 poke907,bn:poke908,cn:sys879
  31. 300 bn$=chr$(bn):sys856,ka,22:printkf$rn$bn$b1$b1$r1$;"="r1$;
  32. 310 ifnc=k6then360
  33. 320 printrf$r1$"power ";:ifnc=k4thenprint"-";
  34. 330 printchr$(cn)" of "bn$;:ifnc=k4then360
  35. 340 ifcn=51thenprintr1$r2$"[cube]";
  36. 350 ifcn=50thenprintr1$r2$"[square]";
  37. 360 sys856,ka,21:printrn$b1$;:ifnc=k4thenprint"-";
  38. 370 printchr$(cn);:ifnc=k1ornc=6thenprintb1$;
  39. 380 ifnc=6then440
  40. 390 printr2$r2$rf$;:forr=1to2222:next:ifnc=k4thenprint"-";
  41. 400 printchr$(cn);" is the exponent"
  42. 410 forr=1to2222:next:print"base "bn$;
  43. 420 forr=1to2222:next:ifcn=n4thenbn=49
  44. 430 forr=856tor+23:poker+vm,0:poker+vn,11:poker+40+vm,0:poker+40+vn,11:next
  45. 440 dx=17:sys856,16,22:printrn$;
  46. 450 ifnc=k4thendx=21:print"1 / ";:ifbn=n4thensys856,9,19:printm5$;
  47. 460 sys856,dx-k1,22:printchr$(bn);:ifcn<50then530
  48. 470 sys856,14,24:print"=";:ifnc=k4thenifbn<>49thenprintspc(k1)"1 / ";
  49. 480 rw=bn-n4:ry=rw
  50. 490 forr=1tocn-49:forrm=1to555:next:sys856,dx,22:print"x"bn$;:dx=dx+k2
  51. 500 ifbn=49thenb$=" 1 ":goto520
  52. 510 gosub780
  53. 520 sys856,kf+nc+(nc=6)*5,24:printb$;:next
  54. 530 ifnc=6thenreturn
  55. 540 aa$=chr$(cn):cc$="x a x b  ":bb$=aa$:ifnc=k4then640
  56. 550 ifcn=n4thenb$=" 1 ":cc$="x 1 x 1  ":bb$=chr$(160)
  57. 560 ifcn=49thenb$=bn$+b1$:bb$=chr$(160)
  58. 570 rw=len(b$):ry=int((kd-rw)/k2)
  59. 580 sys856,k1+ry,16:print"("bn$"ab) = "bn$" a b  ="b$cc$;
  60. 590 sys856,k1+ry,kf:printb1$b1$b3$aa$;b3$aa$b1$aa$b1$aa$b3$b3$;
  61. 600 forr=k2torw:printb1$;:next:printbb$b3$bb$b1$;
  62. 610 forr=601+rytor+38-ry:ifpeek(r+vm)<n8then630
  63. 620 poker+vm-40,160:poker+vm+80,160:poker+vn-40,kf:poker+vn+80,kf:rm=r+k1
  64. 630 next:pokerm+vm-41,160:pokerm+vm+79,160:pokerm+vn-41,kf:poker+vn+79,kf
  65. 640 ry=k1:r=int(rnd(k1)*ka):rx=cn-n4:bb$=chr$(r+n4):ifnc=k1then670
  66. 650 aa$="-"+aa$:rx=-rx
  67. 660 ifr>k0thenry=int(rnd(k1)*k2):ifry=k0thenry=-k1:bb$="-"+bb$:r=-r
  68. 670 rw=rx*r:sys856,4,kd:printm1$;
  69. 680 getb$:js=peek(p6)andpeek(p7)andp8:ifb$<>b1$andjs<>kfthen680
  70. 690 sys893:poke880,0:sys879:poke880,n2:printrn$;
  71. 700 forrx=k0tok3:sys856,k7,kd+rx:forr=k1to9:printb3$;:next:printb1$;:next
  72. 710 sys856,k7,14:printb1$chr$(97)b1$aa$chr$(99)bb$b3$aa$" x "bb$;
  73. 720 printb3$left$(b1$,abs(rw<k0))rwchr$(157)b1$;
  74. 730 sys856,k7,kf:printb1$chr$(98)bn$left$(b3$,k1-(nc=k4))chr$(100);
  75. 740 printleft$(b3$,k1-(ry<k0))"= "bn$b3$b3$left$(b3$,abs(nc=k4)-(ry<k0));
  76. 750 r=abs(abs(rw)>9):ry=abs(rw<k0)
  77. 760 print"= "bn$b1$b1$;:printleft$(b3$,r+ry);
  78. 770 forr=1to99:next:return
  79. 780 rw=rw*ry:aa$=str$(rw)
  80. 790 rm=len(aa$)-1:rx=int(rm/3):wx=rm-rx*k3:b$=b1$
  81. 800 ifwx>k0thenb$=b$+mid$(aa$,2,wx)+b1$
  82. 810 ifrx>k0thenforrm=k0torx-k1:b$=b$+mid$(aa$,wx+k2+rm*k3,k3)+b1$:next
  83. 820 return
  84. 830 bn=int(rnd(k1)*ka)+n4:bn$=chr$(bn):cn=int(rnd(1)*ka)+n4:rm=0:xb$="":aa$=bn$
  85. 840 sys856,9,22:printkf$rn$b1$chr$(cn)
  86. 850 sys856,9,23:printrn$bn$b1$r1$"="r1$"?"
  87. 860 gosub980:ifcn=n4thenbn$="1":aa$=bn$
  88. 870 getb$:js=peek(p6)andpeek(p7)andp8
  89. 880 ifrm>k0thenifb$=chr$(kd)or(js>kfandjs<p8)then920
  90. 890 ifb$<>b1$andjs<>kfthen870
  91. 900 aa$=aa$+xb$:sys856,14,23:printaa$"?";:xb$="x"+bn$
  92. 910 rm=rm+k1:printrn$;:ifrm<>12thengosub970:getb$:goto870
  93. 920 ifrm=cn-n4thensys856,14,23:printkb$aa$chr$(64);
  94. 930 printkf$rn$;:ifcn>49thenforr=2tocn-n4:bn$=bn$+xb$:next
  95. 940 rm=k0:gosub970:sys856,9,20:printchr$(bn)b1$r1$"="r1$bn$;
  96. 950 poke769+vn,kf:poke770+vn,kf:poke770+vm,cn+n8:return
  97. 960 :
  98. 970 sys879:ifrm=k0thenreturn
  99. 980 sys856,4,kf:printm1$
  100. 990 ifrm>k0thensys856,k2,17:print"or press return/push joystick to quit";
  101. 1000 return
  102. 1010 xc=24:xd=43:xf=k0:ifnc=k3thenxc=47:xd=45:xf=k1
  103. 1020 wf=k0:bn=int(rnd(k1)*9)+k1:bn$=mid$(str$(bn),2)
  104. 1030 forr=k0tok1
  105. 1040 sys856,k5,r+20:printkf$rn$b1$b3$r2$r2$b1$r2$r2$b1$b3$r2$;
  106. 1050 printkb$chr$(96)chr$(96)kf$r2$b3$b3$:next
  107. 1060 poke845+vm,bn+176:poke858+vm,bn+176:poke853+vm,xc+n8
  108. 1070 forr=1to2:xb$="":rf=n4:bb$=bn$:pa=k1:pb=806:ifr=k2thenpa=21:pb=819
  109. 1080 sys856,k2,13:ifnc=k2thenprint"multiply";
  110. 1090 ifnc=k3thenprint"divid";
  111. 1100 print"ing powers of the same base":sys856,0,kf:printm1$;
  112. 1110 getb$:js=peek(p6)andpeek(p7)andp8
  113. 1120 ifrf>n4thenifb$=chr$(kd)or(js>kfandjs<p8)then1190
  114. 1130 ifb$<>b1$andjs<>kfthen1110
  115. 1140 bb$=bb$+xb$:rf=rf+k1:pokepb+vm,rf+n8:sys856,pa,24:printbb$;
  116. 1150 sys879:sys856,0,kf:printm1$rn$"again?"
  117. 1160 sys856,k1,17:print"or press return/push joystick to quit";
  118. 1170 ifrf=57then1190
  119. 1180 xb$="x"+bn$:getb$:goto1110
  120. 1190 sys879:ifr=k1thenaa=rf-n4:aa$=bb$
  121. 1200 ifr=k2thencc=rf-n4:cc$=bb$
  122. 1210 next:poke979+vm,xc:poke979+vn,1:poke868+vm,bn+176:poke829+vm,63
  123. 1220 rl=k0:rd=n4:forr=960to999:rf=peek(r+vm):rk=peek(r+vn)andkf
  124. 1230 cx=k0:poker+vn,1:poker+vm,191:ifrf<n4orrk=11then1340
  125. 1240 rl=r:rd=rd+k1:poker-42+vn,11:poker-42+vm,k0:poker-41+vn,11:poker-41+vm,k0
  126. 1250 ifwf=k0thenifrf=49andaa=0thencx=k1
  127. 1260 ifwf=k1thenifrf=49andcc=k0thencx=k1
  128. 1270 ifwf<>k2then1300
  129. 1280 ifr<979andaa=k0thencx=k1
  130. 1290 ifr>979thencx=-(aa=k0):ifcc=k0thencx=cx+k1
  131. 1300 poker-40+vn,k1:poker-40+vm,rd-cx
  132. 1310 ifxf=0thenifaa>0andrd>57thenpoker-40+vm,49:poker-39+vn,1:poker-39+vm,rd-ka
  133. 1320 ifnot(xf=k1andr>979)then1340
  134. 1330 poker-39+(cc=k0)+vn,k1:poker-39+(cc=k0)+vm,rd-cx:ifcc<>0thenpoker-40+vm,45
  135. 1340 ifwf=k3then1400
  136. 1350 ifrf=k0thenifrd>n4thenph=r-41:gosub1570
  137. 1360 ifxf=k1andr+rl=997thengosub1570:goto1380
  138. 1370 ifxf=k1andwf=k3thenph=rl-41
  139. 1380 ifwf<k2andr=979thenrd=n4
  140. 1390 ifrf<>k0thenforrm=1to222:next
  141. 1400 poker+vn,rk:poker+vm,rf:next:ifwf=k3then1450
  142. 1410 forrm=1to666:next:sys856,20,24:printkf$cc$kb$"@@";:forrm=1to111:next
  143. 1420 forr=k1to18-len(aa$):poke211,r:printkb$"@"kf$aa$;
  144. 1430 forrm=1to111:next:next:tn=k1:wf=k2:ifxf=k1thenpoke979+vm,47:gosub1680
  145. 1440 goto1220
  146. 1450 ifxf=0thenba=aa+cc
  147. 1460 ifxf=1thenba=aa-cc
  148. 1470 ry=ba:gosub2590
  149. 1480 forr=ph-920to36:sys856,r,23:printkb$chr$(64)chr$(5)ve$;
  150. 1490 forrm=1to111:next:next:forr=k0tok3:sys856,37,23-r:printkb$"@@";
  151. 1500 sys856,37,22-r:printchr$(5)ve$;:forrm=1to111:next:next
  152. 1510 forr=k1tok4:poke211,37-r:printkf$rn$ve$kb$rf$chr$(64);
  153. 1520 forrm=1to111:next:next
  154. 1530 poke790+vn,kf:poke790+vm,xd+n8:poke792+vn,kf:poke792+vm,189
  155. 1540 forrm=1to444:next:poke211,29:printchr$(17)kf$rn$ve$b1$;
  156. 1550 forrm=1to2222:next:b$="":sys856,29,19:printrf$kb$"@@@@@@";:return
  157. 1560 :
  158. 1570 ifwf=k2thenwf=k3:ph=r-41:return
  159. 1580 tn=k1:ifwf=k0thenba=aa:rx=908
  160. 1590 ifwf=k1thenba=cc:rx=910
  161. 1600 ifwf=k1andba>k5thentn=-k1:rx=912
  162. 1610 pokeph+vn+1,11:pokeph+vm+1,0:pokeph+vn,11:pokeph+vm,0:ph=ph-40
  163. 1620 forry=phtorxsteptn:pokery+vn,11:pokery+vm,k0
  164. 1630 pokery+tn+vn,k1:pokery+tn+vm,ba+n4:forrm=1to55:next:next
  165. 1640 sys856,29,22:printrf$kb$"@@@@@@";
  166. 1650 pokerx+tn+vm-120,ba+176:pokerx+tn+vn-120,kf
  167. 1660 ifwf<k2thenwf=k1:rd=n4
  168. 1670 return
  169. 1680 ck=980:forr=962+vmto978+vmstepk2:dx=peek(r):ifdx<>peek(ck+vm)then1740
  170. 1690 forrm=1to222:next:pokeck+vn,k1:pokeck+vm,dx+n8
  171. 1700 forrm=1to999:next:pokeck+vm,0:forrm=1to222:next
  172. 1710 pokeck+vn,11:pokeck+vm,49:forrm=1to222:next
  173. 1720 poker-vm+vn,k1:poker,dx+n8:forrm=1to999:next:poker,k0:forrm=1to222:next
  174. 1730 poker-vm+vn,11:poker,49:forrm=1to222:next:ck=ck+k2
  175. 1740 next:return
  176. 1750 rl=0:zg=1:rd=829:xc=24:xd=43:ifnc=9thenxc=47:xd=45:xf=k1
  177. 1760 wf=k0:bn=int(rnd(k1)*9)+k1:bn$=mid$(str$(bn),k2)
  178. 1770 forr=k0tok1:sys856,k5,r+20:printkf$rn$;
  179. 1780 printb1$b3$r2$r2$b1$r2$r2$b1$b3$r2$;
  180. 1790 printkb$chr$(96)chr$(96)kf$r2$b3$b3$:next
  181. 1800 xb$="x"+bn$:aa=int(rnd(k1)*ka):cc=int(rnd(k1)*ka)
  182. 1810 ba=aa+cc:ifxf=1thenba=aa-cc
  183. 1820 poke845+vm,bn+176:poke858+vm,bn+176:poke868+vm,bn+176:poke853+vm,xc+n8
  184. 1830 poke806+vm,aa+176:poke819+vm,cc+176
  185. 1840 gosub2640:ff=vf:ry=ff:gosub2590
  186. 1850 sys856,29-rl,20:printrn$chr$(vf+n4);:zg=k0:ifrl<k0thenff=-ff:goto1880
  187. 1860 gosub2740:rd=830:gosub2640:ifzg<>k0then1880
  188. 1870 dx=vf:ry=dx:gosub2590:sys856,30,20:printrn$chr$(vf+n4);:ff=ff*ka+dx
  189. 1880 sys879:ifzg=k1thenpokerd+vm,0
  190. 1890 zg=k0:aa$=bn$:ifaa=k0thenaa$="1"
  191. 1900 ifaa>k1thenforr=k2toaa:aa$=aa$+xb$:next
  192. 1910 cc$=bn$:ifcc=0thencc$="1"
  193. 1920 ifcc>k1thenforr=k2tocc:cc$=cc$+xb$:next
  194. 1930 sys856,k1,24:printrf$aa$;:poke211,21:printcc$;
  195. 1940 poke979+vn,k1:poke979+vm,xc:wf=k0:ifba<>ffthenpoke53280,k2
  196. 1950 goto1220
  197. 1960 wf=k0:xf=k1:dx=k0
  198. 1970 sys879:rl=0:bn=int(rnd(k1)*ka):xb$="x"+chr$(bn+n4)
  199. 1980 aa=int(rnd(k1)*19)-9:cc=int(rnd(k1)*19)-9:sys856,k2,kd:printchr$(153)rf$;
  200. 1990 ifwf=k0thenba=aa+cc:xc=152:xd=43:bb$="+":print"multiply";
  201. 2000 ifwf<>k0thenba=aa-cc:xc=175:xd=45:bb$="-":print"divid";
  202. 2010 print"ing powers of the same base"kf$;:ifnc=kathen2040
  203. 2020 sys856,k5,24:ifwf=k0thenprintrn$"multiplication: add exponents";
  204. 2030 ifwf=-k1thenprintrn$"division:  subtract exponents";
  205. 2040 ry=aa:gosub2590:aa$=ve$:ry=cc:gosub2590:cc$=ve$
  206. 2050 ry=ba:gosub2590:poke801+vn,kf:poke801+vm,bn+176
  207. 2060 poke805+vn,kf:poke805+vm,xc:poke808+vn,kf:poke808+vm,bn+176
  208. 2070 sys856,2,19:printrn$aa$;:poke211,9:printcc$;
  209. 2080 poke813+vm,189:poke815+vn,kf:poke815+vm,bn+176:ifnc=k5then2120
  210. 2090 gosub2260:ifff=rythenr=k6
  211. 2100 ifff<>ryor(bn=k0and(aa<0orcc<0orwf=-k1))thenr=k2
  212. 2110 poke53280,r
  213. 2120 forrm=1to999:next
  214. 2130 poke211,16:printkf$rn$aa$chr$(xd)"("cc$")";:forrm=1to555:next
  215. 2140 ifcc<k0thenbb$="":ifwf=-k1thencc$="+"+right$(cc$,k1)
  216. 2150 poke824+vm,189:poke826+vn,kf:poke826+vm,bn+176:poke211,27
  217. 2160 printaa$bb$cc$;:forrm=1to555:next
  218. 2170 poke832+vm,189:poke834+vn,kf:poke834+vm,bn+176:poke211,35
  219. 2180 forrm=795+vmtorm+k2:pokerm+120,peek(rm):pokerm,k0:next
  220. 2190 printve$kb$:print:forrm=1to999:next
  221. 2200 ifbn=k0thenifaa<k0orcc<k0orwf=-k1thensys856,ka,21:printm5$;
  222. 2210 dx=notdx:wf=notwf:ifdx=k0thenreturn
  223. 2220 sys856,k4,16:printm1$;
  224. 2230 getb$:js=peek(p6)andpeek(p7)andp8
  225. 2240 ifb$=b1$orjs=kfthenpoke829,11:sys828:getb$:poke53280,12:goto1970
  226. 2250 goto2230
  227. 2260 zg=1:rd=776:xk=22:xl=ka:gosub2640:ff=vf:pokerd+vn,kf:pokerd+vm,vf+176:zg=0
  228. 2270 gosub2740:rd=rd+1:gosub2640
  229. 2280 ifzg=k0thenpokerd+vn,kf:pokerd+vm,vf+176:ff=ff*ka+vf
  230. 2290 ifrl<k0thenff=-ff
  231. 2300 forrm=1to555:next:rd=776:sys879
  232. 2310 forr=776to794:forrd=r+k2torstep-k1:pokerd+1+vm,peek(rd+vm):next
  233. 2320 pokerd+k1+vn,11:pokerd+k1+vm,k0:next:rd=776:zg=k3:sys856,22,19:return
  234. 2330 bn=int(rnd(k1)*9):cn=int(rnd(k1)*k6)+49:bn$=chr$(bn+n4)
  235. 2340 sys856,8,21:printkf$rn$bn$b3$spc(2)"="spc(k1);:poke854+vn,12
  236. 2350 printrf$"root "chr$(cn)" of "bn$;
  237. 2360 ifcn=51thenprintr1$"cube root";
  238. 2370 ifcn=50thenprintr1$"square root";
  239. 2380 sys856,8,20:printrn$" 1/"chr$(cn)spc(4)rf$;:forr=1to2222:next
  240. 2390 print"1/"chr$(cn)" is the exponent"
  241. 2400 forr=1to2222:next:print"base "bn$:print:sys856,4,16:printm1$;
  242. 2410 getb$:js=peek(p6)andpeek(p7)andp8:ifb$<>b1$andjs<>kfthen2410
  243. 2420 sys879:poke829,11:sys828:printkf$rn$;:cc$="1/"+chr$(cn):rx=cn-n4
  244. 2430 forr=k1torx:sys856,7*(r-1),18:printb1$cc$;:sys856,7*(r-1),19:printbn$b3$;
  245. 2440 forrm=1to444:next:ifr<rxthenprintspc(1)"x";
  246. 2450 next:sys856,k2,22:print"="spc(k1)bn$;:sys856,k5,21:printcc$;
  247. 2460 ifcn>49thenforr=50tocn:forrm=1to444:next:printspc(1)"+"spc(k1)cc$;:next
  248. 2470 sys856,k2,24:print"="r1$bn$spc(k4)"="spc(k1)bn$spc(k2)"="r1$bn$;
  249. 2480 sys856,k5,23:printchr$(cn)"/"chr$(cn)spc(4)"1";
  250. 2490 sys856,k4,kf:printm1$;:forr=1to222:next:getb$
  251. 2500 getb$:js=peek(p6)andpeek(p7)andp8:ifb$<>b1$andjs<>kfthen2500
  252. 2510 forr=720+vmtor+39:poker,n2:next
  253. 2520 sys879:sys828:bn=int(rnd(k1)*ka)+n4:cn=int(rnd(k1)*9)+49:rw=bn-n4:ry=rw
  254. 2530 b$=b1$+chr$(bn)+b1$:ifbn=49then2550
  255. 2540 ifcn>49thenforr=50tocn:gosub780:next
  256. 2550 printrn$chr$(158);
  257. 2560 forrx=k0tok3:sys856,9,kd+rx:forr=k1tok7:printb3$;:next:next
  258. 2570 sys856,9,kf:printb$chr$(145)chr$(157);
  259. 2580 print"1/"chr$(cn)chr$(17)b1$"="b1$chr$(bn);:forr=1to2222:next:goto300
  260. 2590 b$=str$(ry):ve$=mid$(b$,k2,k1)+right$(b$,k1)
  261. 2600 ifry<kaandry=>k0thenve$=chr$(ry+n4)
  262. 2610 ifry<k0andry>-kathenve$="-"+chr$(abs(ry)+n4)
  263. 2620 ifry<-9thenve$="-"+ve$
  264. 2630 return
  265. 2640 xk=kf:xl=k5:cx=9
  266. 2650 getb$:js=peek(p6)andpeek(p7)andp8:vf=val(b$):ifcx<>9then2670
  267. 2660 pokerd+vm,63:sys856,xl,xk:printrf$"press  a  number  key ";
  268. 2670 cx=cx+1:ifcx<18then2700
  269. 2680 cx=0:pokerd+vm,191
  270. 2690 ifxf+zg=k2thensys856,xl,xk:printrn$"negative? press - key";
  271. 2700 ifb$=b1$orb$=chr$(kd)orjs=kfthenifzg=k0thenzg=k1:goto2730
  272. 2710 ifb$="-"andxf+zg=k2thenrl=-k1:zg=k2:pokerd+vm,173:rd=rd+k1
  273. 2720 ifb$<"0"orb$>"9"then2650
  274. 2730 cx=12:return
  275. 2740 sys856,30,kf:printrn$" again? "
  276. 2750 sys856,k5,17:print"or press space or fire to quit":return
  277. 2760 poke53269,0:forr=828to877:readrx:poker,rx:next:sys828
  278. 2770 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or0
  279. 2780 poke53272,57:poke648,204:forr=57344tor+7:poker,255:next
  280. 2790 forr=828to906:readrx:poker,rx:next
  281. 2800 vm=52224:vn=55296:dx=0:wx=4:js=31:ry=144:n8=128:n2=32:px=1:n4=48
  282. 2810 p6=56320:p7=56321:p8=31
  283. 2820 k0=0:k1=1:k2=2:k3=3:k4=4:k5=5:k6=6:k7=7:ka=10:kd=13:kf=15
  284. 2830 dimrw,wf,nc,bn,cn,rf,rl,rd,rk,ph,rm,ba,pa,pb,aa,cc,zg,xc,xd,ff,ck,xk,xl
  285. 2840 tn=1:dimb$,bn$,bb$,aa$,cc$,xb$,ve$
  286. 2850 r1$=chr$(29):r2$=chr$(29)+chr$(29):b1$=chr$(n2):b3$="   "
  287. 2860 kf$=chr$(155):rn$=chr$(18):rf$=chr$(146):kb$=chr$(151)
  288. 2870 m1$=rf$+chr$(153)+" press space or fire when ready "
  289. 2880 m5$=chr$(158)+"no division by  zero"
  290. 2890 b$=chr$(175):m2$=b1$:forr=1to38:m2$=m2$+b$:next
  291. 2900 r=peek(162):poke139,r+(r>127)*n8
  292. 2910 dimp(ka):forr=k1toka:readrx:p(r)=rx:next
  293. 2920 forr=58888tor+p8:readrx:poker,rx:next
  294. 2930 poke650,n8:poke53281,0:poke649,ka:printchr$(8)chr$(142)
  295. 2940 printchr$(147);:poke829,8:sys828:poke53280,14
  296. 2950 printchr$(k5)rn$;:sys856,21,k0:print" def/demo problem ":print
  297. 2960 printchr$(158)" positive exponents"spc(7)" 1       q "
  298. 2970 print" multiplication"spc(11)" 2       w "
  299. 2980 print" division"spc(17)" 3       e ":print
  300. 2990 printkf$" negative exponents"spc(7)" 4 ":print
  301. 3000 printchr$(158)" multiplication/division   5       t ":print
  302. 3010 printkf$" roots"spc(20)" 6 ":printm2$
  303. 3020 pokevm+p(px),peek(vm+p(px))+n8:pokevm+p(px)-1,0:pokevm+p(px)+1,0:return
  304. 3030 data206,14,220,165,1,41,251,133,1,169,208,133,32,169,224,133,34,169,0,133
  305. 3040 data31,133,33,168,162,16,177,31,145,33,200,208,249,230,32,230,34,202,208
  306. 3050 data242,165,1,9,4,133,1,238,14,220,96
  307. 3060 data169,11,162,0,160,240,157,248,218,232,136,208,249,169,0,162,0,160,240
  308. 3070 data157,248,206,232,136,208,249,96,0
  309. 3080 data32,253,174,32,158,183,142,87,3,32,253,174,32,158,183,172,87,3,24
  310. 3090 data32,240,255,96
  311. 3100 data169,32,162,0,160,240,157,224,205,232,136,208,249,96
  312. 3110 data169,15,162,0,160,240,157,224,217,232,136,208,249,96
  313. 3120 data107,147,187,267,347,427,115,155,195,355
  314. 3130 data227,199,143,159,31,63,63,63,63,63,63,31,159,143,199,227
  315. 3140 data199,227,241,249,248,252,252,252,252,252,252,248,249,241,227,199
  316.