home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 195 / 195.d81 / b.afternoon / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  50.0 KB  |  539 lines
  1. 10 poke55,0:poke56,76:clr:rem top=$4c00
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 tb=36864:p=tb+12:b=tb+30:ld=tb+54
  4. 40 ml=32768:i=tb+18:c=tb+27:mm=52992:sp$="                                    "
  5. 50 poke650,128:poke53269,0
  6. 60 le$="  [164][136] [167][136][167][136][168][136] [168][136]"
  7. 70 ri$="[161][136] [168][136]  [168][136]  [167][136] [167][136]"
  8. 90 goto200
  9. 100 :
  10. 101 rem load modules
  11. 102 :
  12. 110 sys57812"toolbox 181 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  13. 120 sysld,"videoscript 0700",dv,51200
  14. 130 sysld,"mouse mate cf00",dv,52992
  15. 140 sysld,"sprites 230-255",dv,20480
  16. 150 sysld,"qs driver c000",dv,49152
  17. 160 sysld,"8k3 combined",dv,40960
  18. 170 sysld,"ml.afternoon",dv,32768
  19. 180 sysld,"f.afternoon",dv,22528
  20. 190 remsysld,"qs song 1   ",dv,99999
  21. 192 remsysld,"qs song 2   ",dv,99999
  22. 194 remsysld,"qs song 3   ",dv,99999
  23. 196 remsysld,"qs song 4   ",dv,99999
  24. 198 remsysld,"qs song 5   ",dv,99999
  25. 200 :
  26. 201 rem bank1: screen $4c00, font $5800
  27. 202 :
  28. 210 sysmm:pokemm+9,0:rem 1=enables stop
  29. 220 systb+36:poke53280,0:poke53281,0
  30. 230 poke53265,11:rem blank while change
  31. 240 print"[154][147]to regain screen control:"
  32. 250 print"poke 648,4 (return)"
  33. 260 poke56578,63:poke56576,198
  34. 270 poke53272,54:poke648,76
  35. 300 :
  36. 301 rem title screen sequence / loop
  37. 302 :
  38. 310 sysb,0,39,0,24,0,0:poke53272,56
  39. 320 poke53270,24:poke53265,59
  40. 330 sysml+3,30:systb,40960,49152,24576
  41. 340 sysml:sysml+6,16:poke198,0
  42. 350 getz$:ifz$<>chr$(13)then350
  43. 360 poke53265,11:poke53269,0
  44. 370 poke53272,54:poke53270,8
  45. 380 print"[147]":poke53265,27
  46. 390 sysml+36:rem clear question buffer
  47. 400 :
  48. 401 rem main menu
  49. 402 :
  50. 410 sysb,0,39,0,24,32,14
  51. 420 sysb,8,32,8,16,160,5
  52. 430 sysb,7,31,7,15,160,13
  53. 440 sysp,3,5,"\[215]ho wants to waste an afternoon ?\"
  54. 450 sysp,3,18,"[206]o prize money. [206]o [210]egis. [202]ust fun."
  55. 460 sysp,13,8,"[153][208]lease [211]elect"
  56. 470 sysp,8,10,"[198]1 [211]elect and play game[136][193]: [208]lay last game again"
  57. 480 sysp,8,12,"[198]3 [195]hange device:"+str$(dv)+" "
  58. 490 sysp,8,13,"[198]5 [195]reate a game file[136][198]7 [210]eturn to [204][207][193][196][211][212][193][210][146]"
  59. 500 :
  60. 510 systb+21,"[133]a[134][135][136]":ifi%=0then510
  61. 520 q=1:fi=0:ph=0:gr=0:rem important!
  62. 530 oni%goto1000,1020,600,4000,800
  63. 600 :
  64. 601 rem change working drive
  65. 602 :
  66. 610 sysmm+3:rem off!
  67. 620 dv=dv+1-1*(dv=13):ifdv=17thendv=8
  68. 630 close2:open2,dv,2:close2
  69. 640 ifstthen620
  70. 650 sysmm:rem on!
  71. 660 goto480
  72. 800 :
  73. 801 rem quit option
  74. 802 :
  75. 810 sysp,30,14,"[158]        [136] [209]uit ? [136] [217]es [206]o [136]        [146]"
  76. 820 getz$:ifz$=""then820
  77. 830 ifz$="y"then900
  78. 840 sysp,30,14,"[153]   [146]     [136][153]   [146]     [136]   [146]     [136]        ":goto500
  79. 900 :
  80. 901 rem restore video bank before quit
  81. 902 :
  82. 910 poke53265,11:rem blank
  83. 920 poke56578,63:poke56576,199
  84. 930 poke53272,23:poke648,4
  85. 940 print"[147][159]":poke53265,27
  86. 950 sysmm+3:rem off!
  87. 960 goto40000
  88. 1000 :
  89. 1001 rem begin new game
  90. 1002 :
  91. 1010 z$="$:aft.*":gosub10000:ifkthen400
  92. 1020 print"[147]":gosub9400:gosub9600:sysml+42
  93. 1030 sysml+12,0,0:sysml+3,60
  94. 1040 foro=0to3:sysml+12,o,o:sysml+3,16:next
  95. 1050 sysp,2,7,"[217]ou know the rules."
  96. 1060 foro=4to7:sysml+12,o,o:sysml+3,16:next
  97. 1070 sysp,2,8,"[217]ou know the lifelines."
  98. 1080 foro=8to12:sysml+12,o,o:sysml+3,16:next
  99. 1090 sysp,2,10,"[211]o let's play...[153]"
  100. 1100 foro=13to15:sysml+12,o,o:sysml+3,16:next
  101. 1110 sysc,14,"[215]ho wants to waste an afternoon!"
  102. 1120 foro=1to8:sysb,27,39,0,0,0,192
  103. 1130 sysml+3,8:sysb,27,39,0,0,0,192
  104. 1140 sysml+3,8:next
  105. 1200 :
  106. 1201 rem begin new question
  107. 1202 :
  108. 1210 sysb,0,26,7,10,32,14
  109. 1220 sysml+12,q,q-1:sysml+42
  110. 1230 sysml+3,30:gosub8000:poke646,1
  111. 1240 sysc,13,q$:sysc,14,r$:sysc,15,s$
  112. 1250 sysml+3,15+2*len(q$+r$+s$)
  113. 1260 sysp,2,17,"[129]*[193]: "+a$
  114. 1270 sysml+3,15+2*len(a$)
  115. 1280 sysp,2,19,"[129]*[194]: "+b$
  116. 1290 sysml+3,15+2*len(b$)
  117. 1300 sysp,2,21,"[129]*[195]: "+c$
  118. 1310 sysml+3,15+2*len(c$)
  119. 1320 sysp,2,23,"[129]*[196]: "+d$
  120. 1330 fi%=0
  121. 1400 :
  122. 1401 rem game loop
  123. 1402 :
  124. 1410 poke198,0
  125. 1420 systb+21,"abcdfpgk":ifi%=0then1420
  126. 1430 ifi%<5theni%=i%-1:iffi%=0ori%=ra%ori%=wa%then2000
  127. 1440 ifi%=5andfi=0then1700:rem fifty
  128. 1450 ifi%=6andph=0then1800:rem phone
  129. 1460 ifi%=7andgr=0then1900:rem graph
  130. 1470 ifi%<>8orq=1then1420
  131. 1500 :
  132. 1501 rem game over (multiple entrances)
  133. 1502 :
  134. 1510 q=q-1
  135. 1520 sysb,0,26,7,10,32,14:sysml+12,q,q
  136. 1530 gosub9400:gosub9200:sysml+9,q
  137. 1540 sysp,10,17,"[153][208][210][201][218][197][160][205][207][206][197][217] - [200][201][212][160][198]7"
  138. 1550 getz$:ifz$<>"[136]"then1550
  139. 1560 poke53269,0:goto400
  140. 1700 :
  141. 1701 rem lifelines
  142. 1702 :
  143. 1710 fi=1:fi%=1:gosub9630:sysml+3,60
  144. 1720 foro=0to3:ifo=wa%oro=ra%then1740
  145. 1730 sysb,2,37,17+o*2,17+o*2,32,14
  146. 1740 next:goto1400
  147. 1800 :
  148. 1810 ph=1:gosub9630:sysml+3,60
  149. 1820 z$="[153]"+g$+"[136]"+h$+"[136]"+i$+"[136]"+j$:iffi%thenz$="[153]"+k$+"[136]"+l$+"[136]"+m$+"[136]"+n$
  150. 1830 sysp,0,7,z$:goto1400
  151. 1900 :
  152. 1910 gr=1:gosub9630
  153. 1920 sysml+15:sysml+3,60
  154. 1930 iffi%then1950
  155. 1940 sysml+18,a1%,b1%,c1%,d1%:goto1400
  156. 1950 sysml+18,a2%,b2%,c2%,d2%:goto1400
  157. 2000 :
  158. 2001 rem answer question
  159. 2002 :
  160. 2010 sysb,0,26,7,10,32,6:sysml+12,q,q-1
  161. 2020 gosub9400:o=17+2*i%:sysml+6,18+i%
  162. 2030 sysb,5,37,o,o,255,0
  163. 2040 sysb,2,4,o,o,255,1
  164. 2050 sysml+3,30+15*q:rem orange pause
  165. 2060 ifq=15thensysml+3,225
  166. 2070 ifi%=ra%then2500
  167. 2200 :
  168. 2201 rem wrong
  169. 2202 :
  170. 2210 systb+39,208:poke53263,182+16*ra%
  171. 2220 poke53294,5:z=17+2*ra%
  172. 2230 sysp,4,z-1,"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][170]"
  173. 2240 poke53269,255:sysb,2,4,z,z,255,1:sysb,5,37,z,z,0,149
  174. 2250 sysp,4,z+1,"[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]"+mid$("[172][145][174][173][145][174]",1-3*(z=23),3)
  175. 2260 systb+39,216
  176. 2300 :
  177. 2310 sysml+45,5-(q>4)-(q>8)-(q>12)
  178. 2320 z=0:ifq>5thenz=5:ifq>10thenz=10
  179. 2330 sysml+3,180:q=z:goto1520
  180. 2500 :
  181. 2501 rem correct
  182. 2502 :
  183. 2510 foro=1to3-(q>4)-(q>9)-(q=15)
  184. 2520 sysml+6,18+i%:sysml+3,5
  185. 2530 sysml+6,22+i%:sysml+3,5:next
  186. 2540 sysml+12,q,q
  187. 2550 sysml+3,25+5*q:rem green pause
  188. 2600 :
  189. 2610 gosub9200:sysml+9,q:ifq=15then2800
  190. 2620 sysml+3,45+15*q:rem dollar pause
  191. 2630 gosub9600:sysb,0,39,12,24,32,14
  192. 2640 q=q+1:goto1200
  193. 2800 :
  194. 2801 rem jackpot winner
  195. 2802 :
  196. 2810 sysb,0,26,7,10,32,14:sysml+12,q,q
  197. 2820 sysp,28,12,"[129]3^_[129]$300[136]2^_[129]$200[136]1^_[129]$100"
  198. 2830 sysp,2,7,"[215][197][204][204] [196][207][206][197]![136][136][201]f this is your first[136]time playing this file,"
  199. 2840 sysp,2,11,"consider yourself to be[136]either clever or lucky!"
  200. 2850 sysp,2,14,"[217]ou're worth a million!"
  201. 2860 sysp,12,19,"[153][195]ongratulations![136][136][136][136]  [205][201][204][204][201][207][206][193][201][210][197]!":goto1540
  202. 4000 :
  203. 4001 rem edit menu
  204. 4002 :
  205. 4010 poke53269,0:print"[147]"
  206. 4020 sysb,8,32,8,16,160,6
  207. 4030 sysb,7,31,7,15,160,14
  208. 4040 sysp,3,5,"[200]ave you completed all lifelines ?"
  209. 4050 sysp,3,18,"[193]re your \correct\ answers right ?"
  210. 4060 sysp,13,8,"[154][195]reation [205]enu"
  211. 4070 sysp,8,10,"[204]: [204]oad game file[136][211]: [211]ave game file[136][206]: [195]reate new game file"
  212. 4080 sysp,8,13,"[198]5 [214]iew and edit memory[136][198]7 [209]uit without saving[146]"
  213. 4100 :
  214. 4110 systb+21,"lsn[135][136]":ifi%=0then4110
  215. 4120 oni%goto4140,4200,4130,5000,400
  216. 4130 sysml+36:goto4150
  217. 4140 z$="$:*":gosub10000:ifkthen4000
  218. 4150 q=1:fi=0:goto5000
  219. 4200 :
  220. 4201 rem save file
  221. 4202 :
  222. 4210 systb,24576,32256,25088:sysml+30
  223. 4220 f%=peek(251)+256*peek(252)
  224. 4230 sysp,3,5,"[129][197]nter save name prefixed by \[158]aft.[129]\"
  225. 4240 sysp,3,18,"[206]ame:                   [158][198]7[129] cancels"
  226. 4250 sysi,9,18,13,1,16,99,"[136]","aft."
  227. 4260 ifi%orw$="aft."orleft$(w$,4)<>"aft."thene$="[211]ave cancelled.":k=1:goto4350
  228. 4300 :
  229. 4310 sysmm+3:rem off!
  230. 4320 systb+51,w$,dv,24576,f%
  231. 4330 sysmm:rem on!
  232. 4340 k=val(e$):ifk=63then4400
  233. 4350 gosub12000:gosub10110:goto4000
  234. 4400 :
  235. 4410 sysp,2,20,"[158][198]ile already exists! [210]eplace it? [217]/[206]"
  236. 4420 getz$:ifz$<>"n"andz$<>"y"then4420
  237. 4430 sysb,0,39,20,20,32,14
  238. 4440 ifz$="n"then4250
  239. 4450 sysmm+3:rem off!
  240. 4460 systb+57,"s0:"+w$,dv
  241. 4470 sysmm:rem on!
  242. 4480 goto4300
  243. 5000 :
  244. 5001 rem view question mode (5000-5999)
  245. 5002 :
  246. 5010 sysp,0,0,"[147][136][136][195][210][211][210] [213]/[196] [129]view questions[136][195][210][211][210] [204]/[210][129] pre/post 50:50"
  247. 5020 sysp,0,5,"[198]1[129] to edit  [198]5[129] for menu":sysml+39
  248. 5030 gosub8000
  249. 5040 print"[129][209]uestion"str$(q)"[129] ("mid$("[194]efore[193]fter",1+fi*6,6)" 50:50) "
  250. 5050 poke53269,0:sysml+42
  251. 5100 :
  252. 5110 sysc,13,q$
  253. 5120 sysc,14,r$
  254. 5130 sysc,15,s$
  255. 5140 iffithen5400
  256. 5200 :
  257. 5210 sysml+18,a1%,b1%,c1%,d1%
  258. 5220 sysp,0,7,left$("[153]"+g$+sp$,28)
  259. 5230 sysp,0,8,left$(h$+sp$,27)
  260. 5240 sysp,0,9,left$(i$+sp$,27)
  261. 5250 sysp,0,10,left$(j$+sp$,27)
  262. 5300 :
  263. 5310 sysp,2,17,"[129]*[193]: "+a$
  264. 5320 sysp,2,19,"[129]*[194]: "+b$
  265. 5330 sysp,2,21,"[129]*[195]: "+c$
  266. 5340 sysp,2,23,"[129]*[196]: "+d$
  267. 5350 goto5600
  268. 5400 :
  269. 5410 sysml+18,a2%,b2%,c2%,d2%
  270. 5420 sysp,0,7,left$("[153]"+k$+sp$,28)
  271. 5430 sysp,0,8,left$(l$+sp$,27)
  272. 5440 sysp,0,9,left$(m$+sp$,27)
  273. 5450 sysp,0,10,left$(n$+sp$,27)
  274. 5500 :
  275. 5510 z$=sp$
  276. 5520 ifra%=0orwa%=0thenz$="[129]*[193]: "+a$
  277. 5530 sysp,2,17,z$:z$=sp$
  278. 5540 ifra%=1orwa%=1thenz$="[129]*[194]: "+b$
  279. 5550 sysp,2,19,z$:z$=sp$
  280. 5560 ifra%=2orwa%=2thenz$="[129]*[195]: "+c$
  281. 5570 sysp,2,21,z$:z$=sp$
  282. 5580 ifra%=3orwa%=3thenz$="[129]*[196]: "+d$
  283. 5590 sysp,2,23,z$
  284. 5600 :
  285. 5610 sysml+6,22+ra%
  286. 5800 :
  287. 5801 rem view loop
  288. 5802 :
  289. 5810 getz$:ifz$=""then5810
  290. 5820 ifz$="[145]"andq<15thenq=q+1:goto5030
  291. 5830 ifz$=""andq>1thenq=q-1:goto5030
  292. 5840 ifz$="[157]"orz$=""then5900
  293. 5850 ifz$="[135]"then4000
  294. 5860 ifz$="[133]"then6000
  295. 5870 goto5810
  296. 5900 :
  297. 5910 fi=1-fi
  298. 5920 print"[129][209]uestion"str$(q)"[129] ("mid$("[194]efore[193]fter",1+fi*6,6)" 50:50) "
  299. 5930 iffithen5400
  300. 5940 goto5200
  301. 6000 :
  302. 6001 rem edit this question (6000-6999)
  303. 6002 :
  304. 6010 poke53269,0:print"[147]"
  305. 6020 sysp,0,0,"[155]  [162][136] [167][136][161][136] [168][136]"+le$+le$+le$+le$
  306. 6030 sysp,37,0,"[163][136] [168][136]  [164][136] [167][136]"+ri$+ri$+ri$+ri$
  307. 6040 sysp,3,0,"[192][192][192] [209][213][197][211][212][201][207][206]: [158][191][155] [201][198][160][206][197][197][196][160][209][213][207][212][197][211] [192][192][192][163]"
  308. 6050 sysp,3,4,"[192][192] [193][206][211][215][197][210][211]: [158][198]5[155] [195][207][210][210][197][195][212] [158][198]7[155] [207][212][200][197][210] [192][192][136][193]:[136][194]:[136][195]:[136][196]:"
  309. 6060 sysp,3,9,"[192][192][192][192][192][192][192][192][192] [208][210][197]-50:50 [208][200][207][206][197] [192][192][192][192][192][192][192][192]"
  310. 6070 sysp,3,14,"[192][192][192][192] [208][207][211][212]-50:50 [208][200][207][206][197]: [158][198]3[155] [211][193][205][197] [192][192][192]"
  311. 6080 sysp,3,19,"[192][192] [208][210][197]-50 [199][210][193][208][200] [192][192] [208][207][211][212]-50 [199][210][193][208][200] [192]"
  312. 6090 sysp,2,24,"[165][192][192][192][192] [158][198]1[155] [215][200][197][206][160][196][207][206][197][160][209][213][197][211][212][201][207][206][158]"+str$(q)+"[155] [192][192][192][192]"
  313. 6100 sysp,36,24,"[192][166]"
  314. 6110 sysp,11,20,"[193]:    %[136][194]:    %[136][195]:    %[136][196]:    %"
  315. 6120 sysp,22,20,"[193]:    %[136][194]:    %[136][195]:    %[136][196]:    %"
  316. 6130 sysp,2,1,"[154] "+q$+"[136]"+r$+"[136] "+s$
  317. 6140 sysp,6,5,a$+"[136]"+b$+"[136]"+c$+"[136]"+d$
  318. 6150 sysp,3,10,g$+"[136]"+h$+"[136]"+i$+"[136]"+j$
  319. 6160 sysp,3,15,k$+"[136]"+l$+"[136]"+m$+"[136]"+n$
  320. 6170 gosub7000:gosub7200:gosub7430
  321. 6200 :
  322. 6210 sysi,3,1,14,7,34,99,"[133][145]",q$
  323. 6220 q$=w$:oni%goto7900,6970
  324. 6230 sysi,2,2,14,7,36,99,"[133][145]",r$
  325. 6240 r$=w$:oni%goto7900,6210
  326. 6250 sysi,3,3,14,7,34,99,"[133][145]",s$
  327. 6260 s$=w$:oni%goto7900,6230
  328. 6300 :
  329. 6310 sysi,6,5,14,7,31,99,"[133][145][135][136]",a$
  330. 6320 a$=w$:oni%goto7900,6250
  331. 6330 ifi%>3theno=0:gosub7400:goto6310
  332. 6340 sysi,6,6,14,7,31,99,"[133][145][135][136]",b$
  333. 6350 b$=w$:oni%goto7900,6310
  334. 6360 ifi%>3theno=1:gosub7400:goto6340
  335. 6370 sysi,6,7,14,7,31,99,"[133][145][135][136]",c$
  336. 6380 c$=w$:oni%goto7900,6340
  337. 6390 ifi%>3theno=2:gosub7400:goto6370
  338. 6400 sysi,6,8,14,7,31,99,"[133][145][135][136]",d$
  339. 6410 d$=w$:oni%goto7900,6370
  340. 6420 ifi%>3theno=3:gosub7400:goto6400
  341. 6500 :
  342. 6510 sysi,3,10,14,7,27,99,"[133][145]",g$
  343. 6520 g$=w$:oni%goto7900,6400
  344. 6530 sysi,3,11,14,7,27,99,"[133][145]",h$
  345. 6540 h$=w$:oni%goto7900,6510
  346. 6550 sysi,3,12,14,7,27,99,"[133][145]",i$
  347. 6560 i$=w$:oni%goto7900,6530
  348. 6570 sysi,3,13,14,7,27,99,"[133][145]",j$
  349. 6580 j$=w$:oni%goto7900,6550
  350. 6600 :
  351. 6610 sysi,3,15,14,7,27,99,"[133][145][134]",k$
  352. 6620 k$=w$:oni%goto7900,6570
  353. 6630 ifi%=4thengosub7600:goto6610
  354. 6640 sysi,3,16,14,7,27,99,"[133][145][134]",l$
  355. 6650 l$=w$:oni%goto7900,6610
  356. 6660 ifi%=4thengosub7600:goto6640
  357. 6670 sysi,3,17,14,7,27,99,"[133][145][134]",m$
  358. 6680 m$=w$:oni%goto7900,6640
  359. 6690 ifi%=4thengosub7600:goto6670
  360. 6700 sysi,3,18,14,7,27,99,"[133][145][134]",n$
  361. 6710 n$=w$:oni%goto7900,6670
  362. 6720 ifi%=4thengosub7600:goto6700
  363. 6800 :
  364. 6810 sysi,14,128+20,14,7,2,0,"[133][145]",mid$(str$(a1%),2):a1%=val(w$):gosub7000
  365. 6820 oni%goto7900,6700
  366. 6830 sysi,14,128+21,14,7,2,0,"[133][145]",mid$(str$(b1%),2):b1%=val(w$):gosub7000
  367. 6840 oni%goto7900,6810
  368. 6850 sysi,14,128+22,14,7,2,0,"[133][145]",mid$(str$(c1%),2):c1%=val(w$):gosub7000
  369. 6860 oni%goto7900,6830
  370. 6870 sysi,14,128+23,14,7,2,0,"[133][145]",mid$(str$(d1%),2):d1%=val(w$):gosub7000
  371. 6880 oni%goto7900,6850
  372. 6900 :
  373. 6910 sysi,25,128+20,14,7,2,0,"[133][145]",mid$(str$(a2%),2):a2%=val(w$):gosub7200
  374. 6920 oni%goto7900,6870
  375. 6930 sysi,25,128+21,14,7,2,0,"[133][145]",mid$(str$(b2%),2):b2%=val(w$):gosub7200
  376. 6940 oni%goto7900,6910
  377. 6950 sysi,25,128+22,14,7,2,0,"[133][145]",mid$(str$(c2%),2):c2%=val(w$):gosub7200
  378. 6960 oni%goto7900,6930
  379. 6970 sysi,25,128+23,14,7,2,0,"[133][145]",mid$(str$(d2%),2):d2%=val(w$):gosub7200
  380. 6980 oni%goto7900,6950
  381. 6990 goto6210
  382. 7000 :
  383. 7001 rem edit's subroutines (7000-7999)
  384. 7002 :
  385. 7010 poke646,14
  386. 7020 sysp,13,20,str$(a1%)+" "
  387. 7030 sysp,13,21,str$(b1%)+" "
  388. 7040 sysp,13,22,str$(c1%)+" "
  389. 7050 sysp,13,23,str$(d1%)+" "
  390. 7060 o=a1%+b1%+c1%+d1%
  391. 7070 poke646,13:ifo<>100thenpoke646,2
  392. 7080 sysp,3,21,"[212][207][212][193][204][136]"+right$(" "+str$(o),3)+" %"
  393. 7090 return
  394. 7200 :
  395. 7210 poke646,14
  396. 7220 sysp,24,20,str$(a2%)+" "
  397. 7230 sysp,24,21,str$(b2%)+" "
  398. 7240 sysp,24,22,str$(c2%)+" "
  399. 7250 sysp,24,23,str$(d2%)+" "
  400. 7260 o=a2%+b2%+c2%+d2%
  401. 7270 poke646,13:ifo<>100thenpoke646,2
  402. 7280 sysp,31,21,"[212][207][212][193][204][136]"+right$(" "+str$(o),3)+" %"
  403. 7290 return
  404. 7400 :
  405. 7410 ifi%=4thenra%=o:ifra%=wa%thenwa%=(ra%+1)and3
  406. 7420 ifi%=5thenwa%=o:ifra%=wa%thenra%=(ra%+1)and3
  407. 7430 z$="":foro=0to3
  408. 7440 ifra%=othenz$=z$+"[153][176][136]":goto7470
  409. 7450 ifwa%=othenz$=z$+"[175][136]":goto7470
  410. 7460 z$=z$+"[154] [136]"
  411. 7470 next:sysp,2,5,z$
  412. 7480 sysp,10,20,z$:sysp,21,20,z$
  413. 7490 return
  414. 7600 :
  415. 7610 k$=g$:l$=h$:m$=i$:n$=j$
  416. 7620 sysb,3,36,15,18,32,14:poke646,14
  417. 7630 sysp,3,15,k$+"[136]"+l$+"[136]"+m$+"[136]"+n$
  418. 7640 return
  419. 7900 :
  420. 7910 gosub8500:goto5000
  421. 8000 :
  422. 8001 rem load whole question subroutine
  423. 8002 :
  424. 8010 sysml+24,q
  425. 8020 ifk$=""andl$=""andm$=""andn$=""thenk$=g$:l$=h$:m$=i$:n$=j$
  426. 8100 ra%=val(mid$(x$,1,1)):rem correct
  427. 8110 a1%=val(mid$(x$,2,2)):rem graph 1
  428. 8120 b1%=val(mid$(x$,4,2))
  429. 8130 c1%=val(mid$(x$,6,2))
  430. 8140 d1%=val(mid$(x$,8,2))
  431. 8200 wa%=val(mid$(y$,1,1)):rem other-50
  432. 8210 a2%=val(mid$(y$,2,2)):rem graph 2
  433. 8220 b2%=val(mid$(y$,4,2))
  434. 8230 c2%=val(mid$(y$,6,2))
  435. 8240 d2%=val(mid$(y$,8,2))
  436. 8300 ifwa%=ra%thenwa%=(ra%+1)and3
  437. 8310 return
  438. 8500 :
  439. 8501 rem save whole question subroutine
  440. 8502 :
  441. 8510 x$=right$(str$(ra%),1):rem correct
  442. 8520 x$=x$+right$(str$(a1%),2):rem & g1
  443. 8530 x$=x$+right$(str$(b1%),2)
  444. 8540 x$=x$+right$(str$(c1%),2)
  445. 8550 x$=x$+right$(str$(d1%),2)
  446. 8600 y$=right$(str$(wa%),1):rem other50
  447. 8610 y$=y$+right$(str$(a2%),2):rem & g2
  448. 8620 y$=y$+right$(str$(b2%),2)
  449. 8630 y$=y$+right$(str$(c2%),2)
  450. 8640 y$=y$+right$(str$(d2%),2)
  451. 8700 ifk$=g$andl$=h$andm$=i$andn$=j$thenk$="":l$="":m$="":n$=""
  452. 8710 sysml+27,q,q$,r$,s$,a$,b$,c$,d$,g$,h$,i$,j$,k$,l$,m$,n$,x$,y$
  453. 8720 return
  454. 9000 :
  455. 9001 rem "draw question diamonds"            subroutine replaced by "sys ml+42"
  456. 9200 :
  457. 9201 rem dollar diamond subroutine
  458. 9202 :
  459. 9210 poke53269,0:sysb,0,39,12,24,32,14
  460. 9220 sysp,0,18,"[154]    [162][192][192][192][192][159][192][192][192][192][192][192][192][192][155][192][192][192][192][192][192][159][192][192][192][192][192][192][192][192][154][192][192][192][192][163]    "
  461. 9230 sysp,0,19,"[154]   [167]     [159]        [155]      [159]        [154]     [168]   "
  462. 9240 sysp,0,20,"[154]  [167] [158][255][146][154]    [159]        [155]      [159]        [154]    [158][255][146][154] [168]  "
  463. 9250 sysp,0,21,"[154][192][161] [158][189][190][191][146][154]   [159]        [155]      [159]        [154]   [158][189][190][191][146][154] [164][192]"
  464. 9260 sysp,0,22,"[154]  [168] [158][223][146][154]    [159]        [155]      [159]        [154]    [158][223][146][154] [167]  "
  465. 9270 sysp,0,23,"[154]   [168]     [159]        [155]      [159]        [154]     [167]   "
  466. 9280 sysp,0,24,"[154]    [165][192][192][192][192][159][192][192][192][192][192][192][192][192][155][192][192][192][192][192][192][159][192][192][192][192][192][192][192][192][154][192][192][192][192][166]   "
  467. 9290 return
  468. 9400 :
  469. 9401 rem empty lifelines subroutine
  470. 9402 :
  471. 9410 sysp,0,1,"  [154][161][162][163][164][165][161][162][163][164][165][161][162][163][164][165][146]"
  472. 9420 sysp,0,2," [166][146]     [172][166][172][166][172][146]"
  473. 9430 sysp,0,3," [173][146]     [179][173][179][173][179][146]"
  474. 9440 sysp,0,4,"  [180][181][182][183][184][180][181][182][183][184][180][181][182][183][184][146]"
  475. 9450 poke53269,0
  476. 9460 sysp,2,0,"[198][158]ifty    [208][158]hone    [199][158]raph[136][136][136][136][136][211]elect [193][194][195][196][158]  [203][158]eep [205]oney"
  477. 9470 return
  478. 9600 :
  479. 9601 rem full lifelines subroutine
  480. 9602 :
  481. 9610 sysp,2,2,"[167][168][169][170][171][136][174][175][176][177][178][146][136]"
  482. 9620 sysml+6,17
  483. 9630 poke53269,120+fi+2*ph+4*gr
  484. 9640 return
  485. 10000 :
  486. 10001 rem load file subroutine
  487. 10002 :
  488. 10010 gosub11000:iff$=""thene$="[204]oad cancelled.":k=1:goto10100
  489. 10020 ifleft$(f$,4)<>"aft."thene$="[207]nly load 'aft.' files.":k=1:goto10100
  490. 10030 sysmm+3:rem off!
  491. 10040 systb+54,f$,dv,24576
  492. 10050 sysmm:rem on!
  493. 10060 k=val(e$)
  494. 10100 gosub12000:ifkthen10130
  495. 10110 systb,24576,f%,32768+24576-f%
  496. 10120 sysml+33,32768+24576-f%
  497. 10130 return
  498. 11000 :
  499. 11001 rem file requestor subroutine
  500. 11002 :
  501. 11010 sysb,0,39,0,24,32,14
  502. 11020 sysb,6,35,3,23,160,6
  503. 11030 sysb,5,34,2,22,160,14
  504. 11040 sysp,13,12,"[154]please wait..."
  505. 11050 sysmm+3:rem off!
  506. 11060 systb+66,z$,dv,53248,255
  507. 11070 sysmm:rem on!
  508. 11080 sysp,11,3,t$:sysp,16,21,b$
  509. 11090 sysp,5,21,str$(n%)+" files"
  510. 11100 sysp,7,0,"[146][159][211]elect file or [158][209][159] to cancel"
  511. 11110 systb+69,6,255,5,19,14,3,53248
  512. 11120 return
  513. 12000 :
  514. 12001 rem error message subroutine
  515. 12002 :
  516. 12010 k1=5:k2=13:ifkthenk1=9:k2=8
  517. 12020 sysb,1,39,11,15,160,k1
  518. 12030 sysb,0,38,10,14,160,k2
  519. 12040 poke646,k2:poke198,0
  520. 12050 sysc,11,""+e$
  521. 12060 sysc,13,"[208]ress any key to continue[146]"
  522. 12070 getz$:ifz$=""then12070
  523. 12080 return
  524. 40000 :
  525. 40001 rem return to loadstar
  526. 40002 :
  527. 40005 fori=0to21:poke828+i,8+i:next
  528. 40010 ifdv<8ordv>29ordv=8then40030
  529. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  530. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  531. 40040 close2:open2,i,2:close2:ifstthen40060
  532. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  533. 40060 next:print"[147]":poke53272,23:poke186,8:end
  534. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  535. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  536. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  537. 63998 end
  538. 63999 a$="bas.afternoon":open15,8,15,"s0:"+a$:close15:savea$,8
  539.