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