home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64misc / crsstrv (.txt) < prev    next >
Commodore BASIC  |  1988-12-02  |  34KB  |  769 lines
  1. 1 POKE53280,0:POKE53281,0:GOSUB9000
  2. 2 PRINT"[152][147]DO YOU NEED INSTRUCTIONS? Y/N":GETA$:IF A$=""THEN2
  3. 3 IFA$="Y"THENGOSUB9500
  4. 4 DIMEE(4),A$(130),D$(160),O$(26),P$(32),S(4),FF(4):K=49151:L=49261:N=54272
  5. 5 PRINT"[147][152]WHICH PUZZLE? 1/2/3":PRINT"     OR":PRINT"[158]'0' TO LOAD NEW PUZZLE"
  6. 6 PRINT"[152]     OR":PRINT"PRESS '4' IF NEW PUZZLE IS LOADED."
  7. 7 INPUTQ:PRINT"PLEASESTANDBY....."
  8. 8 IFQ=0ORQ>3THENGOTO9060
  9. 9 FORQQ=1TOQ
  10. 10 FORR=1TO130:READA$(R):NEXT
  11. 11 FORR=1TO160:READD$(R):NEXT
  12. 12 FORR=1TO110:READA:POKE49151+R,A:NEXT
  13. 13 FORR=1TO110:READB:POKE49261+R,B:NEXT
  14. 14 FORR=1TO26:READO$(R):NEXT
  15. 15 FORR=1TO32:READP$(R):NEXT
  16. 16 NEXTQQ
  17. 17 PRINT"[147][158]HOW MANY PLAYERS?":POKEN+24,15:GOSUB200
  18. 18 J=55555:F=J:G=J:H=J:I=J:FORR=1TO4:X(R)=55555:EE(R)=5:NEXT
  19. 19 GOSUB20:GOSUB70:GOSUB100:GOTO3000
  20. 20 PRINT"[147][152]            [213][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  21. 21 PRINT"[152]  [213][192][192][192][192][192][192][201]  [221][149][207][207][207][207][146]=[149][207][207][207][146]=[149][207][207][207][207][146][152][221]  [213][192][192][192][192][192][192][201]"
  22. 22 PRINT"[146][152][213][192][203][129]ACROSS[152][202][192][201][221][149][207][207][207][207][146]=[149][207][207][207][146]=[149][207][207][207][207][146][152][221][213][192][203] [129]DOWN [152][202][192][201]"
  23. 23 PRINT"[146][152][171][192][192][192][192][192][192][192][192][192][192][179][221][149][207][207][207][207][207][207][146]=[149][207][207][207][207][207][207][146][152][221][171][192][192][192][192][192][192][192][192][192][192][179]"
  24. 24 PRINT"[146][221][158] [213][192][192][192][192][192][192][201] [146][152][221][221][146]===[149][207][207][207][146]=[149][207][207][207][146]===[146][152][221][221] [213][192][192][192][192][192][192][201] [146][152][221]"
  25. 25 PRINT"[146][152][221][158] [221] C    [221] [146][152][221][221][149][207][207][207][207][207][207][146]=[149][207][207][207][207][207][207][146][152][221][221] [221] C    [221] [146][152][221]"
  26. 26 PRINT"[146][152][221][158] [221]TRIVIA[221] [146][152][221][221][149][207][207][207][146]===[209]===[149][207][207][207][146][152][221][221] [221]TRIVIA[221] [146][152][221]"
  27. 27 PRINT"[146][152][221][158] [221] O _[192][201][221] [146][152][221][221][149][207][207][207][207][207][207][146]=[149][207][207][207][207][207][207][146][152][221][221] [221] O _[192][201][221] [146][152][221]"
  28. 28 PRINT"[146][152][221][158] [221] S^  [221][221] [146][152][221][221][146]===[149][207][207][207][146]=[149][207][207][207][146]===[146][152][221][221] [221] S^  [221][221] [146][152][221]"
  29. 29 PRINT"[146][152][221][158] [221] S[202][192][192][219][203] [146][152][221][221][149][207][207][207][207][207][207][146]=[149][207][207][207][207][207][207][146][152][221][221] [221] S[202][192][192][219][203] [146][152][221]"
  30. 30 PRINT"[146][152][221][158] [202][192][192][192][192][192][203]  [146][152][221][221][149][207][207][207][207][146]=[149][207][207][207][146]=[149][207][207][207][207][146][152][221][221] [202][192][192][192][192][192][203]  [146][152][221]"
  31. 31 PRINT"[146][152][173][192][192][192][192][192][192][192][192][192][192][189][221][149][207][207][207][207][146]=[149][207][207][207][146]=[149][207][207][207][207][146][152][221][173][192][192][192][192][192][192][192][192][192][192][189]"
  32. 32 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][201]"
  33. 55 PRINT"[152][221] [156][207][213][192][192][192][201][208][207][213][192][192][192][201][208][207][213][192][192][192][201][208][154][207][213][192][192][192][201][208][158][207][213][192][192][192][201][208][152][146] [221]"
  34. 60 PRINT"[152][221] [156][180][221] 1 [221][170][180][221] 2 [221][170][180][221] 3 [221][170][154][180][221] 4 [221][170][158][180][221] 5 [221][170][146][152] [221]"
  35. 65 PRINT"[152][221] [156][204][202][192][192][192][203][186][204][202][192][192][192][203][186][204][202][192][192][192][203][186][154][204][202][192][192][192][203][186][158][204][202][192][192][192][203][186][152][146] [221]"
  36. 66 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  37. 67 PRINT"              [221][221]"
  38. 68 PRINTTAB(14);"[202][192][192][192][192][192][192][192][192][192][203]":RETURN
  39. 70 PRINT"[145]  [158]1[146] [159]"N$(1):PRINT"  [152]SCORE[146] [158]0"
  40. 71 IFP>1THENPRINTTAB(30)"[145][145][158]2[146] [159]"N$(2):PRINTTAB(30)"[152]SCORE[146] [158]0"
  41. 72 IFP>2THENPRINT"  [158]3[146] [159]"N$(3):PRINT"  [152]SCORE[146] [158]0"
  42. 73 IFP>3THENPRINTTAB(30)"[145][145][158]4[146] [159]"N$(4):PRINTTAB(30)"[152]SCORE[146] [158]0"
  43. 75 RETURN
  44. 97 PRINT""TAB(15)"[158]AGAIN Y/N":GETC$:IFC$=""THEN97
  45. 98 IFC$="Y"THENRUN
  46. 99 PRINT"[147]":END
  47. 100 PRINT""TAB(15)"PTS."(-220)+(S(1)+S(2)+S(3)+S(4))"[157] "
  48. 101 IFZ=1THENPRINT"[158]"S(1):RETURN
  49. 102 IFZ=2THENPRINT"[158]"TAB(35);S(2):RETURN
  50. 103 IFZ=3THENPRINT"[158]"S(3):RETURN
  51. 104 IFZ=4THENPRINT"[158]"TAB(35);S(4):RETURN
  52. 105 RETURN
  53. 200 INPUTP:FORPN=1TOP
  54. 205 PRINT"[158]PLAYER (7 LETRS. MAX.) NO."PN;:INPUTN$(PN)
  55. 206 IFLEN(N$(PN))>7THENPRINT"[152]TOO MANY LETTERS/TRY AGAIN...":GOTO205
  56. 207 NEXT:RETURN
  57. 400 PRINT"";:RETURN
  58. 500 PRINT"";:RETURN
  59. 550 PRINT"NOPE!  SORRY..."
  60. 551 GOSUB9630:RETURN
  61. 560 PRINT"BLANK (=) NEXT!"
  62. 561 GOSUB9630:RETURN
  63. 570 PRINT"[158]*"N$(Z)"* SCORES"
  64. 571 GOSUB9620:RETURN
  65. 600 V$="":GOSUB400
  66. 601 IFX(Z)=55349ORX(Z)=55389ORX(Z)=55429THENGOSUB1001
  67. 602 IFX(Z)=55350ORX(Z)=55390ORX(Z)=55430THENGOSUB1002
  68. 603 IFX(Z)=55351ORX(Z)=55391ORX(Z)=55431THENGOSUB1003
  69. 604 IFX(Z)=55352ORX(Z)=55392ORX(Z)=55432ORX(Z)=55472ORX(Z)=55512THENGOSUB1004
  70. 605 IFX(Z)=55354ORX(Z)=55394ORX(Z)=55434ORX(Z)=55474ORX(Z)=55514THENGOSUB1005
  71. 606 IFX(Z)=55355ORX(Z)=55395THENGOSUB1006
  72. 607 IFX(Z)=55356ORX(Z)=55396ORX(Z)=55436ORX(Z)=55476ORX(Z)=55516THENGOSUB1007
  73. 608 IFX(Z)=55358ORX(Z)=55398ORX(Z)=55438ORX(Z)=55478ORX(Z)=55518THENGOSUB1008
  74. 609 IFX(Z)=55359ORX(Z)=55399ORX(Z)=55439THENGOSUB1009
  75. 610 IFX(Z)=55360ORX(Z)=55400ORX(Z)=55440THENGOSUB1010
  76. 611 IFX(Z)=55361ORX(Z)=55401ORX(Z)=55441THENGOSUB1011
  77. 612 IFX(Z)=55433ORX(Z)=55473ORX(Z)=55513THENGOSUB1012
  78. 613 IFX(Z)=55437ORX(Z)=55477ORX(Z)=55517THENGOSUB1013
  79. 614 IFX(Z)=55509ORX(Z)=55549ORX(Z)=55589THENGOSUB1014
  80. 615 IFX(Z)=55510ORX(Z)=55550ORX(Z)=55590THENGOSUB1015
  81. 616 IFX(Z)=55511ORX(Z)=55551ORX(Z)=55591THENGOSUB1016
  82. 617 IFX(Z)=55519ORX(Z)=55559ORX(Z)=55599THENGOSUB1017
  83. 618 IFX(Z)=55520ORX(Z)=55560ORX(Z)=55600THENGOSUB1018
  84. 619 IFX(Z)=55521ORX(Z)=55561ORX(Z)=55601THENGOSUB1019
  85. 620 IFX(Z)=55592ORX(Z)=55632ORX(Z)=55672ORX(Z)=55712ORX(Z)=55752THENGOSUB1020
  86. 621 IFX(Z)=55593ORX(Z)=55633ORX(Z)=55673THENGOSUB1021
  87. 622 IFX(Z)=55594ORX(Z)=55634ORX(Z)=55674ORX(Z)=55714ORX(Z)=55754THENGOSUB1022
  88. 623 IFX(Z)=55596ORX(Z)=55636ORX(Z)=55676ORX(Z)=55716ORX(Z)=55756THENGOSUB1023
  89. 624 IFX(Z)=55597ORX(Z)=55637ORX(Z)=55677THENGOSUB1024
  90. 625 IFX(Z)=55598ORX(Z)=55638ORX(Z)=55678ORX(Z)=55718ORX(Z)=55758THENGOSUB1025
  91. 626 IFX(Z)=55669ORX(Z)=55709ORX(Z)=55749THENGOSUB1026
  92. 627 IFX(Z)=55670ORX(Z)=55710ORX(Z)=55750THENGOSUB1027
  93. 628 IFX(Z)=55671ORX(Z)=55711ORX(Z)=55751THENGOSUB1028
  94. 629 IFX(Z)=55715ORX(Z)=55755THENGOSUB1029
  95. 630 IFX(Z)=55679ORX(Z)=55719ORX(Z)=55759THENGOSUB1030
  96. 631 IFX(Z)=55680ORX(Z)=55720ORX(Z)=55760THENGOSUB1031
  97. 632 IFX(Z)=55681ORX(Z)=55721ORX(Z)=55761THENGOSUB1032
  98. 650 O=0:GOSUB8700:GOTO5000
  99. 701 R=0:FORJ=1077TO1157STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  100. 702 R=3:FORJ=1078TO1158STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  101. 703 R=6:FORJ=1079TO1159STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  102. 704 R=9:FORJ=1080TO1240STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  103. 705 R=14:FORJ=1082TO1242STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  104. 706 R=19:FORJ=1083TO1123STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  105. 707 R=21:FORJ=1084TO1244STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  106. 708 R=26:FORJ=1086TO1246STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  107. 709 R=31:FORJ=1087TO1167STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  108. 710 R=34:FORJ=1088TO1168STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  109. 711 R=37:FORJ=1089TO1169STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  110. 712 R=40:FORJ=1161TO1241STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  111. 713 R=43:FORJ=1165TO1245STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  112. 714 R=46:FORJ=1237TO1317STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  113. 715 R=49:FORJ=1238TO1318STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  114. 716 R=52:FORJ=1239TO1319STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  115. 717 R=55:FORJ=1247TO1327STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  116. 718 R=58:FORJ=1248TO1328STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  117. 719 R=61:FORJ=1249TO1329STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  118. 720 R=64:FORJ=1320TO1480STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  119. 721 R=69:FORJ=1321TO1401STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  120. 722 R=72:FORJ=1322TO1482STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  121. 723 R=77:FORJ=1324TO1484STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  122. 724 R=82:FORJ=1325TO1405STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  123. 725 R=85:FORJ=1326TO1486STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  124. 726 R=90:FORJ=1397TO1477STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  125. 727 R=93:FORJ=1398TO1478STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  126. 728 R=96:FORJ=1399TO1479STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  127. 729 R=99:FORJ=1443TO1483STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  128. 730 R=101:FORJ=1407TO1487STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  129. 731 R=104:FORJ=1408TO1488STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  130. 732 R=107:FORJ=1409TO1489STEP40:R=R+1:POKEJ,PEEK(L+R):GOSUB949:NEXTJ:RETURN
  131. 800 PRINT"[159]                 ";
  132. 801 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]             ";
  133. 802 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]             ":RETURN
  134. 850 POKEN+1,0:D=6:GOSUB900:D=2:GOSUB900:D=4:GOSUB900:D=7:GOSUB900
  135. 851 FORR=1TO300:NEXT:D=4:GOSUB900:D=7:GOSUB900
  136. 852 FORR=1TO300:NEXT:RETURN
  137. 900 POKEN+5,0:POKEN+6,240
  138. 902 POKEN+4,17:POKEN+2,10:POKEN+24,15
  139. 903 IFD=1THENPOKEN+1,34
  140. 904 IFD=2THENPOKEN+1,38
  141. 905 IFD=3THENPOKEN+1,43
  142. 906 IFD=4THENPOKEN+1,45
  143. 907 IFD=5THENPOKEN+1,51
  144. 908 IFD=6THENPOKEN+1,26
  145. 909 IFD=7THENPOKEN+1,54
  146. 910 FORTT=0TO50:NEXTTT:RETURN
  147. 920 POKEN+5,136:POKEN+6,136:POKEN+24,15:POKEN+4,17
  148. 925 FORTT=0TO100:NEXT
  149. 926 POKEN+4,0:RETURN
  150. 949 POKEJ+N,12:EE(Z)=12
  151. 950 POKEN+24,15:POKEN+5,5:POKEN+6,247:POKEN+4,129:POKEN+1,10:POKEN,0
  152. 952 FORTT=1TO50:NEXT:POKEN+4,0:RETURN
  153. 960 POKEN+24,15:POKEN+5,45:POKEN+6,165:POKEN+4,33:POKEN+1,6:POKEN,5
  154. 961 FORTT=1TO200:NEXT:POKEN+4,0:POKEN+1,0:POKEN,0:RETURN
  155. 1001 FORR=1TO5:GOSUB500:PRINTD$(R):NEXT:V$=P$(1):RETURN
  156. 1002 FORR=6TO10:GOSUB500:PRINTD$(R):NEXT:V$=P$(2):RETURN
  157. 1003 FORR=11TO15:GOSUB500:PRINTD$(R):NEXT:V$=P$(3):RETURN
  158. 1004 FORR=16TO20:GOSUB500:PRINTD$(R):NEXT:V$=P$(4):RETURN
  159. 1005 FORR=21TO25:GOSUB500:PRINTD$(R):NEXT:V$=P$(5):RETURN
  160. 1006 FORR=26TO30:GOSUB500:PRINTD$(R):NEXT:V$=P$(6):RETURN
  161. 1007 FORR=31TO35:GOSUB500:PRINTD$(R):NEXT:V$=P$(7):RETURN
  162. 1008 FORR=36TO40:GOSUB500:PRINTD$(R):NEXT:V$=P$(8):RETURN
  163. 1009 FORR=41TO45:GOSUB500:PRINTD$(R):NEXT:V$=P$(9):RETURN
  164. 1010 FORR=46TO50:GOSUB500:PRINTD$(R):NEXT:V$=P$(10):RETURN
  165. 1011 FORR=51TO55:GOSUB500:PRINTD$(R):NEXT:V$=P$(11):RETURN
  166. 1012 FORR=56TO60:GOSUB500:PRINTD$(R):NEXT:V$=P$(12):RETURN
  167. 1013 FORR=61TO65:GOSUB500:PRINTD$(R):NEXT:V$=P$(13):RETURN
  168. 1014 FORR=66TO70:GOSUB500:PRINTD$(R):NEXT:V$=P$(14):RETURN
  169. 1015 FORR=71TO75:GOSUB500:PRINTD$(R):NEXT:V$=P$(15):RETURN
  170. 1016 FORR=76TO80:GOSUB500:PRINTD$(R):NEXT:V$=P$(16):RETURN
  171. 1017 FORR=81TO85:GOSUB500:PRINTD$(R):NEXT:V$=P$(17):RETURN
  172. 1018 FORR=86TO90:GOSUB500:PRINTD$(R):NEXT:V$=P$(18):RETURN
  173. 1019 FORR=91TO95:GOSUB500:PRINTD$(R):NEXT:V$=P$(19):RETURN
  174. 1020 FORR=96TO100:GOSUB500:PRINTD$(R):NEXT:V$=P$(20):RETURN
  175. 1021 FORR=101TO105:GOSUB500:PRINTD$(R):NEXT:V$=P$(21):RETURN
  176. 1022 FORR=106TO110:GOSUB500:PRINTD$(R):NEXT:V$=P$(22):RETURN
  177. 1023 FORR=111TO115:GOSUB500:PRINTD$(R):NEXT:V$=P$(23):RETURN
  178. 1024 FORR=116TO120:GOSUB500:PRINTD$(R):NEXT:V$=P$(24):RETURN
  179. 1025 FORR=121TO125:GOSUB500:PRINTD$(R):NEXT:V$=P$(25):RETURN
  180. 1026 FORR=126TO130:GOSUB500:PRINTD$(R):NEXT:V$=P$(26):RETURN
  181. 1027 FORR=131TO135:GOSUB500:PRINTD$(R):NEXT:V$=P$(27):RETURN
  182. 1028 FORR=136TO140:GOSUB500:PRINTD$(R):NEXT:V$=P$(28):RETURN
  183. 1029 FORR=141TO145:GOSUB500:PRINTD$(R):NEXT:V$=P$(29):RETURN
  184. 1030 FORR=146TO150:GOSUB500:PRINTD$(R):NEXT:V$=P$(30):RETURN
  185. 1031 FORR=151TO155:GOSUB500:PRINTD$(R):NEXT:V$=P$(31):RETURN
  186. 1032 FORR=156TO160:GOSUB500:PRINTD$(R):NEXT:V$=P$(32):RETURN
  187. 3000 FORZ=1TOP
  188. 3001 POKEX(Z),7
  189. 3050 GOSUB3100:GOTO8000
  190. 3100 GOSUB6110:POKEN+1,0:FORJ=1TO16
  191. 3101 PRINT"";:GOSUB55
  192. 3105 D=INT(RND(1)*5)+1
  193. 3106 GOSUB900
  194. 3110 PRINT"";
  195. 3115 IFD=1THENPRINT"       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157]       "
  196. 3121 IFD=2THENPRINT"       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157]       "
  197. 3131 IFD=3THENPRINT"       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157]       "
  198. 3141 IFD=4THENPRINT"       [157][157][157][157][157][157][157]       ";
  199. 3142 IFD=4THENPRINT"[157][157][157][157][157][157][157]       "
  200. 3151 IFD=5THENPRINT"       [157][157][157][157][157][157][157]       ";
  201. 3152 IFD=5THENPRINT"[157][157][157][157][157][157][157]       "
  202. 3160 NEXTJ
  203. 3165 PRINT"";
  204. 3170 IFD=1THENPRINT"[152]  ONE  [157][157][157][157][157][157][157][149]   [207][146]   [157][157][157][157][157][157][157][152] SQUARE"
  205. 3171 IFD=2THENPRINT"[152]  TWO  [157][157][157][157][157][157][157][149]  [207][207][146]   [157][157][157][157][157][157][157][152]SQUARES"
  206. 3172 IFD=3THENPRINT"[152] THREE [157][157][157][157][157][157][157][149]  [207][207][207][146]  [157][157][157][157][157][157][157][152]SQUARES"
  207. 3173 IFD=4THENPRINT"[152] FOUR  [157][157][157][157][157][157][157][149] [207][207][207][207][146]  ";
  208. 3174 IFD=4THENPRINT"[157][157][157][157][157][157][157][152]SQUARES"
  209. 3175 IFD=5THENPRINT"[152][146] FIVE  [157][157][157][157][157][157][157][149] [207][207][207][207][207][146] ";
  210. 3176 IFD=5THENPRINT"[157][157][157][157][157][157][157][152]SQUARES"
  211. 3177 GOSUB9610:RETURN
  212. 4000 IFC$=O$(1)THENY=1076:FORR=1TO4:O$(1)="*"
  213. 4002 IFC$=O$(2)THENY=1077:FORR=5TO7:O$(2)="*"
  214. 4003 IFC$=O$(3)THENY=1078:FORR=8TO11:O$(3)="*"
  215. 4004 IFC$=O$(4)THENY=1105:FORR=12TO15:O$(4)="*"
  216. 4005 IFC$=O$(5)THENY=1106:FORR=16TO18:O$(5)="*"
  217. 4006 IFC$=O$(6)THENY=1107:FORR=19TO22:O$(6)="*"
  218. 4007 IFC$=O$(7)THENY=1134:FORR=23TO28:O$(7)="*"
  219. 4008 IFC$=O$(8)THENY=1135:FORR=29TO34:O$(8)="*"
  220. 4009 IFC$=O$(9)THENY=1165:FORR=35TO37:O$(9)="*"
  221. 4010 IFC$=O$(10)THENY=1166:FORR=38TO40:O$(10)="*"
  222. 4011 IFC$=O$(11)THENY=1196:FORR=41TO46:O$(11)="*"
  223. 4012 IFC$=O$(12)THENY=1197:FORR=47TO52:O$(12)="*"
  224. 4013 IFC$=O$(13)THENY=1224:FORR=53TO55:O$(13)="*"
  225. 4014 IFC$=O$(14)THENY=1231:FORR=56TO58:O$(14)="*"
  226. 4015 IFC$=O$(15)THENY=1258:FORR=59TO64:O$(15)="*"
  227. 4016 IFC$=O$(16)THENY=1259:FORR=65TO70:O$(16)="*"
  228. 4017 IFC$=O$(17)THENY=1289:FORR=71TO73:O$(17)="*"
  229. 4018 IFC$=O$(18)THENY=1290:FORR=74TO76:O$(18)="*"
  230. 4019 IFC$=O$(19)THENY=1320:FORR=77TO82:O$(19)="*"
  231. 4020 IFC$=O$(20)THENY=1321:FORR=83TO88:O$(20)="*"
  232. 4021 IFC$=O$(21)THENY=1348:FORR=89TO92:O$(21)="*"
  233. 4022 IFC$=O$(22)THENY=1349:FORR=93TO95:O$(22)="*"
  234. 4023 IFC$=O$(23)THENY=1350:FORR=96TO99:O$(23)="*"
  235. 4024 IFC$=O$(24)THENY=1377:FORR=100TO103:O$(24)="*"
  236. 4025 IFC$=O$(25)THENY=1378:FORR=104TO106:O$(25)="*"
  237. 4026 IFC$=O$(26)THENY=1379:FORR=107TO110:O$(26)="*"
  238. 4050 POKEY+N+R,12:POKEY+R,PEEK(K+R):GOSUB950:S(Z)=S(Z)+1:NEXTR:EE(Z)=12:RETURN
  239. 4501 IFC$=P$(1)THENGOSUB701:S(Z)=S(Z)+3:P$(1)="*"
  240. 4502 IFC$=P$(2)THENGOSUB702:S(Z)=S(Z)+3:P$(2)="*"
  241. 4503 IFC$=P$(3)THENGOSUB703:S(Z)=S(Z)+3:P$(3)="*"
  242. 4504 IFC$=P$(4)THENGOSUB704:S(Z)=S(Z)+5:P$(4)="*"
  243. 4505 IFC$=P$(5)THENGOSUB705:S(Z)=S(Z)+5:P$(5)="*"
  244. 4506 IFC$=P$(6)THENGOSUB706:S(Z)=S(Z)+2:P$(6)="*"
  245. 4507 IFC$=P$(7)THENGOSUB707:S(Z)=S(Z)+5:P$(7)="*"
  246. 4508 IFC$=P$(8)THENGOSUB708:S(Z)=S(Z)+5:P$(8)="*"
  247. 4509 IFC$=P$(9)THENGOSUB709:S(Z)=S(Z)+3:P$(9)="*"
  248. 4510 IFC$=P$(10)THENGOSUB710:S(Z)=S(Z)+3:P$(10)="*"
  249. 4511 IFC$=P$(11)THENGOSUB711:S(Z)=S(Z)+3:P$(11)="*"
  250. 4512 IFC$=P$(12)THENGOSUB712:S(Z)=S(Z)+3:P$(12)="*"
  251. 4513 IFC$=P$(13)THENGOSUB713:S(Z)=S(Z)+3:P$(13)="*"
  252. 4514 IFC$=P$(14)THENGOSUB714:S(Z)=S(Z)+3:P$(14)="*"
  253. 4515 IFC$=P$(15)THENGOSUB715:S(Z)=S(Z)+3:P$(15)="*"
  254. 4516 IFC$=P$(16)THENGOSUB716:S(Z)=S(Z)+3:P$(16)="*"
  255. 4517 IFC$=P$(17)THENGOSUB717:S(Z)=S(Z)+3:P$(17)="*"
  256. 4518 IFC$=P$(18)THENGOSUB718:S(Z)=S(Z)+3:P$(18)="*"
  257. 4519 IFC$=P$(19)THENGOSUB719:S(Z)=S(Z)+3:P$(19)="*"
  258. 4520 IFC$=P$(20)THENGOSUB720:S(Z)=S(Z)+5:P$(20)="*"
  259. 4521 IFC$=P$(21)THENGOSUB721:S(Z)=S(Z)+3:P$(21)="*"
  260. 4522 IFC$=P$(22)THENGOSUB722:S(Z)=S(Z)+5:P$(22)="*"
  261. 4523 IFC$=P$(23)THENGOSUB723:S(Z)=S(Z)+5:P$(23)="*"
  262. 4524 IFC$=P$(24)THENGOSUB724:S(Z)=S(Z)+3:P$(24)="*"
  263. 4525 IFC$=P$(25)THENGOSUB725:S(Z)=S(Z)+5:P$(25)="*"
  264. 4526 IFC$=P$(26)THENGOSUB726:S(Z)=S(Z)+3:P$(26)="*"
  265. 4527 IFC$=P$(27)THENGOSUB727:S(Z)=S(Z)+3:P$(27)="*"
  266. 4528 IFC$=P$(28)THENGOSUB728:S(Z)=S(Z)+3:P$(28)="*"
  267. 4529 IFC$=P$(29)THENGOSUB729:S(Z)=S(Z)+2:P$(29)="*"
  268. 4530 IFC$=P$(30)THENGOSUB730:S(Z)=S(Z)+3:P$(30)="*"
  269. 4531 IFC$=P$(31)THENGOSUB731:S(Z)=S(Z)+3:P$(31)="*"
  270. 4532 IFC$=P$(32)THENGOSUB732:S(Z)=S(Z)+3:P$(32)="*"
  271. 4550 RETURN
  272. 4700 PRINT"                 "
  273. 4701 PRINT"                  "
  274. 4702 PRINT"                  ":RETURN
  275. 5000 IFW$="*"THENGOSUB6000
  276. 5001 IFV$="*"THENGOSUB6050
  277. 5002 IFV$="*"ANDW$="*"THENPOKEX(Z),EE(Z):GOSUB6100:GOTO5015
  278. 5003 PRINT"[158] TYPE ANSWER/RET";
  279. 5004 GOTO5005:IFPEEK(X(Z)-N)<27THENPOKE(X(Z)-N),PEEK(X(Z)-N)+128
  280. 5005 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][159][146]"N$(Z):PRINT"";:INPUTC$
  281. 5006 O=0:GOSUB8600:O=0:GOSUB8800
  282. 5007 GOTO5008:IFPEEK(X(Z)-N)<200THEN:POKE(X(Z)-N),PEEK((X(Z))-N)-128
  283. 5008 POKEX(Z),EE(Z):POKE(X(Z)-N),FF(Z):GOSUB800
  284. 5010 IFC$=W$THENGOSUB850:GOSUB4700:GOSUB570:GOSUB4000:GOSUB5020:GOTO5015
  285. 5011 IFC$=V$THENGOSUB850:GOSUB4700:GOSUB570:GOSUB4501:GOSUB5020:GOTO5015
  286. 5012 GOSUB960:GOSUB960:GOSUB550
  287. 5015 GOSUB6000:GOSUB6050::NEXTZ:GOTO3000
  288. 5020 IFS(1)+S(2)+S(3)+S(4)>219THENGOTO97
  289. 5021 GOSUB100:RETURN
  290. 6000 PRINT"[158] [213][192][192][192][192][192][192][201] "
  291. 6001 PRINT" [221] C    [221] "
  292. 6002 PRINT" [221]TRIVIA[221] "
  293. 6003 PRINT" [221] O _[192][201][221] "
  294. 6004 PRINT" [221] S^  [221][221] "
  295. 6005 PRINT" [221] S[202][192][192][219][203] "
  296. 6006 PRINT" [202][192][192][192][192][192][203]  ":RETURN
  297. 6050 PRINT" [213][192][192][192][192][192][192][201] "
  298. 6051 PRINT" [221] C    [221] "
  299. 6052 PRINT" [221]TRIVIA[221] "
  300. 6053 PRINT" [221] O _[192][201][221] "
  301. 6054 PRINT" [221] S^  [221][221] "
  302. 6055 PRINT" [221] S[202][192][192][219][203] "
  303. 6056 PRINT" [202][192][192][192][192][192][203]  ":RETURN
  304. 6100 PRINT"BOTH TAKEN....!"
  305. 6101 GOSUB9630:RETURN
  306. 6110 PRINT"                "
  307. 6140 PRINT"[159]"N$(Z)" ROLLING!":RETURN
  308. 6150 PRINT"DOWN [158]"D"[157] SQUARES   "
  309. 6151 GOSUB9620:RETURN
  310. 6160 PRINT"UP   [158]"D"[157] SQUARES"
  311. 6161 GOSUB9620:RETURN
  312. 6170 PRINT"RIGHT[158]"D"[157] SQUARES"
  313. 6171 GOSUB9620:RETURN
  314. 6180 PRINT"LEFT [158]"D"[157] SQUARES"
  315. 6181 GOSUB9620:RETURN
  316. 7000 W$=""
  317. 7001 IFX(Z)>55348ANDX(Z)<55353THENFORR=1TO5:PRINT""A$(R):NEXT:W$=O$(1)
  318. 7002 IFX(Z)>55353ANDX(Z)<55357THENFORR=6TO10:PRINT""A$(R):NEXT:W$=O$(2)
  319. 7003 IFX(Z)>55357ANDX(Z)<55362THENFORR=11TO15:PRINT""A$(R):NEXT:W$=O$(3)
  320. 7050 IFX(Z)>55388ANDX(Z)<55393THENFORR=16TO20:PRINT""A$(R):NEXT:W$=O$(4)
  321. 7052 IFX(Z)>55393ANDX(Z)<55397THENFORR=21TO25:PRINT""A$(R):NEXT:W$=O$(5)
  322. 7053 IFX(Z)>55397ANDX(Z)<55402THENFORR=26TO30:PRINT""A$(R):NEXT:W$=O$(6)
  323. 7100 IFX(Z)>55428ANDX(Z)<55435THENFORR=31TO35:PRINT""A$(R):NEXT:W$=O$(7)
  324. 7102 IFX(Z)>55435ANDX(Z)<55442THENFORR=36TO40:PRINT""A$(R):NEXT:W$=O$(8)
  325. 7150 IFX(Z)>55471ANDX(Z)<55475THENFORR=41TO45:PRINT""A$(R):NEXT:W$=O$(9)
  326. 7152 IFX(Z)>55475ANDX(Z)<55479THENFORR=46TO50:PRINT""A$(R):NEXT:W$=O$(10)
  327. 7200 IFX(Z)>55508ANDX(Z)<55515THENFORR=51TO55:PRINT""A$(R):NEXT:W$=O$(11)
  328. 7202 IFX(Z)>55515ANDX(Z)<55522THENFORR=56TO60:PRINT""A$(R):NEXT:W$=O$(12)
  329. 7250 IFX(Z)>55548ANDX(Z)<55552THENFORR=61TO65:PRINT""A$(R):NEXT:W$=O$(13)
  330. 7252 IFX(Z)>55558ANDX(Z)<55562THENFORR=66TO70:PRINT""A$(R):NEXT:W$=O$(14)
  331. 7300 IFX(Z)>55588ANDX(Z)<55595THENFORR=71TO75:PRINT""A$(R):NEXT:W$=O$(15)
  332. 7302 IFX(Z)>55595ANDX(Z)<55602THENFORR=76TO80:PRINT""A$(R):NEXT:W$=O$(16)
  333. 7350 IFX(Z)>55631ANDX(Z)<55635THENFORR=81TO85:PRINT""A$(R):NEXT:W$=O$(17)
  334. 7352 IFX(Z)>55635ANDX(Z)<55639THENFORR=85TO90:PRINT""A$(R):NEXT:W$=O$(18)
  335. 7400 IFX(Z)>55668ANDX(Z)<55675THENFORR=91TO95:PRINT""A$(R):NEXT:W$=O$(19)
  336. 7402 IFX(Z)>55675ANDX(Z)<55682THENFORR=96TO100:PRINT""A$(R):NEXT:W$=O$(20)
  337. 7450 IFX(Z)>55708ANDX(Z)<55713THENFORR=101TO105:PRINT""A$(R):NEXT:W$=O$(21)
  338. 7452 IFX(Z)>55713ANDX(Z)<55717THENFORR=106TO110:PRINT""A$(R):NEXT:W$=O$(22)
  339. 7453 IFX(Z)>55717ANDX(Z)<55722THENFORR=111TO115:PRINT""A$(R):NEXT:W$=O$(23)
  340. 7500 IFX(Z)>55748ANDX(Z)<55753THENFORR=116TO120:PRINT""A$(R):NEXT:W$=O$(24)
  341. 7502 IFX(Z)>55753ANDX(Z)<55757THENFORR=121TO125:PRINT""A$(R):NEXT:W$=O$(25)
  342. 7503 IFX(Z)>55757ANDX(Z)<55762THENFORR=126TO130:PRINT""A$(R):NEXT:W$=O$(26)
  343. 7505 IFW$=""THENGOSUB6000:GOSUB6050:POKEX(Z),EE(Z):GOSUB560:NEXTZ:GOTO3000
  344. 7510 GOSUB8500:GOTO600
  345. 8000 F=X(Z):G=X(Z):H=X(Z):I=X(Z):POKEX(Z),7:GOSUB6150
  346. 8001 FORMD=1TOD:F=F+40
  347. 8002 IFF=55789THENF=55349
  348. 8003 IFF=55790THENF=55350
  349. 8004 IFF=55791THENF=55351
  350. 8005 IFF=55792THENF=55352
  351. 8006 IFF=55793THENF=55353
  352. 8007 IFF=55794THENF=55354
  353. 8008 IFF=55795THENF=55355
  354. 8009 IFF=55796THENF=55356
  355. 8010 IFF=55797THENF=55357
  356. 8011 IFF=55798THENF=55358
  357. 8012 IFF=55799THENF=55359
  358. 8013 IFF=55800THENF=55360
  359. 8014 IFF=55801THENF=55361
  360. 8015 AA=PEEK(F):WW=PEEK(F-N):POKEF,1
  361. 8016 IFMD=1THENPOKEF-N,49
  362. 8017 IFMD=2THENPOKEF-N,50
  363. 8018 IFMD=3THENPOKEF-N,51
  364. 8019 IFMD=4THENPOKEF-N,52
  365. 8020 IFMD=4THENPOKEF-N,53
  366. 8021 GOSUB920:POKEF,AA:POKE(F-N),WW:NEXTMD:POKEF-N,49:POKEF,7:GOSUB6160
  367. 8030 POKEX(Z),7:FORMU=1TOD:G=G-40
  368. 8031 IFG=55309THENG=55749
  369. 8032 IFG=55310THENG=55750
  370. 8033 IFG=55311THENG=55751
  371. 8034 IFG=55312THENG=55752
  372. 8035 IFG=55313THENG=55753
  373. 8036 IFG=55314THENG=55754
  374. 8037 IFG=55315THENG=55755
  375. 8038 IFG=55316THENG=55756
  376. 8039 IFG=55317THENG=55757
  377. 8040 IFG=55318THENG=55758
  378. 8041 IFG=55319THENG=55759
  379. 8042 IFG=55320THENG=55760
  380. 8043 IFG=55321THENG=55761
  381. 8044 BB=PEEK(G):XX=PEEK(G-N):POKEG,1
  382. 8045 IFMU=1THENPOKEG-N,49
  383. 8046 IFMU=2THENPOKEG-N,50
  384. 8047 IFMU=3THENPOKEG-N,51
  385. 8048 IFMU=4THENPOKEG-N,52
  386. 8049 IFMU=5THENPOKEG-N,53
  387. 8050 GOSUB920:POKEG,BB:POKE(G-N),XX:NEXTMU:POKEG-N,50:POKEG,7:GOSUB6170
  388. 8060 POKEX(Z),7:FORMR=1TOD:H=H+1
  389. 8061 IFH=55362THENH=55349
  390. 8062 IFH=55402THENH=55389
  391. 8063 IFH=55442THENH=55429
  392. 8064 IFH=55482THENH=55469
  393. 8065 IFH=55522THENH=55509
  394. 8066 IFH=55562THENH=55549
  395. 8067 IFH=55602THENH=55589
  396. 8068 IFH=55642THENH=55629
  397. 8069 IFH=55682THENH=55669
  398. 8070 IFH=55722THENH=55709
  399. 8071 IFH=55762THENH=55749
  400. 8072 CC=PEEK(H):YY=PEEK(H-N):POKEH,1
  401. 8073 IFMR=1THENPOKEH-N,49
  402. 8074 IFMR=2THENPOKEH-N,50
  403. 8075 IFMR=3THENPOKEH-N,51
  404. 8076 IFMR=4THENPOKEH-N,52
  405. 8077 IFMR=5THENPOKEH-N,53
  406. 8078 GOSUB920:POKEH,CC:POKE(H-N),YY:NEXTMR:POKEH-N,51:POKEH,7:GOSUB6180
  407. 8080 POKEX(Z),7:FORML=1TOD:I=I-1
  408. 8081 IFI=55348THENI=55361
  409. 8082 IFI=55388THENI=55401
  410. 8083 IFI=55428THENI=55441
  411. 8084 IFI=55468THENI=55481
  412. 8085 IFI=55508THENI=55521
  413. 8086 IFI=55548THENI=55561
  414. 8087 IFI=55588THENI=55601
  415. 8088 IFI=55628THENI=55641
  416. 8089 IFI=55668THENI=55681
  417. 8090 IFI=55708THENI=55721
  418. 8091 IFI=55748THENI=55761
  419. 8092 DD=PEEK(I):ZZ=PEEK(I-N):POKEI,1
  420. 8093 IFML=1THENPOKEI-N,49
  421. 8094 IFML=2THENPOKEI-N,50
  422. 8095 IFML=3THENPOKEI-N,51
  423. 8096 IFML=4THENPOKEI-N,52
  424. 8097 IFML=5THENPOKEI-N,53
  425. 8099 GOSUB920:POKEI,DD:POKE(I-N),ZZ:NEXTML:POKEI-N,52:POKEI,7:POKEN+2,0
  426. 8100 PRINT"[158]MOVE 1,2,3 OR 4 ";
  427. 8101 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][146][159]"N$(Z)" ?"
  428. 8103 GETA$:GOSUB9600:IFA$=""THEN8103
  429. 8104 POKE198,0
  430. 8105 IFA$<>"1"ANDA$<>"2"ANDA$<>"3"ANDA$<>"4"ANDA$<>"Q"THENR=0:GOTO8100
  431. 8106 GOSUB800
  432. 8110 IFA$="1"THENX(Z)=F:EE(Z)=AA:FF(Z)=WW
  433. 8115 IFA$="2"THENX(Z)=G:EE(Z)=BB:FF(Z)=XX
  434. 8120 IFA$="3"THENX(Z)=H:EE(Z)=CC:FF(Z)=YY
  435. 8125 IFA$="4"THENX(Z)=I:EE(Z)=DD:FF(Z)=ZZ
  436. 8126 IFA$="Q"THENGOTO97
  437. 8127 POKEF,AA:POKEG,BB:POKEH,CC:POKEI,DD:POKEX(Z),7:POKE(X(Z)-N),FF(Z)
  438. 8128 POKEF-N,WW:POKEG-N,XX:POKEH-N,YY:POKEI-N,ZZ
  439. 8305 PRINT"":FORR=1TO7:PRINT"          ":NEXT
  440. 8306 PRINT"":FORR=1TO7:PRINT"          ":NEXTR
  441. 8307 PRINT"";
  442. 8310 GOTO7000
  443. 8500 IFW$="*"THENRETURN
  444. 8501 IFW$=O$(1)THENFORR=1TO4:EX(R)=PEEK(55348+R):POKE55348+R,7:NEXT
  445. 8502 IFW$=O$(2)THENFORR=1TO3:EX(R)=PEEK(55353+R):POKE55353+R,7:NEXT
  446. 8503 IFW$=O$(3)THENFORR=1TO4:EX(R)=PEEK(55357+R):POKE55357+R,7:NEXT
  447. 8504 IFW$=O$(4)THENFORR=1TO4:EX(R)=PEEK(55388+R):POKE55388+R,7:NEXT
  448. 8505 IFW$=O$(5)THENFORR=1TO3:EX(R)=PEEK(55393+R):POKE55393+R,7:NEXT
  449. 8506 IFW$=O$(6)THENFORR=1TO4:EX(R)=PEEK(55397+R):POKE55397+R,7:NEXT
  450. 8507 IFW$=O$(7)THENFORR=1TO6:EX(R)=PEEK(55428+R):POKE55428+R,7:NEXT
  451. 8508 IFW$=O$(8)THENFORR=1TO6:EX(R)=PEEK(55435+R):POKE55435+R,7:NEXT
  452. 8509 IFW$=O$(9)THENFORR=1TO3:EX(R)=PEEK(55471+R):POKE55471+R,7:NEXT
  453. 8510 IFW$=O$(10)THENFORR=1TO3:EX(R)=PEEK(55475+R):POKE55475+R,7:NEXT
  454. 8511 IFW$=O$(11)THENFORR=1TO6:EX(R)=PEEK(55508+R):POKE55508+R,7:NEXT
  455. 8512 IFW$=O$(12)THENFORR=1TO6:EX(R)=PEEK(55515+R):POKE55515+R,7:NEXT
  456. 8513 IFW$=O$(13)THENFORR=1TO3:EX(R)=PEEK(55548+R):POKE55548+R,7:NEXT
  457. 8514 IFW$=O$(14)THENFORR=1TO3:EX(R)=PEEK(55558+R):POKE55558+R,7:NEXT
  458. 8515 IFW$=O$(15)THENFORR=1TO6:EX(R)=PEEK(55588+R):POKE55588+R,7:NEXT
  459. 8516 IFW$=O$(16)THENFORR=1TO6:EX(R)=PEEK(55595+R):POKE55595+R,7:NEXT
  460. 8517 IFW$=O$(17)THENFORR=1TO3:EX(R)=PEEK(55631+R):POKE55631+R,7:NEXT
  461. 8518 IFW$=O$(18)THENFORR=1TO3:EX(R)=PEEK(55635+R):POKE55635+R,7:NEXT
  462. 8519 IFW$=O$(19)THENFORR=1TO6:EX(R)=PEEK(55668+R):POKE55668+R,7:NEXT
  463. 8520 IFW$=O$(20)THENFORR=1TO6:EX(R)=PEEK(55675+R):POKE55675+R,7:NEXT
  464. 8521 IFW$=O$(21)THENFORR=1TO4:EX(R)=PEEK(55708+R):POKE55708+R,7:NEXT
  465. 8522 IFW$=O$(22)THENFORR=1TO3:EX(R)=PEEK(55713+R):POKE55713+R,7:NEXT
  466. 8523 IFW$=O$(23)THENFORR=1TO4:EX(R)=PEEK(55717+R):POKE55717+R,7:NEXT
  467. 8524 IFW$=O$(24)THENFORR=1TO4:EX(R)=PEEK(55748+R):POKE55748+R,7:NEXT
  468. 8525 IFW$=O$(25)THENFORR=1TO3:EX(R)=PEEK(55753+R):POKE55753+R,7:NEXT
  469. 8526 IFW$=O$(26)THENFORR=1TO4:EX(R)=PEEK(55757+R):POKE55757+R,7:NEXT
  470. 8590 RETURN
  471. 8600 IFW$="*"THENRETURN
  472. 8601 IFW$=O$(1)THENFORR=1TO4:POKE55348+R,EX(R):NEXT
  473. 8602 IFW$=O$(2)THENFORR=1TO3:POKE55353+R,EX(R):NEXT
  474. 8603 IFW$=O$(3)THENFORR=1TO4:POKE55357+R,EX(R):NEXT
  475. 8604 IFW$=O$(4)THENFORR=1TO4:POKE55388+R,EX(R):NEXT
  476. 8605 IFW$=O$(5)THENFORR=1TO3:POKE55393+R,EX(R):NEXT
  477. 8606 IFW$=O$(6)THENFORR=1TO4:POKE55397+R,EX(R):NEXT
  478. 8607 IFW$=O$(7)THENFORR=1TO6:POKE55428+R,EX(R):NEXT
  479. 8608 IFW$=O$(8)THENFORR=1TO6:POKE55435+R,EX(R):NEXT
  480. 8609 IFW$=O$(9)THENFORR=1TO3:POKE55471+R,EX(R):NEXT
  481. 8610 IFW$=O$(10)THENFORR=1TO3:POKE55475+R,EX(R):NEXT
  482. 8611 IFW$=O$(11)THENFORR=1TO6:POKE55508+R,EX(R):NEXT
  483. 8612 IFW$=O$(12)THENFORR=1TO6:POKE55515+R,EX(R):NEXT
  484. 8613 IFW$=O$(13)THENFORR=1TO3:POKE55548+R,EX(R):NEXT
  485. 8614 IFW$=O$(14)THENFORR=1TO3:POKE55558+R,EX(R):NEXT
  486. 8615 IFW$=O$(15)THENFORR=1TO6:POKE55588+R,EX(R):NEXT
  487. 8616 IFW$=O$(16)THENFORR=1TO6:POKE55595+R,EX(R):NEXT
  488. 8617 IFW$=O$(17)THENFORR=1TO3:POKE55631+R,EX(R):NEXT
  489. 8618 IFW$=O$(18)THENFORR=1TO3:POKE55635+R,EX(R):NEXT
  490. 8619 IFW$=O$(19)THENFORR=1TO6:POKE55668+R,EX(R):NEXT
  491. 8620 IFW$=O$(20)THENFORR=1TO6:POKE55675+R,EX(R):NEXT
  492. 8621 IFW$=O$(21)THENFORR=1TO4:POKE55708+R,EX(R):NEXT
  493. 8622 IFW$=O$(22)THENFORR=1TO3:POKE55713+R,EX(R):NEXT
  494. 8623 IFW$=O$(23)THENFORR=1TO4:POKE55717+R,EX(R):NEXT
  495. 8624 IFW$=O$(24)THENFORR=1TO4:POKE55748+R,EX(R):NEXT
  496. 8625 IFW$=O$(25)THENFORR=1TO3:POKE55753+R,EX(R):NEXT
  497. 8626 IFW$=O$(26)THENFORR=1TO4:POKE55757+R,EX(R):NEXT
  498. 8690 O=0:GOTO8800
  499. 8700 IFV$="*"THENRETURN
  500. 8701 IFV$=P$(1)THENFORR=55349TO55429STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  501. 8702 IFV$=P$(2)THENFORR=55350TO55430STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  502. 8703 IFV$=P$(3)THENFORR=55351TO55431STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  503. 8704 IFV$=P$(4)THENFORR=55352TO55512STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  504. 8705 IFV$=P$(5)THENFORR=55354TO55514STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  505. 8706 IFV$=P$(6)THENFORR=55355TO55395STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  506. 8707 IFV$=P$(7)THENFORR=55356TO55516STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  507. 8708 IFV$=P$(8)THENFORR=55358TO55518STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  508. 8709 IFV$=P$(9)THENFORR=55359TO55439STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  509. 8710 IFV$=P$(10)THENFORR=55360TO55440STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  510. 8711 IFV$=P$(11)THENFORR=55361TO55441STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  511. 8712 IFV$=P$(12)THENFORR=55433TO55513STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  512. 8713 IFV$=P$(13)THENFORR=55437TO55517STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  513. 8714 IFV$=P$(14)THENFORR=55509TO55589STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  514. 8715 IFV$=P$(15)THENFORR=55510TO55590STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  515. 8716 IFV$=P$(16)THENFORR=55511TO55591STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  516. 8717 IFV$=P$(17)THENFORR=55519TO55599STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  517. 8718 IFV$=P$(18)THENFORR=55520TO55600STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  518. 8719 IFV$=P$(19)THENFORR=55521TO55601STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  519. 8720 IFV$=P$(20)THENFORR=55592TO55752STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  520. 8721 IFV$=P$(21)THENFORR=55593TO55673STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  521. 8722 IFV$=P$(22)THENFORR=55594TO55754STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  522. 8723 IFV$=P$(23)THENFORR=55596TO55756STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  523. 8724 IFV$=P$(24)THENFORR=55597TO55677STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  524. 8725 IFV$=P$(25)THENFORR=55598TO55758STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  525. 8726 IFV$=P$(26)THENFORR=55669TO55749STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  526. 8727 IFV$=P$(27)THENFORR=55670TO55750STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  527. 8728 IFV$=P$(28)THENFORR=55671TO55751STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  528. 8729 IFV$=P$(29)THENFORR=55715TO55755STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  529. 8730 IFV$=P$(30)THENFORR=55679TO55759STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  530. 8731 IFV$=P$(31)THENFORR=55680TO55760STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  531. 8732 IFV$=P$(32)THENFORR=55681TO55761STEP+40:O=O+1:EZ(O)=PEEK(R):POKER,7:NEXT
  532. 8750 RETURN
  533. 8800 IFV$="*"THENRETURN
  534. 8801 IFV$=P$(1)THENFORR=55349TO55429STEP+40:O=O+1:POKER,EZ(O):NEXT
  535. 8802 IFV$=P$(2)THENFORR=55350TO55430STEP+40:O=O+1:POKER,EZ(O):NEXT
  536. 8803 IFV$=P$(3)THENFORR=55351TO55431STEP+40:O=O+1:POKER,EZ(O):NEXT
  537. 8804 IFV$=P$(4)THENFORR=55352TO55512STEP+40:O=O+1:POKER,EZ(O):NEXT
  538. 8805 IFV$=P$(5)THENFORR=55354TO55514STEP+40:O=O+1:POKER,EZ(O):NEXT
  539. 8806 IFV$=P$(6)THENFORR=55355TO55395STEP+40:O=O+1:POKER,EZ(O):NEXT
  540. 8807 IFV$=P$(7)THENFORR=55356TO55516STEP+40:O=O+1:POKER,EZ(O):NEXT
  541. 8808 IFV$=P$(8)THENFORR=55358TO55518STEP+40:O=O+1:POKER,EZ(O):NEXT
  542. 8809 IFV$=P$(9)THENFORR=55359TO55439STEP+40:O=O+1:POKER,EZ(O):NEXT
  543. 8810 IFV$=P$(10)THENFORR=55360TO55440STEP+40:O=O+1:POKER,EZ(O):NEXT
  544. 8811 IFV$=P$(11)THENFORR=55361TO55441STEP+40:O=O+1:POKER,EZ(O):NEXT
  545. 8812 IFV$=P$(12)THENFORR=55433TO55513STEP+40:O=O+1:POKER,EZ(O):NEXT
  546. 8813 IFV$=P$(13)THENFORR=55437TO55517STEP+40:O=O+1:POKER,EZ(O):NEXT
  547. 8814 IFV$=P$(14)THENFORR=55509TO55589STEP+40:O=O+1:POKER,EZ(O):NEXT
  548. 8815 IFV$=P$(15)THENFORR=55510TO55590STEP+40:O=O+1:POKER,EZ(O):NEXT
  549. 8816 IFV$=P$(16)THENFORR=55511TO55591STEP+40:O=O+1:POKER,EZ(O):NEXT
  550. 8817 IFV$=P$(17)THENFORR=55519TO55599STEP+40:O=O+1:POKER,EZ(O):NEXT
  551. 8818 IFV$=P$(18)THENFORR=55520TO55600STEP+40:O=O+1:POKER,EZ(O):NEXT
  552. 8819 IFV$=P$(19)THENFORR=55521TO55601STEP+40:O=O+1:POKER,EZ(O):NEXT
  553. 8820 IFV$=P$(20)THENFORR=55592TO55752STEP+40:O=O+1:POKER,EZ(O):NEXT
  554. 8821 IFV$=P$(21)THENFORR=55593TO55673STEP+40:O=O+1:POKER,EZ(O):NEXT
  555. 8822 IFV$=P$(22)THENFORR=55594TO55754STEP+40:O=O+1:POKER,EZ(O):NEXT
  556. 8823 IFV$=P$(23)THENFORR=55596TO55756STEP+40:O=O+1:POKER,EZ(O):NEXT
  557. 8824 IFV$=P$(24)THENFORR=55597TO55677STEP+40:O=O+1:POKER,EZ(O):NEXT
  558. 8825 IFV$=P$(25)THENFORR=55598TO55758STEP+40:O=O+1:POKER,EZ(O):NEXT
  559. 8826 IFV$=P$(26)THENFORR=55669TO55749STEP+40:O=O+1:POKER,EZ(O):NEXT
  560. 8827 IFV$=P$(27)THENFORR=55670TO55750STEP+40:O=O+1:POKER,EZ(O):NEXT
  561. 8828 IFV$=P$(28)THENFORR=55671TO55751STEP+40:O=O+1:POKER,EZ(O):NEXT
  562. 8829 IFV$=P$(29)THENFORR=55715TO55755STEP+40:O=O+1:POKER,EZ(O):NEXT
  563. 8830 IFV$=P$(30)THENFORR=55679TO55759STEP+40:O=O+1:POKER,EZ(O):NEXT
  564. 8831 IFV$=P$(31)THENFORR=55680TO55760STEP+40:O=O+1:POKER,EZ(O):NEXT
  565. 8832 IFV$=P$(32)THENFORR=55681TO55761STEP+40:O=O+1:POKER,EZ(O):NEXT
  566. 8850 RETURN
  567. 9000 PRINT"[147][159]  (C) BUT OK TO COPY WITHOUT CHANGES."
  568. 9001 PRINT"WELCOME TO [158]CROSS [219] TRIVIA BY K.HIGHAM
  569. 9004 [153]"  THE REASON YOU GOT THIS GAME FOR "
  570. 9005 [153]"FREE WAS....WE FIGURED IF YOU LIKE "
  571. 9006 [153]"TO PLAY IT AS MUCH AS WE DO YOU WILL"
  572. 9007 [153]"WANT SOME MORE PUZZLES.....SO GUESS "
  573. 9009 [153]"WHAT....WE JUST HAPPEN TO HAVE SOME..!"
  574. 9010 [153]"NOT FOR FREE BUT PRETTY CHEAP.....!"
  575. 9011 [153]"SYSCONTINUE? PRESS RETURN"
  576. 9012 [161]A$:[139]A$[178]""[167]9012
  577. 9013 [153]"LOAD        HERE'S WHAT WE HAVE:"
  578. 9014 [153]"PRINT#POTPOURII #1         EACH PROGRAM HAS "
  579. 9015 [153]"PRINT#POTPOURII #2          2O PUZZLES FOR"
  580. 9016 [153]"PRINT#POTPOURII #3              $19.95 "
  581. 9017 [153]"PRINT#SPORTS    #1"
  582. 9018 [153]"SPORTS    #2    MAKE CHECKS PAYABLE TO:"
  583. 9019 [153]"PRINT#MOVIES TV #1"
  584. 9020 [153]"MOVIES TV #2    KARL HIGHAM    "
  585. 9021 [153]"PRINT#MOVIES TV #3    PRINT#AND SEND TO: "
  586. 9022 [153]"PRINT#SPANISH   #1    22672 LAMBERT ST.  "
  587. 9023 [153]"PRINT#GERMAN    #1    BOX 333         "
  588. 9024 [153]"PRINT#FRENCH    #1    LAKE FOREST CA.  "
  589. 9025 [153]"PRINT#MATH      #1              9263O"
  590. 9026 [153]"PRINT#SCIENCE   #1"
  591. 9027 [153]"PRINT#GRADE 1/3 #1  SPECIFY: OPENGAME NAME & NO."
  592. 9028 [153]"PRINT#GRADE 4/6 #1            OPENTAPE OR DISK"
  593. 9029 [153]"CLRXXX RATED #1 "
  594. 9030 [153]"CLRXXX RATED #2  ORDER THREE GET ONE FREE!"
  595. 9031 [153]"CLRXXX RATED #3  USRUSRUSRUSRUSR USRUSRUSRUSRUSR USRUSRUSR USRUSRUSR USRUSRUSRUSR"
  596. 9050 [153]"SYSCONTINUE? PRESS RETURN"
  597. 9051 [161]A$:[139]A$[178]""[167]9051
  598. 9052 [142]
  599. 9060 [153]"LOADOPENNOTE:PRINT# NOT USEABLE WITHOUT PUZZLE DATA!"
  600. 9061 [129]R[178]1[164]5000:[130]:[138]
  601. 9100 [131]---- YOUR,COAT,(SNATCH), , ,FETCH, , , , ,'----A',LAND AT,THE MOUTH
  602. 9101 [131]OF A,RIVER,S----,AGNEW, , , ,ROW A,BOAT,WITH AN,---, ,STOVE,PART, , ,
  603. 9102 [131]------,STUDIES,(SCHOOL,SUBJECT), ,AMERICAN,VETERANS,(ABBR.), ,
  604. 9104 [131]TOPSOIL, , , , ,CEASE,TO,LIVE, , ,CAPITAL,OF,KANSAS, ,
  605. 9105 [131]DO YOU,HAVE YOUR,---- --?,(HEAR ME?),(CB 2/WDS),---SOME,PROFOUND/
  606. 9106 [131]IMPRESSIVE, , ,ONE,(SPANISH), , , ,GRASS,LEAVES, , ,
  607. 9107 [131]'PARK YOUR,---'+,'---,AT WORK.',=1WD/OPERA,THE MOUSE,---,THE CHEESE
  608. 9108 [131] , ,GEORGE,WASHINGTON,NEVER TOLD,A ---, ,HARD,TO,FIND, , ,CAPITAL
  609. 9109 [131]OF,NEW YORK, , ,----,OFFICE,(MAIL,DEPOT), ,RUDYARD,KIPLING,STORY, ,
  610. 9110 [131]DUELING,SWORD,OR,FOIL, ,OXEN,(TIBET), , , ,DISTRESS,CALL,(MORSE,CODE)
  611. 9111 [131] ,LET US,(SHORT,FORM), ,
  612. 9112 [131]GENERAL,PRACTION-,ERS,(DOCTORS/,ABBR.),RIVER,(SPANISH), , ,
  613. 9113 [131]PART OF A,CIRCULAR,LINE, , ,CAPITAL,OF IDAHO, , , ,----- MIER,(WOMAN
  614. 9114 [131]PREMIER,OF ISREAL), ,EACH,(ABBR.), , , ,EXCHANGE,ONE THING,FOR,ANOTHER
  615. 9115 [131] ,CAPITAL,OF,DELAWARE, , ,THE DAY,BEFORE, , , ,ROOM TO,---,(FOR RENT)
  616. 9116 [131] , ,TONS,(ABBR.), , , ,EVERYTHING,IS,ALLRIGHT,(SPACE,JARGON),'MAMMA
  617. 9117 [131]---',(MY MOTHER,/ITALIAN), ,PICK UP,THE ---,(PAY FOR), ,
  618. 9118 [131]'THE ---,AND THE,PUSSYCAT',(RHYME), ,'THE,PRINCESS,AND THE,---'
  619. 9119 [131]FAIRY TALE,ADDING,GETS THE,---, , ,ONE,TIMES,ONE,EQUALS,---,WORD
  620. 9120 [131]BEGINNING,MEANING,OPPOSITE,OF,TARGET,GAME, , , ,ETCETERA,(ABBR.), , ,
  621. 9121 [131]LOOKS,FOR, , , ,'-----,UP',QUITS,TALKING, ,TO,HAVE,AN,AILMENT, ,SOUTHERN
  622. 9122 [131]SOLDIER,OF THE,CIVIL WAR, ,SECRET,AGENT, , , ,---L,TRAIN FUEL, , ,
  623. 9123 [131]INQUIRE, , , , ,- - U,PAYMENT,VOUCHER, , ,BIG,MONKEY, , , ,PROFIT
  624. 9124 [131]AFTER,EXPENCES, , ,AFFIRMA-,TIVE, , ,
  625. 9125 [131]7,18,1,2,7,5,20,4,5,12,20,16,9,18,15,15,1,18,15,22,5,14,19,15,3,9,1
  626. 9126 [131]12,1,13,22,5,20,19,19,15,4,4,9,5,20,15,16,5,11,1,5,1,18,19,15,14,1,23
  627. 9127 [131]5,21,14,15,2,12,1,4,5,19,3,1,18,13,5,14,1,20,5,12,9,5,19,3,1,18,3,5
  628. 9128 [131]1,12,2,1,14,25,16,15,19,20,11,9,13,5,16,5,5,25,1,11,19,19,15,19,12,5
  629. 9129 [131]20,19
  630. 9130 [131]7,16,19,18,9,15,1,18,3,2,15,9,19,5,7,15,12,4,1,5,1,20,18,1,4,5,4,15,22
  631. 9131 [131]5,18,5,22,5,12,5,20,20,14,19,1,15,11,13,9,1,20,1,2,15,23,12,16,5,1,19
  632. 9132 [131]21,13,15,14,5,14,15,14,4,1,18,20,19,5,20,3,19,5,5,11,19,3,12,1,13,19
  633. 9133 [131]1,9,12,18,5,2,5,12,19,16,25,3,15,1,1,19,11,9,15,1,16,5,14,5,20,25,5,19
  634. 9140 [131]GRAB,GET,DELT,PIRO,OAR,OVEN,SOCIAL,AMVETS,SOD,DIE,TOPEKA,EARSON,AWE
  635. 9142 [131]UNO,BLADES,CARMEN,ATE,LIE,SCARCE,ALBANY,POST,KIM,EPEE,YAKS,SOS,LETS
  636. 9143 [131]GPS,RIO,ARC,BOISE,GOLDA,EA,TRADE,DOVER,EVE,LET,TNS,AOK,MIA,TAB,OWL,PEA
  637. 9144 [131]SUM,ONE,NON,DARTS,ETC,SEEKS,CLAMS,AIL,REBEL,SPY,COA,ASK,IO,APE,NET,YES
  638. 9200 [131]'DA ----',BROOKLYN,NINE, , ,RENOWNED,BAND,LEADER, , ,CLASSIFY, , , ,
  639. 9201 [131]TOURNEY,FOR,AMATUERS,AND,PROS,MEL ---,(BASEBALL), , , ,KOREA,CONTINENT
  640. 9202 [131] , , ,RELAYED,ITEMS, , , ,EGG,SHAPE, , , ,'--- IS ME, , , , ,'---
  641. 9203 [131]DE,MER',(SEA-,SICKNESS),EXPLOSIONS, , , , ,LEVERAGE,TOOL, , , ,HOLE
  642. 9204 [131]IN,THE,HEAD, ,THIEVES,LEADER, , , ,SPECIAL,EDITIONS, , , ,OBSCURED, ,
  643. 9205 [131]  , ,EVEREST,FOR,ONE, , ,---,SKIP,AND,JUNP, ,EXACTLY,RIGHT,(2 WDS), ,
  644. 9206 [131]IN,DANGER,(2 WORDS), , ,FEMALE,(SUFFIX), , , ,DICKENS,CHARACTER, , ,
  645. 9207 [131]NOTION, , , , ,---- OFF,(DROVE), , , ,VIEW, , , , ,'----,BONES', , ,
  646. 9208 [131]BURNS,OR,BARKER, , ,'-- -,CREEK',(2 WORDS), , ,INTER-,SECTED, , ,
  647. 9209 [131]FLAKEY,WEATHER,CONDITIONS, , ,GETS,DEFEATED, , , ,SPIELBERG,FILM, , ,
  648. 9210 [131]STAMP, , , , ,'LONG,TALL,-----', , ,ORB.,SOL.,OBSRVTRY.,(INLS.), ,---
  649. 9211 [131]TIN,TIN, , ,CHILDS,GAME, , , ,NEGATIVE,(ADVERB), , , ,CANDY,OR,SAND, ,
  650. 9212 [131]STINGER, , , , ,NOT,TENSE, , , ,CARNEY,OR,JAMES, , ,'---,NEWS,BEARS',
  651. 9213 [131] ,ALCOHOLIC,BEVERAGE, , , ,MAKE,FREE,OF, , ,GRADED, , , , ,HIRT,AND
  652. 9214 [131]JOLSEN, , ,BLEMISHES, , , , ,DISHONOR, , , , ,'---,POTATO', , , ,-----
  653. 9215 [131]SHOWERS, , , ,NEW YORK,FOOTBALLER, , , ,U OF U,STUDENT, , , ,FEMALE
  654. 9216 [131]SAINT,(ABBR.), , ,THAT IS,(LAT.),(ABBR.), , ,EDDIE,CANTOR'S,SPOUSE, ,
  655. 9217 [131]SAYS,(SLANG), , , ,MISS,BALLARD, , ,
  656. 9220 [131]2,21,13,19,12,5,19,19,15,18,20,15,16,5,14,15,20,20,1,19,9,1,2,1,20,15
  657. 9221 [131]14,19,15,2,12,15,14,7,23,15,5,13,1,12,2,12,1,19,20,19,16,18,25,2,1,18
  658. 9222 [131]5,1,18,1,12,9,5,24,20,18,1,19,19,8,1,4,5,4,1,12,16,8,15,16,10,21,19,20
  659. 9223 [131]19,15,1,20,18,9,19,11,5,20,20,5,20,9,13,9,4,5,1,20,5,5,4,19,5,5,12,1,26
  660. 9224 [131]25,2,15,2,21,16,1,13,5,20,19,14,15,23,19,12,15,19,5,19,5,20,19,20,15,13
  661. 9225 [131]16,19,1,12,12,25,15,19,15,18,9,14,20,1,7,14,15,20,2,1,18,2,5,5,12,1,24
  662. 9226 [131]1,18,20,2,1,4,1,12,5,18,9,4,18,1,20,5,4,1,12,19,19,16,15,20,19,19,8,1
  663. 9227 [131]13,5,8,15,20,1,16,18,9,12,10,5,20,21,20,5,19,20,5,9,5,9,4,1,19,5,26,11
  664. 9228 [131]1,25
  665. 9230 [131]BUMS,LES,SORT,OPEN,OTT,ASIA,BATONS,OBLONG,WOE,MAL,BLASTS,PRYBAR,EAR
  666. 9231 [131]ALI,EXTRAS,SHADED,ALP,HOP,JUSTSO,ATRISK,ETTE,TIM,IDEA,TEED,SEE,LAZY
  667. 9232 [131]BOB,UPA,MET,SNOWS,LOSES,ET,STOMP,SALLY,OSO,RIN,TAG,NOT,BAR,BEE,LAX,ART
  668. 9233 [131]BAD,ALE,RID,RATED,ALS,SPOTS,SHAME,HOT,APRIL,JET,UTE,STE,IE,IDA,SEZ,KAY
  669. 9299 [131]PROMINENT,DARANTE,HOPE,FEATURE, ,22O4.62LBS,(METRIC), , , ,'THE
  670. 9300 [131]HOSTESS,WITH,THE,----EST',SENSE,OF,SMELL,STIMULANT, ,LONELIEST
  671. 9301 [131]NUMBER,(SONG), , ,HEIGHT,TIMES,WIDTH, , ,HOLD,IN,CUSTODY, , ,HAVING,TO
  672. 9302 [131]DO,WITH,WORDS,CRAFTY, , , , ,MR.,MARSHALL,(INS.), , ,AUCTION,ENDERS
  673. 9303 [131] , , ,ROSE,GARDEN, , , ,YES,VOTE, , , ,---ISON,(CLOSE,BOND), ,
  674. 9304 [131]LACK,OF,VIRILITY, , ,COMRADE, , , , ,SHOEMAKER,TOOL, , , ,ZODIACAL,SIGN
  675. 9305 [131] , , ,'FROM,HERE,TO,ETERNITY',CHARACTER,BELONGING,TO ONE,OF THE
  676. 9306 [131]CHIPMONKS, ,'- ---,FOR ALL,SEASONS',(2 WORDS), ,SHORT
  677. 9307 [131]SWIM, , , ,'----,CANAL',(SONG), , ,MISS,BRECK-,ENRIDGE, , ,FEMALE
  678. 9308 [131]SIBLING,(SLANG), , ,BLIND,OR,WEDDING,OR,PITTED
  679. 9309 [131]'WINKEN,BLINKEN,AND ---', , ,'--- TO,BILLY JO', , , ,DRUNKARD
  680. 9310 [131] , , , ,RUB,OUT, , , ,MISTER,RANDALLS, , , ,ATOP, , , , ,'----- ON
  681. 9311 [131]SUNDAY', , , ,SCHOOL,-----,(TEACHERS), , ,SPHERICAL,BODY, , , ,CECIL'S
  682. 9312 [131]SICKNESS, , , ,'HEAVY,ME---',(GROUP), , ,UNDER THE,WEATHER, , ,
  683. 9313 [131]SELF, , , , ,GIRLS,ATHLETIC,ASSN,(ABBR.), ,MISS RAND,(AUTHOR), , ,
  684. 9314 [131]22ND,LETTER,(PHONETIC), , ,'---,IN THE,FAMILY', , ,RIVER,(SPAN.)
  685. 9316 [131] , , ,DEVIATE,FROM,SIDE,TO,SIDE,-----,CARTA, , , ,K---,(FLIGHT-,LESS
  686. 9317 [131]BIRD), ,DULL,PERSONS, , , ,DOCTOR,DENTON,VENTS, , ,MARINE,SHOCKER
  687. 9318 [131] , , ,CHERISHED, , , , ,MADAM,(SLANG), , , ,MISS,VANDERBILT, , ,
  688. 9319 [131]GAMEFISH, , , , ,ROMAN,NUMERAL,2, , ,MISTER,GERSHWIN, , ,
  689. 9320 [131]--- WIT, , , , ,OBSERVE, , , ,
  690. 9325 [131] 14,15,19,5,20,15,14,13,15,19,20,15,4,15,18,15,14,5,1,18,5,1,4,5,20,1,9
  691. 9326 [131] 14,22,5,18,2,1,12,19,12,25,5,7,13,7,1,22,5,12,19,18,15,19,1,18,25,1,25
  692. 9327 [131] 5,12,9,1,1,14,5,13,9,3,6,5,12,12,15,23,1,23,12,12,5,15,13,1,7,7,9,15
  693. 9328 [131] 1,12,22,9,14,19,1,13,1,14,4,9,16,5,18,9,5,13,25,18,1,19,9,19,4,1,20,5
  694. 9329 [131] 14,15,4,15,4,5,19,15,20,5,18,1,19,5,20,15,14,25,19,15,14,14,5,22,5,18
  695. 9330 [131] 13,1,18,13,19,15,18,2,19,5,1,20,1,12,9,12,12,5,7,15,7,1,1,1,25,14,22,5
  696. 9331 [131]5,1,12,12,18,9,15,25,1,23,13,1,7,14,1,9,23,9,3,12,15,4,19,6,12,1,16
  697. 9332 [131]19,5,5,12,12,15,22,5,4,13,1,13,1,13,25,7,1,18,9,9,9,18,1,14,9,20,19,5,5
  698. 9335 [131]NOSE,TON,MOST,ODOR,ONE,AREA,DETAIN,VERBAL,SLY,EGM,GAVELS,ROSARY,AYE
  699. 9336 [131]LIA,ANEMIC,FELLOW,AWL,LEO,MAGGIO,ALVINS,AMAN,DIP,ERIE,MYRA,SIS,DATE
  700. 9337 [131]NOD,ODE,SOT,ERASE,TONYS,ON,NEVER,MARMS,ORB,SEA,TAL,ILL,EGO,GAA,AYN,VEE
  701. 9338 [131]ALL,RIO,YAW,MAGNA,IWI,CLODS,FLAPS,EEL,LOVED,MAM,AMY,GAR,II,IRA,NIT,SEE
  702. 9500 [153]"LOADSYSCROSS TRIVIA INSTRUCTIONS"
  703. 9505 [153]"FOR 1 TO 4 PLAYERS OR TEAMS"
  704. 9506 [153]"PRINT#          AGES SIX TO ADULT"
  705. 9507 [153]"CLR    APPROX. PLAYING TIME: 2 HOURS."
  706. 9510 [153]"PRINT#   WHEN YOU BEGIN PLAY YOU WILL SEE A"
  707. 9511 [153]"BLANK CROSSWORD PUZZLE GRID BETWEEN   "
  708. 9512 [153]"THE 'FORACROSSPRINT#' AND 'FORDOWNPRINT#' CLUE BOXES.   "
  709. 9513 [153]"BENEATH THIS DISPLAY ARE THE COLORED  "
  710. 9514 [153]"BLOCKS NUMBERED FROM 1 TO 5, THE SCOR-"
  711. 9515 [153]"ING SECTION AND THE PROMPT AREA.     "
  712. 9516 [153]"THE COLORED BLOCKS DISPLAY A RANDOM  "
  713. 9517 [153]"NUMBER WHICH IS THE NUMBER OF SQUARES "
  714. 9518 [153]"YOU MUST MOVE IN ONE OF THE FOUR DIR- "
  715. 9519 [153]"ECTIONS;OPENUP/DOWN/RIGHT/LEFTWAITPRINT#. IF THE MOVE"
  716. 9520 [153]"WOULD PUT YOU OFF THE GRID, IT WRAPS  "
  717. 9521 [153]"AROUND AND CONTINUES AT THE OTHER END. "
  718. 9522 [153]"THE FLASHING NUMBERS ON THE GRID AFTER "
  719. 9523 [153]"YOUR 'ROLL' ARE THE CHOICES FOR YOUR  "
  720. 9530 [153]"CONTINUE? PRESS RETURN"
  721. 9531 [161]B$:[139]B$[178]""[167]9531:[139]B$[179][177]"Y"[167][142]
  722. 9534 [153]"LOADWAITPOSITION. WHEN YOU PRESS ONE OF THESE  "
  723. 9535 [153]"NUMBERS ON THE KEYBOARD, THE CLUES FOR "
  724. 9536 [153]"BOTH WORDS WHICH INTERSECT THEREWAIT WILL  "
  725. 9537 [153]"BE DISPLAYED IN THIER BOXES. IF YOU   "
  726. 9538 [153]"TYPE AND ENTER EITHERWAIT CORRECT WORD, IT"
  727. 9539 [153]"WILL APPEAR ON THE GRID AND YOU WILL  "
  728. 9540 [153]"BE AWARDED (1) POINT FOR EACH LETTER. "
  729. 9541 [153]"THERE ARE A TOTAL OF 22O POINTS. "
  730. 9542 [153]"SOMETIMES A CORRECT ENTRY WILL COMPLETE"
  731. 9543 [153]"ANOTHER WORD. YOU SCORE ONLYWAIT WORD TYPED."
  732. 9544 [153]"   THE GRID WILL FILL SHORTLY BEFORE"
  733. 9545 [153]"ALL THE POINTS HAVE BEEN AWARDED, SO  "
  734. 9546 [153]"PLAYERS SHOULD AGREE BEFORE STARTING "
  735. 9547 [153]"WHETHER TO PLAY OUT THE POINTS OR STOP"
  736. 9548 [153]"WHEN THE GRID IS FULL. "
  737. 9549 [153]"PLAYING OUT IS FUN....! TRY IT...."
  738. 9550 [153]"CONTINUE? PRESS RETURN"
  739. 9551 [161]B$:[139]B$[178]""[167]9551:[139]B$[179][177]"Y"[167][142]
  740. 9555 [153]"LOADWAITYOU WILL HAVE NO DIFFICULTY LEARNING"
  741. 9556 [153]"HOW THE GAME PLAYS, BUT THERE IS MORE"
  742. 9557 [153]"TO IT THAN MEETS THE EYE AT FIRST SINCE"
  743. 9560 [153]"THERE IS CONSIDERABLE STRATEGY REQUIRED"
  744. 9561 [153]"FOR PLAYING 'POSITION' IN ORDER TO MAX-"
  745. 9562 [153]"IMIZE POINTS AND SETTING UP FOR THE  "
  746. 9563 [153]"BEST PROPABILITY OF CATCHING A WORD ON"
  747. 9564 [153]"THE NEXT ROLL."
  748. 9565 [153]"TIMELY WORD CHOICES AND SMART POSITION"
  749. 9566 [153]"PLAYS PROVIDE QUITE AN ADVANTAGE."
  750. 9567 [153]"BE SURE TO TYPE ALLWAIT THE LETTERS IN A"
  751. 9568 [153]"WORD EVEN THOUGH SOME OF THE LETTERS"
  752. 9569 [153]"ARE REVEALED."
  753. 9570 [153]"GAME (1) FOR SCHOOL AGE...GOOD TUNEUP."
  754. 9575 [153]"TYPE 'Q' AT MOVE PROMPT TO END GAME."
  755. 9576 [153]"SYSREADY TO PLAY?  PRESS RETURN"
  756. 9590 [161]A$:[139]A$[178]""[167]9590
  757. 9595 [142]
  758. 9600 [151]F[171]N,49:[151]G[171]N,50:[151]H[171]N,51:[151]I[171]N,52
  759. 9601 [151]F,7:[151]G,7:[151]H,7:[151]I,7:[141]920
  760. 9602 [129]R[178]1[164]1000:[130]
  761. 9603 [151]F,AA:[151]G,BB:[151]H,CC:[151]I,DD
  762. 9604 [151]F[171]N,WW:[151]G[171]N,XX:[151]H[171]N,YY:[151]I[171]N,ZZ
  763. 9605 [129]R[178]1[164]1000:[130]
  764. 9606 [151]X(Z),EE(Z):[142]
  765. 9608 [151]F[171]N,WW:[151]G[171]N,XX:[151]H[171]N,YY:[151]I[171]N,ZZ:[129]R[178]1[164]1000:[130]
  766. 9610 [129]R[178]1[164]100:[130]:[142]
  767. 9620 [129]R[178]1[164]700:[130]:[142]
  768. 9630 [129]R[178]1[164]3000:[130]:[142]
  769.