home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / JAMBALAYA (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.1 KB  |  140 lines

  1. 0 REM"[141][145][142][158]  [209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215]
  2. 1 [143]"GOSUBONSYS (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  3. 2 REM"[141][145][158] [215][209][215]                                [209][215][209]
  4. 3 [143]"GOSUBONSYS (null)(null)(null)   DEFJAMBALAYA... WORD SCRAMBLE   SYS(null)(null)(null)
  5. 4 REM"[141][145][158] [215][209][215]                                [209][215][209]
  6. 5 [143]"GOSUBONSYS (null)(null)(null)         BY  JIM GREEN          SYS(null)(null)(null)
  7. 6 REM"[141][145][158] [215][209][215]                                [209][215][209]
  8. 8 [143]"GOSUBONSYS (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  9. 9 REM"[141][145][158]  [215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209][215][209] [154]
  10. 10 Z[178]700:[129]T[178]Z[164]726:[135]A:[151]T,A:[130]
  11. 15 [131] 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32
  12. 20 [131] 240,255,32,253,174,76,164,170,0
  13. 25 L[178]828:[129]K[178]L[164]L[170]31:[135]J:[151]K,J:[130]
  14. 30 [131] 32,253,174,32,158,173,32,247,183,32,19,166,176,5,162,17
  15. 35 [131] 76,55,164,165,95,233,1,133,65,165,96,233,0,133,66,96:[143]  * * * * PD 81
  16. 40 [151]53265,11:[151]53280,11:[151]53281,11:[153]"LOAD"
  17. 41 [139]N[178]0[167][153]"DEF MID$ATN(null)PEEKATN(null)ATN(null)ATN [ATN MIXTURE]              ":N[178]1:[137]45
  18. 42 [139]N[178]1[167][153]" [MID$ATN(null)-PEEKATNLEFT$-(null)RIGHT$VAL-(null)ATNLEFT$]  DEFA LENAJUN DISH":N[178]0
  19. 45 [153]"OPEN TANANDTANUSRTANANDTANUSRTANANDTANUSRTANANDTANUSRTANANDTANUSRTANANDTANUSRTANANDTANUSRTANANDTANUSRTANANDTANUSRTANANDTAN";
  20. 50 [153]"PRINT#(null)RY TO UNSCRAMBLE WORDS BY TYPING IN
  21. 55 PRINT"GUESSES. [212]HE COMPUTER WILL SHOW YOU
  22. 60 [153]"WHICH LETTERS ARE IN THE CORRECT PLACES.
  23. 65 PRINT"  [197]XAMPLE: [212]HE COMPUTER PRINTS 'IEDRV'.
  24. 70 [153]" (null)HE ACTUAL WORD IS 'DRIVE'.
  25. 75 PRINT" [201]F YOU TYPE 'DRVIE', THE COMPUTER WILL
  26. 80 [153]" RESPOND WITH 'DRSYSVIWAITPRINT#E', MEANING THE
  27. 85 PRINT" FIRST, SECOND, AND FIFTH LETTERS ARE
  28. 90 [153]" IN THE CORRECT LOCATIONS.
  29. 92 PRINT"[150] [208]RESS <_> <[210][197][212][213][210][206]> ANYTIME TO [209][213][201][212].
  30. 95 [153]"      (null)RESS <(null)(null)ATNLENVAL> TO CONTINUE":C[178][187]([171]TI):[151]53265,27
  31. 98 [129]D[178]1[164]1500:[130]
  32. 100 [161]G$:[139]G$[179][177]" "[167]41
  33. 105 A[178]2:B[178]1:F[178]0:G[178]0:R[178]0
  34. 110 C[178]([181]([187](1)[172]70)[170]600):[139]C[173]2[179][177][181](C[173]2)[167]110
  35. 115 [158]L,C: [143]  RESTORE TO SELECT LINE
  36. 120 C1[178][181]([187](1)[172]6)[170]1: [129]T[178]1[164]C1:[135]W$:[130]:[143] READ LINE C, 1ST TO 6TH WORD
  37. 125 U$[178]"":T$[178]W$:[129]S[178][195](W$)[164]1[169][171]1:H[178][181]([187](1)[172]S)[170]1
  38. 130 U$[178]U$[170][202](T$,H,1):T$[178][200](T$,H[171]1)[170][201](T$,S[171]H):[130]
  39. 135 [151]53265,11:[153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
  40. 140 [129]T[178]1[164]12:[139]T[173]2[179][177][181](T[173]2)[167][153]"(null)PRINT>"[166]37)"(null)";:[137]150
  41. 145 [153]"(null)"[166]38)"(null)";
  42. 150 [130]
  43. 155 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[141]410:[139]U[178]1[167]185
  44. 160 [153]"DEF   =ORTAN^==^=TANRNDORTAN^OR  ORTAN^OR ^ORTAN^  SYS*OPENTAB(WAITSYSRNDDEF
  45. 165 PRINT"   [221][171][192][179][221][221][221][171][192][179][171][192][179][221]  [171][192][179][173][178][189][171][192][179]  [159] [146][150][219][159] [146][150]"
  46. 170 PRINT" [173][192][189][173] [173][173][173][173][177][192][189][173] [173][173][192][189][173] [173] [173] [173] [173]  [158][188][159][164][146][158][190]"
  47. 175 PRINT"[159]  [[193] JUMBLE OF JUICY WORDS!] ":POKE53265,27:FORD=1TO2E3:NEXT
  48. 178 GOSUB420
  49. 180 PRINT"[158]  [215]E SCRAMBLE 'EM, YOU GUESS 'EM!":FORD=1TO2E3:NEXT:GOSUB425
  50. 185 PRINT"";:FORT=1TO12:PRINT"                                   ":NEXT
  51. 190 POKE53265,27:IFU=0THENPRINT"[150]WRONG GUESSES
  52. 195 G[178]0:[158]Z,2,15,"PRINT#ASCOR A NEW WORD,  PRESS <^> <(null)VAL(null)(null)(null)(null)>"
  53. 200 [158]Z,0,17,"POKE> DEF"U$" OPENIS THE SCRAMBLED WORD.":R[178]0
  54. 205 [158]Z,2,18,"";:[129]T[178]1[164][195](U$):[153]"USR";:[130]:[153]
  55. 210 [153]"LIST  (null)YPE YOUR GUESS, THEN PRESS <(null)VAL(null)(null)(null)(null)>.
  56. 215 REM    PRINT"[152]"W$:PRINT"[145][145]";
  57. 220 PRINT"";:FORT=1TOLEN(W$):PRINT"-"; :NEXT:PRINT"[145][145]"
  58. 225 REM  [REMOVE REM ON 215.......               PUT REM ON 220 TO CHEAT.]
  59. 230 GOSUB425:G$="":PRINT"[150]";:POKE198,0:OPEN1,0:INPUT#1,G$:PRINT:CLOSE1
  60. 235 SYSZ,0,22,"                ":SYSZ,0,23,"                ":G=G+1
  61. 240 IFLEFT$(G$,1)="^"THENU=1:GOTO105
  62. 242 IFLEFT$(G$,1)="_"THENPRINT"[147]":END
  63. 245 IFLEN(G$)>LEN(W$)THENSYSZ,0,23,"[199]UESS TOO LONG!":G=G-1:GOTO200
  64. 250 IFLEN(G$)<LEN(W$)THENSYSZ,0,23,"[199]UESS TOO SHORT!":G=G-1:GOTO200
  65. 255 SYSZ,2,21,"";:FORX=1TOLEN(W$)
  66. 260 IFMID$(G$,X,1)<>MID$(W$,X,1)THENPRINTTAB(X)"[158]"MID$(G$,X,1)"[146][152]";:GOTO270
  67. 265 PRINT"[152]";:R=R+1
  68. 270 NEXT:PRINT
  69. 275 IFU=0THENPRINT"              ":U=1
  70. 280 IFG>9THENSYSZ,A,B,"[159]"G"[157][157][157][152]"G$:B=B+2:GOTO290
  71. 285 SYSZ,A,B,"[159]"G"[157][157][152]"G$:B=B+2
  72. 290 IFR<>LEN(G$)THENGOSUB375
  73. 295 F=F+1:IFB=13ANDF=6THENB=1:A=14
  74. 300 IFF=12THENB=1:A=26
  75. 305 IFG=18THENFORD=1TO1E3:NEXT:A=2:B=1:F=0:GOSUB365
  76. 310 IFG=36THENGOSUB355:GOTO360
  77. 315 IFR<>LEN(G$)THENPRINT"[152]":GOTO200
  78. 320 GOSUB355
  79. 325 IFG=1THENSYSZ,8,16,"[150][217]OU GOT IT IN"G"TURN!":GOTO335
  80. 330 SYSZ,8,16,"[150][217]OU GOT IT IN"G"TURNS!
  81. 335 [153]" LIST(null)RESS <(null)(null)ATNLENVAL> TO PLAY AGAIN, (null) TO QUIT":[141]390
  82. 340 [161]G$:[139]G$[179][177]" "[175]G$[179][177]"Q"[167]340
  83. 345 [139]G$[178]" "[167]105
  84. 350 [128]
  85. 355 [129]T[178]14[164]23:[151]781,T:[158]59903:[130]:[142]
  86. 360 [158]Z,5,17," (null)OO BAD...CHR$UESS YOUR GUESSER
  87. 361 PRINTTAB(3)"WASN'T HOME TODAY!  [208]LAY AGAIN [217]/[206]
  88. 362 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]362
  89. 363 [139]G$[178]"Y"[167]105
  90. 364 [128]
  91. 365 [153]"";:[129]T[178]1[164]12:[153]"                                   ":[130]
  92. 370 [142]
  93. 375 S[178]54272:[129]T[178]S[164]S[170]23:[151]T,0:[130]
  94. 380 [151]S[170]2,0:[151]S[170]3,8:[151]S[170]6,0:[151]S[170]5,9:[151]S[170]24,15:[151]S,67:[151]S[170]1,12
  95. 385 [151]S[170]4,128:[151]S[170]4,129:[129]D[178]0[164]350:[130]:[129]T[178]S[164]S[170]23:[151]T,0:[130]:[142]
  96. 390 S[178]54272:[151]S[170]24,15:[151]S[170]5,9:[151]S[170]4,17
  97. 395 [129]T[178]80[164]170[169]2:[151]S[170]1,T:[130]:[151]S[170]4,0:[151]S[170]5,74:[129]D[178]1[164]120:[130]
  98. 400 [151]S[170]4,17:[129]T[178]100[164]120:[151]S[170]1,T:[130]
  99. 405 [129]T[178]120[164]60[169][171].4:[151]S[170]1,T:[130]:[129]T[178]0[164]23:[151]S[170]T,0:[130]:[142]
  100. 410 [129]Q[178]217[164]242:[151]Q,[194](Q)[176]128:[130]:[142]
  101. 420 [129]T[178]0[164]15:[151]54296,T:[129]D[178]1[164]18:[130]:[130]
  102. 425 [129]T[178]15[164]0[169][171]1:[151]54296,T:[129]D[178]1[164]8:[130]:[130]:[129]T[178]0[164]15:[151]54296,T
  103. 430 [129]D[178]1[164]3:[130]:[130]:[142]
  104. 599 [128]
  105. 600 [131] ELECTRIC,COMMODORE,MICROWAVE,HOREHOUND,LICORICE,TECHNOLOGY
  106. 602 [131] OUTRAGEOUS,THESAURUS,LINGUISTIC,COWPIE,LANGUAGE,MAGAZINE
  107. 604 [131] CANTALOUPE,RETURN,SCRAMBLED,SNAPSHOT,EXAMPLE,PUNITIVE
  108. 606 [131] STEAK,STAKE,WAVEFORM,SAMPLE,ADVANCED,REMEMBER
  109. 608 [131] BASKETBALL,FOOTBALL,SOCCER,SUCKER,TENNIS,PROGRAM,GUARANTEE
  110. 610 [131] AMOEBA,MEXICO,ARGENTINA,LOUISIANA,ARKANSAS,WYOMING
  111. 612 [131] PLACEMAT,ILLINOIS,CALIFORNIA,AMAZING,WACKY,INVENTION
  112. 614 [131] CUSHION,BILLIARDS,CERTIFIED,SIMULATION,HOPELESS,MONSTERS
  113. 616 [131] COWARDLY,CREATOR,BERSERK,SUNBEAM,RENEGADE,BALLOONS
  114. 618 [131] SLIDE,ALPHABET,TRANSLATE,EXPERIENCE,REMINDER,RENUMBER
  115. 620 [131] GUITAR,SAXIFONE,TRUMPET,TRIANGLE,CASTANETS,SHOOTER
  116. 622 [131] TOWEL,FOOLPROOF,BATHTUB,SHOWER,PUBLISH,MAGAZINE
  117. 624 [131] COSTUME,MISTAKE,COMPLETE,TWISTING,KEYBOARD,SATELLITE
  118. 626 [131] BIOLOGY,JOYSTICK,DIRECTION,MEMORY,EXCELLENT,FLOPPY
  119. 628 [131] DISPLAY,APPALLED,CHOCOLATE,STRAWBERRY,ORANGE,PEACHIE
  120. 630 [131] CARPET,CLEANER,UNDERWEAR,HARDWARE,FAVORITE,WEATHER
  121. 632 [131] ERASER,BLACKBOARD,PUZZLED,RECOMMEND,SODIUM,RHEUMATISM
  122. 634 [131] PLUG,BUSINESS,RECYCLE,REFUSE,FLOORPLAN,IMMEDIATE
  123. 636 [131] KETTLE,HIGHEST,LOWEST,FRESHWATER,DEODORANT,FURTHER
  124. 638 [131] PICTURE,THEATRE,FRESHENERS,CARTOONS,CURRENT,IMPOSSIBLE
  125. 640 [131] PLAYER,SLAYER,MAYOR,ALDERMAN,PRESIDENT,GOVERNOR,CONGRESS
  126. 642 [131] SIGNIFY,BLOOMING,IDIOT,SITUATION,POISON,SLUSHY
  127. 644 [131] RADIO,TELEVISION,SUMMER,WINTER,AUTUMN,SEPTEMBER
  128. 646 [131] ORDER,OCTOBER,NOVEMBER,DECEMBER,JANUARY,AUGUST
  129. 648 [131] TRAPEZE,CIRCUS,CLOWNS,ARENA,ELEPHANT,GORILLA
  130. 650 [131] POTATO,QUAYLE,QUAIL,BLINDFOLD,COORDINATE,BALCONY
  131. 652 [131] CUBE,LUMBERJACK,TIMBER,POLICEMAN,CRIMINAL,SIDEWALK
  132. 654 [131] DOGMA,CATNIP,ELECTRONIC,KANGAROO,DISKETTE,INITALIZE
  133. 656 [131] STATEMENT,RELATIVE,CONNECTOR,TECHNICIAN,RECEPTACLE,SEPARATE
  134. 658 [131] CHARACTER,VARIABLES,CHECKSUM,PARTITION,OVERWRITE,OVERBITE
  135. 660 [131] SEQUENTIAL,RESPECTIVE,NORMALLY,ALLOCATE,WARRANTY,PARTICULAR
  136. 662 [131] MAXIMUM,MINIMUM,SUBROUTINE,OBVIOUS,CALCULATE,ORGANIZE
  137. 664 [131] SUBDIVIDE,DIFFERENT,BEGINNING,RENAME,ASSEMBLER,FILENAME
  138. 666 [131] ASTERISK,ALTHOUGH,PRIMARY,APPENDIX,VENTILATED,ISOPROPYL
  139. 668 [131] TRANSMIT,AUTOMATIC,AUTOBOOT,KERNAL,ALTERNATE,EXECUTE
  140.