home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / OHM (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  10KB  |  315 lines
  1. 1 REM **  OHM'S LAW CALCUATOR 3.8 **
  2. 2 REM
  3. 3 REM ******* JIM MIRUS 1987   *******
  4. 4 REM
  5. 5 REM ********* C-64 BASIC ***********
  6. 6 REM
  7. 7 REM
  8. 10 PRINT"[147]":POKE53280,11:POKE53281,0:PRINT"         [159]J[155] AND [158]J "
  9. 11 PRINT"               SOFTWARE"
  10. 12 PRINT"                   PRESENTS !":FORW=ITO1500:NEXTW
  11. 15 POKE53280,0:POKE53281,0:PRINTCHR$(147)
  12. 17 A=1:B=-1:C=40:D=-40:N=1:P=54272:V=1984
  13. 19 FORZ=1TO12:GOSUB35
  14. 21 V=V-39:N=N+1
  15. 23 NEXT
  16. 25 V=V+42:N=N-1
  17. 27 FORZ=1TO12:GOSUB35
  18. 29 V=V+42:N=N-1
  19. 31 NEXT
  20. 33 GOTO99
  21. 35 Q=INT(15*RND(1))+1
  22. 37 FORX=1TON:POKEV+A,67:POKEV+A+P,Q:V=V+A:NEXT
  23. 39 POKEV,75:POKEV+P,Q
  24. 41 FORX=1TON:POKEV+D,66:POKEV+D+P,Q:V=V+D:NEXT
  25. 43 POKEV,73:POKEV+P,Q
  26. 45 FORX=1TON:POKEV+B,67:POKEV+B+P,Q:V=V+B:NEXT
  27. 47 POKEV,85:POKEV+P,Q
  28. 49 FORX=1TON:POKEV+C,66:POKEV+C+P,Q:V=V+C:NEXT
  29. 51 POKEV,74:POKEV+P,Q
  30. 53 RETURN
  31. 99 FORW=1TO1300:NEXTW:PRINT""
  32. 100 PRINTCHR$(14):POKE53280,0:POKE53281,0:PRINT"[155]"
  33. 120 PRINT"                 [207]HM'S"
  34. 121 PRINT:PRINT"                  [204]AW"
  35. 124 PRINT
  36. 125 PRINT"  [129]             [195]ALCULATOR"
  37. 126 PRINT"                         [202][158]I[154]M [205][129]IR[156]U[150]S    "
  38. 130 FORW=ITO2300:NEXTW
  39. 140 GOSUB5000:POKE53280,11:PRINT" [196]EFINITIONS [146][155]"
  40. 150 PRINT" 1. [210] = [210]ESISTANCE IN OHMS"
  41. 155 PRINT" 2. [214] = [214]OLTAGE ([197][205][198]) IN [214]OLTS"
  42. 160 PRINT" 3. [201] = [195]URRENT IN [193]MPERES"
  43. 165 PRINT" 4. [208] = [208]OWER IN [215]ATTS"
  44. 170 PRINT" 5. [218] = [201]MPEDANCE IN [207]HMS"
  45. 175 PRINT" 6. [216]L = [201]NDUCTIVE [210]EACTANCE IN [207]HMS"
  46. 180 PRINT" 7. [216]C = [195]APACITIVE [210]EACTANCE IN [207]HMS"
  47. 185 PRINT" [208][210][197][211][211][160][193][206][217][160][203][197][217][160][146][155]"
  48. 186 GETA$:IFA$=""GOTO186
  49. 190 GOSUB5000:PRINT" [211]ELECT 1 OR 2 AND PRESS [210]ETURN [146][155]"
  50. 192 PRINT" 1. [207]HM'S [204]AW [195]ALCUATOR"
  51. 193 PRINT" 2. [193].[195]. [195]ALCUATOR"
  52. 195 PRINT:INPUTS
  53. 196 IFS=1THENGOTO200
  54. 197 IFS=2THENGOTO1010
  55. 200 GOSUB5000:PRINT" [211]ELECT [214]ALUE [206]EEDED AND PRESS [210]ETURN [146][155]"
  56. 210 PRINT" 1. [210]ESISTANCE IN [207]HMS ([210])"
  57. 220 PRINT" 2. [214]OLTAGE IN [214]OLTS ([214])"
  58. 230 PRINT" 3. [195]URRENT IN [193]MPERES ([201])"
  59. 240 PRINT" 4. [208]OWER IN [215]ATTS ([208])"
  60. 245 PRINT" 5. [210]ESISTANCE IN [208]ARALLEL"
  61. 247 PRINT" 6. [214]OLTAGE DROPING [210]ESISTOR"
  62. 250 PRINT:INPUTS
  63. 260 IFS=1THENGOTO300
  64. 265 IFS=2THENGOTO400
  65. 270 IFS=3THENGOTO500
  66. 275 IFS=4THENGOTO600
  67. 280 IFS=5THENGOTO700
  68. 290 IFS=6THENGOTO800
  69. 300 PRINT"[147]":PRINT"[158] [210]ESISTANCE [146][155]"
  70. 302 PRINT"[158][211]ELECT [203]NOWN [214]ALUES AND PRESS [210]ETURN[146][155]"
  71. 305 PRINT" 1. [214]OLTS ([214]) & [193]MPERES ([201])"
  72. 310 PRINT" 2. [215]ATTS ([208]) & [193]MPERES ([201])"
  73. 315 PRINT" 3. [214]OLTS ([214]) & [215]ATTS ([208])"
  74. 320 PRINT:INPUTNV
  75. 321 IFNV=1THENGOTO330
  76. 322 IFNV=2THENGOTO350
  77. 323 IFNV=3THENGOTO370
  78. 330 PRINT"[147] 1. [197]NTER [214]OLTAGE":INPUTV
  79. 335 PRINT" 2. [197]NTER [193]MPERES":INPUTI
  80. 340 PRINT:PRINT:R=V/I
  81. 342 PRINT"[158] [212]HE ANSWER IS [155][146]"R"[158] [207]HMS [146][155]"
  82. 345 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  83. 346 GETA$:IFA$=""THENGOTO346
  84. 347 IFA$="Y"THENGOTO300
  85. 348 IFA$="N"THENGOTO190
  86. 350 PRINT"[147] 1. [197]NTER [215]ATTS":INPUTP
  87. 352 PRINT" 2. [197]NTER [193]MPERES":INPUTI
  88. 355 PRINT:PRINT:R=P/I^2:GOTO342
  89. 370 PRINT"[147] 1. [197]NTER [214]OLTAGE":INPUTV
  90. 375 PRINT" 2. [197]NTER [215]ATTS":INPUTP
  91. 380 PRINT:PRINT:R=V^2/P:GOTO342
  92. 400 PRINT"[147][156] [214]OLTAGE [146][155]"
  93. 402 PRINT"[156][211]ELECT [203]NOWN [214]ALUES AND PRESS [210]ETURN[146][155]"
  94. 405 PRINT" 1. [193]MPERES ([201]) & [210]ESISTANCE ([210])"
  95. 410 PRINT" 2. [193]MPERES ([201]) & [215]ATTS ([208])"
  96. 415 PRINT" 3. [215]ATTS ([208]) & [210]ESISTANCE ([210])"
  97. 420 PRINT:INPUTS
  98. 421 IFS=1THENGOTO430
  99. 422 IFS=2THENGOTO450
  100. 423 IFS=3THENGOTO470
  101. 430 PRINT"[147] 1. [197]NTER [193]MPERES":INPUTI
  102. 435 PRINT" 2. [197]NTER [210]ESISTANCE":INPUTR
  103. 440 PRINT:PRINT:V=I*R
  104. 442 PRINT"[158] [212]HE ANSWER IS [146][155]"V"[158] [214]OLTS[146][155]"
  105. 443 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  106. 444 GETA$:IFA$=""THENGOTO444
  107. 445 IFA$="Y"THENGOTO400
  108. 446 IFA$="N"THENGOTO190
  109. 450 PRINT"[147] 1. [197]NTER [193]MPERES":INPUTI
  110. 452 PRINT" 2. [197]NTER [215]ATTS":INPUTP
  111. 455 PRINT:PRINT:V=P/I:GOTO442
  112. 470 PRINT"[147] 1. [197]NTER [215]ATTS":INPUTP
  113. 475 PRINT" 2. [197]NTER [210]ESISTANCE":INPUTR
  114. 480 PRINT:PRINT:V=SQR(P*R):GOTO442
  115. 500 PRINT"[147][129] [195]URRENT [146][155]"
  116. 502 PRINT"[129][211]ELECT [203]NOWN [214]ALUES AND PRESS [210]ETURN[155][146]"
  117. 505 PRINT" 1. [214]OLTAGE ([214]) & [210]ESISTANCE ([210])"
  118. 510 PRINT" 2. [214]OLTAGE ([214]) & [215]ATTS ([208])"
  119. 515 PRINT" 3. [210]ESISTANCE ([210]) & [215]ATTS ([208])"
  120. 520 PRINT:INPUTS
  121. 521 IFS=1THENGOTO530
  122. 522 IFS=2THENGOTO550
  123. 523 IFS=3THENGOTO570
  124. 530 PRINT"[147] 1. [197]NTER [214]OLTAGE":INPUTV
  125. 535 PRINT" 2. [197]NTER [210]ESISTANCE":INPUTR
  126. 540 PRINT:PRINT:I=V/R
  127. 542 PRINT"[158] [212]HE ANSWER IS [146][155]"I"[158] [193]MPERES [146][155]"
  128. 543 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  129. 544 GETA$:IFA$=""THENGOTO544
  130. 545 IFA$="Y"THENGOTO500
  131. 546 IFA$="N"THENGOTO190
  132. 550 PRINT"[147] 1. [197]NTER [214]OLTAGE":INPUTV
  133. 552 PRINT" 2. [197]NTER [215]ATTS":INPUTP
  134. 555 PRINT:PRINT:I=P/V:GOTO542
  135. 570 PRINT"[147] 1. [197]NTER [210]ESISTANCE":INPUTR
  136. 575 PRINT" 2. [197]NTER [215]ATTS":INPUTP
  137. 580 PRINT:PRINT:I=SQR(P/R):GOTO542
  138. 600 PRINT"[147] [208]OWER [146][155]"
  139. 602 PRINT"[211]ELECT [203]NOWN [214]ALUES AND PRESS [210]ETURN[146][155]"
  140. 605 PRINT" 1. [214]OLTAGE ([214]) & [193]MPERES ([201])"
  141. 610 PRINT" 2. [193]MPERES ([201]) & [210]ESISTANCE ([210])"
  142. 615 PRINT" 3. [214]OLTAGE ([214]) & [210]ESISTANCE ([210])"
  143. 620 PRINT:INPUTS
  144. 621 IFS=1THENGOTO630
  145. 622 IFS=2THENGOTO650
  146. 623 IFS=3THENGOTO670
  147. 630 PRINT"[147] 1. [197]NTER [214]OLTAGE":INPUTV
  148. 635 PRINT" 2. [197]NTER [193]MPERES":INPUTI
  149. 640 PRINT:PRINT:P=V*I
  150. 642 PRINT"[158] [212]HE ANSWER IS [146][155]"P"[158] [215]ATTS [146][155]"
  151. 643 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  152. 644 GETA$:IFA$=""THENGOTO644
  153. 645 IFA$="Y"THENGOTO600
  154. 646 IFA$="N"THENGOTO190
  155. 650 PRINT"[147] 1. [197]NTER [193]MPERES":INPUTI
  156. 652 PRINT" 2. [197]NTER [210]ESISTANCE":INPUTR
  157. 655 PRINT:PRINT:P=I^2*R:GOTO642
  158. 670 PRINT"[147] 1. [197]NTER [214]OLTAGE":INPUTV
  159. 675 PRINT" 2. [197]NTER [210]ESISTANCE":INPUTR
  160. 680 PRINT:PRINT:P=V^2/R:GOTO642
  161. 700 PRINT"[147][159][200]OW MANY [210]ESISTERS IN [208]ARALLEL[146][155]":PRINT:INPUTX
  162. 705 R(L)=0:RT=0
  163. 710 FORL=1TOX
  164. 720 PRINT:PRINT"[197]NTER VALUE #";L;:INPUTR(L)
  165. 730 NEXT
  166. 750 FORL=1TOX
  167. 760 RT=RT+(1/R(L)):NEXT
  168. 770 RT=1/RT
  169. 780 PRINT:PRINT"[158] [212]OTAL [210][197][201][211][212][193][206][195][197][160]IS [146][155]";RT"[158] [207]HMS [146][155]"
  170. 781 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  171. 782 GETA$:IFA$=""THENGOTO782
  172. 783 IFA$="Y"THENGOTO700
  173. 784 IFA$="N"THENGOTO190
  174. 800 PRINT"[147] [214]OLTAGE [196]ROP [146]"
  175. 805 PRINT"[155][211]ELECT PROGRAM NEEDED AND PRESS"
  176. 807 PRINT"[210]ETURN"
  177. 809 PRINT"1. [198]IND [214]OLTAGE DROP AT RESISTOR"
  178. 812 PRINT"2. [198]IND RESISTOR NEEDED TO DROP":PRINT"VOLTAGE TO DESIERED LEVEL."
  179. 815 INPUTS
  180. 820 IFS=1THENGOTO830
  181. 825 IFS=2THENGOTO900
  182. 830 PRINT"[147] [214]OLTAGE [196]ROP [146]"
  183. 833 R=0:I=0:V=0
  184. 835 PRINT:PRINT"[155][210]ESISTANCE IN [207]HMS":INPUTR
  185. 840 PRINT:PRINT"[195]URRENT IN [193]MPS.":INPUTI
  186. 845 V=I*R
  187. 850 PRINT" [212]HE ANSWER IS [146]"V" [214]OLTS [146]"
  188. 860 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  189. 865 GETA$:IFA$=""THENGOTO865
  190. 870 IFA$="Y"THENGOTO800
  191. 875 IFA$="N"THENGOTO190
  192. 900 PRINT"[147] [214]OLTAGE [196]ROP [146]"
  193. 905 PRINT"[155][213]SE THIS PROGRAM TO FIND VALUE OF"
  194. 907 PRINT"RESISTOR NEEDED TO DROP SOURCE VOLTAGE"
  195. 909 PRINT"TO THE VOLTAGE NEEDED FOR THE DEVICE.":PRINT
  196. 912 VX=0:VT=0:VL=0:R=0:IL=0
  197. 915 INPUT"[196]EVICE [214]OLTAGE";VL:PRINT
  198. 920 INPUT"[196]EVICE [195]URRENT ([193]MPS.)";IL:PRINT
  199. 925 INPUT"[211]OURCE [214]OLTAGE";VT
  200. 930 VX=VT-VL:R=VX/IL:P=VX*IL
  201. 940 PRINT" [210]ESISTANCE IS   [146][155] "R"  [207]HMS [146]"
  202. 945 PRINT" [214]OLTAGE DROP IS [146][155] "VX"  [214]OLTS [146]"
  203. 950 PRINT" [208]OWER  IS       [146][155] "P"  [215]ATTS [146]"
  204. 960 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  205. 965 GETA$:IFA$=""THENGOTO965
  206. 970 IFA$="Y"THENGOTO900
  207. 975 IFA$="N"THENGOTO190
  208. 1000 PRINT"[147]":PRINTCHR$(142)
  209. 1005 LOAD"*",8:CHR$(13)
  210. 1010 GOSUB5000:PRINT"[158] [193].[195]. "
  211. 1015 PRINT" [211]ELECT [214]ALUE [206]EEDED AND PRESS [210]ETURN [146][155]"
  212. 1020 PRINT" 1. [201]NPEDANCE IN [207]HMS"
  213. 1030 PRINT" 2. [201]NDUCTIVE [210]EACTANCE IN [207]HMS"
  214. 1040 PRINT" 3. [195]APACITIVE [210]EACTANCE IN [207]HMS"
  215. 1045 PRINT" 4. [201]NDUCTORS IN [208]ARALLEL"
  216. 1050 PRINT" 5. [195]APACITORS IN [211]ERIES"
  217. 1060 PRINT:INPUTS
  218. 1065 IFS=1THENGOTO1200
  219. 1067 IFS=2THENGOTO1300
  220. 1070 IFS=3THENGOTO1400
  221. 1075 IFS=4THENGOTO1500
  222. 1080 IFS=5THENGOTO1600
  223. 1200 GOSUB5000:PRINT"[158] [201]MPEDANCE [146][155]"
  224. 1205 PRINT"[158][211]ELECT [203]NOWN [214]ALUES AND PRESS [210]ETURN[146][155]"
  225. 1210 PRINT" 1. [210]ESISTANCE & [210]EACTANCE"
  226. 1212 Z=0:R=0:X=0:XL=0:XC=0
  227. 1215 PRINT" 2. [210]ESISTANCE, [201]NDUC./[210]EACT.([216]L) &      [195]APAC./[210]EACT.([216]C)"
  228. 1220 PRINT:INPUTS
  229. 1225 IFS=1THENGOTO1235
  230. 1230 IFS=2THENGOTO1265
  231. 1235 PRINT"[147]":PRINT"[158] [201]MPEDANCE [146][155]"
  232. 1240 PRINT"[197]NTER [210]ESISTANCE":INPUTR
  233. 1245 PRINT"[197]NTER [210]EACTANCE":INPUTX
  234. 1250 Z=SQR(R^2+X^2)
  235. 1255 PRINT"[158] [212]HE [201]MPEDANCE IS [146][155]"Z"[158] [207]HMS "
  236. 1256 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  237. 1257 GETA$:IFA$=""THENGOTO1257
  238. 1258 IFA$="Y"THENGOTO1200
  239. 1259 IFA$="N"THENGOTO190
  240. 1265 PRINT"[147]":PRINT"[158] [201]MPEDANCE [146][155]"
  241. 1270 PRINT"[197]NTER [210]ESISTANCE":INPUTR
  242. 1275 PRINT"[197]NTER [201]NDUCTIVE [210]EACTANCE":INPUTXL
  243. 1280 PRINT"[197]NTER [195]APACITIVE [210]EACTANCE":INPUTXC
  244. 1285 X=(XL-XC)^2:Z=SQR(R^2+X):GOTO1255
  245. 1300 GOSUB5000:PRINT"[156] [201]NDUCTIVE [210]EACTANCE [146][155]"
  246. 1305 PRINT"[156] [211]ELECT [203]NOWN [214]ALUES AND PRESS [210]ETURN [146][155]"
  247. 1310 PRINT" 1. [198]REQUENCY([200]Z) & [201]NDUCTANCE([200]ENRYS)"
  248. 1315 PRINT" 2. [201]NPEDANCE([218]), [196].[195]. [210]ESISTANCE"
  249. 1317 Z=0:XC=0:L=0:R=0:F=0:P=6.28
  250. 1320 PRINT:INPUTS
  251. 1325 IFS=1THENGOTO1340
  252. 1330 IFS=2THENGOTO1365
  253. 1340 PRINT"[147]":PRINT"[156] [201]NDUCTIVE [210]EACTANCE [146][155]"
  254. 1345 PRINT" [197]NTER [198]REQUENCY([200]Z)":INPUTF
  255. 1350 PRINT" [197]NTER [201]NDUCTANCE([200]ENRYS)":INPUTL
  256. 1352 XL=P*(F*L)
  257. 1355 PRINT"[158] [201]NDUCTIVE [210]EACTANCE IS [146][155]"XL"[158] [207]HMS "
  258. 1356 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  259. 1357 GETA$:IFA$=""THENGOTO1357
  260. 1358 IFA$="Y"THENGOTO1300
  261. 1359 IFA$="N"THENGOTO190
  262. 1365 PRINT"[147]":PRINT"[156] [201]NDUCTIVE [210]EACTANCE [146][155]"
  263. 1370 PRINT" [197]NTER [196].[195]. [210]ESISTANCE":INPUTR
  264. 1375 PRINT" [197]NTER [201]NPEDANCE":INPUTZ
  265. 1385 XL=SQR(Z^2-R^2)
  266. 1390 PRINT"[158] [201]NDUCTIVE [210]EACTANCE IS [146][155]"XL"[158] [207]HMS "
  267. 1392 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  268. 1393 GETA$:IFA$=""THENGOTO1393
  269. 1394 IFA$="Y"THENGOTO1300
  270. 1395 IFA$="N"THENGOTO190
  271. 1400 GOSUB5000:PRINT" [195]APACTIVE [210]EACTANCE [146][155]"
  272. 1405 PRINT""
  273. 1410 PRINT" [197]NTER [198]REQUENCY([200]Z)":INPUTF
  274. 1415 PRINT" [197]NTER CAPACITANCE([198]ARADS)":INPUTC
  275. 1420 P=6.28:XC=1/(P*F*C)
  276. 1425 PRINT"[158] [195]APACTIVE [210]EACTANCE IS [146][155]"XC"[158] [207]HMS "
  277. 1430 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  278. 1435 GETA$:IFA$=""THENGOTO1435
  279. 1440 IFA$="Y"THENGOTO1400
  280. 1445 IFA$="N"THENGOTO190
  281. 1500 PRINT"[147][159][200]OW MANY [201]NDUCTORS IN [208]ARALLEL[146][155]":PRINT:INPUTX
  282. 1505 R(L)=0:RT=0
  283. 1510 FORL=1TOX
  284. 1515 PRINT:PRINT"[197]NTER VALUE #";L;:INPUTR(L)
  285. 1520 NEXT
  286. 1525 FORL=1TOX
  287. 1530 RT=RT+(1/R(L)):NEXT
  288. 1535 RT=1/RT
  289. 1540 PRINT:PRINT"[158] [212]OTAL [201][206][196][213][195][212][193][206][195][197][160]: [146][155]";RT"[158] [200]ENRYS [146][155]"
  290. 1545 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  291. 1550 GETA$:IFA$=""THENGOTO1550
  292. 1555 IFA$="Y"THENGOTO1500
  293. 1560 IFA$="N"THENGOTO190
  294. 1600 PRINT"[147][159] [200]OW MANY [195]APACTORS IN [211]ERIES [146][155]"
  295. 1602 PRINT"         ( [205]ICROFARAD )":PRINT:INPUTX
  296. 1605 R(L)=0:RT=0
  297. 1610 FORL=1TOX
  298. 1615 PRINT:PRINT"[197]NTER VALUE #";L;:INPUTR(L)
  299. 1620 NEXT
  300. 1625 FORL=1TOX
  301. 1630 RT=RT+(1/R(L)):NEXT
  302. 1635 RT=1/RT
  303. 1640 PRINT:PRINT"[158] [212]OTAL [195][193][208][193][195][201][212][193][206][195][197][160]: [146][155]";RT"[158] MMF. [146][155]"
  304. 1645 FORT=1TO1000:NEXTT:PRINT" [212][210][217][160][193][199][193][201][206][160][217]/[206] [146][155]"
  305. 1650 GETA$:IFA$=""THENGOTO1650
  306. 1655 IFA$="Y"THENGOTO1600
  307. 1660 IFA$="N"THENGOTO190
  308. 5000 C1$="_"
  309. 5100 C1=23:C2=19:C3=24:C4=39:C5=59903
  310. 5200 FORJ=0TOC1:C2$=C2$+CHR$(32)+CHR$(157)+CHR$(17):NEXT:C2$=C2$+CHR$(145)
  311. 5300 FORJ=0TOC2:IFJ=0THENPOKE781,C3:SYSC5
  312. 5400 IFC1$="_"THENPRINT"";TAB(J);C2$:PRINT"";TAB(C4-J);C2$
  313. 5500 IFC1$="^"THENPOKE781,J:SYSC5:POKE781,C3-J:SYSC5
  314. 5600 NEXT:PRINT"[147]";:C2$="":RETURN
  315.