home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 116 / 116.d81 / afterlife (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  25.2 KB  |  709 lines
  1. 100 deffnh(zz)=int(zz/256)
  2. 101 deffnl(zz)=zz-fnh(zz)*256
  3. 102 dv=peek(186):ifdv<8thendv=8
  4. 105 sd=35328:tb=36864:lf=32768:v=53248:poke56578,peek(56578)or3
  5. 106 pokev+21,0:poke648,192:print"[147]";:poke53265,27
  6. 110 poke56576,peek(56576)and252:poke53272,2
  7. 111 syssd,15:syssd+15,7,2047
  8. 112 poke53281,0:poke53280,0
  9. 120 dims(28,10),c$(8),c(3,30),l(3),s$(35),t(8),cn$(8),sg$(4),oo$(1),fx$(3)
  10. 121 dimsc$(9),sc(9),df$(9),vn$(9),n$(9),p$(1),sp(7),tq$(7,2),e$(3)
  11. 130 fora=0to28:forb=0to8:reads(a,b):next:reads$(a),s(a,10):next
  12. 131 fora=0to8:readc$(a):next
  13. 132 fora=0to3:readl(a):forb=0tol(a):readc(a,b):next:next
  14. 133 fora=0to8:readt(a):next:fora=0to8:readcn$(a):next
  15. 134 fora=0to4:readsg$(a):next:fora=0to9:readdf$(a):next
  16. 135 fora=0to9:readvn$(a):next:fora=0to9:readn$(a):next
  17. 136 fora=0to7:readsp(a):next:fora=0to7:forb=0to2:readtq$(a,b):next:next
  18. 137 n1=1:n2=1:n3=1:n4=1:n5=1:n6=1:i$=chr$(148)
  19. 138 e$(0)="slb":e$(1)="dav":e$(2)="mil":e$(3)="tph"
  20. 140 open15,dv,15,"r0:al stuff=al stuff":input#15,a$,b$,b$,b$
  21. 141 ifval(a$)<>63thensq=1:gosub45000:qq=0:goto144
  22. 142 gosub46000:qq=qn:qn=qn+1:ifqn>7thenqn=0
  23. 143 nm=1:gosub45004
  24. 144 syssd+12,196+fx:poke54296,vl
  25. 150 t1$="[204][205][206][207][208][209][210][211][212][213][214][215][216]":t2$="[172][173][174][175][176][177][178][179][180][181][182][183][184]":t3$="lmnopqrstuvwx"
  26. 151 b1$=" !"+chr$(34)+"#$%&":b2$="[198][199][200]":poke53265,65
  27. 152 gosub21000:systb+18,168:print"[147]";
  28. 153 gosub21030:systb+18,176:print"[147]";:poke53265,27
  29. 154 bl$="                                       ":oo$(0)="off":oo$(1)="on "
  30. 155 p1$="&&[157][157]&&[157][157]&&":p2$="&&[157][157][157]&&[157][157][157]&&"
  31. 156 p3$="&[157]&[157]&[145][145]":p4$="&&&[145]":p$(0)=p3$+p4$+p3$+p4$+p3$+p4$+p3$+p4$
  32. 157 p$(1)=p4$+p$(0):p$(0)=p$(0)+p3$
  33. 158 m1$="level completed!":m2$="try it again..."
  34. 160 fx$(0)="standard ":fx$(1)="fluttery ":fx$(2)="serious  ":fx$(3)="overboard"
  35. 170 pm$="game paused: f1-resume, f8-quit"
  36. 498 gosub48000:goto20000
  37. 500 ifsg>=0thengosub36000:ifp1=0then25100
  38. 502 poke53281,0:poke53282,9*am:poke53283,6*am
  39. 505 p1=-1:print"[147]";:poke53265,91:systb+57,51200,53248,40960
  40. 506 ifsg=>0thena=s(sg,7):gosub1000
  41. 507 gosub41000
  42. 522 pokev+39,1:poke53275,abs(o3>5):poke867,(o3*3)+128
  43. 525 ifsg<0then540
  44. 530 poke845,s(sg,6):poke848,o1:aa=s(sg,0):ifo1=11thenaa=aa*2
  45. 532 poke846,fnl(aa):poke847,fnh(aa):poke856,s(sg,1)
  46. 533 poke858,fnl(s(sg,4)):poke859,fnh(s(sg,4))
  47. 534 t1=s(sg,2):t2=s(sg,3):ift1=4thenpoke861,1:poke860,t2:goto537
  48. 535 poke861,0:poke860,t1
  49. 537 poke864,fnl(s(sg,5)):poke865,fnh(s(sg,5))
  50. 538 poke862,0:poke863,0:poke866,0
  51. 539 poke854,0:poke855,0
  52. 540 poke53287,1
  53. 545 syslf+15
  54. 550 ifpeek(780)=0thenprintbl$pm$:gosub10000:ifp1=0thensyslf+18:goto550
  55. 551 ifp1=1then10100
  56. 552 es=peek(780)
  57. 553 x1=20:x2=20:y1=12:y2=12:x3=9.1:x4=31:y3=9.1:y4=16:ch=0:cl=1:gosub22000
  58. 554 x1=20:x2=20:y1=12:y2=12:x3=10.1:x4=30:y3=10.1:y4=15:ch=32:cl=1:gosub22000
  59. 555 onesgoto560,600,700,800,900
  60. 560 systb+27,11,"time up"
  61. 561 ifsg>=0thenif(s(sg,2)=2)then575
  62. 562 ifsg=-1thenifn1=2then575
  63. 564 systb+27,13,m2$:z1=0:goto990
  64. 575 systb+27,13,m1$:z1=1:goto990
  65. 600 systb+27,11,"enough counters"
  66. 604 systb+27,13,m1$:z1=1:goto990
  67. 700 systb+27,11,"maintenance failed"
  68. 702 systb+27,13,m2$:z1=0:goto990
  69. 800 systb+27,11,"out of counters"
  70. 802 ifsg>=0thenifs(sg,2)=3then850
  71. 803 ifsg=-1thenifn1=3then850
  72. 804 systb+27,13,m2$:z1=0:goto990
  73. 850 systb+27,13,m1$:z1=1:goto990
  74. 900 systb+27,11,"enough spaces covered"
  75. 904 systb+27,13,m1$:z1=1:goto990
  76. 990 ifz1>0thenfora=1to9:syssd+9,14:forb=1to20:next:next
  77. 991 ifz1<=0thensyssd+9,15
  78. 992 gosub10030:ch=32:cl=11:gosub11000
  79. 994 poke53265,27
  80. 995 systb+57,51200,53248,40960:ifsg=-1then35000
  81. 996 ifz1=0thenfl=fl-((not-ww)*sgn(sg)):goto25100
  82. 997 goto38000
  83. 1000 b=((a*7+192)*8)+51200:c=36:gosub2000
  84. 1010 b=b+8:c=38:gosub2000:b=b+8:c=39:gosub2000
  85. 1020 b=b+8:c=40:gosub2000:c=28:gosub2000:b=b+8:c=41:gosub2000
  86. 1035 c=29:gosub2000
  87. 1040 b=b+8:c=59:gosub2000:b=b+8:c=34:gosub2000:return
  88. 2000 fora=0to7:poke51200+c*8+a,peek(b+a):next:return
  89. 3000 print"[147]";
  90. 3005 syssd+9,6
  91. 3010 x1=20:x2=21:y1=12:y2=13:x3=0.1:x4=39:y3=1.1:y4=24:ch=27:cl=13:gosub22000
  92. 3020 x1=20:x2=21:y1=12:y2=13:x3=1.1:x4=38:y3=2.1:y4=23:ch=36:cl=7:gosub22000
  93. 3030 return
  94. 4000 nb$="":poke198,0
  95. 4005 systb+24,x,y,nb$+"     "
  96. 4010 geta$:ifa$=chr$(13)thennb=val(nb$):systb+24,x-1,y,str$(nb):return
  97. 4020 ifa$=chr$(20)theniflen(nb$)>0then4100
  98. 4025 if(a$<"0")or(a$>"9")then4010
  99. 4030 ifval(nb$+a$)>lmthen4010
  100. 4035 ifval(nb$+a$)=0then4010
  101. 4040 nb$=nb$+a$:goto4005
  102. 4100 nb$=left$(nb$,len(nb$)-1):goto4005
  103. 10000 geta$:ifa$="[133]"thenp1=0:goto10020
  104. 10005 ifa$="[140]"thenp1=1:goto10020
  105. 10010 goto10000
  106. 10020 printbl$:return
  107. 10030 ifpeek(56320)=111thenreturn
  108. 10035 goto10030
  109. 10100 print"[147]";:systb+57,51200,53248,40960:poke53265,27
  110. 10105 ifsg>=0thenz1=0:fl=fl-((not-ww)*sgn(sg)):goto25100
  111. 10110 ifsg=-2then20000
  112. 10120 goto35000
  113. 11000 fora=0to11:systb+15,a,39-a,a,a,ch,cl:systb+15,39-a,39-a,a,24-a,ch,cl
  114. 11010 systb+15,a,39-a,24-a,24-a,ch,cl:systb+15,a,a,a,24-a,ch,cl:next
  115. 11020 systb+15,0,39,12,12,ch,cl:return
  116. 20000 a=fre(0):a=rnd(-ti):print"[147][146]";:poke53272,3
  117. 20001 systb+21,168:syssd+9,6
  118. 20005 x1=20:x2=21:y1=3:y2=3:x3=12.1:x4=26:y3=1.1:y4=5:ch=32:cl=1:gosub22000
  119. 20010 poke53281,0:poke53280,0:systb+27,2,"[150]"+t1$
  120. 20012 systb+27,3,"[158]"+t2$:print"";:systb+27,4,"[150]"+t3$
  121. 20015 print"[146]";
  122. 20020 x1=20:x2=21:y1=8:y2=9:x3=6.1:x4=34.9:y3=7.1:y4=10.9:ch=32:cl=1:gosub22000
  123. 20030 systb+27,8,"by john william "+chr$(34)+"the mad   "
  124. 20040 systb+27,9,"              gamer"+chr$(34)+" harris"
  125. 20050 x1=20:x2=21:y1=17:y2=18:x3=2.1:x4=37.9:y3=13.1:y4=22.9:ch=32:cl=1
  126. 20060 gosub22000:systb+24,7,14,"[158]afterlife -[159] begin new game"
  127. 20070 systb+24,7,15,"[158]afterlife -[159] continue old game"
  128. 20080 systb+24,7,16,"[158]play standard life"
  129. 20090 systb+24,7,17,"[158]view high scores"
  130. 20120 systb+24,7,18,"[158]enter options screen"
  131. 20130 systb+24,7,19,"[158]some words from the author"
  132. 20140 systb+24,7,20,"[158]credits"
  133. 20150 systb+24,7,21,"[158]return to loadstar"
  134. 20200 x=4:y=14:lm=8:gosub23000
  135. 20210 onngoto24000,25000,26000,27000,30000,31000,32000,44000
  136. 21000 print"[147]";:b=0:c=3:e=5:fora=0to24:print"[151]"right$(b1$,b);
  137. 21010 ford=1toe:printb1$;:next:printleft$(b1$,c);:ifa=24thennext:return
  138. 21015 b=b+3:ifb>7thenb=b-7
  139. 21016 c=c-3:ifc<0thenc=c+7
  140. 21017 e=5:ifb+c>3thene=4
  141. 21020 print:next
  142. 21030 print"[147]";:b=0:c=2:e=12:fora=0to24:print"[151][146]"right$(b2$,b);
  143. 21032 ford=1toe:printb2$;:next:printleft$(b2$,c);:ifa=24thennext:return
  144. 21035 b=b+2:ifb>3thenb=b-3
  145. 21036 c=c-2:ifc<0thenc=c+3
  146. 21037 e=12:ifb+c>2thene=11
  147. 21040 print:next
  148. 22000 x3=x3+.1:y3=y3+.1
  149. 22001 systb+15,x1,x2,y1,y2,ch,cl
  150. 22005 r1=(x3-x1)/o2:r2=(x4-x2)/o2
  151. 22010 r3=(y3-y1)/o2:r4=(y4-y2)/o2
  152. 22020 fora=1too2:x1=x1+r1:x2=x2+r2:y1=y1+r3:y2=y2+r4
  153. 22030 systb+15,x1,x2,y1,y2,ch,cl:next
  154. 22040 systb+15,x3-.1,x4,y3-.1,y4,ch,cl:return
  155. 23000 n=1
  156. 23010 lc=0:cs=int(rnd(1)*4)
  157. 23050 poke49152+x+(y+n-1)*40,73
  158. 23060 j=peek(56320):ifj=127then23100
  159. 23065 pn=n
  160. 23070 if(jand1)=.thensyssd+9,3:n=n-1:ifn<1thenn=lm
  161. 23080 if(jand2)=.thensyssd+9,3:n=n+1:ifn>lmthenn=1
  162. 23085 ifpn=nthen23095
  163. 23090 poke49152+x+y*40+(pn-1)*40,32:poke55296+x+y*40+(n-1)*40,0
  164. 23092 poke49152+x+y*40+(n-1)*40,73
  165. 23095 if(jand16)=.thensyssd+9,2:poke55296+x+y*40+(n-1)*40,1:return
  166. 23100 poke55296+x+y*40+(n-1)*40,c(cs,lc):lc=lc+1:iflc>l(cs)thenlc=0
  167. 23110 goto23060
  168. 23290 goto25200
  169. 24000 ps=0:cm=0:fl=0:rt=0:fora=1to4:s(a,9)=1:next:fora=5to28:s(a,9)=0:next
  170. 24900 sg=0:goto500
  171. 25000 gosub34000:ifn$="[133]"then20000
  172. 25010 z1=0:ww=0:ps=0
  173. 25100 poke53280,0:systb+21,176:poke53275,0:pokev+16,0
  174. 25105 x1=8:x2=8:y1=12:y2=12:x3=2.1:x4=15:y3=1.1:y4=23:ch=32:cl=1:gosub22000
  175. 25110 print"":fora=0to6:print"";
  176. 25120 forb=0to3:printc$(s(1+(6-a)*4+b,9));:next:print"":next
  177. 25121 ifz1<>0andsg>0andww=0thengosub25305
  178. 25122 ifyy=1then49000
  179. 25125 pokev,48:pokev+1,66:sx=48:sy=66:cx=0:cy=0:pokev+23,1:pokev+29,1
  180. 25126 lc=0:cs=int(rnd(1)*4)
  181. 25130 poke50168,160:gosub37000:pokev+21,1
  182. 25200 j=peek(56320):if(jand1)=0thendy=-1:gosub33020
  183. 25210 if(jand2)=0thendy=1:gosub33020
  184. 25220 if(jand4)=0thendx=-1:gosub33000:ifyy=1then49000
  185. 25230 if(jand8)=0thendx=1:gosub33000:ifyy=1then49000
  186. 25240 ifj=111then25300
  187. 25250 geta$:ifa$="q"then25600
  188. 25285 pokev+39,c(cs,lc):lc=lc+1:iflc>l(cs)thenlc=0
  189. 25299 goto25200
  190. 25300 pokev+21,0:ln=cx+(6-cy)*4+1
  191. 25302 ss=s(ln,9):ifss=0thensyssd+9,12:pokev+21,1:goto25200
  192. 25303 ww=0:ifss=2thenww=1
  193. 25304 sg=ln:goto500
  194. 25305 ts=2:gosub25500:s(ln,9)=ts:cm=cm+1
  195. 25306 ifcm=24then25330
  196. 25307 ifcm=27then25340
  197. 25308 ifcm=28then25350
  198. 25309 ifcy=1thenreturn
  199. 25310 ifcy=6then25326
  200. 25312 ln=ln+4:cy=cy-1:ifcy<1thenreturn
  201. 25314 ifs(ln,9)<>0then25312
  202. 25316 ts=1:gosub25500:s(ln,9)=1:return
  203. 25326 ts=1:cy=5:gosub25500:cy=4:gosub25500:s(ln+4,9)=1:s(ln+8,9)=1:return
  204. 25330 forb=0to2:cy=0:cx=b:ts=1:gosub25500:s(25+b,9)=1:next:return
  205. 25340 cy=0:cx=3:ts=4:gosub25500:s(28,9)=4:return
  206. 25350 cy=0:cx=3:ts=5:gosub25500:s(28,9)=5:yy=1:return
  207. 25500 syssd+9,7
  208. 25505 xc=(cx*3)+3:yc=(cy*3)+2:print"[155]":fora=6to8:systb+24,xc,yc,c$(a):next
  209. 25510 systb+24,xc,yc,c$(ts):return
  210. 25600 pokev+21,0
  211. 25605 x1=27:x2=28:y1=12:y2=12:x3=20.1:x4=34:y3=3.1:y4=21:ch=t(int(rnd(1)*9))
  212. 25610 cl=12:gosub22000
  213. 25620 x1=27:x2=28:y1=12:y2=12:x3=20.1:x4=34:y3=5.1:y4=19:ch=32:cl=1:gosub22000
  214. 25630 systb+24,21,6,"[158]this will":systb+24,21,7,"end your"
  215. 25640 systb+24,21,8,"current":systb+24,21,9,"session."
  216. 25650 systb+24,21,10,"[150]make sure":systb+24,21,11,"that you"
  217. 25660 systb+24,21,12,"have pencil":systb+24,21,13,"and paper"
  218. 25670 systb+24,21,14,"ready before":systb+24,21,15,"quitting!"
  219. 25680 systb+24,21,16,"press 'y' to":systb+24,21,17,"end, or 'n'"
  220. 25690 systb+24,21,18,"to resume"
  221. 25700 geta$:ifa$="y"then25800
  222. 25710 ifa$<>"n"then25700
  223. 25720 syssd+9,12:gosub37000:goto25125
  224. 25800 iffl>127thenfl=127
  225. 25801 ifrt>127thenrt=127
  226. 25802 syssd+9,11:ps$="":ck=0:fora=1to7:b=((a-1)*4)+1:ch=0:forc=0to3
  227. 25803 ifs(c+b,9)=2ors(c+b,9)=5thench=ch+2^c:ck=ck+1
  228. 25804 next:ps$=ps$+chr$(ch+65):next
  229. 25806 pv=(rt and120)/8:fora=0to3:if(pvand(2^a))<>0thenck=ck+1
  230. 25807 next
  231. 25808 ps$=ps$+chr$(pv+65)
  232. 25810 pv=(rt and7)*2or((fland64)/64):fora=0to3:if(pvand(2^a))<>0thenck=ck+1
  233. 25811 next
  234. 25812 ps$=ps$+chr$(pv+65)
  235. 25813 pv=(fland60)/4:fora=0to3:if(pvand(2^a))<>0thenck=ck+1
  236. 25814 next
  237. 25815 ps$=ps$+chr$(pv+65)
  238. 25816 pv=(fland3)*4:fora=2to3:if(pvand(2^a))<>0thenck=ck+1
  239. 25817 next
  240. 25818 p2=(ckand48)/16:pv=pvorp2:ps$=ps$+chr$(pv+65)
  241. 25819 pv=(ckand15):ps$=ps$+chr$(pv+65)
  242. 25830 x1=27:x2=28:y1=12:y2=12:x3=20.1:x4=34:y3=3.1:y4=21:ch=t(int(rnd(1)*9))
  243. 25832 cl=12:gosub22000
  244. 25835 x1=27:x2=28:y1=12:y2=12:x3=20.1:x4=34:y3=5.1:y4=19:ch=32:cl=1:gosub22000
  245. 25837 systb+24,21,10,"[158]this is your":systb+24,21,11,"password."
  246. 25840 systb+24,21,12,"write it":systb+24,21,13,"down!!!"
  247. 25845 systb+24,21,15,ps$:n$=ps$
  248. 25847 systb+24,21,17,"fire - exit"
  249. 25850 if(peek(56320)and16)<>0then25850
  250. 25855 syssd+9,13:ifps>=sc(9)then43000
  251. 25860 goto20000
  252. 25998 end
  253. 26000 sg=-2:print"[147]";:systb+57,51200,53248,40960
  254. 26001 poke846,250:poke847,250:poke53282,9:poke53283,6:poke53265,91
  255. 26002 poke856,254:poke848,o1:poke861,0:poke860,0:poke867,(o3*3)+128
  256. 26003 poke864,250:poke865,250:poke845,255
  257. 26005 pl=1:gosub41000:poke866,1:poke49692,38
  258. 26010 syslf+15:eb=peek(780):ifeb=1then26010
  259. 26100 systb+57,49152,50152,1024:print"[147]";:poke53265,29
  260. 26101 systb+57,51200,53248,40960
  261. 26110 print"[158][147]";:systb+27,8,"life options"
  262. 26120 systb+24,16,10,"resume life"
  263. 26130 systb+24,16,11,"set up playfield"
  264. 26140 systb+24,16,12,"reset gen. counter"
  265. 26150 systb+24,16,13,"return to main menu"
  266. 26160 x=14:y=10:lm=4:gosub23000
  267. 26170 onngoto26400,26300,26500
  268. 26210 print"[147]";:poke53265,27:goto20000
  269. 26300 systb+27,18,"enter playfield number (1-21)"
  270. 26302 systb+27,19,"(enter nothing to back out)"
  271. 26310 x=20:y=20:lm=21:gosub4000:ifnb=0then26400
  272. 26320 print"[147]";:systb+57,51200,53248,40960
  273. 26325 poke53265,91:n6=nb:sg=-1:gosub41000:sg=-2:goto26010
  274. 26400 print"[147]";
  275. 26405 systb+57,51200,53248,40960:poke53265,91
  276. 26410 systb+57,49152,50152,1024:goto26010
  277. 26500 poke868,0:poke869,0:goto26400
  278. 27000 systb+21,168
  279. 27020 x1=20:x2=20:y1=12:y2=12:x3=5:x4=35:y3=7:y4=19:ch=32:cl=7:gosub22000
  280. 27030 print"[158]";:systb+27,7,vn$(int(rnd(1)*10))
  281. 27040 fora=0to9:poke646,c(1,5+int(a/2))
  282. 27050 systb+24,8,9+a,n$(a)+":"+sc$(a):systb+24,27,9+a,str$(sc(a)):next
  283. 27060 ifpeek(56320)<>111then27060
  284. 27070 syssd+9,7:goto20000
  285. 30000 poke53280,0:pokev+21,0
  286. 30005 x1=20:x2=20:y1=12:y2=12:x3=1:x4=38:y3=0:y4=24:ch=t(int(rnd(1)*9)):cl=11
  287. 30010 gosub22000
  288. 30020 x1=20:x2=20:y1=12:y2=12:x3=5:x4=35:y3=1:y4=23:ch=32:cl=7:gosub22000
  289. 30030 print"[158]";:systb+27,2,"** afterlife v1.0 **"
  290. 30040 systb+27,3,"finished on 09/16/93"
  291. 30050 systb+27,4,"by john william harris"
  292. 30060 systb+27,6,"** options **"
  293. 30070 systb+24,8,8,"cursor speed:"+str$(60/(o1+1))+" moves/sec."
  294. 30080 systb+24,8,9,"window speed:"+str$(o2)+" step(s)"
  295. 30090 systb+24,8,10,"cursor type : "+cn$(o3)
  296. 30100 systb+24,8,11,"assist mode : "+oo$(am)
  297. 30110 systb+24,8,12,"sfx type    : "+fx$(fx)
  298. 30115 systb+24,8,13,"sound volume: "+str$(vl)+"/ 15 "
  299. 30120 systb+24,8,14,"reset high scores"
  300. 30130 systb+24,8,15,"sound test"
  301. 30140 systb+24,8,16,"game test"
  302. 30150 systb+24,8,17,"save options"
  303. 30160 systb+24,8,18,"restore defaults"
  304. 30170 systb+24,8,19,"return to main menu"
  305. 30180 fora=1to5step2:pokev+a,224:next
  306. 30181 pokev+23,0:pokev+29,0
  307. 30182 fora=0to2:pokev+39+a,1:next:pokev,94:pokev+2,174
  308. 30185 pokev+4,254:fora=9to29step10:poke50032+a,42:next
  309. 30190 fora=0to2:poke50168+a,o3*3+a+128:next:pokev+21,7
  310. 30500 n=1
  311. 30501 x=6:y=8:lm=12:gosub23010
  312. 30510 onngosub30600,30610,30620,30630,30640,30650:ifn<7then30501
  313. 30512 pokev+21,0:ifn=12then20000
  314. 30513 onn-6gosub45001,42000,35000,45004,45100:goto30000
  315. 30600 ifo1=5theno1=11:goto30608
  316. 30601 ifo1=11theno1=2:goto30608
  317. 30602 o1=5
  318. 30608 systb+24,21,8,str$(60/(o1+1))+" moves/sec. "
  319. 30609 return
  320. 30610 o2=o2+1:ifo2>10theno2=1
  321. 30612 systb+24,21,9,str$(o2)+" step(s) ":return
  322. 30620 o3=o3+1:ifo3>8theno3=0
  323. 30622 systb+24,22,10,cn$(o3)
  324. 30624 fora=0to2:poke50168+a,o3*3+a+128:next:return
  325. 30630 am=-not(-am)
  326. 30632 systb+24,22,11,oo$(am):return
  327. 30640 fx=fx+1:iffx>3thenfx=0
  328. 30642 systb+24,22,12,fx$(fx):syssd+12,196+fx:return
  329. 30650 vl=vl+1:ifvl>15thenvl=0
  330. 30652 systb+24,22,13,str$(vl)+"/ 15 ":poke54296,vl:return
  331. 31000 fora=1to500:next
  332. 31005 print"[159][147]";:poke53272,13:systb+51,"t.words al",dv:print"[147]";:poke53272,2
  333. 31010 goto20000
  334. 32000 fora=1to500:next
  335. 32005 print"[159][147]";:poke53272,13:systb+51,"t.credits al",dv:print"[147]";:poke53272,2
  336. 32010 goto20000
  337. 33000 syssd+9,3:if(cx+dx<0)or(cx+dx>3)thendx=.:return
  338. 33010 cx=cx+dx:sx=sx+dx*24:pokev,sx:return
  339. 33020 syssd+9,3:if(cy+dy<0)or(cy+dy>6)thendy=.:return
  340. 33030 cy=cy+dy:sy=sy+dy*24:pokev+1,sy:return
  341. 34000 systb+21,176:syssd+9,13
  342. 34005 ifn$="[133]"thenn$=""
  343. 34010 x1=20:x2=20:y1=7:y2=7:x3=7.1:x4=33:y3=6.1:y4=9:ch=32:cl=1:gosub22000
  344. 34020 systb+24,8,7,"enter last password to"
  345. 34030 systb+24,8,8,"continue your game....."
  346. 34040 x1=19:x2=19:y1=15:y2=15:x3=12:x4=27:y3=14:y4=16:ch=32:cl=1:gosub22000
  347. 34050 ifn$=""thensystb+24,13,15,")            ("
  348. 34055 ifn$<>""thensystb+24,13,15,")"+n$:systb+24,26,15,"("
  349. 34057 systb+24,14+len(n$),15,""
  350. 34060 a=fre(0):poke198,0
  351. 34070 geta$:ifa$=""then34070
  352. 34080 ifa$=chr$(13)thensyssd+9,5:goto34200
  353. 34090 ifa$=chr$(20)thenifn$<>""thensyssd+9,8:goto34150
  354. 34095 ifa$="[133]"thenn$="[133]":return
  355. 34100 if(a$<"a")or(a$>"p")then34070
  356. 34110 iflen(n$)=12then34070
  357. 34120 syssd+9,4:n$=n$+a$:printa$;:goto34070
  358. 34150 print"[157] [157]";:n$=left$(n$,len(n$)-1):goto34070
  359. 34200 cs=int(rnd(1)*3):iflen(n$)<>12then34900
  360. 34205 fora=1to2:forb=0tol(cs):poke646,c(cs,b):systb+24,14,15,n$:next:next
  361. 34207 x1=20:x2=20:y1=7:y2=7:x3=7.1:x4=33:y3=6.1:y4=9:ch=32:cl=1:gosub22000
  362. 34208 systb+24,14,8,"please wait..."
  363. 34211 pt$="":fora=1to12:pt=(asc(mid$(n$,a,1))-65)
  364. 34212 forb=3to0step-1:pb=pt and(2^b):pt$=pt$+chr$(pb):next:next
  365. 34213 iflen(pt$)<>48then34900
  366. 34214 ck$=right$(pt$,6):ck=0:fora=1to6
  367. 34215 ifmid$(ck$,a,1)<>chr$(.)thenck=ck+2^(6-a)
  368. 34217 next
  369. 34220 fl$=mid$(pt$,36,7):fl=0
  370. 34230 fora=1to7:ifmid$(fl$,a,1)<>chr$(.)thenfl=fl+2^(7-a)
  371. 34240 next
  372. 34250 rt$=mid$(pt$,29,7):rt=0
  373. 34260 fora=1to7:ifmid$(rt$,a,1)<>chr$(.)thenrt=rt+2^(7-a)
  374. 34270 next
  375. 34280 s1$=left$(pt$,28):s2$=""
  376. 34282 fora=1to25step4:forb=0to3:s2$=s2$+mid$(s1$,a+(3-b),1):next:next
  377. 34290 cm=0:fora=1to28:s(a,9)=.:ifmid$(s2$,a,1)<>chr$(.)thens(a,9)=2:cm=cm+1
  378. 34300 next
  379. 34310 cp=0:fora=1to42:ifmid$(pt$,a,1)<>chr$(.)thencp=cp+1
  380. 34320 next:ifck<>cpthen34900
  381. 34325 ifcm=28thens(28,9)=5:yy=1:return
  382. 34326 ifcm=27thens(28,9)=4:return
  383. 34330 ifcm<24then34350
  384. 34335 fora=25to27:ifs(a,9)<>2thens(a,9)=1
  385. 34340 next:return
  386. 34350 fora=1to4:no=1:ifs(a,9)=2thenno=2
  387. 34360 forb=ato20+astep4:ifs(b,9)=0thens(b,9)=1:no=no-1:ifno=0thenb=20+a:next:goto34380
  388. 34370 next
  389. 34380 next
  390. 34500 return
  391. 34900 x1=20:x2=20:y1=7:y2=7:x3=7.1:x4=33:y3=6.1:y4=9:ch=32:cl=1:gosub22000
  392. 34905 syssd+9,12:systb+24,8,7,"password error: try it"
  393. 34910 systb+24,8,8,"again (press f1 for menu)"
  394. 34920 goto34040
  395. 35000 print"[147][158]":systb+27,4,"** afterlife game test **"
  396. 35010 systb+24,11,10,"goal type:"+sg$(n1)
  397. 35020 systb+24,11,11,"# of goals:"+str$(n2)
  398. 35030 systb+24,11,12,"# of gen.:"+str$(n3)
  399. 35040 systb+24,11,13,"60ths sec per gen:"+str$(n4)
  400. 35050 systb+24,11,14,"counters per gen.:"+str$(n5)
  401. 35052 systb+24,11,15,"playfield (0-21):"+str$(n6)
  402. 35055 systb+24,11,16,"begin level"
  403. 35057 systb+24,11,17,"return to options":n=1
  404. 35060 x=8:y=10:lm=8:gosub23010
  405. 35070 onngosub35100,35200,35300,35400,35500,35800
  406. 35080 ifn=7then35600
  407. 35090 ifn=8thenreturn
  408. 35095 goto35060
  409. 35100 n1=n1+1:ifn1>4thenn1=0
  410. 35110 systb+24,11,10,"goal type:"+sg$(n1):return
  411. 35200 x=23:y=11:lm=999:gosub4000:n2=nb:return
  412. 35300 x=22:y=12:lm=250:gosub4000:n3=nb:return
  413. 35400 x=30:y=13:lm=65000:gosub4000:n4=nb:return
  414. 35500 x=30:y=14:lm=250:gosub4000:n5=nb:return
  415. 35600 sg=-1:poke845,n5:poke848,o1
  416. 35620 poke846,fnl(n4):poke847,fnh(n4):poke856,n3
  417. 35625 poke862,0:poke863,0:poke864,0
  418. 35630 ifn1=4then35700
  419. 35640 poke860,n1:poke858,fnl(n2):poke859,fnh(n2)
  420. 35650 poke864,255:poke865,255:poke866,0:poke861,0
  421. 35660 goto500
  422. 35700 poke860,0:poke858,255:poke859,255
  423. 35710 poke864,fnl(n2):poke865,fnh(n2):poke866,0:poke861,1
  424. 35720 goto500
  425. 35800 x=29:y=15:lm=21:gosub4000:n6=nb:return
  426. 36000 systb+21,168
  427. 36010 x1=20:x2=21:y1=12:y2=12:x3=3:x4=37:y3=1:y4=23:ch=32:cl=1:gosub22000
  428. 36020 syssd+9,5:print"";:systb+27,3,"briefing for level #"+str$(sg)+":"
  429. 36025 systb+27,4,chr$(34)+s$(sg)+chr$(34)
  430. 36030 systb+27,6,"your goal is..."
  431. 36040 ons(sg,2)gosub36500,36600,36700,36800
  432. 36050 print"";:systb+27,13,"generations:"+str$(s(sg,1))
  433. 36052 aa=s(sg,0):ifo1=11thenaa=aa*2
  434. 36055 s$="s":ifaa=60thens$=""
  435. 36060 systb+27,15,"time per turn:"+str$(aa/60)+" second"+s$
  436. 36061 systb+27,17,"counters per turn:"+str$(s(sg,6))
  437. 36070 sys tb+27,22,"fire-begin, space-back out"
  438. 36080 ifpeek(56320)=111then36100
  439. 36090 geta$:ifa$=" "thenp1=0:z1=0:syssd+9,12:return
  440. 36095 goto36080
  441. 36100 syssd+9,11:p1=1:return
  442. 36500 print"[159]";:systb+27,8,"attain a population of"
  443. 36510 systb+27,10,str$(s(sg,4))+" counters":return
  444. 36600 print"[158]";:systb+27,8,"maintain a population of"
  445. 36610 systb+27,10,str$(s(sg,4))+" until time up":return
  446. 36700 print"[150]";:systb+27,9,"exterminate all counters":return
  447. 36800 print"[153]";:systb+27,9,"cover"+str$(s(sg,5))+" 'x's":return
  448. 37000 x1=27:x2=28:y1=12:y2=12:x3=20.1:x4=34:y3=3.1:y4=21:ch=32:cl=1:gosub22000
  449. 37006 systb+24,21,4,"[158]** status: **"
  450. 37010 systb+24,21,6,"score:":systb+24,26,7,str$(ps)
  451. 37020 systb+24,21,9,"avg. rating:":systb+24,27,10,str$(rt)
  452. 37030 systb+24,21,12,"levels":systb+24,21,13,"completed:"
  453. 37040 systb+24,27,14,str$(cm)
  454. 37050 systb+24,21,16,"failures:":systb+24,27,17,str$(fl):ifyy=1then37070
  455. 37060 systb+24,20,19," fire - select":systb+24,21,20,"   q  -  quit"
  456. 37070 return
  457. 38000 systb+27,4,"-- level recap --"
  458. 38005 ls=peek(862)+peek(863)*256
  459. 38010 systb+27,7,"total counters:"+str$(ls)
  460. 38020 ifsg=<0thenls=0:ht=0:goto38040
  461. 38030 ht=int((sg-1)/4)+1
  462. 38040 syssd+9,14:systb+27,9,"total * difficulty ("+str$(ht)+" ) ="+str$(ls*ht)
  463. 38050 tp=peek(857)*ht*10:systb+27,11,"time remaining points:"+str$(tp)
  464. 38060 cb=ht*ht*100:systb+27,13,"level clear points:"+str$(cb)
  465. 38080 ifsg=.then38300
  466. 38090 ifz1=2then38200
  467. 38100 ifs(sg,2)=2thengosub38550:goto38102
  468. 38101 gosub38500
  469. 38102 systb+27,15,"efficiency rating:"+str$(ef)+"%"
  470. 38104 ifef>100thengosub38900:goto38290
  471. 38106 ifef=100thengosub38850:goto38290
  472. 38108 ifef=>95thengosub38800:goto38290
  473. 38110 ifef=>90thengosub38750:goto38290
  474. 38112 ifef=>80thengosub38700:goto38290
  475. 38114 ifef=>65thengosub38650:goto38290
  476. 38116 ifef=>50thengosub38600:goto38290
  477. 38290 ifww=1then38300
  478. 38291 ps=ps+(ls*ht+tp+cb+ht*ht*eb):systb+27,19,"your score so far:"+str$(ps)
  479. 38292 rt=int((rt*cm+ef)/(cm+1)+.5)
  480. 38300 systb+27,21,"- press fire -"
  481. 38310 if(peek(56320)and16)<>0then38310
  482. 38320 goto25100
  483. 38500 a=s(sg,1)-peek(857)
  484. 38505 ifs(sg,1)=s(sg,10)thenef=100:return
  485. 38506 ef=int(((s(sg,1)-s(sg,10))-(a-s(sg,10)))/(s(sg,1)-s(sg,10))*100)
  486. 38510 return
  487. 38550 e1=peek(828)+peek(829)*256:ef=int(((e1-s(sg,4))/(s(sg,10)-s(sg,4)))*100)
  488. 38560 return
  489. 38600 systb+27,16,"not bad, but you can do better...":eb=25:gosub38950:return
  490. 38620 return
  491. 38650 systb+27,16,"good. room for improvement, but good.":eb=50:gosub38950:return
  492. 38655 ps=ps+(50*ht*ht)
  493. 38700 systb+27,16,"very good!  keep it up!":eb=100:gosub38950:return
  494. 38750 systb+27,16,"cool!  very well played!":eb=250:gosub38950:return
  495. 38800 systb+27,16,"ya did great!!  almost aced it!":eb=500:gosub38950:return
  496. 38850 systb+27,16,"- p e r f e c t   r o u n d -":eb=1000:gosub38950:return
  497. 38900 systb+27,16,"egad!!!":eb=2500:gosub38950:return
  498. 38950 systb+27,17,"bonus:"+str$(eb)+" * dfcty. squared ="+str$(eb*ht*ht)
  499. 38960 return
  500. 40100 print"[147]":fora=0to6:print"";:forb=0to4:printc$(z);:next:print"":next
  501. 40110 return
  502. 41000 gosub3000:ifsg=-1thenpl=n6:goto41010
  503. 41001 ifsg=-2then41100
  504. 41005 pl=s(sg,8)
  505. 41010 ifpl>10then41030
  506. 41011 onplgosub41100,41110,41140,41150,41170,41180,41190,41200,41210,41220
  507. 41020 return
  508. 41030 onpl-10gosub41260,41270,41280,41300,41290,41310,41320,41330,41360,41370,41380
  509. 41040 return
  510. 41100 systb+15,20,21,12,13,38,7:return
  511. 41110 systb+15,18,19,10,11,38,7:systb+15,21,22,10,11,38,7
  512. 41120 systb+15,18,19,13,14,38,7:systb+15,21,22,13,14,38,7
  513. 41130 poke49492,38:poke49648,38:poke49656,38:poke49812,38:return
  514. 41140 systb+15,15,26,10,15,59,7:systb+15,16,25,11,14,36,7:gosub41100:return
  515. 41150 systb+15,2,36,3,22,38,7:fora=0to5:systb+15,2,36,a*3+5,a*3+5,36,7:next
  516. 41160 fora=0to10:systb+15,a*3+4,a*3+4,3,22,36,7:next:return
  517. 41170 systb+24,16,9,"[158]"+p1$+"[145][145]"+p2$
  518. 41172 systb+24,16,14,p2$+"[145][145]"+p1$:return
  519. 41180 print"[158]";:fora=9to15step2:systb+24,16,a,"&&&&":next
  520. 41182 fora=10to14step4:systb+24,16,a,"&&":next:poke49651,38:return
  521. 41190 print"[158]";:b=0:fora=4to20step4:systb+24,2,a,p$(b):b=-not(-b):next:return
  522. 41200 systb+15,1,38,2,2,38,7:systb+15,1,38,23,23,38,7
  523. 41202 systb+15,1,1,3,22,38,7:systb+15,38,38,3,22,38,7:return
  524. 41210 fora=343to655step39:poke49152+a,38:next:return
  525. 41220 gosub41210:fora=0to7:poke49152+sp(a),59:next:return
  526. 41230 systb+15,14,24,8,8,0,7:systb+15,14,14,8,14,0,7
  527. 41240 systb+15,17,27,11,11,0,7:systb+15,27,27,11,17,0,7
  528. 41250 systb+15,14,24,14,14,0,7:systb+15,17,27,17,17,0,7
  529. 41255 poke49536,0:poke49696,0:poke49649,0:poke49809,0:return
  530. 41260 systb+15,20,21,12,13,39,7:gosub41230:systb+15,25,25,8,10,59,7
  531. 41265 systb+15,16,16,15,17,59,7:systb+15,2,2,2,23,27,7:systb+15,37,37,2,23,27,7
  532. 41266 systb+15,1,1,2,23,38,7:systb+15,38,38,2,23,38,7:return
  533. 41270 gosub41230:gosub41100:return
  534. 41280 gosub41100:c=27:gosub41307:return
  535. 41290 gosub41150:c=39:gosub41307:systb+15,38,38,2,23,27,7:return
  536. 41300 gosub41110:c=27:gosub41307:fora=2to35step33:forb=3to21step18
  537. 41305 systb+15,a,a+1,b,b+1,59,7:next:next:return
  538. 41307 fora=0to12:forb=0to8:poke49233+a*3+b*3*40,c:next:next:return
  539. 41310 gosub41150:systb+15,4,34,5,5,59,7:systb+15,4,34,20,20,59,7
  540. 41312 systb+15,4,4,6,19,59,7:systb+15,34,34,6,19,59,7
  541. 41314 systb+15,38,38,2,23,27,7:return
  542. 41320 fora=0to8:forb=0to4:systb+24,2+a*4,3+b*4,"[158][[157][157][[[[157][157][":next:next
  543. 41322 systb+15,21,21,10,14,38,7:systb+15,1,37,23,23,27,7
  544. 41324 systb+15,38,38,2,23,27,7:return
  545. 41330 fora=0to4:systb+15,2+a*4,5+a*4,3+a,3+a,38,7
  546. 41331 systb+15,34-a*4,37-a*4,3+a,3+a,38,7:systb+15,2+a*4,5+a*4,22-a,22-a,38,7
  547. 41332 systb+15,34-a*4,37-a*4,22-a,22-a,38,7:next
  548. 41333 fora=0to2:systb+15,2+a,2+a,3+a*3,5+a*3,38,7
  549. 41334 systb+15,37-a,37-a,3+a*3,5+a*3,38,7:systb+15,2+a,2+a,20-a*3,22-a*3,38,7
  550. 41335 systb+15,37-a,37-a,20-a*3,22-a*3,38,7:next
  551. 41336 poke49637,38:poke49677,38:poke49666,38:poke49706,38:return
  552. 41340 fora=btob+10:gosub41350:systb+24,1,a-b+2,a$
  553. 41341 systb+24,1,23-(a-b),a$:next:return
  554. 41350 a$="":e=rnd(-a):forc=1to38:b$=c$:ifrnd(1)>dthenb$="&"
  555. 41352 a$=a$+b$:next:return
  556. 41360 f=fre(0):print"[158]";:b=615:d=.5:c$="$":gosub41340:return
  557. 41370 f=fre(0):print"[158]";:b=777376:d=.5:c$=";":gosub41340:return
  558. 41380 f=fre(0):print"[158]";:b=77717782:d=.6:c$="$":gosub41340:return
  559. 42000 print"[147][158]";:systb+27,8,"afterlife sound test"
  560. 42010 systb+27,10,"joystick - select"
  561. 42020 systb+27,11,"fire - confirm"
  562. 42030 systb+27,12,"space - return to options":a=0
  563. 42040 systb+27,14," "+str$(a)+" "
  564. 42050 j=peek(56320):ifj=123thena=a-1:ifa<0thena=15
  565. 42060 ifj=119thena=a+1:ifa>15thena=0
  566. 42070 ifj=111thensyssd+9,a
  567. 42080 geta$:ifa$=" "thenreturn
  568. 42090 goto42040
  569. 43000 x1=27:x2=28:y1=12:y2=12:x3=20.1:x4=34:y3=3.1:y4=21:ch=32:cl=1:gosub22000
  570. 43010 systb+24,21,9,"[158]your score":systb+24,21,10,"qualifies for"
  571. 43020 systb+24,21,11,"the afterlife"
  572. 43030 systb+24,21,12,"[158]hall of":systb+24,21,13,"(slight) fame!":a=9
  573. 43045 ifa=0then43100
  574. 43050 ifps>=sc(a-1)thena=a-1:goto43045
  575. 43100 systb+24,21,15,"[153]"+n$(a)+" place":systb+24,21,16,"[157]"
  576. 43110 systb+66,1,28,13:ifw$=""thenw$="--anonymous--"
  577. 43111 ifw$="?"thenw$=df$(int(rnd(1)*10))
  578. 43112 ifw$="!"thenw$=sc$(0)
  579. 43113 forb=1tolen(w$):ifmid$(w$,b,1)=","thengosub43500
  580. 43115 next:ifa=9then43200
  581. 43120 forb=8toastep-1:sc(b+1)=sc(b):sc$(b+1)=sc$(b):next
  582. 43200 sc$(a)=w$:sc(a)=ps:gosub45004:goto27000
  583. 43500 w$=left$(w$,b-1)+"."+right$(w$,len(w$)-b):return
  584. 44000 print"[147]";:systb+27,10,"after investing so much disk drive"
  585. 44010 systb+27,11,"time in getting here, are you sure you"
  586. 44020 systb+27,12,"want to go back to loadstar?"
  587. 44030 systb+27,14,"(y/n)"
  588. 44040 geta$:ifa$="y"then44500
  589. 44050 ifa$=""then44040
  590. 44060 goto20000
  591. 44500 pokev+21,0:print"[147]";:syssd+3
  592. 44505 close15:open15,dv,15:print"[147]";:print#15,"r0:hello connect=hello connect"
  593. 44510 input#15,a$,b$,b$,b$:close15:ifval(a$)=63then44700
  594. 44520 poke648,4:print"[154][147]";:poke56578,63:poke56576,199:poke53272,21
  595. 44530 poke53281,6:poke53280,14:poke56,160:clr:end
  596. 44700 poke648,4:print"[144][147]";:poke56578,63:poke56576,199:poke53272,21:poke2,dv
  597. 44710 poke56,160:clr:dv=peek(2)
  598. 44720 print"[144][147]load"chr$(34)"hello connect"chr$(34)","dv:print"run";
  599. 44730 poke198,2:poke631,13:poke632,13:end
  600. 45000 o1=5:o2=3:o3=0:am=1:fx=0:vl=15:qn=sq:sq=0:syssd+12,196+fx:poke54296,vl
  601. 45001 ifks=1thenks=0:goto45004
  602. 45002 fora=0to9:sc$(a)=df$(a):sc(a)=(10-a)*10000:next
  603. 45004 syssd+15,255:syssd+15,7,2047:print#15,"s0:al stuff"
  604. 45005 fora=1to2000:next:ifnm=0thenprint"[147]";:systb+27,12,"please wait..."
  605. 45020 nm=0:open2,dv,2,"al stuff,p,w"
  606. 45040 a$=chr$(13):print#2,o1;a$;o2;a$;o3;a$;am;a$;fx;a$;vl;a$;qn;a$
  607. 45050 fora=0to9:print#2,sc(a):print#2,sc$(a):next:close2
  608. 45060 print"[147]";:return
  609. 45100 ks=1:goto45000
  610. 46000 open2,dv,2,"al stuff,p,r":input#2,o1,o2,o3,am,fx,vl,qn
  611. 46010 fora=0to9:input#2,sc(a),sc$(a):next:close2:return
  612. 48000 print"[147]";:systb+27,10,tq$(qq,0):systb+27,12,tq$(qq,1)
  613. 48010 systb+27,15,tq$(qq,2):fora=1to1000
  614. 48011 geta$:ifpeek(56320)=111ora$<>""thena=1000:next:goto48100
  615. 48020 next
  616. 48100 print"[147]";:return
  617. 49000 gosub37000:yy=0:fora=1to4000:next:print"[147]";
  618. 49001 poke53265,11:a=int(rt/25):ifa>3thena=3
  619. 49010 systb+30,"f."+e$(a),dv,63488:systb+30,"scr."+e$(a),dv,49152
  620. 49020 systb+15,0,39,0,24,255,0:poke53281,1:poke53272,15:poke53265,27
  621. 49030 poke198,0:wait198,1:poke198,0:poke53281,0:poke53265,11:print"[158][147]";
  622. 49040 poke53272,3:poke53265,27:goto25800
  623. 50000 data 600,200,1,0,15,60000,2,2,1,"for starters...",0
  624. 50010 data 360,50,1,0,20,60000,2,0,1,"simplicity itself",5
  625. 50020 data 360,10,2,0,10,60000,2,0,2,"ten for ten",50
  626. 50030 data 360,30,3,0,60000,60000,250,0,1,"clear 'em out",3
  627. 50040 data 360,15,4,0,60000,4,2,0,3,"it's your move",2
  628. 50050 data 300,30,1,0,40,60000,2,1,1,"getting a little tougher",8
  629. 50060 data 480,60,1,0,100,60000,2,3,5,"great expectations",15
  630. 50070 data 600,40,3,0,0,60000,250,4,5,"easier than it looks",3
  631. 50080 data 180,15,1,0,20,60000,2,2,1,"speeding up...",1
  632. 50090 data 1560,40,3,0,0,60000,32,0,7,"student driver's nightmare",7
  633. 50100 data 480,60,1,0,100,60000,2,5,6,"the second hundred tears",21
  634. 50110 data 180,10,2,0,14,60000,2,3,6,"not too bad",56
  635. 50120 data 480,20,3,0,0,60000,5,6,6,"over the counter",3
  636. 50130 data 1200,50,3,0,0,60000,36,1,8,"you'll love this one",3
  637. 50140 data 240,30,1,0,40,60000,1,4,9,"it just gets better and better",13
  638. 50150 data 600,40,4,0,0,6,2,5,10,"moving day",13
  639. 50160 data 300,35,4,0,0,4,2,3,11,"escape from the cage",22
  640. 50170 data 180,5,1,0,20,60000,2,0,1,"simplicity's revenge",5
  641. 50180 data 240,25,1,0,40,60000,2,3,13,"gridlock (groan)",13
  642. 50190 data 480,55,4,0,0,6,2,1,14,"it's a stretch",43
  643. 50200 data 120,6,2,0,4,60000,1,4,15,"not as bad as it will seem",28
  644. 50210 data 600,80,4,0,0,30,2,1,16,"ring around the center",21
  645. 50220 data 360,80,1,0,50,60000,2,4,17,"chambers",26
  646. 50230 data 360,60,1,0,50,60000,2,4,12,"cage ii:the return",33
  647. 50240 data 360,30,2,0,44,60000,2,0,18,"bow-tie!",101
  648. 50250 data 360,25,2,0,150,60000,2,5,19,"down to business",184
  649. 50260 data 480,20,4,0,0,110,3,3,20,"x marks the spots before your eyes",14
  650. 50270 data 600,30,3,0,0,60000,8,2,21,"getting close...",25
  651. 50280 data 360,60,1,0,200,60000,3,5,1,"the culmination",49
  652. 51000 data"[150][192][193][194][157][157][157][160][161][162][157][157][157]@ab[145][145][146]"
  653. 51010 data"[158][195][196][197][157][157][157][163][164][165][157][157][157]cde[145][145][146]"
  654. 51020 data"[153][217][218][219][157][157][157][185][186][187][157][157][157]yz[[145][145][146]"
  655. 51030 data"[159][220][221][255][157][157][157][188][189][190][157][157][157]\]^[145][145][146]"
  656. 51080 data"[158]345[157][157][157][211][212][213][157][157][157][179][180][181][145][145][146]"
  657. 51090 data"[155]=>?[157][157][157][221][255][223][157][157][157][189][190][191][145][145][146]"
  658. 51100 data"678[157][157][157][214][215][216][157][157][157][182][183][184][145][145][146]"
  659. 51110 data" <[146] [157][157][157] [220][146] [157][157][157] [188][146] [145][145]"
  660. 51120 data"9:;[157][157][157][217][218][219][157][157][157][185][186][187][145][145][146]"
  661. 51500 data7,6,14,3,13,1,13,3,14
  662. 51510 data9,9,2,8,10,7,1,7,10,8,2
  663. 51520 data5,11,12,15,1,15,12
  664. 51530 data28
  665. 51531 data6,9,11,2,4,8,12,14,5,10,15,3,13,7,1,7,13,3,15,10,5,14,12,8,4,2,11,9,6
  666. 52000 data31,74,75,105,106,107,137,138,139
  667. 53000 data "corners   ","glass box ","dotted box","arrow     ","wand      "
  668. 53010 data "diamond   ","dim box   ","sparkle   ","solid box  "
  669. 53500 data"unsolvable   "
  670. 53510 data"population   "
  671. 53520 data"maintenance  "
  672. 53530 data"extermination"
  673. 53540 data"relocation   "
  674. 54000 data"the mad gamer","johnny harris","millicent","jarrod love"
  675. 54010 data"ryan downie","brian ricks","prof. zorron","down x 3","spheroid"
  676. 54020 data"furball"
  677. 55000 data"life row","lifers","getting the most out of life"
  678. 55010 data"everything,the universe,and life","life empowerment"
  679. 55020 data"get a life... or maybe ten","cats have 9 lives, you get 10"
  680. 55030 data"life stylists","the good things in life"
  681. 55040 data"sick of these puns yet?"
  682. 56000 data" 1st"," 2nd"," 3rd"," 4th"," 5th"," 6th"," 7th"," 8th"," 9th","10th"
  683. 57000 data409,448,569,528,429,470,589,550
  684. 58000 data"ah, another victim! millie, don't just"
  685. 58010 data"sit there, get out the party favors!"
  686. 58020 data"and awaaaaay we go!"
  687. 58030 data"'time is an illusion."
  688. 58040 data"lunchtime doubly so.' -- ford prefect"
  689. 58050 data"that, and this game, make no sense."
  690. 58060 data"a game from someone who calls himself"
  691. 58070 data"'the mad gamer' can't be all bad."
  692. 58080 data"still, i gave it a shot."
  693. 58090 data"how many times has this happened to you:"
  694. 58100 data"'honey, this typeface looks awful!'"
  695. 58110 data"buy loadstar (tm) brand fonts today!"
  696. 58120 data"and now, the game that set off"
  697. 58130 data"a nationwide craze..."
  698. 58140 data"(and morgan fairchild is my secretary)"
  699. 58150 data"okay, maybe it didn't set off a craze"
  700. 58160 data"and millie's really my secretary"
  701. 58170 data"(call me a glutton for punishment)"
  702. 58180 data"joel, mike, gypsy, crow, tom servo"
  703. 58190 data"cambot, magic voice and knees"
  704. 58200 data"(hip, cryptic mst3k reference)"
  705. 58270 data"gee, you've been playing"
  706. 58280 data"this game a lot!"
  707. 58290 data"i'm fresh out of quips!"
  708. 63999 open15,8,15,"s0:afterlife":close15:save"afterlife",8
  709.