home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / ROCKNROLL.SFX / r3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-09-05  |  29.3 KB  |  1,003 lines
  1. 0 REM "ROCK" BY KEVIN SMITH. COMMODORE 64 VERSION 1984 K-TEL INTERNATIONAL LTD
  2. 1 DIMB(20):DIMA$(40)
  3. 2 GOSUB7620
  4. 4 HS=0:HL=0
  5. 5 GOSUB9600:GOTO400
  6. 10 PO=PO+(FA*10)
  7. 11 IFRR=1THENPO=PO+INT(PR/1000)+SR
  8. 12 IFPO>1000THENPO=1000
  9. 13 IFPO<0THENPO=0
  10. 15 IFHA>100THENHA=100
  11. 16 IFHA<0THENHA=0
  12. 18 MU=MU-(FA*1500)
  13. 19 MU=INT(MU*MI):IFRR=0THEN23
  14. 20 H1=INT(11*RND(1)*SR):H2=PO+H1*(10000*RY)/150
  15. 21 MU=INT(MU+H2)
  16. 23 IFEN<0THENEN=0
  17. 24 IFEN>1000THENEN=1000
  18. 25 IFRR=1THENU=U+1
  19. 40 IFBA<1THEN44
  20. 41 IFBA<=6THENMU=INT(MU-IN)
  21. 42 BA=BA+1
  22. 43 IFBA>6THENIN=IN*2:MU=INT(MU-IN)
  23. 44 GOSUB5200
  24. 45 IFMO>=TMOTHEN5500
  25. 46 IFMU<=0THEN5510
  26. 47 IFHA=0THEN5520
  27. 50 RETURN
  28. 400 POKEPQ,255:POKE53280,2:POKE53281,6:PRINT"[147]"
  29. 402 PRINT"WHAT WILL YOU CALL"
  30. 405 PRINT"YOUR GROUP?"
  31. 410 PRINT "(MAX 14 LETTERS)"
  32. 411 SM=31:GOSUB9820
  33. 412 INPUT "";N$
  34. 415 IFLEN(N$)>14THEN410
  35. 416 PRINT"[147]WHAT LEVEL? (1-3)";:N=0:POKESV+5,4
  36. 417 POKESV+1,150:POKESV+4,33:FORC=0TO150:NEXT:POKESV+4,32
  37. 418 N=N+1:IFN<3THEN417
  38. 421 INPUT LE:POKE830,LE
  39. 422 IFLE=3THENTM=36:GOTO7030
  40. 423 IFLE=2THENTM=48:GOTO7030
  41. 424 IFLE=1THENTM=60:GOTO7030
  42. 425 GOTO421
  43. 501 IFPO>100ANDRC=0ANDRND(1)*100>65THEN8110
  44. 503 IFRND(1)*101>85THENGOSUB5000
  45. 505 IFEN=<0THENGOSUB1401
  46. 506 IFEN<=0AND RND(1)*100>50THEN5530
  47. 507 PRINT"[147]":POKE53281,2:POKE53280,14
  48. 508 PRINT"[159]"
  49. 509 PRINTSPC(8)"(A) STATUS REPORT":PRINTSPC(8)"(B) WRITE SONG"
  50. 510 PRINTSPC(8)"(C) TOUR":PRINTSPC(8)"(D) CONCERT"
  51. 511 PRINTSPC(8)"(E) MANAGER":PRINTSPC(8)"(F) GET STATUS SYMBOL"
  52. 512 PRINTSPC(8)"(G) MAKE RECORD":PRINTSPC(8)"(H) REST"
  53. 515 POKESV+24,15:GOSUB 9870
  54. 520 LETI$=""
  55. 529 INPUT"";I$
  56. 530 IFI$="A"THEN7000
  57. 540 IFI$="B"THEN1505
  58. 545 IFI$="C"THEN2000
  59. 550 IFI$="D"THEN1002
  60. 555 IFI$="E"THEN6210
  61. 560 IFI$="F"THEN3500
  62. 565 IFI$="G"THEN8005
  63. 570 IFI$="H"THENGOSUB4501:GOTO501
  64. 575 GOTO529
  65. 1002 Z=RND(1)*100
  66. 1004 POKE53281,0:POKE53280,2:PRINT"[147]THE FOLLOWING VENUES ARE"
  67. 1005 PRINT"AVAILABLE TO YOU...."
  68. 1010 PRINTSPC(8)"(0) OTHER OPTIONS"
  69. 1011 PRINTSPC(8)"(1) STREET CONCERT"
  70. 1012 IFPO<5THENK=1:GOTO1060
  71. 1013 PRINTSPC(8)"(2) LOCAL PUB"
  72. 1014 IFPO<10THENK=2:GOTO1060
  73. 1015 PRINTSPC(8)"(3) LOCAL NIGHT CLUB"
  74. 1016 IFPO<100THENK=3:GOTO1060
  75. 1017 PRINTSPC(8)"(4) UNIVERSITY UNION"
  76. 1018 IFPO<200THENK=4:GOTO1060
  77. 1019 PRINTSPC(8)"(5) NEW YORK THEATRE"
  78. 1020 IFPO<500THENK=5:GOTO1060
  79. 1022 K=6
  80. 1025 PRINTSPC(8)"(6) MADISON SQUARE GARDENS"
  81. 1060 PRINTSPC(8)"ENTER YOUR CHOICE"
  82. 1062 GOSUB9870
  83. 1065 INPUT"                         [145]";D
  84. 1070 IFD<=0THEN501
  85. 1072 IFD<=KTHENONDGOTO1110,1120,1130,1140,1150,1160
  86. 1080 GOTO1065
  87. 1110 CO=0:K=100:GOSUB1200
  88. 1111 PRINT"YOU ENTERTAIN IN THE":PRINT"SUBWAY FOR A MONTH"
  89. 1113 IFZ<35THENGOTO1117
  90. 1114 GOSUB 1300:GOTO1866
  91. 1117 PRINT"UNFORTUNATELY YOU ARE ARRESTED "
  92. 1118 PRINT"- AND FINED $300 [146]             "
  93. 1119 MU=MU-300:GOTO1114
  94. 1120 CO=30:K=200:GOSUB1200
  95. 1121 PRINT"YOU GIVE A CONCERT":PRINT"AT YOUR LOCAL PUB"
  96. 1123 IFZ<35THEN1127
  97. 1124 GOSUB1300:GOTO2875
  98. 1127 PRINT"UNFORTUNATELY IT IS DARTS NIGHT"
  99. 1128 PRINT"AND YOU LOSE POPULARITY [146]        "
  100. 1129 PO=PO-5:GOTO1124
  101. 1130 CO=90:K=250:GOSUB1200
  102. 1131 PRINT"YOU GIVE A CONCERT":PRINT"AT A NIGHT CLUB"
  103. 1133 IFZ<35THEN1137
  104. 1134 GOSUB1300:GOTO2875
  105. 1137 PRINT"UNFORTUNATELY IT IS RAIDED"
  106. 1138 PRINT"BY POLICE. YOU LOSE HAPPINESS"
  107. 1139 HA=HA-10:GOTO1134
  108. 1140 CO=150:K=300:GOSUB1200
  109. 1141 PRINT"YOU GIVE A CONCERT":PRINT"AT THE UNIVERSITY UNION"
  110. 1143 IFZ<35THEN1147
  111. 1144 GOSUB1300:GOTO2875
  112. 1147 PRINT"YOU ARE GIVEN A SUSPICIOUS"
  113. 1148 PRINT"SUBSTANCE. YOU LOSE ENERGY"
  114. 1149 EN=EN-100:GOTO1144
  115. 1150 CO=2000:K=550:GOSUB1200
  116. 1151 PRINT"YOU GIVE A CONCERT":PRINT"AT A NEW YORK THEATRE"
  117. 1153 IFZ<35THEN1157
  118. 1154 GOSUB1300:GOTO2875
  119. 1157 PRINT"THERE IS A BOMB SCARE. THE"
  120. 1158 PRINT"FANS WANT THEIR MONEY BACK"
  121. 1159 MU=MU-NC:GOTO1154
  122. 1160 CO=20000:K=1000:GOSUB1200
  123. 1161 PRINT"YOU GIVE A CONCERT":PRINT"AT MADISON SQUARE GARDENS"
  124. 1163 IFZ<35THEN1167
  125. 1164 GOSUB1300:GOTO2875
  126. 1167 PRINT"UNFORTUNATELY IT RAINS"
  127. 1168 PRINT"YOU LOSE POPULARITY [146]           "
  128. 1169 PO=PO-150:GOTO1164
  129. 1200 REM
  130. 1204 POKE53281,0:PRINT"[147]"
  131. 1205 PRINT"YOU HAVE";EN;"ENERGY":PRINT"HOW MUCH WILL YOU PUT"
  132. 1206 PRINT"INTO YOUR PERFORMANCE?":PRINT"(MAX 200)"
  133. 1207 GOSUB9870
  134. 1208 INPUT"";EI
  135. 1210 IFEI>ENTHEN1208
  136. 1211 IFEI>200THEN1208
  137. 1214 IFEN<=0AND RND(1)*100>50THEN5530
  138. 1215 EN=INT(EN-EI)
  139. 1217 PO=PO+INT((EI/30)+RND(1)*5):IFPO>1000THENPO=1000
  140. 1219 HA=HA+5
  141. 1220 MO=MO+1
  142. 1222 NC=INT(PO/10*K)+40
  143. 1223 MU=MU+NC
  144. 1224 MU=MU-CO
  145. 1225 PRINT"[147][129]"SPC(8)"IT COST YOU $";CO:PRINT""SPC(8)"YOU EARN $";NC
  146. 1226 PRINT"YOUR POPULARITY IS";PO
  147. 1230 RETURN
  148. 1300 GOTO9900
  149. 1401 POKE53281,6:PRINT""
  150. 1402 Q=RND(1)*100
  151. 1404 PRINT"[147]YOU  DON'T  SEEM  TO  HAVE"
  152. 1405 PRINT"ANY ENERGY. I WOULD ADVISE"
  153. 1406 PRINT"YOU TO TAKE A REST.":PRINT"DO YOU TAKE ADVICE ? (Y/N)"
  154. 1407 GET I$:IFI$="Y"THEN4501
  155. 1408 IF I$="N"THEN RETURN
  156. 1409 A=A+1:IFA>2THEN1413
  157. 1410 PRINT"DOCTOR'S WARNING!!"
  158. 1412 POKESV+1,30:POKESV+5,9:POKESV+4,17
  159. 1413 IFA<16THEN1415
  160. 1414 PRINT"                   "
  161. 1415 IFA>20THENA=0:POKESV+4,16
  162. 1420 GOTO1407
  163. 1505 X=0
  164. 1507 GOTO1513
  165. 1508 HA=INT(HA*.95)
  166. 1513 IFEN<=0THENGOSUB1401
  167. 1514 IFEN<=0AND RND(1)*100>50THEN5530
  168. 1518 POKE53281,2:POKE53280,0:PRINT"[147][159]"
  169. 1519 PRINTSPC(14)"PLEASE WAIT":PRINTSPC(10)"I NEED INSPIRATION"
  170. 1520 POKESV+5,12:POKESV+1,7:POKESV+4,33
  171. 1522 FORN=1TO30:IFN/2=INT(N/2)THENPOKESV+1,7:GOTO1526
  172. 1524 POKESV+1,6
  173. 1526 FORC=0TO70:NEXT
  174. 1528 NEXT:POKESV+1,0:POKESV+4,32
  175. 1540 POKE53280,2:POKE53281,0:PRINT"[147]"
  176. 1545 GOTO1580
  177. 1548 RESTORE:FORM=1TO6
  178. 1560 G1=RND(1)*10:FORG=1TOG1:READB$:NEXT:S$(M)=B$
  179. 1570 B(M)=LEN(B$)
  180. 1572 READB$:IFB$<>"*"THEN1572
  181. 1574 NEXT
  182. 1575 RETURN
  183. 1580 H=0
  184. 1590 GOSUB 1548
  185. 1595 PRINT
  186. 1600 PRINT;" ";LEFT$(S$(1),B(1));" ";LEFT$(S$(2),B(2))
  187. 1605 PRINT;" ";LEFT$(S$(3),B(3));" ";LEFT$(S$(4),B(4))
  188. 1610 PRINT " ";LEFT$(S$(5),B(5))
  189. 1615 PRINT;" ";LEFT$(S$(6),B(6))
  190. 1620 PRINT
  191. 1622 SM=30:GOSUB9820
  192. 1647 H=H+1:IFH<3THEN1590
  193. 1648 GOTO1800
  194. 1650 DATA"WHY DO I","LOVING YOU IS","DO WOP BOP","I FEEL","KISSING IS"
  195. 1652 DATA"MY DARLING I","SHE NEVER DID","LOVE IS","YOU LOOK","WHY DOES SHE","*"
  196. 1660 DATA"LIKE JIVING","LIKE A WIMP","BOP BOP DA DOO","LIKE A WALLY"
  197. 1661 DATA "LIKE A RAW STEAK"
  198. 1662 DATA"LIKE SINGING","LIKE SMILING","LIKE A HIGH","LIKE A RUGBY SCRUM"
  199. 1664 DATA"LIKE A HANGOVER","*","CAN YOU","WHY SHOULD I","DON'T YOU","YOU NEVER"
  200. 1670 DATA"I CAN'T","THEY ALWAYS","SHALL I","DO THEY","CAN YOU","WILL YOU","*"
  201. 1680 DATA"CUT YOUR HAIR","PHONE HER UP","WIND ME UP","SING A SONG"
  202. 1682 DATA"LOOK INTO MY EYES","LOOK THAT WAY","WHISPER SWEET NOTHINGS","FEEL IT"
  203. 1684 DATA"LOOK AT IT","MAKE IT","*","SO GET DOWN AND BOOGIE"
  204. 1685 DATA"LET ME WALK YOUR DOG"
  205. 1690 DATA"DON'T DO THAT IT'S RUDE","YOU NEED TO FEEL THE GROOVE"
  206. 1692 DATA"WOP BOP A LOO WOP","SO LAY DOWN AND BE NICE","TAKE MY HAND"
  207. 1694 DATA"SO GET ME TO A DOCTOR","IT MAKES YOUR HEART THROB","*"
  208. 1700 DATA"OUCH THAT HURTS","DA WOP BOP DO","SING IT BABY"
  209. 1702 DATA"I NEED TO FEEL YOU NEAR ME","EAT YOUR HEART OUT, CLIVE"
  210. 1703 DATA "LAY IT ON ME"
  211. 1704 DATA"COME ON FEEL THAT BEAT","JUMP ON IT"
  212. 1706 DATA"I WAS SHAKEN BUT NOT STIRRED","PUT YOUR TRUST IN ME"
  213. 1708 DATA"GIVE ME MORE OF YOUR LOVE","*","**"
  214. 1800 SR=INT(RND(1)*10)+1
  215. 1803 IFPO>=50THENSR=SR+1
  216. 1806 IFPO>=100THENSR=SR+1
  217. 1808 IFSR>10THENSR=10
  218. 1810 X=X+1
  219. 1820 PRINT" SONG RATING ";SR"[157] OUT OF TEN"
  220. 1830 PRINT" DO YOU ACCEPT SONG? (Y/N) ":S1=80
  221. 1840 GET W$:IFW$="Y"THEN1860
  222. 1841 S1=S1+1:IFS1>80THENS1=0:GOSUB9920
  223. 1850 IFW$="N"THEN1852
  224. 1851 GOTO1840
  225. 1852 IFSR=>5THEN1854
  226. 1853 GOTO1858
  227. 1854 PRINT"[147]THAT SONG WAS QUITE GOOD!"
  228. 1855 PRINT"YOU SELL IT FOR:-"SPC(2)"$"SR*100
  229. 1856 MU=MU+(SR*100)
  230. 1857 GOSUB9900
  231. 1858 IFX>=3THENMO=MO+1:GOTO7000
  232. 1859 GOTO1508
  233. 1860 IFRR=0THENSO=1
  234. 1865 MO=MO+1:HA=INT(HA*1.1)
  235. 1866 POKE53280,8:POKE53281,0:PRINT" [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  236. 1867 POKESV+5,13:POKESV+4,33
  237. 1868 FORN=0TO22
  238. 1870 POKESV+1,INT(12*RND(1))+4:FORC=1TO70:NEXT
  239. 1875 PRINT"OK[146]OKOK[146]OKOK[146]OKOK[146]OKOK[146]OKOK[146]OKOK[146]OKOK[146]OKOK[146]OKOK[146]OK";
  240. 1880 NEXT
  241. 1882 FORN=0TO500:NEXT:POKESV+1,0:POKESV+4,32
  242. 1885 GOTO7000
  243. 2000 NC=INT(PO/10*500+350)
  244. 2005 ED=INT(5*RND(1))+16:EC=PO*500+INT(PO*RND(1)/10)+4150
  245. 2006 UC=PO*500+INT((PO*RND(1)/10))+6000:UD=INT(10*RND(1))+25
  246. 2007 AC=PO*750+INT(RND(1)*PO/10)+7000:AD=INT(15*RND(1))+25
  247. 2008 JC=PO*900+INT(RND(1)*PO/15)+14000:JD=INT(RND(1)*8)+11
  248. 2039 POKE53280,5:POKE53281,3:PRINT"[147]"
  249. 2040 PRINT"[144]TOURS AVAILABLE":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  250. 2041 PRINTSPC(12)"(1) BRITAIN":PRINTSPC(12)"(2) EUROPE":PRINTSPC(12)"(3) U.S.A"
  251. 2042 PRINTSPC(12)"(4) JAPAN":PRINTSPC(12)"(0) OTHER OPTIONS"
  252. 2045 PRINT"PRESS NUMBER FOR FURTHER INFORMATION":S1=40
  253. 2060 GET W$:IFW$="1"THEN2100
  254. 2062 IFW$="2"THEN2200
  255. 2064 IFW$="3"THEN2300
  256. 2066 IFW$="4"THEN2400
  257. 2068 IFW$="0"THEN NC=0:GOTO501
  258. 2069 S1=S1+1:IFS1>50THENS1=0:J1=J1+1:GOSUB9872:IFJ1=>6THENJ1=0
  259. 2070 GOTO2060
  260. 2100 POKE53280,0:POKE53281,0:PRINT"[147][159]":A=0
  261. 2110 PRINTSPC(10)"TOUR OF BRITAIN"
  262. 2115 PRINT"COST OF TOUR = $";EC:PRINT"NUMBER OF DATES = ";ED
  263. 2116 PRINT"INCOME FROM FIRST DATE = $";NC:PRINT"DURATION OF TOUR = 2 MONTHS"
  264. 2120 IFA<>1THEN2123
  265. 2122 PRINT"[158] ACCEPT TOUR ? (Y/N) ":GOSUB9920
  266. 2123 A=A+1:IFA=12THEN2125
  267. 2124 GOTO2126
  268. 2125 PRINT"[145]                          "
  269. 2126 IFA>14THENA=0:PRINT"[145][145][145][145]"
  270. 2128 GETZ$:IFZ$="Y"THEN2132
  271. 2129 IFZ$="N"THEN2039
  272. 2130 GOTO2120
  273. 2132 C$="BRITIAN":CO=EC:DA=ED:TT=2
  274. 2134 GOTO2650
  275. 2200 POKE53280,9:POKE53281,9:PRINT"[147][144]":A=0
  276. 2210 PRINTSPC(10)"TOUR OF EUROPE"
  277. 2215 PRINT"COST OF TOUR = $";UC:PRINT"NUMBER OF DATES = ";UD
  278. 2216 PRINT"INCOME FROM FIRST DATE = $";NC:PRINT"DURATION OF TOUR = 4 MONTHS"
  279. 2220 IFA<>1THEN2223
  280. 2222 PRINT"[159] ACCEPT TOUR ? (Y/N) ":GOSUB9920
  281. 2223 A=A+1:IFA=12THEN2225
  282. 2224 GOTO2226
  283. 2225 PRINT"[145]                          "
  284. 2226 IFA>14THENA=0:PRINT"[145][145][145][145]"
  285. 2228 GETZ$:IFZ$="Y"THEN2232
  286. 2229 IFZ$="N"THEN2039
  287. 2230 GOTO2220
  288. 2232 C$="EUROPE":DA=UD:TT=4:CO=UC
  289. 2235 GOTO2650
  290. 2300 POKE53280,10:POKE53281,10:PRINT"[147]":A=0
  291. 2310 PRINTSPC(10)"TOUR OF U.S.A"
  292. 2315 PRINT"COST OF TOUR = $";AC:PRINT"NUMBER OF DATES = ";AD
  293. 2316 PRINT"INCOME FROM FIRST DATE = $";NC:PRINT"DURATION OF TOUR = 6 MONTHS"
  294. 2320 IFA<>1THEN2323
  295. 2322 PRINT"[144] ACCEPT TOUR ? (Y/N) ":GOSUB9920
  296. 2323 A=A+1:IFA=12THEN2325
  297. 2324 GOTO2326
  298. 2325 PRINT"[145]                          "
  299. 2326 IFA>14THENA=0:PRINT"[145][145][145][145]"
  300. 2328 GETZ$:IFZ$="Y"THEN2332
  301. 2329 IFZ$="N"THEN2039
  302. 2330 GOTO2320
  303. 2332 C$="AMERICA":DA=AD:TT=6:CO=AC
  304. 2335 GOTO2650
  305. 2400 POKE53280,4:POKE53281,4:PRINT"[147][144]":A=0
  306. 2410 PRINTSPC(10)"TOUR OF JAPAN"
  307. 2415 PRINT"COST OF TOUR = $";JC:PRINT"NUMBER OF DATES = ";JD
  308. 2416 PRINT"INCOME FROM FIRST DATE = $";NC:PRINT"DURATION OF TOUR = 4 MONTHS"
  309. 2420 IFA<>1THEN2423
  310. 2422 PRINT"[158] ACCEPT TOUR ? (Y/N) ":GOSUB9920
  311. 2423 A=A+1:IFA=12THEN2425
  312. 2424 GOTO2426
  313. 2425 PRINT"[145]                          "
  314. 2426 IFA>14THENA=0:PRINT"[145][145][145][145]"
  315. 2428 GETZ$:IFZ$="Y"THEN2432
  316. 2429 IFZ$="N"THEN2039
  317. 2430 GOTO2420
  318. 2432 C$="JAPAN":DA=JD:TT=4:CO=JC
  319. 2435 GOTO2650
  320. 2650 POKE53280,5:POKE53281,2:PRINT"[147]"
  321. 2655 IFMU<COTHEN2720
  322. 2672 GOTO2770
  323. 2720 POKE53281,0:PRINT" [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  324. 2722 POKESV+5,12:POKESV+4,33:FORN=0TO22:POKESV+1,25-N
  325. 2723 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  326. 2724 FORY=0TO20:NEXT
  327. 2725 NEXT
  328. 2726 PRINT""SPC(12)"                "
  329. 2727 PRINTSPC(12)" LOOK  WISE GUY ":PRINTSPC(12)"                "
  330. 2728 PRINTSPC(12)" YOU ONLY  HAVE "
  331. 2729 PRINTSPC(12)"                ":PRINTSPC(12)"                [145]"
  332. 2730 PRINTSPC(12)"    $";MU
  333. 2731 PRINTSPC(12)"                "
  334. 2732 PRINTSPC(12)" YOU CAN'T GO ! ":PRINTSPC(12)"                "
  335. 2735 FORN=1TO2000:NEXT:POKESV+1,0:POKESV+4,32
  336. 2736 PRINT"[147]":GOTO501
  337. 2740 PRINT"YOU ARE TOO OLD":PRINT"FOR A";TT"MONTH TOUR":GOTO8014
  338. 2770 IFMO+TT>TMTHENPRINT"[147]":GOTO2740
  339. 2771 IFEN<=0THENGOSUB1401
  340. 2772 POKE53280,4:POKE53281,6:PRINT"[147]"
  341. 2773 PRINTSPC(8)"";N$" IN "C$
  342. 2774 PRINTSPC(8)"YOU HAVE";DA"CONCERTS TO PLAY":PRINTSPC(8)"YOU HAVE";EN"ENERGY"
  343. 2775 PRINTSPC(8)"HOW MUCH ENERGY WILL YOU":PRINTSPC(8)"PUT INTO EACH CONCERT ?"
  344. 2776 PRINTSPC(12)"(MAX";INT (EN/DA)")":SM=30:GOSUB9820
  345. 2777 INPUT"         ";EI
  346. 2778 IFEI*DA>ENTHEN2780
  347. 2779 GOTO2783
  348. 2780 PRINTSPC(8)"YOU DON'T HAVE THAT MUCH !!":
  349. 2781 FORNN=1TO5:GOSUB9920:NEXT
  350. 2782 PRINTSPC(8)"[145]                           [145][145][145][145]":GOTO2777
  351. 2783 PRINT"[147][158]"
  352. 2784 PRINTSPC(8)"";N$" IN "C$""
  353. 2785 PRINTSPC(8)"PERFORMANCE NUMBER =  ":PRINTSPC(8)"POPULARITY RATING  = "
  354. 2786 PRINTSPC(8)"TOTAL HAPPINESS    = ":PRINTSPC(8)"TOTAL TOUR INCOME  = "
  355. 2787 GOSUB 9800
  356. 2789 SM=30:GOSUB9820:FC$="                         "
  357. 2790 POKE53281,4:PRINT"[145][145][145]"SPC(8)"[158] THE TOUR HAS STARTED! ":GOSUB9900
  358. 2791 POKESV+5,9:POKESV+12,9:POKESV+19,3:N=1
  359. 2792 IFEN<=0AND100*RND(1)>50THEN5530
  360. 2793 FORC=1TO220:NEXT
  361. 2794 POKE53280,BC:BC=BC+1:IFBC>15THENBC=0
  362. 2795 PRINT"":PRINTSPC(28)"";N:CY=1:GOSUB2830
  363. 2796 IF100*RND(1)<20THENP=2:ON4*RND(1)+1GOTO2801,2802,2803,2804
  364. 2797 F$="THE CONCERT WENT WELL   "
  365. 2798 PO=PO+(INT((SQR((PO+EI)*1000))/120)):IFPO=>1000THENPO=1000
  366. 2799 HA=HA+INT(((PO*10)/1000)/4):IFHA>=100THENHA=100
  367. 2800 P=1:GOTO2807
  368. 2801 F$="YOUR DRUMMER WAS DRUNK  ":GOTO2805
  369. 2802 F$="YOU ARRIVED LATE        ":GOTO2805
  370. 2803 F$="YOUR GUITAR IS STOLEN   ":GOTO2805
  371. 2804 F$=" THE SYNTH BLOWS A CHIP "
  372. 2805 HA=HA-1:IFHA<=0THEN5520
  373. 2806 PO=PO-2:IFPO<=0THENPO=0
  374. 2807 NC=NC+INT(PO/15*500+350)
  375. 2809 PRINT"";FC$
  376. 2810 FORM=1TO100:NEXT:PRINT"[158][145]"F$""
  377. 2811 PRINT""SPC(28)"";"   [157][157][157]";PO:GOSUB2830
  378. 2812 PRINTSPC(28)"   [157][157][157]";HA:CY=1:GOSUB2830
  379. 2814 PRINTSPC(28)"";NC:GOSUB2830
  380. 2816 GOTO2855
  381. 2830 NP=INT(10*RND(1))+4:POKESV+4,33:POKESV+11,33:POKESV+18,129
  382. 2831 POKESV+1,NP:POKESV+8,NP
  383. 2832 IFCY=1THENPOKESV+15,254:CY=0:GOTO2838
  384. 2834 POKESV+15,0
  385. 2838 FORNN=0TO50:NEXT:POKESV+4,32:POKESV+11,32:POKESV+18,128
  386. 2840 RETURN
  387. 2855 N=N+1:IFN=<DATHEN2792
  388. 2858 MU=MU+NC-CO
  389. 2859 MO=MO+TT
  390. 2860 EN=EN-(EI*DA)
  391. 2868 PRINT"[151]"TAB(6)"FINANCIAL OUTCOME OF TOUR"
  392. 2869 OF=NC-CO:NC=0
  393. 2870 PRINTTAB(8);FC$
  394. 2871 IFOF>0THENPRINTTAB(8)"   A PROFIT OF $";OF
  395. 2872 IFOF=<0THENPRINTTAB(8)"   A LOSS OF $";OF
  396. 2873 H=1:D=4:GOSUB9900:FORN=0TO500:NEXT
  397. 2874 H=H+1:GOSUB10:IFH<TTTHEN2874
  398. 2875 POKE53281,0:PRINT"[147]"SPC(9)"WOULD YOU LIKE TO SEE"
  399. 2876 PRINTSPC(4)"HIGHLIGHTS OF YOUR PERFORMANCE ?":SM=30:GOSUB9820
  400. 2877 GETW$:IFW$="Y"THEN2894
  401. 2879 IFW$="N"THEN7000
  402. 2880 GOTO2877
  403. 2894 N=INT(RND(1)*7)+1:POKE53280,N
  404. 2895 PRINT"[147]":POKE249,D:SYS39945:POKE53269,0:PRINT"[147]":GOTO7000
  405. 3230 GOSUB9820
  406. 3281 POKESV+1,INT(10*RND(1))+3
  407. 3500 POKE53280,5:POKE53281,8:PRINT"[147]"
  408. 3501 BI=1
  409. 3510 ON(INT(8*RND(1))+1)GOSUB3610,3620,3630,3640,3650,3660,3670,3680
  410. 3512 PRINTSPC(8)" STATUS SYMBOL AUCTION "
  411. 3515 PRINT"FOR SALE:  [144]";I$
  412. 3520 PRINTSPC(9)"BIDDING WILL START AT:"
  413. 3525 PRINTSPC(14)"[144]$";PC
  414. 3530 PRINTSPC(9)"YOU HAVE $";MU
  415. 3532 PRINTSPC(9)"DO YOU WISH TO BID? (Y/N)":S1=30
  416. 3537 GETW$:IFW$="Y"THEN3702
  417. 3538 S1=S1+1:IFS1>30THENS1=0:GOSUB9920
  418. 3540 IFW$="N"THEN501
  419. 3542 GOTO3537
  420. 3610 I$="RACE HORSE"
  421. 3611 PC=INT(RND(1)*100000)+200000
  422. 3618 RETURN
  423. 3620 I$="SCOTTISH CASTLE"
  424. 3622 PC=INT(RND(1)*200000)+400000
  425. 3628 RETURN
  426. 3630 I$="ROLLS ROYCE"
  427. 3632 PC=INT(RND(1)*25000)+50000
  428. 3638 RETURN
  429. 3640 I$="FRENCH VILLA"
  430. 3641 PC=INT(RND(1)*100000)+150000
  431. 3648 RETURN
  432. 3650 I$="PRIVATE JET"
  433. 3652 PC=INT(RND(1)*100000)+150000
  434. 3660 I$="PRIVATE YACHT"
  435. 3662 PC=INT(RND(1)*200000)+350000
  436. 3668 RETURN
  437. 3670 I$="GENUINE PICASSO"
  438. 3671 PC=INT(RND(1)*50000)+70000
  439. 3678 RETURN
  440. 3680 I$="PRIVATE ISLAND"
  441. 3682 PC=INT(RND(1)*400000)+700000
  442. 3688 RETURN
  443. 3700 FORX=1TO2000:NEXT
  444. 3701 PC=BI
  445. 3702 GOSUB3825
  446. 3703 GOSUB3800
  447. 3704 PRINT"                                      "
  448. 3705 PRINT"[144]CURRENT BID $";BI:GOSUB9920
  449. 3706 PRINT"WHAT IS YOUR BID? (ENTER 0 TO GIVE UP)"
  450. 3707 PRINT"            [145]":INPUT BI
  451. 3708 BI=INT(BI):GOSUB9820
  452. 3709 GOSUB3830
  453. 3710 GOSUB3825
  454. 3711 GOSUB3800
  455. 3713 PRINT""SPC(13);BI
  456. 3715 IFRND(1)*100<50THEN3740
  457. 3717 PRINTSPC(8)"[144]GOING...GOING...":FORN=0TO2000:NEXT
  458. 3720 IFRND(1)*100<50THEN3740
  459. 3722 GOSUB3825
  460. 3723 PRINT""
  461. 3724 PRINTSPC(21)"GONE!":POKESV+5,157:POKESV+1,12:POKESV+4,129
  462. 3725 FORX=0TO3000:NEXT:POKESV+1,0:POKESV+4,128
  463. 3726 MO=MO+1:HA=HA+5:SS=SS+1:MU=MU-BI:GOTO1866
  464. 3740 GOSUB3825
  465. 3741 ONINT(3*RND(1)+1)GOSUB3750,3760,3770
  466. 3745 GOTO3700
  467. 3750 BI=INT(BI*1.05)
  468. 3751 PRINT"I HAVE A BID FROM THE MAN"
  469. 3752 PRINT"WITH A PIGGY BANK UNDER HIS ARM"
  470. 3753 RETURN
  471. 3760 BI=INT(BI*1.15)
  472. 3762 PRINT"I HAVE A BID FROM THE MAN WITH"
  473. 3764 PRINT"A BALDING HEAD AND GINGER BEARD"
  474. 3766 RETURN
  475. 3770 BI=INT(BI*1.5)
  476. 3772 PRINT"I HAVE A BID FROM THE LADY"
  477. 3774 PRINT"WITH THE CORGIS AND FUNNY HEAD GEAR"
  478. 3776 RETURN
  479. 3800 IFPC>MUTHEN3815
  480. 3802 IFBI>MUTHEN3815
  481. 3805 RETURN
  482. 3815 PRINT"YOU DON'T HAVE THE MONEY"
  483. 3816 SM=30:GOSUB9820
  484. 3817 FORN=0TO2000:NEXT
  485. 3818 HA=HA-5
  486. 3820 GOTO7000
  487. 3825 PRINT""
  488. 3827 FORN=0TO2
  489. 3828 PRINT"                                       ":NEXT
  490. 3829 RETURN
  491. 3830 IFBI=0THEN3870
  492. 3831 IFBI<=PCTHEN3850
  493. 3832 RETURN
  494. 3850 GOSUB3825
  495. 3851 PRINT"IT'S GOING TO COST YOU MORE THAN THAT"
  496. 3852 POKESV+5,9:POKESV+4,33:FORN=4TO50:POKESV+1,N:NEXT:POKESV+4,32
  497. 3853 POKESV+1,0:FORC=0TO750:NEXT
  498. 3854 GOTO3702
  499. 3870 MO=MO+1:HA=HA-5
  500. 3871 GOSUB3825
  501. 3872 PRINT"[145][145]OH, BAD LUCK":FORN=0TO1000:NEXT
  502. 3873 POKESV+5,13:POKESV+4,33:FORN=100TO3STEP-1:POKESV+1,N:NEXT
  503. 3874 POKESV+5,32:FORC=0TO1000:NEXT:POKESV+1,0
  504. 3880 GOTO1866
  505. 4501 POKE53280,14:POKE53281,4:PRINT"[147][144]"
  506. 4505 PRINTSPC(11)"YOU NEED A REST"
  507. 4506 IFEN<0THENEN=0
  508. 4507 PRINT"YOU WILL REGAIN 250 ENERGY POINTS"
  509. 4508 PRINT"PER MONTH OF REST.
  510. 4509 [153]"YOUR ENERGY LEVEL NOW IS";EN
  511. 4510 [153]"HOW MANY MONTHS WILL YOU REST?":[141]9870
  512. 4512 [133]"";RT
  513. 4520 N[178]0
  514. 4521 HA[178]HA[170]3
  515. 4522 [141]10
  516. 4525 MO[178]MO[170]1:EN[178]EN[170]250:PO[178][181](PO[172]0.85)
  517. 4526 [139]EN[177]1000[167]EN[178]1000
  518. 4527 [139]HA[177]100[167]HA[178]100
  519. 4528 [151]SV[170]4,33:[151]SV[170]5,12:[129]S[178]0[164]EN[173]4:[151]SV[170]1,S:[130]:[151]SV[170]4,32
  520. 4530 N[178]N[170]1:[139]N[179]RT[167]4521
  521. 4531 [142]
  522. 5000 [151]53280,8:[151]53281,1:[153]"LOADSTOP"
  523. 5003 [153]""[166]8)"MUSICAL PRESS HEADLINES"
  524. 5005 [145][181](7[172][187](1)[170]1)[137]5010,5015,5025,5040,5050,5060,5070
  525. 5010 [153]""[166]9)"GOVERNMENT TAX GROUPS"
  526. 5012 MU[178][181](MU[172].9)
  527. 5014 [137]5100
  528. 5015 [139]MA[178]0[167]5080
  529. 5020 [153]""[166]8)"MANAGER IN FRAUD SCARE!"
  530. 5022 [139]MA[178]1[167]MI[178].8
  531. 5024 [137]5100
  532. 5025 [139]RC[178]0[167]5080
  533. 5030 [153]"VICTORY RECORDS CANCEL CONTRACT"
  534. 5032 RY[178]0:SO[178]0:RC[178]0:U[178]0:RR[178]0
  535. 5033 [137]5100
  536. 5040 [153]"BUMPER MONTH FOR RECORD SALES!"
  537. 5042 [139]RR[178]1[167]MU[178][181](MU[172]1.3)
  538. 5043 [137]5100
  539. 5050 [153]""[166]10)"TONY BLACKBURN LIKES"
  540. 5051 [153]""[166]16)N$
  541. 5052 PO[178][181](PO[172].8):HA[178][181](HA[172].8)
  542. 5053 [137]5100
  543. 5060 [153]""[166]12)"JOHN PEEL BACKS"
  544. 5061 [153]""[166]14)N$
  545. 5062 PO[178][181](PO[172]1.2):HA[178][181](HA[172]1.2)
  546. 5063 [137]5100
  547. 5070 [153]""[166]13)N$:[153]""[166]13)"IN DRUGS PROBE"
  548. 5072 PO[178][181](PO[172].9):HA[178][181](HA[172].9)
  549. 5075 [137]5100
  550. 5080 [153]""[166]10)"TOP TIP: "N$
  551. 5100 NN[178]0
  552. 5102 NN[178]NN[170]1:[141]9920:[139]NN[179]10[167]5102
  553. 5110 [142]
  554. 5200 [139]PO[178][177]1000[167]5203
  555. 5202 [142]
  556. 5203 [139]SS[177][178]3[167]5205
  557. 5204 [142]
  558. 5205 [139]MU[171](LO[170]IN)[178][177]1000000[167]5207
  559. 5206 [142]
  560. 5207 [139]MO[177]TM[167][142]
  561. 5208 [151]SV[170]5,13:[151]SV[170]4,129:[151]SV[170]1,20
  562. 5212 [129]M[178]0[164]20:[129]Y[178]0[164]150:[130]:[151]53281,[181](16[172][187](1)):[130]
  563. 5213 SC[178][181](((PO[170]HA[170](MU[171]LO)[170](SS[172]100))[173]1000)[170]MO)
  564. 5214 [151]53281,2:[151]53280,0:[153]"LOADSYS"
  565. 5215 [153]"**********************"
  566. 5216 [153]"*********      *********"
  567. 5217 [153]"********   OPENBORNSYS   ********"
  568. 5218 [153]"*******              *******"
  569. 5219 [153]"******  OPENSUPERSTAR!SYS  ******"
  570. 5220 [153]"******            ******"
  571. 5221 [153]"**********************"
  572. 5225 [153]"YOU FULFILLED ALL OF YOUR"
  573. 5226 [153]"AMBITIONS WITH A SCORE OF";SC
  574. 5227 [151]SV[170]4,128:[141]9900
  575. 5230 [137]5400
  576. 5350 SC[178][181](((PO[170]HA[170](MU[171]LO)[170](SS[172]100))[173]1000)[170]MO):[151]SV[170]5,12
  577. 5360 [153]"LOADSTOP":[129]M[178]1[164]2:[129]N[178]3[164]8:[151]53280,N:[151]53281,N[171]2:[151]SV[170]4,32
  578. 5361 [151]SV[170]1,[181](10[172][187](1))[170]3:[151]SV[170]4,33
  579. 5362 [153]""[166]17)"OOPS!!!"
  580. 5363 [129]X[178]1[164]300:[130]
  581. 5364 [130]:[130]:[153]"LOAD":[151]SV[170]1,0:[151]SV[170]4,32:[142]
  582. 5400 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(ON"
  583. 5402 [153][166]7)"PREVIOUS BEST SCORE WAS";10[172][194](761)[170][194](762)
  584. 5403 [153]""[166]7)"AT LEVEL";[194](760)
  585. 5404 [139]SC[179]10[172][194](761)[170][194](762)[167]5410
  586. 5405 [151]761,[181](SC[173]10):[151]762,SC[171]10[172][181](SC[173]10):[151]760,[194](830)
  587. 5410 [153]"SYSPRESS A KEY"
  588. 5415 [161] W$:[139]W$[178]""[167]5415
  589. 5420 [137]5600
  590. 5500 [141]5350
  591. 5505 [153]"YOU ARE OVER THE HILL!!!"
  592. 5506 [137]5550
  593. 5510 [141]5350:[153]"YOU HAVE GONE BANKRUPT!!"
  594. 5515 [137]5550
  595. 5520 [141]5350:[153]"YOU HAVE DIED FROM A BROKEN HEART"
  596. 5522 [137]5550
  597. 5530 [141]5350:[153]"YOU HAVE DROPPED DEAD"
  598. 5531 [153]"FROM EXHAUSTION!!!"
  599. 5532 [137]5550
  600. 5550 [153]"YOU HAVE FAILED TO OBTAIN"
  601. 5551 [153]"ALL OF YOUR AMBITIONS WITH"
  602. 5552 [153]"A SCORE OF";SC
  603. 5555 [137]5400
  604. 5600 [153]"LOAD"[166]11)"ANOTHER GO? (Y/N)"
  605. 5601 [161]W$:[139]W$[178]"Y"[167][153]"LOAD":[138]
  606. 5602 [139]W$[178]"N"[167][153]""[166]11)"OK. IT'S YOUR MONEY":[153]"":[128]
  607. 5603 [137]5601
  608. 6210 [153]"LOADOPEN":[151]53280,7:[151]53281,2:[139]MA[178]1[167]6260
  609. 6216 [153]""[166]8)"YOU DON'T HAVE A MANAGER!"
  610. 6218 [153]"YOU  MAY HIRE ONE OF THE FOLLOWING."
  611. 6219 [153]"THEIR MONTHLY PERCENTAGES ARE SHOWN"
  612. 6220 [153]"IN BRACKETS"
  613. 6222 [153]""[166]11)"ENTER YOUR CHOICE"
  614. 6223 [153]""[166]8)"(A) MICKEY LEAST (10%)":[153]""[166]8)"(B) TOMMY TRUST (12%)"
  615. 6224 [153]""[166]8)"(C) DANNY DAMNED (9%)":[153]""[166]8)"(0) OTHER OPTIONS"
  616. 6225 W[178][187](1)[172]100:SM[178]30
  617. 6226 [161]W$:[139]W$[178]"A"[167]6235
  618. 6227 [139]W$[178]"B"[167]6240
  619. 6228 [139]W$[178]"C"[167]6245
  620. 6229 [139]W$[178]"0"[167]501
  621. 6230 [141]9820
  622. 6234 [137]6226
  623. 6235 MI[178]0.9:MA[178]1:[139]W[177][178]90[167]MI[178]0.8
  624. 6237 M$[178]"LEAST"
  625. 6239 [137]6900
  626. 6240 MI[178]0.88:MA[178]1:[139]W[177][178]80[167]MI[178]0.8
  627. 6242 M$[178]"TRUST"
  628. 6244 [137]6900
  629. 6245 MI[178]0.91:MA[178]1:[139]W[177][178]75[167]MI[178]0.8
  630. 6246 M$[178]"DAMNED"
  631. 6248 [137]6900
  632. 6260 [153]"LOADSTOP":[151]53281,5:[151]53280,2
  633. 6262 [153]"YOUR MANAGEMENT CHOICES"
  634. 6263 [153]""[166]8)"(A) FIRE MR ";M$:[153]""[166]8)"(B) PROMOTE GROUP"
  635. 6264 [153]""[166]8)"(C) SPECIAL DEAL":[153]""[166]8)"(D) BORROW MONEY"
  636. 6265 [153]""[166]8)"(0) OTHER OPTIONS"
  637. 6266 [153]""[166]8)"ENTER YOUR CHOICE"
  638. 6267 S1[178]30
  639. 6268 [161]W$:[139]W$[178]"A"[167]6290
  640. 6270 [139]W$[178]"B"[167]6345
  641. 6272 [139]W$[178]"C"[167]6451
  642. 6274 [139]W$[178]"D"[167]6850
  643. 6275 [139]W$[178]"0"[167]501
  644. 6276 S1[178]S1[170]1:[139]S1[177]30[167]S1[178]0:[141]9920
  645. 6280 [137]6268
  646. 6290 [153]"LOADOPEN":[151]53280,0:[151]53281,0
  647. 6291 [153]""[166]5)"YOU HAVE FIRED YOUR MANAGER":MA[178]0:M$[178]"NONE"
  648. 6292 SM[178]30:[141]9820
  649. 6293 [139]MI[179]0.88[167]6295
  650. 6294 [139]MI[178][177]0.88[167]6320
  651. 6295 MI[178]1:SE[178][181]((15000[172][187](1))[170]MU[173]30)
  652. 6296 [153]"HE HAS BEEN STEALING YOUR HARD"
  653. 6297 [153]"EARNED MONEY. WILL YOU:":[153]"(A) TAKE HIM TO COURT"
  654. 6298 [153]""[166]11)"OR..."
  655. 6299 [153]"(B) ACCEPT AN OUT OF":[153]"COURT SETTLEMENT OF $";SE
  656. 6300 [161]W$:[139]W$[178]"A"[167]6305
  657. 6302 [139]W$[178]"B"[167]6314
  658. 6304 [137]6300
  659. 6305 [151]53280,2:[151]53281,2:[153]"LOADOPEN"
  660. 6306 CR[178][181](MU[173]((50[172][187](1))[170]1))
  661. 6308 [139]CR[179]SE[167]I$[178]"YOUR LAWYERS LET YOU DOWN"
  662. 6309 [139]CR[177][178]SE[167]I$[178]"YOUR LAWYER DID A GOOD JOB"
  663. 6310 [153]""I$
  664. 6311 [153]"THE COURTS AWARD YOU":[153]""[166]14)"$";CR
  665. 6312 [141]9920:[129]N[178]0[164]1000:[130]
  666. 6313 MO[178]MO[170]1:MU[178]MU[170]CR:[137]1866
  667. 6314 MU[178]MU[170]SE:[137]1866
  668. 6320 MI[178]1
  669. 6321 CR[178][181](MU[173]((50[172][187](1))[170]1))
  670. 6322 [153]"HE WAS A GOOD, HONEST,HARD"
  671. 6323 [153]"WORKING CHAP AND EXPECTS TO"
  672. 6324 [153]"BE PAID DAMAGES. OR ELSE HE":[153]"WILL TAKE YOU TO COURT"
  673. 6325 [153]"ENTER YOUR OFFER":[133]"";FF
  674. 6329 SE[178][181]((CR[173]([187](1)[172]3)[170]1))
  675. 6330 [139]F[179]SE[167]6335
  676. 6331 [151]53280,6:[151]53281,1:[153]"LOADSTOP"[166]8)"HE ACCEPTS YOUR OFFER!"
  677. 6332 MO[178]MO[170]1:MU[178]MU[171]FF
  678. 6333 [141]9900:[129]N[178]1[164]1000:[130]
  679. 6334 [137]7000
  680. 6335 [153]"LOAD"[166]7)"YOUR OFFER WAS TOO SMALL"
  681. 6336 [153]""[166]7)"HE TAKES YOU TO COURT":[153]""[166]7)"AND IS AWARDED $";CR
  682. 6337 MU[178]MU[171]CR:MO[178]MO[170]1:HA[178]HA[171]10:PO[178]PO[171]10
  683. 6338 [129]N[178]1[164]1000:[130]:[143] SOUND*********
  684. 6339 [137]7000
  685. 6345 [151]53281,4:[151]53280,2:[153]"LOADSTOP"
  686. 6346 [153]""[166]12)"GROUP PROMOTION"
  687. 6347 [153]""[166]8)"YOU MAY CHOSE ONE OF THE":[153]""[166]8)"FOLLOWING PROMOTIONS...."
  688. 6348 [153]""[166]11)"(A) START FAN CLUB":[153]""[166]11)"(B) GIVE TO CHARITY"
  689. 6349 [153]""[166]11)"(C) GIVE 'T' SHIRTS"
  690. 6350 [153]""[166]11)"(0) OTHER OPTIONS"
  691. 6352 [153]""[166]11)"SYSENTER YOUR CHOICE":[141]9920
  692. 6353 [161]W$:[139]W$[178]"0"[167]6260
  693. 6354 [139]W$[178]"A"[167]6360
  694. 6355 [139]W$[178]"B"[167]6380
  695. 6356 [139]W$[178]"C"[167]6400
  696. 6359 [137]6353
  697. 6360 X[178]4:[153]"LOADSTOP"[166]14)"FAN CLUBS":[153]""[166]7)"EACH CLUB WILL ADD $1500
  698. 6361 PRINT""SPC(7)"TO YOUR MONTHLY COSTS":PRINT""SPC(7)"YOUR POPULARITY WILL RISE"
  699. 6362 PRINT""SPC(7)"EACH MONTH":PRINT"WOULD YOU LIKE TO OPEN A CLUB (Y/N)"
  700. 6363 SM=30:GOSUB9820
  701. 6364 GETW$:IFW$="Y"THEN6368
  702. 6365 IFW$="N"THEN6260
  703. 6367 GOTO6363
  704. 6368 FA=FA+1:GOTO6900
  705. 6380 PRINT"[147]"SPC(10)"GIVING TO CHARITY":PRINT""SPC(8)"YOU WILL GAIN 10 POPULARITY"
  706. 6382 PRINT""SPC(8)"POINTS PER $1000 DONATED"
  707. 6383 PRINT""SPC(8)"HOW MANY THOUSANDS DO":PRINT""SPC(8)"YOU WANT TO DONATE?"
  708. 6384 PRINT""SPC(14)"(MAX 10)"
  709. 6385 GOSUB9920
  710. 6388 INPUT"";C
  711. 6389 IFC>10THENPRINT"[145][145][145][145][145][145]":GOTO6388
  712. 6390 IFC<=0THEN6260
  713. 6391 IFC*1000<MUTHEN6395
  714. 6392 PRINT"[147]"SPC(7)"[144]YOU DON'T HAVE THAT MUCH":POKESV+5,10:POKESV+4,33
  715. 6393 FORN=100TO3STEP-1:POKESV+1,N:FORC=0TO10:NEXT:NEXT:POKESV+4,32
  716. 6394 GOTO6380
  717. 6395 PO=PO+INT(C*10):MU=MU-INT(C*1000):GOTO6900
  718. 6400 PRINT"[147][144]"SPC(14)"'T' SHIRTS"
  719. 6402 PRINT""SPC(7)"YOU WILL GAIN 2 POPULARITY"
  720. 6403 PRINT""SPC(7)"POINTS PER SET OF 'T' SHIRTS"
  721. 6404 PRINT""SPC(7)"GIVEN AWAY. THEY COST $200"
  722. 6405 PRINT""SPC(7)"PER SET. HOW MANY SETS WILL"
  723. 6406 PRINT""SPC(7)"YOU GIVE?  (MAX 10)"
  724. 6407 GOSUB9920
  725. 6408 INPUT"";T
  726. 6409 IFT>10THENPRINT"[145][145][145]":GOTO6408
  727. 6410 IFT<=0THEN6260
  728. 6412 IFT*200<MUTHEN6420
  729. 6414 PRINT"[147]"SPC(7)"[144]YOU DON'T HAVE THAT MUCH":POKESV+5,10:POKESV+4,33
  730. 6415 FORN=50TO3STEP-1:POKESV+1,N:FORC=0TO10:NEXT:NEXT:POKESV+4,32
  731. 6416 GOTO6400
  732. 6420 PO=PO+INT(2*T):MU=MU-INT(T*200):GOTO6900
  733. 6451 PRINT"[147]":POKE53280,5:POKE53281,3
  734. 6452 Z=INT(100*RND(1))+MI
  735. 6454 PRINT""SPC(7)"YOUR MANAGER, MR ";M$" SAYS"
  736. 6455 IFZ>20THEN6460
  737. 6456 PRINT""SPC(6)"I'M SORRY BUT I HAVE NOT"
  738. 6457 PRINT""SPC(6)"COME UP WITH ANYTHING THIS":PRINT""SPC(6)"MONTH"
  739. 6458 FORN=1TO1200:NEXT
  740. 6459 GOTO6900
  741. 6460 ONINT(3*RND(1)+1)GOTO6500,6601,6700
  742. 6500 ONINT(8*RND(1)+1)GOSUB3610,3620,3630,3640,3650,3660,3670,3680
  743. 6501 IFPC>MUTHENGOTO6455
  744. 6502 PC=INT(PC/(3*RND(1)+1))
  745. 6504 PRINT""SPC(9)"I CAN GET YOU A CHEAP":SM=30
  746. 6505 PRINT""SPC(9)I$:PRINT""SPC(9)"FOR ONLY $";PC:PRINT""SPC(9)"DO YOU WANT I
  747. 6506 [161]W$:[139]W$[178]"Y"[167]6520
  748. 6507 [139]W$[178]"N"[167]6512
  749. 6508 [141]9820
  750. 6510 [137]6506
  751. 6512 [153]"LOAD"[166]12)"SUIT YOURSELF!"
  752. 6513 [129]N[178]0[164]1200:[130]
  753. 6514 MO[178]MO[170]1:[137]7000
  754. 6520 SS[178]SS[170]1:MU[178]MU[171]PC:HA[178]HA[170]5:[137]6900
  755. 6601 NC[178][181](PO[173]15[172]500[170]350):Z[178][181](4[172][187](1)[170]1)
  756. 6605 [139]Z[178]1[167]TT[178]2:DA[178][181](5[172][187](1))[170]16:CO[178][181](PO[172]350)[170][181]([187](1)[172]PO[173]10)[170]3500
  757. 6606 [139]Z[178]1[167]C$[178]"NEW YORK"
  758. 6607 [139]Z[178]2[167]TT[178]4:CO[178]PO[172]500[170][181]([187](1)[172]PO[173]10)[170]6000:DA[178][181](10[172][187](1))[170]25
  759. 6608 [139]Z[178]2[167]C$[178]"EUROPE"
  760. 6609 [139]Z[178]3[167]TT[178]4:CO[178]PO[172]700[170][181]([187](1)[172]PO[173]10)[170]1500:DA[178][181](15[172][187](1))[170]25
  761. 6610 [139]Z[178]3[167]C$[178]"AMERICA"
  762. 6612 [139]Z[178]4[167]TT[178]6:CO[178]PO[172]500[170][181]([187](1)[172]PO[173]10)[170]20000:DA[178][181](8[172][187](1))[170]11
  763. 6613 [139]Z[178]4[167]C$[178]"JAPAN"
  764. 6620 [153]"I'VE MANAGED TO GET YOU A";DA"DATE"
  765. 6621 [153]"TOUR OF ";C$" YOU SHOULD MAKE"
  766. 6622 [153]"$";NC
  767. 6623 [153]"FROM THE FIRST CONCERT."
  768. 6624 [153]"IT WILL COST $";CO
  769. 6625 [153]"DO YOU WANT TO GO? (Y/N)"
  770. 6630 [161]W$:[139]W$[178]"Y"[167]6637
  771. 6633 [139]W$[178]"N"[167] NC[178]0:[137]6512
  772. 6634 [141]9870
  773. 6636 [137]6630
  774. 6637 [141]2650
  775. 6638 MO[178]MO[170]1:[137]7000
  776. 6700 [139]RC[178]1[167]6740
  777. 6702 RY[178][181](25[172][187](1))[170]10
  778. 6705 [153]"I'VE MANAGED TO GET YOU A"
  779. 6706 [153]"RECORDING CONTRACT WITH VICTORY"
  780. 6707 [153]"RECORDS. THEY WILL PAY YOU"
  781. 6708 [153]"";RY"CENTS FOR EACH RECORD SOLD"
  782. 6709 [153]"DO YOU ACCEPT THE CONTRACT? (Y/N)
  783. 6710 GETW$:IFW$="Y"THEN8170
  784. 6712 IFW$="N"THEN6715
  785. 6713 SM=30:GOSUB9820
  786. 6714 GOTO6710
  787. 6715 RY=0:GOTO6512
  788. 6716 GOTO6900
  789. 6740 IFRY>=50THEN6456
  790. 6741 RY=INT(5*RND(1))+RY+1
  791. 6742 IFRY>=50THENRY=50
  792. 6743 PRINT"I'VE MANAGED TO GET A NEW"
  793. 6744 PRINT"DEAL FROM VICTORY RECORDS."
  794. 6745 PRINT"THEY HAVE INCREASED YOUR"
  795. 6746 PRINT"ROYALTIES TO";RY"CENTS PER RECORD!":GOSUB9900
  796. 6750 GOTO6513
  797. 6850 PRINT"[147]":POKE53280,0:POKE53281,14
  798. 6851 IFBA>0THENGOTO6870
  799. 6852 LO=INT(MU*3):IN=INT(LO*0.05)
  800. 6853 PRINT"YOU MAY BORROW $";LO"FROM THE BANK."
  801. 6854 PRINT"YOU WILL BE CHARGED 5% INTEREST EACH"
  802. 6856 PRINT"MONTH. THE LOAN MUST BE PAID BACK"
  803. 6857 PRINT"WITHIN 6 MONTHS. EACH MONTH AFTER"
  804. 6858 PRINT"THAT THE INTEREST WILL DOUBLE":PRINT"DO YOU AGREE (Y/N)"
  805. 6859 GOSUB9920
  806. 6860 GETW$:IFW$="Y"THEN6865
  807. 6861 IFW$="N"THENIN=0:LO=0:GOTO6512
  808. 6863 GOTO6860
  809. 6865 MO=MO+1:BA=1:MU=MU+LO:HA=HA-8:GOTO1866
  810. 6870 PRINT"HAVE YOU COME TO PAY BACK THE LOAN?"
  811. 6872 GETW$:IFW$="Y"THEN6877
  812. 6874 IFW$="N"THEN6512
  813. 6876 GOTO6872
  814. 6877 IFMU<LOTHEN6885
  815. 6878 IN=0:BA=0:MU=MU-LO:LO=0:HA=HA-8:GOTO6900
  816. 6885 PRINT"YOU DON'T HAVE THAT MUCH":GOSUB9870
  817. 6886 GOTO6458
  818. 6900 MO=MO+1:GOTO1866
  819. 7000 GOSUB10
  820. 7005 POKE53280,2:POKE53281,0:PRINT"[147]DO YOU REQUIRE A STATUS REPORT? (Y/N)"
  821. 7006 GOSUB9820
  822. 7010 GETW$:IFW$="Y"THEN7030
  823. 7012 IFW$="N"THEN501
  824. 7016 GOTO7010
  825. 7030 POKE53280,4:POKE53281,0:SM=28:Q=180
  826. 7040 PRINT"[147][159]"SPC(4)"         STATUS REPORT         "
  827. 7041 PRINTSPC(4)"[159] [150] [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185] [159] "
  828. 7042 PRINTSPC(4)"[159] [150] [146][158] HAPPINESS    :ENERGY      [150] [159] "
  829. 7043 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  830. 7044 PRINTSPC(4)"[159] [150] [146][158] TIME ELAPSED     MONTHS   [150] [159] "
  831. 7045 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  832. 7048 PRINTSPC(4)"[159] [150] [146][158] STATUS SYMBOLS            [150] [159] "
  833. 7049 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  834. 7050 PRINTSPC(4)"[159] [150] [146][158] MANAGER"
  835. 7051 PRINT"[145]"SPC(33)"[150] [159] "
  836. 7052 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  837. 7053 PRINTSPC(4)"[159] [150] [146][158] POPULARITY                [150] [159] "
  838. 7054 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  839. 7055 PRINTSPC(4)"[159] [150] [146][158] FAN CLUBS                 [150] [159] "
  840. 7056 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  841. 7057 PRINTSPC(4)"[159] [150] [146][158] MONEY                     [150] [159] "
  842. 7058 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  843. 7059 PRINTSPC(4)"[159] [150] [146][158] ROYALTY RATE              [150] [159] "
  844. 7060 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  845. 7061 PRINTSPC(4)"[159] [150] [146][158] BANK LOAN                 [150] [159] "
  846. 7062 PRINTSPC(4)"[159] [150] [146][154]---------------------------[150] [159] "
  847. 7063 PRINTSPC(4)"[159] [150] [146][158] INTEREST                  [150] [159] "
  848. 7065 PRINTSPC(4)"[159] [150] [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] [159] "
  849. 7066 PRINT"[159]"SPC(4)"          PRESS A KEY          "
  850. 7070 PRINT""SPC(16)HA:PRINT"[145]"SPC(27)EN:GOSUB7200
  851. 7072 PRINT""SPC(19)MO:GOSUB7200:PRINT""SPC(21)SS:GOSUB7200:PRINT""SPC(16)M$
  852. 7073 GOSUB7200
  853. 7074 PRINT""SPC(17)PO:GOSUB7200:PRINT""SPC(16)FA:GOSUB7200:PRINT""SPC(12)MU:GOSUB7200
  854. 7076 PRINT""SPC(19)RY:GOSUB7200:PRINT""SPC(16)LO:GOSUB7200:PRINT""SPC(15)IN:GOSUB7200
  855. 7077 A1=5:A=0
  856. 7079 A1=5:A=0
  857. 7080 GETW$:IFW$<>""THEN7561
  858. 7081 GOSUB9820
  859. 7082 B=B+1:IFB<5THEN7080
  860. 7083 A=INT(15*RND(1))+1
  861. 7084 A1=INT(15*RND(1))+1
  862. 7085 B=0:FORN=0TO14:POKE55348+N,A:NEXT
  863. 7087 FORC=0TO12:POKE56229+C,A1:NEXT
  864. 7088 FORN=0TO200:NEXT
  865. 7090 GOTO7080
  866. 7200 Q=Q-8:IFQ<170THEN7203
  867. 7201 POKESV+24,15:POKESV+5,4
  868. 7203 POKESV+1,Q:POKESV+4,33:FORC=0TO130:NEXT:POKESV+4,32
  869. 7210 RETURN
  870. 7561 IFRR=0THEN501
  871. 7564 IFU=>5THENRR=0:SO=0:SA=0:GOTO501
  872. 7565 GOTO7700
  873. 7620 A$(1)="THE CURE":A$(2)="DURAN DURAN":A$(3)="ROLLING STONES":A$(4)="POLICE"
  874. 7621 A$(5)="BIG COUNTRY":A$(6)="ELVIS PRESLEY":A$(7)="GENESIS":A$(8)="ULTRAVOX"
  875. 7622 A$(9)="KATE BUSH":A$(10)="UB40":A$(11)="BILLY JOEL":A$(12)="JUAN MARTIN"
  876. 7623 A$(13)="EURYTHMICS":A$(14)="CLIFF RICHARD":A$(15)="WHITESNAKE"
  877. 7624 A$(16)="U2":A$(17)="THE CLASH":A$(18)="LIONEL RICHIE"
  878. 7625 A$(19)="ELTON JOHN":A$(20)="ROD STEWART":A$(21)="EDDIE GRANT"
  879. 7626 A$(24)="PAUL YOUNG":A$(25)="BUCKS FIZZ"
  880. 7627 A$(26)="MADNESS":A$(27)="QUEEN":A$(28)="DAVID ESSEX":A$(29)="DAVID BOWIE"
  881. 7628 A$(30)="SPANDAU BALLET":A$(31)="HUMAN LEAGUE":A$(32)="DIRE STRAITS"
  882. 7629 A$(34)="BRYAN FERRY":A$(35)="HAIRCUT 100":A$(36)="DIANA ROSS"
  883. 7630 A$(37)="CULTURE CLUB":A$(39)="MUSICAL YOUTH":A$(40)="WINGS"
  884. 7631 A$(23)="MICHAEL JACKSON":A$(22)="TRACY ULLMAN"
  885. 7632 A$(33)="J.YOUNG & T.WOGAN":A$(38)="TOYAH"
  886. 7640 RETURN
  887. 7700 CP=1:D=PO+(11*RND(1)*SR):R=1100
  888. 7706 IFD>=RTHEN7709
  889. 7708 R=R-55:CP=CP+1:GOTO7706
  890. 7709 POKE53280,0:POKE53281,0:PRINT"[147]"
  891. 7710 PRINTSPC(24)"[129]THIS MONTH'S":PRINT""SPC(24)"TOP TWENTY[154]":M=1
  892. 7711 PQ=10:RQ=0:IFM>10THENRQ=10:PQ=20
  893. 7712 TN=RQ:PN=INT(40*RND(1))+1:B(M)=PN
  894. 7713 TN=TN+1:IFTN=MTHEN7715
  895. 7714 IFB(TN)=B(M)THEN7712
  896. 7715 IFTN<PQTHEN7713
  897. 7716 V$="  "
  898. 7717 IFM>9THENV$=" "
  899. 7718 IFCP=MTHENPRINTV$;""M"[157]   [157]"N$;" [157][154]":GOSUB9900:GOTO7724
  900. 7720 PRINT;V$;M" ";A$(PN)
  901. 7722 SM=30:GOSUB9870
  902. 7724 M=M+1:IFM<21THEN7711
  903. 7772 PRINT"":SM=30
  904. 7773 PRINTSPC(24)"[158]PRESS A KEY"
  905. 7775 GETW$:IFW$<>""THEN501
  906. 7776 GOSUB9820
  907. 7777 GOTO7775
  908. 7778 GOTO501
  909. 8005 POKE53280,4:POKE53281,7:PRINT"[147][144]"
  910. 8010 IFRC=1THEN8020
  911. 8011 PRINT""SPC(6)"YOU DON'T HAVE A RECORDING"
  912. 8012 PRINT""SPC(6)"CONTRACT, SO YOU CAN'T MAKE"
  913. 8013 PRINT""SPC(6)"A RECORD - YET!":NN=0
  914. 8014 NN=NN+1:GOSUB9920:IFNN<10THEN8014
  915. 8015 GOTO501
  916. 8020 IFSO=1THEN8030
  917. 8022 PRINT""SPC(6)"YOU DON'T HAVE AN ORIGINAL"
  918. 8023 PRINT""SPC(6)"SONG. YOU'D BETTER WRITE ONE!"
  919. 8024 NN=0:GOTO8014
  920. 8030 IFRR=0THEN8040
  921. 8032 PRINT""SPC(6)"YOUR LAST RECORD IS STILL"
  922. 8033 PRINT""SPC(6)"IN THE SHOPS. YOU CAN'T MAKE"
  923. 8034 PRINT""SPC(6)"ANOTHER ONE YET!"
  924. 8035 GOTO8024
  925. 8040 IFPO>20*RND(1)+80THEN8050
  926. 8041 PRINT""SPC(6)"VICTORY RECORDS  ARE NOT"
  927. 8042 PRINT""SPC(6)"PREPARED  TO  FINANCE  YOU."
  928. 8043 PRINT""SPC(6)"YOU ARE NOT POPULAR ENOUGH!"
  929. 8044 GOTO8024
  930. 8050 IFEN<=0THENGOSUB1401
  931. 8051 IFEN<=0AND100*RND(1)<50THEN5530
  932. 8053 PR=INT(25000*RND(1))+15000
  933. 8054 RR=1
  934. 8055 PRINT""SPC(6)"YOU SPEND A MONTH RECORDING"
  935. 8056 PRINT""SPC(6)"YOUR NEW SONG. YOU WILL RECEIVE"
  936. 8057 PRINT""SPC(5);RY"CENTS FOR EACH RECORD SOLD"
  937. 8058 PRINT""SPC(6)"THE COMPANY IS PREPARED TO"
  938. 8059 PRINT""SPC(6)"SPEND $";PR"IN PROMOTING"
  939. 8060 PRINT""SPC(6)"THE RECORD. GOOD LUCK!"
  940. 8061 MO=MO+1:U=0:EN=EN-INT(300*RND(1))
  941. 8062 GOSUB9900:FORN=0TO3000:NEXT
  942. 8063 GOTO7000
  943. 8110 POKE53280,4:POKE53281,0:PRINT"[147]"
  944. 8112 RY=INT(15*RND(1))+10
  945. 8120 PRINT""SPC(6)"VICTORY RECORDS ARE PREPARED"
  946. 8121 PRINT""SPC(6)"TO  OFFER  YOU  A  RECORDING"
  947. 8122 PRINT""SPC(6)"CONTRACT. THEY WILL PAY  YOU"
  948. 8123 PRINT""SPC(5);RY"CENTS PER RECORD SOLD"
  949. 8124 PRINT""SPC(6)"DO YOU ACCEPT? (Y/N)"
  950. 8140 GETW$:IFW$="Y"THEN8170
  951. 8150 IFW$="N"THEN8180
  952. 8152 SM=30:GOSUB9820
  953. 8155 GOTO8140
  954. 8170 RC=1:HA=HA+2:MO=MO+1:GOTO1866
  955. 8180 IF100*RND(1)>48THEN8210
  956. 8190 PRINT"[147]"SPC(6)"OK, FORGET IT. THERE  ARE"
  957. 8192 PRINT""SPC(6)"PLENTY OF OTHER GROUPS AROUND!"
  958. 8200 RY=0:HA=HA-5:MO=MO+1:GOTO8014
  959. 8210 RY=RY+INT(5*RND(1))+1:IFRY=>30THENRY=30
  960. 8220 PRINT"[147]"SPC(6)"YOU DRIVE A HARD BARGAIN!"
  961. 8222 PRINT""SPC(6)"WE ARE PREPARED TO OFFER YOU"
  962. 8224 PRINT""SPC(5);RY"CENTS PER RECORD"
  963. 8230 GOTO8124
  964. 9600 RC=0:EN=1000:MO=0:HA=25:SS=0:MU=INT(1000*RND(1))+30001:PO=1:X=0:SO=0
  965. 9602 MI=1:FA=0:PQ=255:MA=0:RR=0:RY=0:LO=0:IN=0:BA=0:SV=54272
  966. 9604 M$="NONE":U=0:SC=0:RETURN
  967. 9800 PRINT"[144]"SPC(4)"*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"
  968. 9802 PRINTSPC(4)"[221]"SPC(29)"[221]"
  969. 9803 PRINTSPC(4)"*"SPC(29)"*"
  970. 9805 PRINTSPC(4)"[221]"SPC(29)"[221]"
  971. 9807 PRINTSPC(4)"*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"
  972. 9810 RETURN
  973. 9815 FORN=0TO24:POKESV+N,0:NEXT:RETURN
  974. 9820 SM=SM+1:IFSM<30THEN9860
  975. 9822 SM=0
  976. 9824 GOSUB9815
  977. 9830 POKESV+5,9:POKESV+24,15
  978. 9840 FORN=0TO4
  979. 9841 NP=INT(7*RND(1))+4
  980. 9843 POKESV+4,33:POKESV+1,NP
  981. 9850 FORC=0TO170:NEXT:POKESV+4,32:NEXT
  982. 9855 POKESV+1,0
  983. 9860 RETURN
  984. 9870 J1=INT(6*RND(1))+1
  985. 9871 IFJ1=J2THEN9870
  986. 9872 J2=J1:ONJ1GOTO9873,9874,9875,9877,9879,9881
  987. 9873 N(1)=4:N(2)=5:N(3)=6:N(4)=8:GOTO9890
  988. 9874 N(1)=5:N(2)=6:N(3)=8:N(4)=4:GOTO9890
  989. 9875 N(1)=6:N(2)=8:N(3)=4:N(4)=5:GOTO9890
  990. 9877 N(1)=4:N(2)=6:N(3)=5:N(4)=8:GOTO9890
  991. 9879 N(1)=8:N(2)=4:N(3)=5:N(4)=6:GOTO9890
  992. 9881 N(1)=8:N(2)=6:N(3)=5:N(4)=4:GOTO9890
  993. 9890 POKESV+5,9:FORI=1TO4
  994. 9895 POKESV+1,N(I):POKESV+4,33:FORC=0TO190:NEXT:POKESV+4,32:NEXT:RETURN
  995. 9900 S1=220:S2=20:POKESV+5,2:POKESV+12,2:FORN=1TO15
  996. 9902 POKESV+1,S1:POKESV+8,S2:POKESV+4,33:POKESV+11,33
  997. 9904 S1=S1-10:S2=S2+10
  998. 9906 FORC=1TO160:NEXT:POKESV+4,32:POKESV+11,32:NEXT:POKESV+1,0:POKESV+8,0:RETURN
  999. 9920 POKESV+5,9
  1000. 9922 FORN=1TO2:POKESV+1,80:IFN/2=INT(N/2)THEN9926
  1001. 9924 POKESV+1,50
  1002. 9926 POKESV+4,17:FORC=1TO70:NEXT:POKESV+4,16:NEXT:POKESV+1,0:RETURN
  1003.