home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / LEXITRON (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.5 KB  |  147 lines
  1. 0 REM LEXITRON  GAMES DISK # 56 S2
  2. 8 POKE53280,6:POKE53281,6
  3. 10 PRINT"[147]         LEXITRON INSTRUCTIONS
  4. 12 [153]" USE JOYSTICK IN PORT TWO TO MOVE
  5. 14 PRINT" CURSOR AROUND TO SPELL WORDS,
  6. 16 [153]" PRESS FIREBUTTON TO CHECK FOR CORRECT
  7. 17 PRINT" LETTER. COMPUTER GIVES CLUES            OCCASIONALLY.
  8. 20 [153]" THERE IS A TIME LIMIT... THE TIME METER
  9. 22 PRINT" IS ON BOTH SIDES OF THE WORD GRID.
  10. 23 [153]"     (null)
  11. 24 PRINT" THE  [146] MARKER GOES UP WHEN AN ANSWER
  12. 25 [153]"     (null)
  13. 26 PRINT" IS CORRECT, DOWN WHEN WRONG.
  14. 28 [153]" IF YOU RUN OUT OF TIME, THE REST OF THE
  15. 30 PRINT" WORDS WILL BE HIGHLIGHTED ON THE GRID.
  16. 32 [153]"            PRESS <SPACE>":[146]197,7
  17. 90 [151]53280,6:[151]53281,6
  18. 100 [153]"LOAD":[141]9175:[153]"":[134]AR$(20,15),AR(20,15),LN(200),L(200)
  19. 110 P$[178]"               ":[129]A[178]0[164]10:[135]Q(A):[130]
  20. 120 [129]A[178]0[164]8:[135]D(A):[130]
  21. 125 [131] 0,1,5,0,7,8,6,0,3,2,4,0,-40,-39,1,41,40,39,-1,-41
  22. 130 [153][166]5)"PLEASE WAIT 15 SECONDSCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDWHILE LOADING WORDS"
  23. 140 S[178]54272:[129]A[178]S[164]S[170]23:[151]A,0:[130]:[151]A,15:[151]S[170]5,28
  24. 150 SC[178]1274:CD[178]54272:PT[178]56320:BC[178]53281:W[178]15:BL[178]6:SB[178]53265:CS[178]15
  25. 160 Z[178]646:A1[178]15:A2[178]14:A3[178]1:A4[178]7:A5[178]6:A6[178]1
  26. 170 [141]1160:[141]1120
  27. 180 [141]1090
  28. 190 GW[178]0:[129]A[178]0[164]19:[129]B[178]0[164]14:AR(A,B)[178]0:[130]B,A:[129]A[178]0[164]NW:L(A)[178]0:[130]:PS[178]SC
  29. 200 LL[178]7:[151]BC,W:[151]Z,A5:[153]"LOAD     USE JOYSTICK TO CHOOSE A LEVEL"
  30. 210 [151]Z,A6:[153][166]10)"     1";:[151]Z,A5:[153]"  2  3":MS[178]SC[170]5
  31. 220 [153]"   1WAIT  ALL WORDS SPELLED FORWARDS              NO DIAGONALS"
  32. 230 [153]"   2WAIT  FORWARD & REVERSED SPELLINGS            NO DIAGONALS"
  33. 240 [153]"   3WAIT  FORWARD & REVERSED SPELLINGS            DIAGONALS INCLUDED"
  34. 250 [141]410:[139]J[178]0[167]250
  35. 260 [151]MS[170]CD,A5:MS[178]MS[171]3[172](J[178]3)[172][171](MS[179]SC[170]11)[170]3[172](J[178]7)[172][171](MS[177]SC[170]5):[151]MS[170]CD,A6
  36. 270 [139]J[179]128[167]250
  37. 280 [153]"LOADSTOP"[166]9)"PLEASE WAIT 20 SECONDS":[141]9175:[129]TD[178]1[164]2E3:[130]
  38. 290 LV[178](MS[171](SC[170]5))[173]3[170]1:[151]SB,[194](SB)[175]239:[151]BC,BL:[141]970
  39. 300 [141]850:QF[178]1:T[178]1:[141]480:[151]SB,[194](SB)[176]16:TI$[178]"000000":[137]390
  40. 310 [143] JOYSTICK ROUTINE
  41. 320 [139][187](1)[179].003[167][141]670
  42. 330 [139][187](1)[179].001[167][141]540
  43. 340 [141]410:[139]J[178]0[167]320
  44. 350 [139]J[177]127[167][141]430:[137]320
  45. 360 [151]PS,[194](PS)[175]127:TP[178]PS
  46. 370 [139]([194](PS[170]CD)[175]CS)[178]A3[167][151]PS[170]CD,A2
  47. 380 PS[178]PS[170]D(J[175]15):[139][194](PS)[179]1[176][194](PS)[177]26[167]PS[178]TP
  48. 390 [151]PS,[194](PS)[176]128:[139]([194](PS[170]CD)[175]CS)[179][177]A4[167][151]PS[170]CD,A3
  49. 400 [137]320
  50. 410 J[178]Q(15[171]([194](PT)[175]15))[171]128[172](([194](PT)[175]16)[178]0):[142]
  51. 420 [143] PRESS FIREBUTTON
  52. 430 [139]([194](PS[170]CD)[175]CS)[178]A4[167][142]
  53. 440 Y[178][181]((PS[171]SC)[173]40):X[178]PS[171]SC[171]Y[172]40
  54. 450 [139]AR(X,Y)[178]0[167][153]P$"TRY ANOTHER":[141]540:[142]
  55. 460 [153]P$"GOOD ANSWER"
  56. 470 [151]PS[170]CD,A4:T[178]AR(X,Y)[171]1:L(T)[178]L(T)[170]1
  57. 480 [151]S[170]4,16:[151]S[170]4,17:[151]S[170]1,10[170]10[172]L(T)
  58. 490 [129]A[178]SC[170]554[164](SC[170]554)[171]40[172]LL[169][171]40:[151]A[170]40,93:[151]A[170]71,93
  59. 500 [151]A,160:[151]A[170]31,160:[129]TD[178]1[164]20:[130]:[130]:[139]QF[178]1[167]QF[178]0:[142]
  60. 510 [141]590:LL[178]LL[171](LL[179]15):AR(X,Y)[178]0:[139]L(T)[178]LN(T)[167][141]610
  61. 520 [142]
  62. 530 [143] ENERGY DRAIN
  63. 540 [151]S[170]4,32:[151]S[170]4,33:[151]S[170]1,30:[129]TD[178]1[164]200:[130]:[151]S[170]1,15
  64. 550 [129]A[178]SC[171]6[164](SC[171]6)[170]40[172](15[171]LL)[169]40:[151]A[171]40,93:[151]A[171]9,93:[151]A,160
  65. 560 [151]A[170]31,160:[129]TD[178]1[164]20:[130]:[130]:[141]590:LL[178]LL[171]1:[139]LL[178][171]1[167]700
  66. 570 [142]
  67. 580 [143] CLEAR MESSAGE
  68. 590 [153]P$"                   ":[142]
  69. 600 [143] GOT A WORD
  70. 610 GW[178]GW[170]1:[139]GW[178]10[167]770
  71. 620 [129]TD[178]1[164]300:[130]:[153]P$"WELL DONE!"
  72. 630 [151]S[170]4,32
  73. 640 [151]S[170]4,35:[129]A[178]6[164]20:[151]S[170]1,A:[129]TD[178]30[164]40:[151]S[170]15,TD:[130]:[130]
  74. 650 [141]590:[142]
  75. 660 [143] GIVE A CLUE
  76. 670 A[178][187](1)[172]10:[139]L(A)[178]0[167][153]P$"CLUE:"W$(A[170]M):[129]T[178]1[164]800:[130]
  77. 680 [141]590:[142]
  78. 690 [143] END OF GAME
  79. 700 [153]"LIST":[129]A[178]0[164]14:[153]:[153][166]10);:[129]B[178]0[164]19
  80. 710 [139]AR(B,A)[179][177]0[167][153]AR$(B,A);:[137]730
  81. 720 [153]"";
  82. 730 [130]:[130]:[153]:[151]Z,A4:[153]"      PRESS FIREBUTTON TO CONTINUE"
  83. 740 [141]410:[139]J[179]128[167]740
  84. 750 [141]410:[139]J[177]127[167]750
  85. 760 [151]Z,A5:[153]"LOAD      SORRY, YOU DIDN'T MAKE IT":[137]790
  86. 770 [151]Z,A5:[153]"LOAD      CONGRATULATIONS!  YOU WON"
  87. 780 [153]"         YOUR TIME WAS "[202](TI$,3,2)":"[201](TI$,2)
  88. 790 [129]I[178]1[164]1000:[130]:[151]BC,W:[153]"    PRESS FIREBUTTON TO PLAY AGAIN"
  89. 800 [153]"          PRESS DOWN TO QUIT"
  90. 810 [141]410:[139]J[177]127[167][153][166]13)"PLEASE WAIT":[141]1170:[137]180
  91. 820 [139]J[167][153]"LOAD":[128]
  92. 830 [137]810
  93. 840 [143] PRINT ARRAY
  94. 850 [153]"LOAD";:[141]9175
  95. 890 [151]Z,A1:[153][166]4)"PEEK    ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^WAIT    PEEK"
  96. 900 [153][166]4)"PEEK    PEEKWAIT";:[129]A[178]0[164]14:[129]B[178]0[164]19
  97. 910 [151]Z,A2:[139]AR$(B,A)[178]" "[167][153][199](65[170][187](1)[172]26);:[137]930
  98. 920 [153]AR$(B,A);
  99. 930 [130]:[151]Z,A1:[153]"PEEKWAIT    PEEK":[153][166]4);"PEEK    PEEKWAIT";:[130]
  100. 940 [153]:[153][166]4)"ONPEEK    /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT    PEEK"
  101. 950 [142]
  102. 960 [143] PUT WORDS IN THE ARRAY
  103. 970 B[178][181]([187](1)[172](NW[171]10))
  104. 980 M[178]B:[129]A[178]0[164]9:W$[178]W$(B[170]A)
  105. 990 DR[178][187](1)[172]2[174]LV:DY[178]DY(DR):DX[178]DX(DR):L[178][195](W$)
  106. 1000 SX[178][181]([187](1)[172]19[170]1):SY[178][181]([187](1)[172]14[170]1):RX[178]SX:RY[178]SY
  107. 1010 NX[178]SX[170](L[171]1)[172]DX:NY[178]SY[170](L[171]1)[172]DY:[139]NX[179]0[176]NY[179]0[176]NX[177]19[176]NY[177]14[167]990
  108. 1020 FL[178]0:[129]L[178]1[164][195](W$):[139]AR$(SX,SY)[179][177]" "[167]FL[178]1:L[178][195](W$)
  109. 1030 SX[178]SX[170]DX:SY[178]SY[170]DY
  110. 1040 [130]:[139]FL[167]A[178]A[171]1:[130]
  111. 1050 [129]L[178]1[164][195](W$):AR$(RX,RY)[178][202](W$,L,1)
  112. 1060 AR(RX,RY)[178]A[170]1:RX[178]RX[170]DX:RY[178]RY[170]DY:[130]:LN(A)[178][195](W$):[130]
  113. 1070 [142]
  114. 1080 [143] SHUFFLE WORDS
  115. 1090 [129]A[178]1[164]NW[173]2:B[178][187](1)[172]NW:C[178][187](1)[172]NW:T$[178]W$(B):W$(B)[178]W$(C):W$(C)[178]T$
  116. 1100 [130]:[142]
  117. 1110 [143] READ IN WORDS
  118. 1120 [134]W$(200):NW[178][171]1
  119. 1130 NW[178]NW[170]1:[135]W$:[129]A[178]1[164][195](W$)
  120. 1135 W$(NW)[178]W$(NW)[170][199]([198]([202](W$,A,1))[171]1)
  121. 1140 [130]:[139]W$(NW)[179][177]"END"[167]1130
  122. 1150 [142]
  123. 1160 [129]A[178]0[164]7:[135]DX(A),DY(A):[130]
  124. 1170 [129]A[178]0[164]19:[129]B[178]0[164]14:AR$(A,B)[178]" ":[130]B,A
  125. 1180 [142]
  126. 1190 [131]0,1,1,0,0,-1,-1,0,-1,1,1,1,1,-1,-1,-1
  127. 1200 [131] DBSOJWBM,DJSDVT,DBOBEB,VOJUFE,UFMFQIPOF,NPOLFZ,DPNQVUFS
  128. 1210 [131] KPZTUJDL,NPOTUFS,TUBQMFS,NBHJDBM,TIVGGMF
  129. 1220 [131] QSPPGSFBEFS,BVUPNBUJD,QPXFS,DPNNPEPSF,UZQJOH,WFSTJPO
  130. 1230 [131] DPNNBOET,EJTQMBZ,DPSSFTQPOE,QSFWJPVT,TIPPUFS,ESJWF,BEESFTT,NPUPXO
  131. 1232 [131] UBCMF,NBWFSJDL,TVQFS,BMMJBODF,DPOUJOVF,TBSEJOF,CVCCMF,SVCCMF,BMHFCSB
  132. 1234 [131] HSFFO,ZFMMPX,DPNQBDUPS,BOUJRVF,DIJNFT,SFWFSTF,EJTDPWFS,BNFSJDB
  133. 1235 [143]   EJTDPWFS=42
  134. 1236 [131] QBUSJPUJTN,QSPVE,IFSP,XBSSJPS,MPWFBCMF,HBSGJFME,NPUIFS,HSBOENPUIFS
  135. 1238 [131] MJHIUIPVTF,TOBQTIPU,QIPUPHSBQI,QIPOPHSBQI,MBTFS,PVBDIJUB,DPWFSU
  136. 1240 [131] JOUFSGBDF,QSFTJEFOU,DPOHSFTT,BMUFSOBUF,GJSFUSVDL,QPSUBCMF,EPDLFU
  137. 1242 [131] TSPDLFU,MPVJTJBOB,LFOUVDLZ,SFEPMFOU,NBOEBUF,DPNQFUJUJPO,DSJUJDBM
  138. 1244 [131]TVQSJTF,TDBUUFS,XPSLFST,DPOTVNFS,DVTUPNFS,DPXHJSM,KBHHZ,KBHHFE,FOHMBOE
  139. 1246 [131] QPMBOE,BNFSJDB,DSBOLDBTF,XBUFSNBJO,SBDFUSBDL,OVDMFBS,NVTISPPN,NVTLFU
  140. 1248 [131] FOE
  141. 1500 [153]"ABCDEFGHIJKLMNOPQRSTUVWXYZ
  142. 1510 W$="TDBUUFS":W=LEN(W$):PRINTW
  143. 1520 FORT=1TOW:C$=MID$(W$,T,1):C=ASC(C$)-1:C$=CHR$(C):A$=A$+C$:NEXT:PRINTA$:END
  144. 9175 PRINT"[150]       [146]    [146][183][208]  [146]  [146]  [146] [207] [146][208]  [146][183][208]  [146][183][208][188] [146][183][208]"
  145. 9178 PRINT"[158]       [146]    [146][198]    [146]   [146]   [146]   [146][175][186]  [146] [167]  [146] [167]
  146. 9180 [153]"DEF       WAITANDSQR  WAITANDSQR  WAIT  WAIT  WAIT   WAIT   WAIT (null)  WAITANDSQR  WAIT THEN":[142]
  147.