home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 200 / 200.d81 / chain letters (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  11.3 KB  |  396 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 30 print"[147]":poke53272,19:ad=49152:poke53280,0:poke53281,0
  3. 40 sys57812"chn font",dv,0:poke780,0:poke781,0:poke782,8:sys65493
  4. 45 gosub55:goto2300
  5. 53 :
  6. 54 rem --- setup program ---
  7. 55 dim lt(26),gr(12),uw$(220)
  8. 60 x=rnd(-ti):hq=0:ml=39777
  9. 70 pt$=chr$(255)+chr$(169):rem pointer
  10. 100 gs=1050:gr(1)=1227:gr(2)=1235
  11. 105 gr(3)=1243:gr(4)=1251:gr(5)=1259
  12. 110 lm=1827:return
  13. 148 :
  14. 149 rem --- game screen ---
  15. 150 print"[147] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  16. 155 forx=1to8:print"[151] [186] [180][180][180][180]  [186] [180][180][180][180]  [186] [180][180][180][180]  [186] [180][180][180][180]  [186] [180][180][180][180]":next
  17. 160 print" [192][192][192][192][192][192][156][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][192][192][192][192][192][192]"
  18. 165 gosub275:sysad+69
  19. 185 sysad+18,112:sysad+18,120:sysad+18,128:sysad+18,136:sysad+18,144
  20. 195 goto3100
  21. 198 :
  22. 199 rem ---- print custom-letter ----
  23. 200 pokepk,lt+64:pokepk+1,lt+128:pokepk+40,lt+96:pokepk+41,lt+160
  24. 210 cl=55296+(pk-1024)
  25. 220 pokecl,co:pokecl+1,co:pokecl+40,co:pokecl+41,co
  26. 225 return
  27. 228 :
  28. 229 rem --- clear custom letter ---
  29. 230 pokepk,32:pokepk+1,32:pokepk+40,32:pokepk+41,32
  30. 240 return
  31. 248 :
  32. 249 rem --- print grid-letter ---
  33. 250 cl=55296+(pk-1024)
  34. 255 pokepk,lt:pokecl,2+nm
  35. 260 return
  36. 273 :
  37. 274 rem --- clear home word ---
  38. 275 sysad+24,26,0,"[151][161][162][161][162][161][162][161][162]":sysad+24,26,1,"[163][164][163][164][163][164][163][164]"
  39. 280 sysad+24,2,1,"                  "
  40. 290 return
  41. 348 :
  42. 349 rem --- quit ---
  43. 350 ph$="   [158][209][213][201][212]![159]  [193]re you sure?      y[154]/n":gosub410
  44. 355 poke 781,22:sys 59903:poke 781,23:sys 59903
  45. 360 geta$:ifa$=""then360
  46. 365 ifa$<>"y"then return
  47. 390 print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8
  48. 394 goto40000
  49. 398 :
  50. 399 rem --- print / center ---
  51. 400 poke781,22:sys59903:sysad+27,22,ph$:return
  52. 405 poke781,23:sys59903:sysad+27,23,ph$:return
  53. 410 poke781,24:sys59903:sysad+27,24,ph$:return
  54. 419 :
  55. 420 sysad+24,11,22,"f1[154] -[196]elete [204]etter      "
  56. 430 sysad+24,4,24,"   f3[154] -[200][197][204][208]!         f7[154] -[209]uit   "
  57. 440 return
  58. 888 :
  59. 889 rem --- oops ---
  60. 890 for x=0to1:poke781,23+x:sys 59903:next
  61. 895 lt=121:co=7:pk=wc-3:gosub250:lt=111:pk=pk+1:gosub250:return
  62. 899 :
  63. 900 rr=0:ph$="oops":forx=1to4:co=1+x
  64. 910 p$=mid$(ph$,x,1):lt=asc(p$):gosub200:pk=pk+2:next
  65. 914 :
  66. 915 fory=1to4:sysad+24,12,23,"[212]hat's not excepted!"
  67. 917 forx=1to100:nextx
  68. 920 sysad+24,12,23,"[154][212]hat's not excepted!"
  69. 922 forx=1to100:nextx:nexty:sysad+27,24,"[212]ry [193]gain...":forx=1to500:nextx
  70. 931 rr=1:if gm=1thenreturn
  71. 932 forx=3to0step-1:pk=wc+x:lt=116:co=11:gosub250:next:pk=wc-2:lt=122
  72. 933 gosub250:pk=pk-1:lt=32:gosub250:xx=0:gosub275:wg=wg-1:return
  73. 1098 :
  74. 1099 rem --- missing link ---
  75. 1100 print"[147]";:wd$(1)="":wd$(2)="":w(1)=1024:w(2)=1655:co=10:lm=1650:wg=1
  76. 1105 gr(2)=1267:gr(3)=1387:gr(4)=1507:gr(6)=1280:gr(7)=1400
  77. 1107 gr(8)=1520:gr(10)=1293:gr(11)=1413:gr(12)=1533
  78. 1110 gr(1)=1147:gr(5)=1160:gr(9)=1173
  79. 1120 gosub1150
  80. 1130 forx=1to2:sys ml+9,4:wd$(x)=w$
  81. 1132 fory=0to3:lt=asc(mid$(w$,(y+1),1))
  82. 1135 pk=w(x)+(y*2):gosub200
  83. 1140 nexty:nextx:gr=1:wd$=wd$(1):uw$(1)=wd$:goto1200
  84. 1149 :
  85. 1150 forx=1to4:print"[151]   [161][162][161][162][161][162][161][162][160][160][160][160][160][161][162][161][162][161][162][161][162][160][160][160][160][160][161][162][161][162][161][162][161][162]"
  86. 1155 print"[151]   [163][164][163][164][163][164][163][164][160][160][160][160][160][163][164][163][164][163][164][163][164][160][160][160][160][160][163][164][163][164][163][164][163][164]":print
  87. 1160 nextx:printtab(7)"?[220][221][146]";tab(27)"[158]_<="
  88. 1165 print"   [154][192][192][192][192][156][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][154][192][192][192][192]"
  89. 1170 print"[152]         [158]\]^_[146]":sysad+24,16,18,"[158]>?[220][221][255][223][188][189][146]"
  90. 1175 return
  91. 1199 :
  92. 1200 gosub420:pk=gr(gr)+xx:lt=97:co=7:gosub210
  93. 1210 get lt$:if lt$=""then1210
  94. 1220 if lt$="[134]"then rl$="how.link":gosub3050:goto1210:rem ...f3
  95. 1225 if lt$="[133]"then co=11:gosub2100:rem ...f1
  96. 1230 if lt$="[136]"then goto2700:rem ...f7
  97. 1235 if lt$<"a"orlt$>"z"then1210
  98. 1240 gs$=gs$+lt$:co=5:lt=asc(lt$):gosub200:xx=xx+2
  99. 1250 if xx=8then pr=23:gosub1280:gosub2112:gosub1265
  100. 1255 goto1200
  101. 1260 wg$=str$(wg):sysad+24,4,16,wg$:return
  102. 1265 gosub1300:gosub1260:ifa$<>"[133]"then gs$=""
  103. 1270 return
  104. 1279 :
  105. 1280 for x=0to3:poke781,21+x:sys59903:next:rem ... erase last 4 lines
  106. 1285 return
  107. 1299 :
  108. 1300 ifa$="[133]"thenreturn:rem --- f1
  109. 1305 if mk<1 then gosub 1280:pk=1946:gosub900:if rr=1then rr=0:goto1455
  110. 1315 gosub1280:gosub1350:ifc<>3thengoto1450
  111. 1317 ifc=3then rr=0:gosub2920:if rr=1then rr=0:gosub1455:wg=wg-1:return
  112. 1320 ph$="[217] o u    [215][160][201][160][206][160]!"
  113. 1325 ww$=wd$:wd$=wd$(2):gosub1350:ifc=3thensysad+27,21,ph$:goto2600
  114. 1330 wd$=ww$:gs$="":goto1410
  115. 1349 :
  116. 1350 c=0:forj=1to4:ifmid$(gs$,j,1)=mid$(wd$,j,1)thenc=c+1
  117. 1355 next:return
  118. 1409 :
  119. 1410 gr=gr+1:ifgr>12 then goto2600
  120. 1420 xx=0:gosub1280:return
  121. 1449 :
  122. 1450 gosub2930
  123. 1455 lt=91:co=11:forx=0to6step2:pk=gr(gr)+x:gosub200:next
  124. 1460 rem:gr=gr-1:if gr<1then gr=1
  125. 1465 gosub1280:xx=0:wg=wg-1:return
  126. 1897 end
  127. 1898 :
  128. 1899 rem --- load concatenation ---
  129. 1900 print"[147]":ph$="concatenation":pk=1745:sysad+24,5,15,"[159][204]oading:":co=3
  130. 1910 forx=1tolen(ph$):lt=asc(mid$(ph$,x,1)):gosub200
  131. 1920 pk=pk+3:co=co+1:if co=16then co=3
  132. 1930 next:ph$="[150][194]e right back ...":gosub400
  133. 1940 dv=peek(186):ifdv<8thendv=8
  134. 1950 q$=chr$(34):print"[144]load"q$"concatenation"q$","dv
  135. 1960 print"run"
  136. 1970 poke631,13:poke632,13:poke198,2
  137. 1980 new
  138. 2098 :
  139. 2099 rem --- delete character ---
  140. 2100 ifpk=gr(gr)or pk=1050 thenreturn
  141. 2102 pokepk+80,32:pokepk+81,32
  142. 2103 lt=91:co=11:gosub200:pk=pk-2
  143. 2105 lt=91:co=7:gosub 200:xx=xx-2:ifxx<0thenxx=0:return
  144. 2107 gs$=left$(gs$,(len(gs$)-1)):return
  145. 2108 :
  146. 2109 rem --- 4th letter pause ---
  147. 2110 poke781,pr:sys59903
  148. 2112 poke214,pr:print:print"      f1[154] -delete letter     [210][197][212][213][210][206][154]    "
  149. 2115 geta$:ifa$=""then2115
  150. 2120 ifa$="[133]"then goto2105:rem --- f1
  151. 2125 ifa$<>chr$(13)then2115
  152. 2135 mk=0:sys ml,gs$:ifw$<>gs$then mk=0:goto2175
  153. 2140 mk=1:forx=1to4:lc=asc(mid$(gs$,x,1)):poke56063+(lc-65),7:next:rem alphabet
  154. 2160 :
  155. 2175 wg=wg+1:return
  156. 2188 :
  157. 2189 rem --- prompts ---
  158. 2190 poke214,22:print:print"    f1[154] -delete letter     f3[154] -help  "
  159. 2192 print"   f5[154] -change screens      f7[154] -[209]uit   "
  160. 2195 return
  161. 2298 :
  162. 2299 rem --- main screen ---
  163. 2300 print"[147]";:
  164. 2310 printchr$(159)"[188][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][188]";
  165. 2315 fori=1to19
  166. 2320 print"[191]"chr$(31)"[219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]"chr$(159)"[191]";
  167. 2325 nexti:print"[188][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][188]";
  168. 2327 print"[146][150][220][202]athiah[208]roductions[208]resents[220][154]"
  169. 2330 sysad+69:poke214,9:print
  170. 2332 printtab(6)"[156][188][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][188]";:forx=1to2
  171. 2334 printspc(12)"[190]"spc(26)"[190]";:next
  172. 2336 printspc(12)"[188][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][188]"
  173. 2340 sysad+15,7,32,11,12,32,0:poke214,10:print
  174. 2345 printtab(34)" ":forx=1to2
  175. 2350 printspc(34)" ":next
  176. 2355 printspc(7)"                            "
  177. 2375 poke214,20:print:fori=217to242:pokei,peek(i)or128:next
  178. 2399 :
  179. 2400 poke214,21:print:print"f1[154] - [211]elect [199]ame to [208]lay ..."
  180. 2405 print"f3[154] - [201]nstructions   f7[154] - [209]uit [199]ame"
  181. 2410 c=2:y=0:ifq5=0thenq5=1:sysad+18,208
  182. 2415 geta$:poke646,c+y:gosub2494
  183. 2420 ifa$="[133]"thenpoke646,7:gosub2494:sysad+18,224:goto2450:rem play
  184. 2425 ifa$="[134]"thenrl$="how.menu":gosub3050:goto2415:rem rules
  185. 2430 ifa$="[135]"thengosub500:goto2415:rem words
  186. 2435 ifa$="[136]"thengosub350:sysad+21,208:goto2415:rem quit
  187. 2437 y=y+1:ify=12theny=2
  188. 2440 goto2415
  189. 2448 :
  190. 2449 rem --- which game ---
  191. 2450 forx=0to2:poke781,22+x:sys59903:next
  192. 2453 sysad+24,3,22,"[198]1[154] [205]issing link    [198]3[154] [195]hain [204]etters"
  193. 2454 sysad+24,2,24,"[198]5[154] [195]oncatenation       [198]7[154] [198]orget it."
  194. 2455 gm=0:sysad+45,"[133][134][135][136]":iff%=1then gm=1:goto1100:rem ... link
  195. 2460 iff%=3then1900:rem ... conc
  196. 2462 iff%=4then forx=0to3:poke781,21+x:sys59903:next:goto2400
  197. 2465 gm=2:c(1)=159:c(2)=156:c(3)=30:c(4)=31:forx=0to3:poke781,21+x:sys59903
  198. 2466 next:sysad+27,24,"[200]ow many [208]layers?    (2 to 4)":sysad+45,"234":pl=f%+1
  199. 2468 sysad+27,22,"[156][208]layer's [158][206][193][205][197][156]:"
  200. 2469 poke781,24:sys59903
  201. 2470 forx=1topl:poke214,22:print:printtab(8)"                        "
  202. 2475 poke214,23:print:printtab(15)"[158]#"x"[157]:  ";:
  203. 2480 sysad+66,22,6,10:ifw$=""thengoto2480
  204. 2485 nm$(x)=chr$(c(x))+w$
  205. 2490 next:goto150
  206. 2493 :
  207. 2494 sysad+24,7,11,"c[195]h[200]a[193]i[201]n[206]l[204]e[197]t[212]t[212]e[197]r[210]s[211]":rem...upper
  208. 2495 sysad+24,7,12,"#[163]([168]![161])[169].[174],[172]%[165]4[180]4[180]%[165]2[178]3[179][146]":rem...lower
  209. 2497 return
  210. 2498 :
  211. 2499 rem --- re-run ---
  212. 2500 gosub60:ad=49152
  213. 2510 goto2300
  214. 2598 :
  215. 2599 rem ---end of game ---
  216. 2600 if gm=2then2608
  217. 2602 ifwg=13then yw=1
  218. 2604 ifwg<13 and wg>1then yw=2
  219. 2605 ifgs$=""then yw=0
  220. 2606 goto 2620
  221. 2608 rt=0:poke781,23:sys59903:poke781,24:sys59903
  222. 2620 on (yw+1) goto 2650,2625,2630
  223. 2625 ph$="[206]ot bad!  [199]ive it another try.":gosub410:goto2645
  224. 2630 ph$="congratulations":pk=1949:ln=15:co=1:forx=1toln
  225. 2635 p$=mid$(ph$,x,1):lt=asc(p$)
  226. 2640 gosub200:pk=pk+2:nextx
  227. 2645 fori=0to2000:next
  228. 2650 tp=tp+wg:gp=gp+1:av=tp/gp:av$=left$(str$(av),6)
  229. 2655 fori=21to24:poke 781,i:sys 59903:next
  230. 2660 poke214,20:print:printtab(7)"[159][211]core for this game: "wg
  231. 2665 printtab(11)"[159][210]unning average: "av$
  232. 2670 ifgm=2then ifyw>0then print"[154] [212]he [215][201][206][206][197][210] is ";nm$(nm)"!"tab(26);:goto2672
  233. 2671 printtab(13);
  234. 2672 print"[208]ress any key"
  235. 2675 geta$:ifa$=""then2675
  236. 2677 xx=0:gs$="":goto 2500
  237. 2698 :
  238. 2699 rem --- quit game
  239. 2700 ph$=cl$:gosub400:gosub405:gosub410:poke214,23:print
  240. 2705 if gm=2 then 2750
  241. 2710 ph$="   [158][209][213][201][212]![159]  [193]re you sure?      y[154]/n":gosub410
  242. 2715 geta$:ifa$=""then2715
  243. 2720 ifa$<>"y"then gosub420:goto1210
  244. 2722 ph$="[154]    [210]eplay [211][193][205][197] [215]ords?      y[154]/n[154]    ":gosub410
  245. 2724 geta$:ifa$=""then2724
  246. 2726 ifa$="n"then2745
  247. 2730 ifa$<>"y"then2724
  248. 2735 print"[147]":gosub1150:co=10:for x=1to2
  249. 2737 fory=0to3:lt=asc(mid$(wd$(x),(y+1),1))
  250. 2740 pk=w(x)+(y*2):gosub200:next:next:gr=1:wd$=wd$(1):uw$(1)=wd$
  251. 2742 gosub1260:forx=1towg:uw$(x)="":next:wg=1:goto1200
  252. 2745 gs$="":goto2600
  253. 2749 rem --- game 2 /player-game
  254. 2750 ph$="quit":pk=1945:co=7:forx=1to4:p$=mid$(ph$,x,1):lt=asc(p$)
  255. 2755 gosub200:pk=pk+2:next:sysad+24,13,23,"[153]f1 <[208]layer    [153]f3 <[199]ame"
  256. 2760 sysad+24,15,24,"[153]f7 <[203]eep playing"
  257. 2765 geta$:ifa$=""then2765
  258. 2770 ifa$="[134]"then yw=0:goto2600:rem --- f3
  259. 2775 ifa$="[136]"then return:rem --- f7
  260. 2780 ifa$<>"[133]"then 2765:rem --- not f1
  261. 2785 nm$(nm)="":nm=nm+1:ifnm>plthennm=1:goto2785
  262. 2787 return
  263. 2898 :
  264. 2899 rem --- cmpare w/ list, chain ---
  265. 2900 uw=0:ifwg=1thenwd$=gs$:goto2960
  266. 2905 c=0:forj=1to4:ifmid$(gs$,j,1)=mid$(wd$,j,1)thenc=c+1
  267. 2910 next:ifc=3then goto2920
  268. 2915 goto2930
  269. 2919 :
  270. 2920 forgw=1towg:ifgs$=uw$(gw)then uw=1
  271. 2925 next:ifuw=1then rr=1:uw=0:goto2945
  272. 2927 wd$=gs$:goto2960
  273. 2929 :
  274. 2930 if gm=2then co=1:lt=106:pk=pk-6:gosub250:lt=103:pk=pk+1:gosub250
  275. 2935 forx=1to4:sysad+27,23,"[196]oes [206][207][212] [198][201][212] the [195][200][193][201][206]."
  276. 2936 fory=1to80:next:sysad+27,23,"[196]oes [206][207][212] [198][201][212] the [195][200][193][201][206]."
  277. 2937 fory=1to80:next:next:sysad+27,24,"[159][212]ry again."
  278. 2940 for x=1to1000:next:cc=1:return
  279. 2944 :
  280. 2945 ifgm=2then co=1:lt=121:pk=pk-6:gosub250:lt=111:pk=pk+1:gosub250
  281. 2950 forx=1to4:sysad+27,23,">> [193][204][210][197][193][196][217] [213][211][197][196] <<"
  282. 2951 fory=1to80:next:sysad+27,23,">> [193][204][210][197][193][196][217] [213][211][197][196] <<"
  283. 2952 fory=1to80:next:next:sysad+27,24,"[159][212]ry again."
  284. 2955 for x=1to1000:next:cc=1:return
  285. 2959 :
  286. 2960 ifgm=2then co=1:lt=119:pk=pk-6:gosub250:lt=110:pk=pk+1:gosub250
  287. 2965 uw$(wg)=gs$:cc=2:return
  288. 2968 :
  289. 2969 rem...chain:
  290. 2970 gosub2900:gosub275
  291. 2975 sysad+18,104+(s*8)
  292. 2980 if cc=1 thengs$="":gosub932:goto3110
  293. 2985 if cc=2 then3225
  294. 3048 :                       
  295. 3049 rem ---rules display ---
  296. 3050 sys ad+18,208:print "[147][159]":poke 53272,23
  297. 3055 sysad+51,rl$,dv
  298. 3060 print"[147]":poke53272,19:sysad+21,208
  299. 3065 return
  300. 3098 :
  301. 3099 rem --- chain letters ---
  302. 3100 nm=1:xx=0:s=1:gr=1:wc=gr(gr):wg=1:gosub3170:
  303. 3105 sysad+24,2,1,nm$(nm)+"'s turn"
  304. 3107 w$=str$(wg):sysad+24,35,1,""+w$:sysad+24,36,2,"[152]?[220][221]"
  305. 3108 s$=right$(str$(s),1)
  306. 3109 sysad+24,19,3,"[146][152][176][177][178][179]"+s$
  307. 3110 gosub2190
  308. 3115 pk=1050+xx:co=7:gosub210
  309. 3120 getlt$:iflt$=""then3120
  310. 3122 iflt$="[136]"thenrr=1:gosub2700:gosub2190:goto3400:rem --- f7
  311. 3135 iflt$="[134]"then rl$="how.chn":gosub3050:goto3120:rem --- f3
  312. 3137 iflt$="[133]"thengosub2100:rem --- f1
  313. 3140 iflt$="[135]"thenpokepk+80,32:pokepk+81,32:gosub3300:goto3105:rem --- f5
  314. 3145 iflt$<"a"orlt$>"z"then3120
  315. 3150 gs$=gs$+lt$
  316. 3155 co=13:lt=asc(lt$):pokepk+80,32:pokepk+81,32
  317. 3160 gosub200:xx=xx+2:ifxx=8thenpr=23:gosub2110:ifa$<>"[133]"then3200
  318. 3165 goto3110
  319. 3169 :
  320. 3170 wd$="":sysml+9,4:wd$=w$:print" * "wd$
  321. 3175 wc=wc+80:uw$(wg)=wd$:return
  322. 3198 :
  323. 3199 rem --- copy word ---
  324. 3200 xx=0:ifwc>lm thengosub3250
  325. 3205 forj=0to6 step2
  326. 3207 lt=peek(gs+j)-64:pk=wc+(j/2)
  327. 3210 gosub250:nextj
  328. 3215 ifmk=1thenpoke781,23:sys59903:poke781,24:sys59903:goto2970
  329. 3219 :
  330. 3220 gosub890:pk=1946:gosub900:gosub275:gs$="":goto3105
  331. 3224 :
  332. 3225 forx=1to4:lc=asc(mid$(gs$,x,1))
  333. 3230 poke56143+(lc-65),7:rem highlight alphabet
  334. 3235 next:gosub275:gs$="":rem ifa$="n"then3242
  335. 3240 wc=wc+80
  336. 3241 nm=nm+1:ifnm>pl then nm=1
  337. 3242 ifnm$(nm)=""then 3241
  338. 3245 goto3400
  339. 3249 :
  340. 3250 gr=gr+1:if gr>5then goto3280
  341. 3260 wc=gr(gr):return
  342. 3269 :
  343. 3270 pp=pk:pk=1050:forx=1to4:lt=asc(mid$(gs$,x,1))
  344. 3275 gosub200:pk=pk+2:next:pk=pp:return
  345. 3279 :
  346. 3280 s=s+1:if s>5 then s=5:gosub3290:goto 2600
  347. 3285 gr=1:gosub3365:gosub3270:sysad+18,208+(s*8):goto3260
  348. 3289 :
  349. 3290 poke781,22:sys 59903:poke781,24:sys59903:forx=1to4
  350. 3292 sysad+24,12,22,"[156][197]nd of [199]ame ...":fory=1to80:next
  351. 3294 sysad+24,12,22,"[197]nd of [199]ame ...":fory=1to80:next:next:return
  352. 3298 :
  353. 3299 rem --- change screens ---
  354. 3300 sysad+24,24,0,"  [151][161][162][161][162][161][162][161][162]"
  355. 3301 sysad+24,24,1,"  [151][163][164][163][164][163][164][163][164]"
  356. 3302 sysad+24,35,1,"   ":rem clear #
  357. 3305 sx=s:ifwg>40then3315
  358. 3307 sysad+24,1,1,"[206]o other screen yet!":forx=1to2000:next
  359. 3310 sysad+24,1,1,"                     ":xx=0:return
  360. 3314 :
  361. 3315 poke 781,23:sys 59903:poke 781,24:sys59903
  362. 3320 poke214,22:print:printtab(10)"f1[154] -go back to game"
  363. 3325 print" f5[154] -lower screen    f7[154] -higher screen"
  364. 3327 sys ad+18,104+(s*8):rem ...save
  365. 3330 geta$:ifa$=""then3330
  366. 3335 ifa$="[133]"thengoto3380:rem ..... f1
  367. 3340 ifa$="[135]"thens=s-1:gosub3360:rem f5
  368. 3345 ifa$="[136]"thens=s+1:gosub3355:rem f7
  369. 3350 goto3320
  370. 3355 ifs>4thens=4
  371. 3357 ifs*40>=wg+40thens=s-1
  372. 3360 ifs<1thens=1
  373. 3365 sysad+21,104+(s*8)
  374. 3370 s$=right$(str$(s),1):sysad+24,19,3,"[152][176][177][178][179]"+s$
  375. 3375 return
  376. 3380 xx=0:s=sx:sysad+21,104+(s*8):rem ..... restore
  377. 3385 poke781,22:sys 59903:poke781,24:sys59903:gosub275:return
  378. 3399 rem --- test last name for gm2
  379. 3400 x=0:fory=1topl:ifnm$(y)<>""then x=x+1
  380. 3410 next:if x=1then yw=2:goto2600
  381. 3420 goto3105
  382. 9998 end
  383. 9999 :
  384. 10000 print"[147]scratching chain letters"
  385. 10001 d=peek(186):n$="0:chain letters":open15,d,15,"s"+n$:close15:saven$,d:end
  386. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  387. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  388. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  389. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  390. 40040 close2:open2,i,2:close2:ifstthen40060
  391. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  392. 40060 next:return
  393. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  394. 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
  395. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  396.