KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 048D4D034C=@à 53C318AD440369018D4403AD450369008D4503A90085FDA90485FEA9008D4E03`à 8D4703AD440385FBAD450385FCA000B1FB91FD18A5FB690185FBA5FC690085FCà 18A5FD690185FDA5FE690085FEEE4703AD4703C928D012A9008D470318A5FB69à 5085FBA5FC690085FCE8D0C3 2,0,0,0,0,0,0 * 9 *N 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 * 8 *.  6D0AD00DC290F8D4003CEL`ƒ 4603AD4603C900D012A9008D04D4AD4803850220F2C0A9068D20D038A90FED40ƒ 038D4003C900F0038D4D03AD3C03C901D006AD40038D4D03AD4D03C901D0034Cƒ BAC2C902D0034CE1C2C904D0034C08C3C908F0034C53C34C2FC3ADCC058D4103!ƒ CD4303D008A90 5,224,7,255,240,15,255,248,15,192,248\ 15,128,248,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,248 15,192,248,15,255,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 * . * 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0BLE L NEWSW * D *QX 0,0,0,0,0,0,15,255,128,15,255,224,15,255,240,15,255,248,15,129,248b 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248l 15,128,248,15,129,248,15,255,248,15,255,240,15,255,224,15,255,128m 0,0,0,0,0,15,255,240,15,255,240,15,128,0,15V4 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 * 8 *.  ":190' AN(AN$):: CH1 AN: PR$: CHM V21,0: "": 53280,0: 53281,0q (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6196(L$,LI)" KDC4074CA1C4A9308DC407A9018D4AJă 03A20218BDC1076D4A03C93AF00B9DC107A9008D4A034CC3C4A9309DC107A901ă 8D4A03CAD0DDEE4C03AD4C03C900D003EE4F03AD4F03AAA9A09DC707CAD0F8ADă C207C932D0034CF3C4AD4F03C920D0484CF3C4A9008D04D48D15D0A90F8DF305Ń A9168KEE4E03AD4E03C904D0034CC2C3C903D0B2A2684CYà 6FC3AD4103CD4303D026A90885028D20D020F2C0A9088D05D4A9818D04D4A919à 8D01D4A90A8D4903A9028D4603EE4F03AD4103C9A0D01EA90785028D20D020F2ă C0A9018D4B03A90F8D05D4A9118D04D4A9058D4603AD4103C953D026A9008502 0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,240y15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0% * 5 * * 0,0,0,0,0,0,15,255,240,15,255,2428D4D034C53C338AD4403E9788D4403AD4503E9008D45034C53hƒ C3AD1C068D4103CD4303D008A9018D4D034C53C318AD440369788D4403AD4503à 69008D45034C53C3ADF3058D4103CD4303D008A9088D4D034C53C338AD4403E9 à 018D4403AD4503E9008D45034C53C3ADF5058D4103CD4303D008A9,0,0,0,0,0> 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0J * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255 190,0q * E *Iv 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224 7,255,240,7,255,240,7,255,224,0,0,0,0,0,0 * C * 0,0,0,0,0,0,0,255,128,3,25K "::Y 64 BUG REP,FLANKSPEED,F-SPEED OVER,INSTA BUG 64,COMMHILO COMMTX,COMMRX,COMMHS,SANTA'S BUSY DAY,GYPSY,JEWEL QUEST,GAMELOADER C64 CLOAK,DIR MANIPULATOR,SKETCH BOOT,BLACKBRD BOOT AHOY! NEWS ,DOUKDF405A9058DF505A9128DF605A9028502A9008D21D020F2C0A9018DF3D9` Ń 8DF4D98DF5D98DF6D9A5C5C940D0FAA5C5C940F0FA4C08C04C57C250ZZ088DA405CE4903`ă 18AD440369B485FBAD4503690585FCA92091FB8D4103AD4B03C901D049A9008Dă 4B03A9008D4A0318ADC4076901C93AF0068K. ă 20F2C0A90F8D05D4A9218D04D4A9048D4603A280A000EE21D0C8D0FAE8D0F720u@ă 0DC2AD4903C900F017A90F8D2C05A9158D5405A9038D7C05A9088DA405CE4903`ă 18AD440369B485FBAD4503690585FCA92091FB8D4103AD4B03C901D049A9008Dă 4B03A9008D4A0318ADC4076901C93AF0068 p #vmax-1 bcs lower jmp hcheck raise inc vpsn jmp hcheck lower lda #vmax-1 sta vpsn * hcheck bit hpsn+1 bpl oklow lda #1 sta hpsn lda #0 sta hpsn+1 rts * oklow lda #hmax-2 sbc hpsn+1 bcc toohi rts * toohi lda #hmax-2 sta hpsn+1 rts * *printdotonscreen * print jsr check jsr plot * lda hpsn pha lda hpsn+1 pha * lda hpsn bne skip dec hpsn+1 skip dec hpsn jsr check jsr plot * pla sta hpsn+1 pla sta hpsn rts * relads dfb up-m 5,255,224,31,131,240,31,1,240,31,1,240Y15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0% * 5 ** 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0subroutinestomoveup&down * moveup ldx vpsn dex stx vpsn rts * movedn ldx vpsn inx stx vpsn rts * *"doit"subroutine * doit jsr print jmp readjs * *moresubroutinesstarthere * *makesuredotiswithinrange * check lda vpsn beq raise cm,1564 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128u> 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,1I1254412606:SP:I,SP:9 I1260812670:SP:I,SP:X I1267212734:SP:I,SP:w I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX22:VI,X::I1132:VI,Y: <V0 A16 :A0@ (L$,23)7)" DIST. BY DOUBLE L SOFTWARE" (L$,24)7)" (C) ION INTERNATIONAL INC ":198,0:AN$"" (L$,21)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$"" ":190' AN(AN$):: CH1 AN: PR$: CHM V21,0: "": 53280,0: 53281,0q (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6196(L$,LI)" ,0,0,0,0,15,255,128,15,255,224,15,255,240,15,255,248,15,129,248yb 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248l 15,128,248,15,129,248,15,255,248,15,255,240,15,255,224,15,255,128m 0,0,0,0,0,0q * E *)v 0,0,0,0,0, 2,248< 15,128,248,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,248 15,192,248,15,255,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 * . * 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129w 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,1odr1 dfb down-modr1 dfb nil1-modr1 dfb left-modr1 dfb upandl-modr1 dfb dnandl-modr1 dfb nil2-modr1 dfb right-modr1 dfb upandr-modr1 dfb dnandr-modr1 * s * oklow lda #hmax-2 sbc hpsn+1 bcc toohi rts * toohi lda #hmax sta mpdh jsr mult16 lda mprl sta tempa lda mprl+1 sta tempa+1 * *addproducttobase * clc lda #base adc tempa+1 sta tempa+1 * *multiply8*char * lda #8 sta mprl lda #0 sta mpr 828:K(BY) 3,(K);:ER1401 158:DK$:ER154B "ALL DONE."R 2:3:15:d DISK ERRORS~ ER0:15,E1,E2$,E3,E4 DK$(E1)(32)E2$ E120ER1:DK$(18)DK$ 222,135,090,041,121 063,132,255,132,178 203 mpa+1 adc tempb+1 sta tempb+1 * *pokebyte,peek(byte)or2^bit * ldx bitt inx lda #0 sec square rol dex bne square ldy #0 ora (tempb),y sta (tempb),y rts * *mainroutinestartshere * *firstdefinebitmapandenable *high-resolutiongraphi 4. t"FILE TYPE (P/S/U)": SF$:SF$""SF$"P"T v"NEW FILENAME": N2$:N2$""154 x"FILE TYPE (P/S/U)": NF$:NF$""NF$"P" zSF$","(SF$,1)",R":NF$","(NF$,1)",W" |N1$"0:"(N1$,16)SF$:N2$"0:"(N2$,16)NF$ ~"OPENING ";N1$:1 a #scrlen sta tabsiz+1 jsr blkfil * *setbkgandlinecolors * lda #color sta filval lda #colmap sta tabptr+1 lda #maplen sta tabsiz+1 jsr blkfil * *printdotat  8*`Э Э ݭ ݩ @  d 9)H-܍h8`Lp L LʎL L LLpȎL LŁ LŁʎ`` 9Lp iz equ $9000 * hpsn equ tabsiz+2 vpsn equ hpsn+2 char equ vpsn+1 row equ char+1 line equ row+1 byte equ line+1 bitt equ byte+2 * mprl equ bitt+1 mprh equ mprl+1 mpdl equ mprh+1 mpdh equ mpdl+1 prodl equ mpdh+1 prodh equ prodl+1 * filval equ prodh+1 jsv e  dex bne partlp fini rts * *16-bitmultiplicationroutine * mult16 lda #0 sta prodl sta prodh ldx #17 clc mult ror prodh ror prodl ror mprh ror mprl bcc ctdown clc lda mpdl adc prodl sta prodl lda mpdh adc prodh sta prodh ctdown dex bne har * *line=vpsnand7 * lda vpsn and #7 sta line * *bitt=7-(hpsnand7) * lda hpsn and #7 sta bitt sec lda #7 sbc bitt sta bitt * *byte=base+row*hmax+8*char+line * *firstmultiplyrow*hmax * lda row sta mprl lda #0 sta mprh lda #base sta tabptr+1 ld 5,8,15,"I"' 2,8,2,N1$:158:DK$:ER154; "OPENING ";N2$] 3,8,3,N2$:158:DK$:ER154 LP1(KY$):KEYLP,((KY$,LP,1)):LP KEYLP,0:"CRYPTING WAIT" ER1 #2,Q$: STATUS 64 ER0 K0:Q$""146 K(Q$) BY,K: midscreen * lda #vmid sta vpsn lda #hmid sta hpsn+1 jsr print * *readjoystick * *firstchecktriggerbutton * readjs lda ciapra and #$10 beq start * *nowreadjoystick * lda #$0f pha and ciapra sta jsv pla sec sbcrǰ LLǍ, `>`>` UHH Uhh` #)/2EK)) 8  @  % e e   % miee CAN REPEAT HOURS OF CONVERSA-TION WORD FOR WORD MICE TRAINED AS HAIRDRESSERS PLANS FOR CATS TO TAKE OVER THE UNIVERSE ROBOTS THAT EVOLVED FROM AN ANCIENT STARSHIP SERVICE STATION WAS CAUGHT WITH A DATA-ERASING MAGNETIC DEVICE WAS MISTAKENLY LUBRICATED B ATING BAT TREES THAT GROW CLONES OF ANY CREATURE AS THEIR FRUIT WAS DEVOURED AND CLONED 500 TIMES TO FORM A VILLAGE CLIMBED A HUNGRY TREE CHOPPED DOWN THE CHIEF'S DAUGHTER FOR FIREWOOD A SEEDLING OF A TREE THAT COULD CLONE THE DEAD A FIBROUS PLAN   ************************? * GAMELOADER *^ * BY TIM BROWN *} ************************53281,12:53280,12:"" "BASIC LOADER CONSTRUCTION""ENTER PROGRAM NAME";NA$"ENTER ADDRESS TO SYS";AD$ OF SHAPECHANGERS WHO HAVE FORGOTTEN THEIR 'REAL' SHAPE WAS SHOT BY A GYPSY WHO THOUGHT IT WAS AN IMPOSTOR GOT A FATAL ILLNESS WENT HUNTING AND BAGGED THE WRONG PREY A NET-SPINNING TREE SHAPE-CHANGING PROTOPLASM OZONE-EMITTING AIRBORNE SLIME CLUMS "":"NEW"= x"100 IFA=0THENA=1:LOAD"(34)NX$(34)",8,1"_ "110 PRINT"(34)"READY"(34)v "130 SYS"AD":NEW" "SAVE"(34)NA$(34)",8" "";:R631644:R,13: 198,13: (#S54272:ESS28:E,0: 2#54296,15:54277,0:54278,  A FOSSIL TRIED TO STEAL AN EGG AND WAS PICKED UP AND DROPPED MIDGET HADRODONS THAT MAKE GREAT PETS PERFUME-EMITTING DRAGONFLIES XENOLOGICALLY FASCINATING FILMS OF MID- AIR REPRODUCTION CREATURES THAT LIVE BY CREATING ILLUSIONIN THE MINDS OF THEIR PREY T 'L$"":U POKE53280,6:POKE53265,PEEK(53265)AND239 I118:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: E MONKEYISH TREE-DWELLERS THAT LIVE ONLY TO SING IN THE TREETOPS DIDN'T WEAR EARPLUGS AND WAS ENRAPTURED BY SONG--FORGETTING TO BREATHE TRIED TO SING A DUET AND WAS PELTED TO DEATH WITH FRUIT ATE A TREE SLUG THAT REGENERATED 1000 TIMES INTERNALLY RECoSO BE" " AVAILABLE."@ " ATCH FOR OUR IRCULARS WITH"e " YOUR MONTHLY HOY! ISK." UYS OF A IFETIME." d" LL YOUR FAVORITE GAMES, UTILITIES" n" AND BUSINESS APPLICATIONS FROM" " ALL THE BEST SOFTWARE 8,195:V10,215:V12,2403 FV16,128:V14,5:V15,YS d"": SC,1:V21,255:TA10j n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B8)TA)""A"-"PR$ B9 175 15Y A REPAIRBOT BEAT THE WRONG ROBOT AT CHESS ORGANICALLY-GROWN POSITRONIC BRAINS A METAL-PRESERVING FUNGUS FLEA-SIZED SELF-REPLICATING REPAIRBOTS TO FETCH FORTHE KING OF CATS TRIED TO PET A DOG-SOLDIER WAS CARRIED OFF IN THE NIGHT BY A RAT PACK A DOG THAT T WITH STEEL-LIKE THREADS A FIRE-BREATHING MOUSE A RACE OF CATS THAT KEEP DOGS AND MICE AS SLAVES--WHILE RATS REBEL WAS LOBOTOMIZED AND TRAINED TO FETCH FORTHE KING OF CATS TRIED TO PET A DOG-SOLDIER WAS CARRIED OFF IN THE NIGHT BY A RAT PACK A DOG THAT  (NX$(NA$,1)"X":AD(AD$)D 2"INSERT PROGRAM DISK INTO DRIVE"T <"Y/N"p FA$:A$"Y"A$"N"70 PA$"N"9000:50 d"NOW CONSTRUCTING LOADER" n1,8,15:1,"R0:"NX$"="NA$ s1,E,E$:E0"ERROR !":1:10 u1: Y GRASS-EATING BEHEMOTHS INFESTED BY SENTIENT BLOODSUCKERS WAS TAKEN OVER BY A SUCKER WAS TRAMPLED BY AN ANGRY HERD SAID SOMETHING SLANDEROUS ABOUT THE SUCKERS SWEET-SMELLING DUNG AN INTELLIGENCE-ENHANCING DISTILLATION OF SUCKER HORMONES A SUCKER-El240 <#54275,1:54274,06 F#54273,33:54272,135:54276,65O P#T1500::54276,64\ Z#54296,0b #"N"70 PA$"N"9000:50 d"NOW CONSTRUCTING LOADER" n1,8,15:1,"R0:"NX$"="NA$ s1,E,E$:E0"ERROR !":1:10 u1: RIED TO CROSS AN IMAGINARY BRIDGE WAS CAUGHT CHEATING AT POKER DID MAGIC TRICKS THE ALIENS COULDN'T DO AND WAS TAKEN PRISONER PERMANENT ILLUSIONS TIED TO SMALL JEWELS A FAST-GROWING LEGUME A FERRET THAT IS INVARIABLY DRAWN TO HIGH INTELLIGENCE A RACE I1254412606:SP:I,SP:9 I1260812670:SP:I,SP:X I1267212734:SP:I,SP:w I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX22:VI,X::I1132:VI,Y: <V ORDINGS OF SONGS AN ADVENTUROUS YOUNGSINGER OF SURPASSING TALENT AN 'UNSONG BIRD' THAT GENERATES A FIELD OF SILENCE WHEREVER IT GOES ON A PLANET OF DINOSAURS--A RACE OF WISEBIRDS THAT NEVER LAND WAS STEPPED ON BY A BRONTOSAURUS FELL INTO A BOG AND BECAME300:TA10:B.:150) TM$(13)AN$" " 225D AN$AN$TM$:AN$;"_";| T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN26" 0 A18 :A0@ (L$,23)7)" DIST. BY DOUBLE L SOFTWARE" (L$,24)7)" (C) ION INTERNATIONAL INC ":198,0:AN$"" (L$,21)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$"" )dMP828:KEY882:BY254:TL13713:CS0>f"DATA CLOAK"Oh K:K0108njCSCSK:MP,K:MPMP1:104l CSTL "DATA ERROR="CS:154n"OKAY":KEY:KEYKEY1p"ENCRYPTION KEY": KY$:KY$""154r"SOURCE FILENAME": N1$:N1$""15 GREW SMALLER AND SMALLER--AND FINALLY DISAPPEARED SMALL SINGULARITIES THAT ALLOW TIME TRAVEL GOLD FROM AN ANCIENT CARGO SHIP A RADIATION-SUPPRESSION FIELD A TRIBE OF PRIMITIVE HUNTERS AND FRUIT- GATHERERS WANDERED OFF AND WAS EATEN OFFENDED THE CHI ND TO POWDER IN A SANDSTORM THE LOG OF THE LOST SHIP ENTERPRISE A TREE WITH WOOD TOUGHER THAN STEEL A PLANT THAT SYNTHESIZES HYDROGEN A YOUNG PLANET WITH CONSTANT VOLCANOES AND EARTHQUAKES WAS CAUGHT IN LAVA FELL INTO A GEYSER CHOKED TO DEATH ON FLYING E LUNCH WAS KILLED OVER A WYRMFIGHT BET WAS FORCED TO MARRY A LOCAL AND STAY ON THIS WORLD DRAGONS' EGGS HALLUCINOGENIC DRAGONS' DUNG A SMALL DRAGON PARASITE THAT CAUSES LOSTLIMBS TO REGENERATE A TRIBE OF HORSEMEN WHO TEND VAST HERDS OF WOOLLY MAMMOTHS RATOR UNIT A MATTER-DESTROYING DISINTEGRATOR THE SECRET OF INSTANT MATTER TRANSFER A GALLERY OF PRICELESS PAINTINGS A VAST OCEAN WITHOUT A SPECK OF LAND WAS PULLED INTO THE SEA BY A HUGE SQUID DRANK THE WATER AND DIED WAS COVERED BY A HIDEOUS ALGAE AND TREE A MOSS THAT SYNTHESIZES HELIUM--AND FLOATS AN ALGAE THAT SERVES AS A FAST AND POWERFUL COMPUTER A WHOLE TOWN LIVING IN A HUGE BASKET SLUNG UNDER A VAST BALLOON LIT A MATCH AND WAS IMMEDIATELY PUSHED OFF WAS CARRIED OFF BY A ROC WAS EATEN BY CRYSTALS THAT HOLD MEGABYTES OF MEMORY LIVING CRYSTALS THAT PAINT WITH PURE LIGHT HUGE EMERALDS THE HIGHLY RADIOACTIVE HUSK OF A WORLD THAT DIED IN NUCLEAR WAR DIED OF RADIATION POISONING WAS KILLED BY A MUTATED VIRUS TRIGGERED AN ANCIENT LANDMINE A BYRINTH AN EXQUISITELY FLAVORFUL MOLD A BRIGHTLY LUMINOUS FISH THE LARGEST EMERALDS EVER FOUND A HUGE CITY HOUSED IN A SINGLE MILE-HIGHBUILDING FELL (OR WAS PUSHED) FROM A BALCONY ARGUED WITH A COP AND WAS SHOT WAS RUN OVER BY A CORRIDOR-TAXI HIGH-POWERE ED OF VIOLENT ALLERGIES TO POLLEN A VINE THAT BEARS HIGH-CALORY FRUIT SAP THAT HARDENS INTO JEWELS AN INSECT WHOSE BITE CURES CANCER A MILE-THICK LAYER OF DUST SANK INTO THE DUST AND DISAPPEARED CHOKED TO DEATH IN THE WIND WAS EATEN BY A HUGE DUSTWORM A  MAGNIFICENT STONE SCULPTURES A SOFT AND BEAUTIFUL METAL ALLOY GILT DAGGERS OF CUNNING ARTIFICE A COASTAL VILLAGE OF SEA-FARING TRADERS WAS CARRIED OFF INTO SLAVERY WAS THROWN OVERBOARD WAS CAUGHT 'BORROWING' A JEWEL AND WAS TORTURED TO DEATH A SNAKE WH  GARDENS UNDER THE SEA BROKE AN AIRHOSE AND DROWNED WAS HYPNOTIZED AND LURED INTO OPEN JAWS TOOK A SAMPLE OF CORAL THAT TURNED OUT TO BE SACRED EXQUISITE BANSAI CORAL PET SEAWEED THAT DOES TRICKS SEABOTTOM SALMON CREATURES OF PURE MIND THAT DWELL BY EF AND WAS KILLED GOT FLEAS THAT CARRIED A DEADLY DISEASE IVORY PELTS ANTHROPOLOGICAL DATA A FARMING VILLAGE WHOSE PEOPLE SCRATCH THE SOIL WITH STONE TOOLS GOT ROMANTICALLY INVOLVED AND WAS KILLEDBY A FURIOUS FATHER GOT IN A QUARREL AND WAS MASHED WITH ASH A RIVER OF PURE PLATINUM THE OLDEST METEORITE EVER FOUND A POOL OF SELF-REPLICATING PROTEINS--THEBEGINNINGS OF LIFE! A GLASS-SMOOTH SURFACE COVERED WITH THE WRECKS OF OLD STARSHIPS SANK INTO THE SURFACE AND VANISHED WAS SUCKED INTO A TINY BLACK HOLE WAS TRAMPLED IN A STAMPEDE ANNOYED A NATIVE WITH A BLOWGUN STOOD TOO NEAR A FLATULENT MAMMOTH AND SUFFOCATED MAMMOTH IVORY CHEESE MADE FROM MAMMOTH MILK A BREED OF SMALL, TOUGH, FAST, AND ALMOST SENTIENT HORSES A RACE OF SENTIENT SQUIDS THAT TEND DRIEDUP IN MOMENTS SWIMMING OYSTERS WITH GIANT PEARLS IVORY TUSKS FROM DEAD NARWHALS A SPECIES OF GRAIN THAT GROWS IN SALT WATER A SURFACE RAVAGED BY VIOLENT STORMS AND SMOTHERING BLIZZARDS WAS CARRIED OFF BY THE WIND WAS BURIED IN A SNOWDRIFT WAS GROU ONE OF THE HUGE CARNIVORES ON THE SURFACE A PLANT THAT TURNS SUNLIGHT INTO USABLE HEAT A DOMESTICATED BAT CLEVERLY ENGINEERED WINGS THAT ALLOW HUMANS TO FLY A FAMILY OF DRAGON BREEDERS WHO WAGER ONTHE VICIOUS WYRMFIGHTS CAUGHT A DRAGON'S EYE AND BECAM SCULPTURE OF INEFFABLE BEAUTY THE HISTORY OF A LOST CIVILIZATION A MUTATED SPECIES OF SENTIENT RAT THE DUSTY RUINS OF A SPECIES THAT LEFT TO VOYAGE AMONG THE STARS ATE A FRUIT THAT CAUSED FATAL DYSENTERY WAS KILLED BY A CRAZED ROBOT FELL INTO A DISINTEG D ROLLER SKATES AN APHRODISIAC THAT WORKS A PIVOTAL NEW BOOK ON PSYCHOLOGY A PEOPLE WHO LIVE IN THE TOPS OF HUGE DECIDUOUS TREES STUMBLED ON A HIGH BRANCH WAS EATEN BY A CARNIVOROUS SLOTH WAS KIDNAPPED AND VIVISECTED THE SEEDS OF A SPECIES OF SENTIENT PATCH OF EUPHORIA-CAUSING DUST A NEW SPECIES OF OXYGEN-MAKING MICROBE DIAMONDS EXCRETED BY DUSTWORMS A SURFACE ENTIRELY ENCRUSTED WITH DAZZLING CRYSTALS FELL AND WAS CUT TO RIBBONS WAS CRUSTED OVER WITH CRYSTALS WENT MAD FROM THE PATTERNS OF LIGHT OSE VENOM IS SUBTLE AND STRONG A SPECIES OF SUCCULENT FISH BEAUTIFULLY DECORATED HARPOONS AND FISH KNIVES A PEOPLE WHO DWELL IN A VAST NETWORK OF CAVERNS AND BURROWS WAS BURIED IN THE COLLAPSE OF A TUNNEL ATE A POISONOUS MUSHROOM GOT LOST FOREVER IN A LA  POOLS AND STREAMS DIED TRYING TO SEPARATE BODY FROM MIND BECAME DEPRESSED AND CATATONIC WENT MAD FROM DREDGED-UP MEMORIES OF PAST CRIMES PROOF OF UNPROVABLE MATHEMATICAL PROPOSITIONS THE SECRET OF FOLDED SPACE A COMPLETE MAP OF THE UNIVERS A STONE AX CAUGHT A POX AND DIED A DOMESTICATED FLYING LIZARD PRIMITIVE BUT LOVELY POTS OPALS A BRONZE-USING CIVILIZATION THAT BUILDS HUGE STONE MONUMENTS WAS SACRIFICED TO A RAIN GOD WAS CRUSHED UNDER A BLOCK OF STONE INSULTED A PRIEST AND WAS POISONED 20)"ϠŠ"CV10000 VV$(24)"ӠթЩ@Щ4hhh@ I 1: K17 K9 KL 509ЩЩL$;: K8 520,530,540,550,560,570,580,480,470[IDL(WP): 50: I3 440 IEF(WP): 50: I3 (TR$)0 95: 900:L(9) VV$(23)" ܍-)' -)l IK   l  (&( l AP # K? @`j R`04Ѝ)) PLИ5 ) pLИ` N`7`9K 9K 9KJ- L, @9K`J- ` ` CIRESIMʊZ `0L[LITNALԾ[ Җ  ՠ 0 100 IC5%:C5%0:C4%0:JI 101@4@WPj   @2+++++++PWWWWWWW   (&( xЭ)ЩЍ X` !"#  VV$(L)RX$VV$(K)RR$;:LK 40: JB0 515 JY1 Ѝ1Ѝ2 ..8 hhh@ ΧԠŠԠxЩ X`ҠŠ  ϧ Π VE LANDED A GROUP OF GYPSIES ON" " "MM$(0,2RP(WP));: PN(WP)254 " NAMED "NM$(PN(WPΠϠŠ"; 40: JB0 447? VV$(18)GN$(GB)" ORDERS YOU: RETURN TO THE SHIP!";I 480v 55: "ԡˠԠŠġ"  COLD BARE ROCK WITHOUT WATER OR WIND FELL INTO A CREVICE GOT LOST AN  450  55: "ĠǠŠ";: 507 507 HB(WP)1 532 "GN$(I)" CAN PILOT"3 " THE FAMILY TO FORTUNE--AND SURVIVAL!";^ VV$(24)"ӠΠϠŒ";t 40: JB0 287~' 300, ""VV$(10)" (KyK KyK`LIA -`7-1-2-127`I(T&-/` TR$-))-`TR$(TR$,I1)H4-*` 507,507: 424]SP%1: 90: 490f 55 "Ǡנ"(GL$)VV$(  Ƞ `0LZLINAԾ `ULIN DIRECT MODE RIGHT AWAY)S F$" ":ʊj R`0Lk L6%0:SP%0|  (37952)k `0Lj L) 700: 2100 90 `  $%&'%$#"! '&Ѝ)) PLИ5 l ! """ʭ#ȔДؔ蔍l AIRAM$l %$l A͹J Ѝ`JI-Ѝ`;-8L B 12DL(WP): I1 454 50:F ȠŠ"VV$(14)"ˠҠ";C VV$(15)"ŠԠŠ"VV$(16)"ԠˠϠŠ";f VV$(17)"ΠӠԚ";rK9:LK Ӡ XXXXX A SPACE STATION A LARGE MOON A SMALL ROCKY PLANET UNINHABITED POPULATED BY HUMANS POPULATED BY ALIENS  AM$(PD(WP),HB(WP),((TR$,1)),1)"";I10: 50:FT1(ILV):I12DL(WP): I1 454 50:F ȠŠ"VV$(14)"ˠҠ";C VV$(15)"ŠԠŠ"VV$(16)"ԠˠϠŠ";f VV$(17)"ΠӠԚ";rK9:LK D FROZE TO DEATH SET OFF AN AVALANCHE AND WAS CRUSHED A PURE VEIN OF PLATINUM A CLIFF CARVED WITH AN ALIEN LANGUAGE THE ORIGINAL VOYAGER SPACECRAFT A THICK IMPENETRABLE LAYER OF VINES AND FERNS WAS DEVOURED BY A MAN-EATING PLANT SANK INTO A HIDDEN BOG DI ٠ο"VV$(12)"Կ";1 VV$(2)"CARGO VALUE \"(CV10000)2 40768!VT(WP)1:DG$(PZ$,3):TR$(PZ$,HT(WP)):FT0S 56578,(56578)3: 56576,((56576) 252) 3j 53272,20: 648,4{ "";: 95 " YOU HA . * . . * . . . . . . . . . BB$VV$(24)(SS$,QS);:Ω(KyK KyK`EBEDN -` 7-1-2-127`S&-/`-))-`Tנ4-*`MARDAH  U=UhUJ?>|O?(>|O?((*?( VAN  LUAGSELAGЍ1Ѝ2 ..8 hhh@NODExЩ X`A (PP((((@(((  2I((0)I):* 7 I19 23: VV$ 1: I2 WP2: I4 WP3: I8 WP41 C0%0 230A J0 220^ QFQFLV: QF33 QF33x VV$(23)(FF$,QF);: QS17   '  ' "6 8p`||`p8 j87,87,873 I38010 38019: A: I,A:3 2,1,0,8,10,9,0,4,6,53 37934,14 "!";40: I37944 37951: I,X:XX2:b2 X1: I37962 37976 2: I,X:XX2:2 I37963 37977 2: A: I,A:2 0,5,6,10,9,0,0,02 I37  . . . . . . . . . . . * . . .. . .. N*,, 4)(SS$,QS);: VV$(23)"ԠƠ̒";: AIDROCIRESIMSITNALTAA  . * . . . . . . . . NE RETSLU AIDNACS ERRA (I)" ";:; 8 VV$(19);:X <C4%0:FMFM1: FM0 >FMTS2:QFQF1: QF0 VV$(23)BB$;: @ VV$(23)BB$VV$(23)(FF$,QF);: FTMTS:QSQS1: QS0 VV$(24)BB$;: H VV$(24)  ;3  38046: 648,140: VV$(23)BB$BB$" ";H  260: 33767,32m  I0 63: 35840I,0:: ES,31w  100 ' READ JOYSTICK (JY255(56320):JBJY 16 )JYJY 15: JY0 JB0 40 * (>*((j=jj>(Z=ZQZ?V=VV= : RP(WP)0000000) VV  $(23)BB$VV$(23)"٭ϠŠҠ";: 800` VV$(24)BB$VV$(24)"PRESS BUTTON TO GO ON";:C0%0r C0%0 255 C0%1 C0%0: 256 VV$(23)BB$VV$(24)BB$;  VV$(23)(FF$,QF)VV$(2 (RR((((ZZ((( OVED YOU AS PILOT.":I(GL$): 50: " WITH LUCK, Z 53265,0: _ 53265,91:8 b *** ACTION LOOP ***_ dTMTM1: TM1 70: QS1 275 i C4%0 60: QF1 270 n C4%0 C5%0 200 xC0%0:C5%0 SP%0 28 !$)6"x0 >> 0x INATISUL  I0 1999:: 2801 VV$(24)"ԠƠҒ";: I0 1999:OSP%0: 90: ES,0: 40768 56578,(56578)3: 56576,((56576) 252) 3 53272,20: 648,4: ""; 95: " "GB$" HAS REM  . . . . . * . * * . . .  ,173,9,148,141,11,148,108,12,148  *** SET SHAPE 0 ***' XB39040:XE39057: 20m 173,35,148,208,9,172,75,148,185,63,148,141,248,131,32,64,153,96 ** SPRITE 0 COLLISION ROUTINE XB39072:XE39111: 20 173,52,148,240,16,173,30,208, 304 34816 512: J0 448 64: K0 20) A: IJK,A:$* K21 63: IJK,0::: 3985:A* ** PLANET 1 SHAPE DATA* 0,40,0,0,175,0,82,191,192,82,175,128,2,191,128,0,171,0,0,40,0* 0,40,0,0,190,0,2,255,128,5,190,128,5,254,128,0 ,208,2,162,4,142,46,148,188,56,148,32,0,150(c END INTERRUPT ROUTINE%(d PLA,TAY,PLA,TAX,PLA,RTIB(e 104,168,104,170,104,64a( ** RESTORE VIDEO (UNSYS)|( XB40768:XE40792: 20( SET INTERR. VECTOR TO NORMAL HOUSEKEEPING, TIMED INTERRUPTS 0,192,0,170,0,0,40,0, 0,40,0,0,170,64,2,171,192,2,170,192,2,171,192,0,170,0,0,40,0Q, 0,40,0,5,171,0,6,175,192,2,171,192,2,175,192,0,170,0,0,40,0n, ** PLANET 2 SHAPE DATA, 0,40,0,3,170,192,62,170,148,162,170,143,42,255,252,2,255,192,0,40ORT SPRITE 0 BOUNCE/S% XB39248:XE39257: 20% C5%'& 160,45,173,41,148,41,254,145,45,96I& ** REPORT SPRITE 0 BOUNCE/Fd& XB39280:XE39289: 20n& C6%& 160,52,169,1,145,45,141,42,148,96&R *** WRAPUP ***&T XB40704:XE407485,74,63,223,252,3,223,192,0,20,0. 0,20,0,3,149,192,62,149,124,242,149,79,63,253,252,3,253,192,0,20,0g. 0,40,0,2,169,192,62,169,124,242,169,79,63,255,252,3,255,192,0,40,0. 0,40,0,2,170,0,42,170,188,162,170,143,63,255,212,3,255,192,0,40,0.* BASIC VARIABLE SUBROUTINES# XB39168:XE39174: 20 $ ** REPORT FIREBUTTON - C0%=$ 160,10,169,1,145,45,96^$ ** REPORT SPRITES TO BASICy$ XB39184:XE39222: 20$ C1%=EDGEWRAP, C2%=S/S COLLIS.$ 160,17,173,55,148,240,2,145,45,160** SPRITE 0 SHAPES ***/ ** SPRITE 0 DIRECTION TABLE0 I37952 37961: A: I,A:: 398570 16,20,0,22,23,21,0,18,17,19Y0 ** SPRITE 0 ANIMATION TABLEx0 I0 7: 38080I,16I:0 ** SPRITE 0 SHAPES0! I33792 34240 64:69,64,141,20,3,169,254,141,18,208"- CHANGE SCREEN POINTER AND QUITA". LDA#52 STA 53272 PLA TAY PLA TAX PLA RTIp"/ 169,52,141,24,208,104,168,104,170,104,64"7 I35840 35903: I,0:"< XB39488:XE39510: 20"= CLEAR INTERR.FLAG, RESET V15,30,56,112,961, 0,7,124,248,124,7,01- 96,112,56,30,15,12,42 ** SPRITE MOVEMENT DATA62 X0: I37944 37951: I,X:XX2:b2 X1: I37962 37976 2: I,X:XX2:2 I37963 37977 2: A: I,A:2 0,5,6,10,9,0,0,02 I37141,41,148,41,1,240,6  32,80,153,76,208,152G  173,53,148,240,13,173,31,208,41,1,240,3,32,112,153,76,208,152,96Z  ** UNMOVE **u  XB39120:XE39148: 20  169,1,141,40,148,172,75,148,185,121,148,141,75,148  160,0,32,0,150,172,75,148,175,0,0,40,0+ 0,40,0,0,250,0,3,254,128,2,90,128,3,90,128,0,190,0,0,40,0I+ 0,40,0,0,234,0,3,250,128,3,229,128,3,229,128,0,250,0,0,40,0+ 0,40,0,0,170,0,3,234,80,3,170,80,3,170,128,0,234,0,0,40,0+ 0,40,0,0,170,20,3,170,212,2,170,128,2,17( SEI LDA 37888 STA 788 LDA 37889 STA 789) 120,173,0,148,141,20,3,173,1,148,141,21,3L) LDA#0 STA 53274 LDA#129 STA 56333 CLI RTS|) 169,0,141,26,208,169,129,141,13,220,88,96) *** SET UP SPRITE SHAPES ***) ** PLANETS) I34,0- 0,40,0,3,106,192,61,106,188,241,106,143,62,171,252,2,171,192,0,40,0H- 0,24,0,3,90,192,61,90,188,81,90,143,63,234,188,3,234,128,0,24,0- 0,20,0,3,86,192,61,86,188,241,86,138,61,255,168,1,255,128,0,20,0- 0,20,0,3,85,128,61,85,104,241,1: 20&U ** SET COLLISION VECTOR'V X40704: 37900, LO(X): 37901, PG(X)N'\ 173,30,208,141,49,148,173,31,208,141,50,148,32,16,153i'] MOVE THE NEXT PLANET'^ LDX 37934 DEX BNE+2 LDX #4 STX 37934 LDY(37944),X JSR 38400'_ 174,46,148,202 3985. ** SPRITE ANIMATION TABLES/ I38088 38112 8: J0 7: A: IJ,A::-/ ** ANIMATION TABLE DATAK/ 24,25,26,27,28,29,30,31i/ 32,33,34,35,36,37,38,39/ 27,26,25,24,31,30,29,28/ 37,36,35,34,33,32,39,38/ *,24,173,49,148,240,2,145,45$ C3%=S/FOREG.COLLIS.!% 160,31,173,50,148,240,2,145,45Q% 169,0,141,49,148,141,50,148,141,55,148,96j% ** REPORT MOVEMENT% XB39232:XE39241: 20% C4%% 160,38,169,1,145,45,141,47,148,96% ** REP J0 18 30" A: IJ,A: IJ1,0: IJ2,0:1# J21 63: IJ,0::: 39851% ** SPRITE 0 DATA41& 8,28,28,28,54,34,0P1' 6,14,28,120,240,48,32k1( 0,224,62,31,62,224,01) 32,48,240,120,28,14,61* 0,34,54,28,28,28,81+ 4,12,ECTOR, SET NEW SCANLINE#> LDA#15 STA 53273 LDA#0 STA 788 LDA#234 STA 53266R#? 169,15,141,25,208,169,0,141,20,3,169,234,141,18,208#@ SET SCREEN POINTER, JUMP TO ANIM. SHELL#A LDA#4 STA 53272 JMP 38144#B 169,4,141,24,208,76,0,149# * 978 37992 2: A: I,A:2 50,43,43,43,43,43,43,43 3 I37979 37993 2: A: I,A:/3 231,242,242,242,242,242,242,242U3 I37994 38008 2: A: I,A:l3 23,0,0,0,0,0,0,03 I37995 38009 2: A: I,A:3 80,87,87,87,87,,185,121,148,141,75,148,96!' ** INTERRUPT HANDLER 1 **#!( XB39424:XE39449: 20B!) I36856 36860: I,48:z!* CLEAR INTERR.FLAG, RESET VECTOR, SET NEW SCANLINE!+ LDA#15 STA 53273 LDA#64 STA 788 LDA#254 STA 53266!, 169,15,141,25,208,1 37889,(789)XB38046:XE38079: 20P SET INTERR.VECTOR TO INTERR.HANDLER#1 AND SCANLINE 234 SEI LDA#0 STA 788 LDA#154 STA 789 LDA#234 STA 53266 120,169,0,141,20,3,169,154,141,21,3,169,234,141,18,208 HIGH BIT, ENABLE SCAN INTERR * XB38912:XE38972: 20 X38912: 37890, LO(X): 37891, PG(X)_ 173,0,220,141,45,148,41,16,208,8,169,1,141,39,148,32,0,153 173,45,148,41,15,201,15,208,3,108,12,148,73,15,141,75,148,32,128,152 160,0,32,0,150,32,160,152,173,4,148 * SPRITE POSITIONS ***+ I1 4: HT(I),20((9)220)H VT(I),50((9)190):S HR,0t ** PUT STARS ON THE SCREEN "";: I0 49: VB((9)1024),46: I0 8: VB((9)1024),42: ** STARSHIP POSITION 53248, 90,0,208,232,138,217,107,148,208,3,32,146,151,138,153,0,208,96d 173,48,148,208,4,202,76,247,149,190,106,148,232,32,180,149,76,247,149 *** RIGHTMVE (HI BIT CLR) ***XB38848:XE38861: 20 190,0,208,232,208,3,32,170,149,138,153,0,208,9** INITIALIZE VALUES *** "";% 53281,03 53280,0j CT(0),7: CT(1),5: CT(2),2: CT(3),6: CT(4),12 *** ML TABLE SETUP *** 37920,4: 37921,4 37922,1 37923,0 37924,1: 37925,1 37936,1 3794,138,217,91,148,208,3,32,210,150,138,153,1,208,96Ov 173,48,148,208,4,202,76,247,149,190,90,148,232,76,247,149s *** LEFTMOVE (HI BIT SET) ***XB38656:XE38669: 20 190,0,208,202,16,3,32,180,149,138,153,0,208,96 *** LEFTMOVE (HI B  95: 37952,0: 37953,0  65126@ V *** ARRANGE MEMORY ***{ XVB32768: 56578,(56578)3: 56576,((56576) 252) 1 ZSB0: 53272,(SB16)4:SBVB1024SB \BBSB256: 648,BB c ** SPRITE COLOR TABLE dCT(0)53287: I1 7:CT(I2,128,150= 169,2,57,75,148,240,3,32,192,150JG 169,4,57,75,148,240,17,185,74,148,45,16,208,240,6mJ 32,0,151,76,44,150,32,64,151P 169,8,57,75,148,208,1,96,185,74,148,45,16,208,240,4S 32,128,151,96,32,192,151,96[ *** UPMOVE SUB_ 53265,91:) b *** ACTION LOOP ***C d C0%0 C0%0: 300M 100k * *** END HANDLING *** + ** PUT VIDEO MEMORY BACK TO FIRST BLOCK, AND SCREEN MEMORY TO 1024 , 90: ES,0: DISABLE SPRITES 0 RESTORE VIDEO/SCREEN MEMORY*38227,148 *** MOVEMENT COUNTER ***+XB38272:XE38288: 20WX38272: 37896, LO(X): 37897, PG(X){ 37898, LO(X): 37899, PG(X) 206,36,148,240,3,108,12,148  173,37,148,141,36,148,108,2,148  ** BITSET SUBROUTINE **., DISABLE TIMER INTERR., QUITL LDA 53265 AND#127 STA 53265 LDA#1 STA 53274 STA 56333 CLI RTS 173,17,208,41,127,141,17,208,169,1,141,26,208,141,13,220,88,96 *** ANIMATION SHELL ***XB38144:XE38176: 20 206,32,148,240,3,10,141,10,148 173,5,148,141,11,148,108,12,148' *** INTERR.MOVE.HANDLER ***B XB38976:XE39009: 20h 37892, LO(XB): 37893, PG(XB) 160,0,32,0,150,32,160,152 206,40,148,208,243,173,38,148,141,40,148 173,8,148,141,10,148175: 53249,150 ** STARSHIP DIRECTION* VB1016,16MLL$""BL$" ":BL$BL$BL$" " *** MACHINE LANGUAGE *** ** STARTUP SYS ROUTINE 37888,(788): 6_ *** BASIC MOVEMENT HANDLER ***` XB38336:XE38346: 20Ec 160,59,177,45,170,188,56,148,76,0,150{ ** REPORT NON-SPRITE-0 WRAPS AND EDGES TO BASIC XB38391:XE38399: 20 192,0,208,1,96,140,55,148,96 *** READ JOYSTICK **0,1 37941,0 37926,3: 37928,3= 37927,0: 37935,0: 37943,0_ 53282,1: 53283,7: 53284,9m 657,128s *** INTRO SCREEN *** ""14)"٠": 6)"ҠРӠǠĒ":: **IT CLR) ***XB38720:XE38756: 20G 190,0,208,202,138,217,106,148,208,3,32,82,151,138,153,0,208,96 173,48,148,208,4,232,76,247,149,190,107,148,202,32,170,149,76,247,149 *** RIGHTMVE (HI BIT SET) ***XB38784:XE38820: 20 1)CT(I1)1:/ fHT(0)53248: I1 7:HT(I)HT(I1)2:[ hVT(0)53249: I1 7:VT(I)VT(I1)2:h jHR53264u lES53269 n 53271,0: 53277,0: 53275,0: 53276,30 tEM53276 v 53285,15: 53286,7 { I0 7:BC(I)255BS(I): ~ *ROUTINE ***\XB38528:XE38561: 20K_ 190,1,208,202,138,217,90,148,208,3,32,146,150,138,153,1,208,96b 173,48,148,208,4,232,76,247,149,190,91,148,202,76,247,149o *** DOWNMOVE SUBROUTINE ***pXB38592:XE38625: 20s 190,1,208,232 1 56578,(56578)3: 56576,((56576) 252) 3I 6 53272,20: 648,4: 40768i h 37894,(45): 37895,(46) m 43,0: 44,128: 45,255: 46,159 r "@0:GYPSY VIDEO",8,1 w 43,1: 44,8: 45,(37894): 46,(37895) | 657,0: 792,71: 808,237 XB38314:XE38323: 20% 185,74,148,13,16,208,141,16,208,96E ** BITCLEAR SUBROUTINE **`XB38324:XE38335: 20 185,74,148,73,255,45,16,208,141,16,208,963 *** XMOVE ***4XB38400:XE38467: 207 169,1,57,75,148,240,3,3 8,10,148  173,33,148,141,32,148C 206,34,148,208,5,169,8,141,34,148,174,34,148,202Z 173,35,148,240,6A192:B248: I38177 38219 6: I,189: I1,A: I2,148 I3,141: I4,B: I5,131:AA8:BB1: 38225,108: 38226,10: # << COMMTX - TRANSMIT TO IBM? - COMMODORE PROGRAM -V - -- COMMTX --p - RUPERT REPORT #24 - THE IBM CONNECTION - 2,2,0,(8)(0) K$ : K$"" 202,K$; : K$;( 20$ << COMMRX - RECEIVE FROM IBM@ - COMMODORE PROGRAM -X - -- COMMRX --r - RUPERT REPORT #24 - THE IBM CONNECTION - 2,2,0,(8)(0)#2,R$ : R$"" 20 R$;( 20 & << COMMHS - HANDSHAKE WITH IBMB - COMMODORE PROGRAM -Y -- COMMHS --q RUPERT REPORT #24 THE IBM CONNECTION 1200 BAUD, 8 BITS/CHR, 1 STOP BIT, NO PARITY 2,2,0,(8)(0)CR$(13)  CLEAR THE RECEI )dMP828:KEY882:BY254:TL13776:CS0?f"DATA CLOAK"Ph K:K0108ojCSCSK:MP,K:MPMP1:104l CSTL "ERROR="CS:154n"OKAY":KEY:KEYKEY1p"ENCRYPTION KEY": KY$:KY$""154r"SOURCE FILENAME": N1$:N1$""154* 15,"I"# 2,8,2,N1$:158:DK$:ER1547 "OPENING ";N2$Y 3,8,3,N2$:158:DK$:ER154 LP1(KY$):KEYLP,((KY$,LP,1)):LP KEYLP,0:"CRYPTING WAIT" ER1 #2,Q$: STATUS 64 ER0 K0:Q$""146 K(Q$) BY,K:8289,179,122,138 121,254,135,026,2109 054,054,121,203,129S 112,234,120,051,103m 235,129,026,211,070 255,129,211,121,255 134,211,122,210,235 129,178,186,086,170 131,054,152,134,169 093,141,002,003,169 d"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B9)0)"";A;"- "PR$ B2 175 150 A2 :A0 (L$,21)" DISKS REPRODUCED WITH" (L$,22)" ; 631,13: 632,13: 198,2:3  VIC BUG REP,VIC CLOAKY"aL$""wAA1:BB1: PR$ (L$,B9)0)"";A;"- "PR$ B2 175 150 A2 :A0 (L$,21)" DISKS REPRODUCED WITH" (L$,22)" $ "":53280,0:53281,15:646,1S" *+*+*+*+* AHOY! NEWS *+*+*+*+*"]::" AVAILABLE AS OF THE DECEMBER"(" 1985 ISSUE, WILL BE THE BEST"2" GAMES DISK AND THE BEST" <" UTILITIES DISK. THESE FULLӌ " 1985 ISSUE WILL BE THE BEST"R " OF 1985 DISK, WHICH WILL INCLUDE"{ " THE BEST PROGRAMS PUBLISHED" " IN 1985. WATCH FOR OUR TIME" " BARRIER ADD FOR DETAILS."BEST" <" UTILITIES DISK. THESE FULL$ "":53280,0:53281,15:(14)S" *+*+* OUBLE OFTWARE EWS *+*+*"Y" OUBLE OFTWARE THE COMPANY"(" THAT BRINGS YOU THE HOY! ISK"2" EVERY MONTH, TOGETHER WITH" <" MERICAN NTERNATIONAL OMPU *** VIDEO SETUP ***D CREATES 'GYPSY VIDEO' FOR 'GYPSY't 55,255: 56,127: 643,255: 644,127: ""F$" ":C0%0:C1%0:C2%0:C3%0:C4%0:C5%0:C6%0:SP%0 PG(X)(X256): LO(X)X256((X256)) 90: 600 "";: VE BUFFER) #2,R$ : ST8 ST0 30D # =-= MAIN LOOP =-=^ (#2,R$ : R$"" 40k 2M$M$R$ < R$;: R$CR$ 80 F 40 K - TRANSMIT HANDSHAKE MESSAGE - PT$"MESSAGE #"((M$))" RECEIVED" Z2,T$ : M$"" : t"FILE TYPE (P/S/U)": SF$:SF$""SF$"P"P v"NEW FILENAME": N2$:N2$""154 x"FILE TYPE (P/S/U)": NF$:NF$""NF$"P" zSF$","(SF$,1)",R":NF$","(NF$,1)",W" |N1$"0:"(N1$,16)SF$:N2$"0:"(N2$,16)NF$ ~"OPENING ";N1$:15,8,:K(BY) 3,(K);:ER140- 158:DK$:ER154? " ALL DONE."O 2:3:15:a DISK ERRORS{ ER0:15,E1,E2$,E3,E4 DK$(E1)(32)E2$ E120ER1:DK$(18)DK$ 222,135,090,041,121 063,132,255,132,178 203,12003,141,003,003,169# 060,133,251,169,003= 133,252,160,000,132W 253,177,251,073,122q 145,251,200,192,054 208,245,169,114,133 251,169,003,133,252 096,255,-7 222,135,090,041,121 063,132,255,132,178 203,12 MSD SUPER DRIVES"7 (L$,24)1)"(C)ION INT'L INC."a (L$,19)1)"CHOOSE # OR RETURN";u AN$:AN(AN$) AN$"" B0: 100 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8"  "RUN":"" TER"1 F" RODUCTS, WILL BE MAKING AVAILABLE"Y P" TO ALL OF ITS CUSTOMERS HE" Z" OFTWARE UYS OF A IFETIME." d" LL YOUR FAVORITE GAMES, UTILITIES" n" AND BUSINESS APPLICATIONS FROM" " ALL THE BEST SOFTWARE  DISKS"1 F" WILL INCLUDE THE BEST GAMES AND"\ P" THE BEST UTILITIES EVER PUB-" Z" LISHED IN AHOY! SEE OUR TIME" d" BARRIER ADD FOR DETAILS AND" n" PROGRAMS." x: " ALSO AVAILABLE AS OF THE JAN."# COMPANIES"1 " LIKE PYX,RODERBUND,RECISION"Z " CCESS,BACUS,ICROPROSE AND" " CTIVISION WILL BE AVAILABLE" " AT UPER ISCOUNT RICES." " RINTER RIBBONS,BLANK DISKS AND" " OTHER ACCESSORIES WILL AL95: 700: 2000 900-  38046: 648,140E  ** ENABLE SPRITESj  I0 199:: ES,31: 36839,32  LL$BL$LL$"PRESS BUTTON TO CREATE 'GYPSY VIDEO'";: 100  ** LOAD SUBROUTINE  IXB XE: A: I,A:: ".";: Z 53265,0:  #"":53280,0:53281,6:646,1U" BUG REPELLANT INSTALLED "| X 49152 49488 : Y: X,Y:: 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177  251, 208, 3, 76, 138  ""*" BUG REP INSTALLED "N X 828 1023 : Y: X,Y:: 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230  251, 208, 2, 230, 25 8, 113, 251, 69, 254, 170K  138, 133, 253, 177, 251, 208, 226, 165, 253, 41{  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63# 32, 35  32, 0, 0, 0, 0, 08, 133, 253, 177, 251, 208, 226, 165, 253, 41{  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32c  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138! SANTA'S BUSY DAY, GEORGE TREPALD 2650 ALTURAS ROAD\( BARTOW, FL 338302" DO YOU WANT AN ASY OR A EGULAR"7" GAME?"<A$: A$"" 60FA$: A$"" 70P A$"E" 828,1ZC896: CT44: 53280,0 208, 2491  96, 32, 205, 189, 169, 13, 32, 210, 255, 32c  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138!1 :100' C1000 C49152: 1002 49160y  00150000AA8002AAA009555806AAA40A596806FBE405EB94055554016A500159  500255600A95A82AA6AA2AAAAA29AA9A19AA9915AA95156A55055554015550ZZ 0100D8FFFFFF2800A9008D49038D4C0385FBA90C85FCA000A92, 2, 230, 64, 230>  251, 208, 2, 230, 252, 76, 11, 192, 169, 153p  160, 192, 32, 30, 171, 166, 63, 165, 64, 76  231, 192, 96, 76, 73, 78, 69, 83, 58, 32  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83, 5AA85FDB901C065AB85FEA000B1FDCD4303D0128A91j FDA92091AAA5FD85FBA5FE85FC4C63C0E88A2903C5ADD0BCB1FBAAA92091FBE0 04F01A8A0AA8A20238A5FBF900C085FBA5FCF901C085FCCAD0EE4C63C0A90F8D 48038502A9068D20D08D21D020F2C04C10C1A502A0009900D89900D99900DA, 192, 230, 251, 208, 2E  230, 252, 76, 43, 192, 76, 73, 78, 69, 32u  35, 32, 0, 169, 35, 160, 192, 32, 30, 171  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 232, 169, 244, 160, 3, 32I  30, 203, 160, 0, 177, 251, 170, 230, 251, 208|  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165, 253, 160, 0, 170, 177, 251  201, 32, 240, 6, 13, 208, 2, 230, 64, 230A  251, 208, 2, 230, 252, 76, 74, 3, 169, 236q  160, 3, 32, 30, 203, 166, 63, 165, 64, 32  205, 221, 169, 13, 32, 210, 255, 96, 230, 251  208, 2, 230, 252, 96, 0, 76, 73, 78, 69  83, 58, 32, 0, 76, 73, 78, 69,FD38A5FDE9F085FDA5FEE90085FEE8E0[ 03D0BBEE3F03AD3F03C928D01218A5FD69F085FDA5FE690085FEA9008D3F0318 A5FB690185FBA5FC690085FCA5FCC920D08AA5FBC900D084A9A08D4203A9FF8D 0FD4A9808D1BD4A2D2A000AD1BD4C92730F9C99010F585FCAD1BD485FBB1FBCD0 4303F0E7AD420391FBCAD0DFAD4203C953F00AA9538D4203A2024CCBC1A204A9wƒ 309DC107CAD0FA200DC24C1DC2A220A95B9DC707CAD0FAA9018D4F0360A9988D ƒ 4403A9218D4503A9008D4603A90F8D18D4A9018D1CD08D15D0A9B08D00D0A98C@ƒ 8D01D0A9028D27D0A90E8DF807A9018D25D0A90A8D2@ d D$: L(D$): ""8)"COUNTING DOWN TO ZERO ";^ iCTCT1: CT: 53281,CT{ n J1L 2: M$(D$,J,2) xH$(M$,1): L$(M$,1) H(H$)48: H10 HH7 L(L$)48: L10 LL7 PH16L: P255 200 C,P: CC 113, 251, 69, 254, 170, 138, 76, 88, 192, 0O 0, 0, 0, 230, 251, 208, 2, 230, 252, 96 170, 177, 251, 201, 34, 208, 6, 165, 2, 73 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169 13, 76 091FBC8D0FBE6N FCA5FCC99FD0F1A9568D4303A95185FBA92885FDA91285FC85FEA99320D2FFA2 @ 00A000AD430391FDC8C027D0F918A5FD692885FD9002E6FEE8E051D0E4A000A9 ` 0491FBA9FF8D0FD4A9808D12D4AD1BD4290385ADAA0AA818B900C065FB85AAB9# 01C065FC85AB18B900C06240, 6, 2016  80, 208, 245, 230, 254, 32, 210, 255, 169, 4j  166, 254, 160, 255, 32, 186, 255, 169, 0, 133  63, 133, 64, 133, 2, 32, 189, 255, 32, 192  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1, 99? 00DBC8D0F1A228A90D9DC0DBCAD0FA60AD43038D4F128DCF1EA9208D76128D50 128D801E8DA61EA90085FB8D3F03A9FF85FDA91285FCA92385FEA000A20018A5 @ FD690185FDA5FE690085FEB1FB91FD18A5FD697885FDA5FE690085FEB1FB91FD` 18A5FD697885FDA5FE690085FEB1FB910, 254, 32, 37, 193B  234, 165, 253, 160, 0, 76, 13, 193, 133, 253v  177, 251, 208, 237, 165, 253, 41, 240, 74, 74  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, 63, 208A @ lDECEMBER AHOY!852A64 BUG REPVIC BUG REPINSTA BUG 64 FLANKSPEED F-SPEED OVERCOMMHILOCOMMTXCOMMRXKKCOMMHSSANTA'S BUSY DAY VIDEO SETUP-PLANET SETUP.GYPSY3 GYPSY VIDEO! GYPSY PLANETS'JEWEL QUESTKK GAMELOADERC64 CLOAK VIC CLOAKDIR MANIPULATOR SKETCHER.O SKETCHER.SBLACKBOARD.OBLACKBOARD.S KKSKETCH BOOTBLACKBRD BOOT MENU C-64VIC-MENUAHOY! NEWS  DOUBLE L NEWSKKKKKKKK 53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ ( (2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADA 4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 " 1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":11008"@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:307081200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN S 4,4. 4," "S 4," "x 4," " 4," Ϸ "4," SAVE "4," " 4,"  "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4," ) << COMMHILO - HI-LO GAME WITH IBME - COMMODORE PROGRAM -] -- COMMHILO --u RUPERT REPORT #24 THE IBM CONNECTION (147) 2,2,0,(8)(0)N((0)1048576)N$(N)( 2000! 2 (R$,13)"PICK A N: 80J T$"THAT'S RIGHT! MY NUMBER IS "G$". YOU TOOK"(NG)" GUESSES."^ 1000 : 2000 T$"YOU'RE WELCOME." : 1000 >WAIT TILL DONE TRANSMITTING< (673) 1 160 2 : 2,T$ : TRANSMIT T$  R$"" :54272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,T1EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134)(20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY"::::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$ A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:TCAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4," ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4,"  UMBER" T$"WHAT?" : 1000 : 40= <T$"ALL RIGHT" : 1000Y F"( MY NUMBER IS";N;")"n P 2000 : NGNG1 ZG$(R$,6) :V(G$) :G$(V) d G$N$ 130 n VN T$G$" IS TOO HIGH" : 1000 : 80 x VN T$G$" IS TOO LOW" : 1000 b RECEIVE R$ #2,A$: A$"" 20105  A$(13) 2040K R$R$A$ : 2010X  R$ : 2000 : NGNG1 ZG$(R$,6) :V(G$) :G$(V) d G$N$ 130 n VN T$G$" IS TOO HIGH" : 1000 : 80 x VN T$G$" IS TOO LOW" : 1000   *** PLANET SETUP ***D MAKES 'GYPSY PLANETS' FOR 'GYPSY'] 53265,(53265) 64 2,8,2,"GYPSY PLANETS,SEQ,WRITE" * PLANET NAMES *B$"":B0:X$(13) A$ A$"XXXXX" 2,A$: 50 45:2,A$: A$BB1: 16C  AYA,BURYAT,KHALKHA,AIMAQ,PRADESH`  PANDIT,KALASH KAFIR,BORUSH,SHERPA,LEPCHA,GURUNG,NEPHILIM,THAI  PERSIA,BACTRIA,SARDIS,LACONIA,ETRURIA,DALMATIA,VENETIA,DACIA  IBANA,MAORI,WIKMUNGKAN,WALBIRI,JIGALONG,KUKUKUKU,GOILALA,ARAPESH!  YAP,FANG, BAHIA,AMAHUACA,AYMARA,AINU,YANOMAMO,OTAVALO,GUAJIRO,KOGIr ! COSTENOGA,CHEROKEE,DAKOTA,HOPI,SHOSHONE,QAPAW,WACO,KICKAPOO " WAMPANOAG,CADDO,SHAWNEE,CREEK,APACHE,PUEBLO,NAVAHO,ARAPAHO # ACADIA,MANCHURIA,TIBET,SHOGUN,HAKKA,TAIPEI,HUNAN,HMONG1 $NNEGUT:( YOLEN,NORTON,BRUMMET,BOVA,ASPRIN,TURTLEDOVE,RUCKER,LIAVEK}) SWANWICK,SHINER,VAN NAME,WYLDE,FOWLER,SHEPARD,MEACHAM,SCHIFF* FERMAN,MOYNIHAN,IACOCCA,MINAS GERAIS,MOAB,EDOM,CANAAN,SUMER + BABYLON,BILOXI,MISHAWAKA,SCHOLZ,MAYHAR,CARTHD BY HUMANS,POPULATED BY ALIENS$; ** GYPSY NAMESL< K0 32: A$: 45:2,A$: K,A$:A RANA,MARA,MISHAK,DOC,GRANNY,VISH,FINGERS,HOPPER,LOOP,DRAM,HACK,POCKB WILL,ALEC,BOOKER,CLAM,FIZZ,IGOR,JACQUES,KING,NOOSE,OPAL,QUINK,RABBIT"C SHAKERATHg SET OFF AN AVALANCHE AND WAS CRUSHED^h A PURE VEIN OF PLATINUM,A CLIFF CARVED WITH AN ALIEN LANGUAGEi THE ORIGINAL VOYAGER SPACECRAFTj A THICK IMPENETRABLE LAYER OF VINES AND FERNSk WAS DEVOURED BY A MAN-EATING PLANT,SANK INTATH IN THE WIND;q WAS EATEN BY A HUGE DUSTWORM,A PATCH OF EUPHORIA-CAUSING DUSTr A NEW SPECIES OF OXYGEN-MAKING MICROBE,DIAMONDS EXCRETED BY DUSTWORMSt A SURFACE ENTIRELY ENCRUSTED WITH DAZZLING CRYSTALSu FELL AND WAS CUT TO RIBB WAR(z DIED OF RADIATION POISONING,WAS KILLED BY A MUTATED VIRUSl{ TRIGGERED AN ANCIENT LANDMINE,A SCULPTURE OF INEFFABLE BEAUTY| THE HISTORY OF A LOST CIVILIZATION,A MUTATED SPECIES OF SENTIENT RAT~ THE DUSTY RUINS OF A SPECIES THAT LE  A VAST OCEAN WITHOUT A SPECK OF LANDQ WAS PULLED INTO THE SEA BY A HUGE SQUID,DRANK THE WATER AND DIED WAS COVERED BY A HIDEOUS ALGAE AND DRIEDUP IN MOMENTS SWIMMING OYSTERS WITH GIANT PEARLS,IVORY TUSKS FROM DEAD NARWHALS  A SPECIES OF GRAIN THAT GROWS IN SALT WATERL A SURFACE RAVAGED BY VIOLENT STORMS AND SMOTHERING BLIZZARDS WAS CARRIED OFF BY THE WIND,WAS BURIED IN A SNOWDRIFT WAS GROUND TO POWDER IN A SANDSTORM,THE LOG OF THE LOST SHIP ENTERPRISE" ANDALUSIA,IBERIA,HIBERNIA,CALEDONIA,GALES,GAUL,LUSITANIA,ATLANTIS  MISERICORDIA,SALAMANCA,CATALONIA,LANGUEDOC,NAVARRE,SCANDIA,ULSTER,ZULU  KURDISTAN,ARMENIA,SAMARIA,GALILEE,SALEM,PLYMOUTH,ERITREA,OGADEN  HADRAMAWT,SHONA,NDEBELE,UZBEKSKBIAFRA,HAUSA,MALINKE,DOGON,DRUZIA,SHEBAa  KABAB,HOMR,MYCENAE,KNOSSOS,LATIUM,BILBAO,CANTABRIA,ROMANY  BOHEMIA,SILESIA,ESTONIA,LITHUANIA,FLANDERS,BRETAGNE,ORANGE,QUECHUA  OLMECA,TEOTIHUACAN,TIKAL,TITICACA,MACCHU PICCHU,GE,GUARANI,XINGU0  ROCANNON,ARRAKIS,MEDEA,TERMINUS,URTH,RAMA,TREASON,WORTHINGy % TRONDHEIM,NAUVOO,DESERET,EREWHON,RIVERWORLD,TROUT,INWIT,DANDELION & WOZNIAK,JOBS,BUSHNELL,TRAMIEL,POURNELLE,TURING,ASKY,UNIVAC ' NIVEN,BISHOP,O'NEILL,VARLEY,MARTIN,KESSEL,KILROY,VOAGE,KEIZER,POIUYT,XXXXX, CONVERT STRINGSD-D$"": I1 (A$):C$(A$,I,1)f.D$D$((C$) 192)::A$D$:{1 ** WORLD TYPES2 I0 5: A$:2,A$: I,A$:3 A SPACE STATION,A LARGE MOON,A SMALL ROCKY PLANET4 UNINHABITED,POPULATE,TOFF,ULLY,YACKITY,ZIPPER,KAGAN,THUMB,BLADE,GREGORIO>b ** UNINHABITED WORLDSc I0 9: A$,B$,C$,D$,E$,F$,G$:2,A$X$B$X$C$X$D$X$E$X$F$X$G$d I,A$:e COLD BARE ROCK WITHOUT WATER OR WINDf FELL INTO A CREVICE,GOT LOST AND FROZE TO DEO A HIDDEN BOG"l DIED OF VIOLENT ALLERGIES TO POLLENim A VINE THAT BEARS HIGH-CALORY FRUIT,SAP THAT HARDENS INTO JEWELSn AN INSECT WHOSE BITE CURES CANCERo A MILE-THICK LAYER OF DUSTp SANK INTO THE DUST AND DISAPPEARED,CHOKED TO DEONS,WAS CRUSTED OVER WITH CRYSTALS2v WENT MAD FROM THE PATTERNS OF LIGHT_w CRYSTALS THAT HOLD MEGABYTES OF MEMORYx LIVING CRYSTALS THAT PAINT WITH PURE LIGHT,HUGE EMERALDSy THE HIGHLY RADIOACTIVE HUSK OF A WORLD THAT DIED IN NUCLEAR FT TO VOYAGE AMONG THE STARSJ ATE A FRUIT THAT CAUSED FATAL DYSENTERY,WAS KILLED BY A CRAZED ROBOT FELL INTO A DISINTEGRATOR UNIT,A MATTER-DESTROYING DISINTEGRATOR THE SECRET OF INSTANT MATTER TRANSFER,A GALLERY OF PRICELESS PAINTINGS  A TREE WITH WOOD TOUGHER THAN STEEL,A PLANT THAT SYNTHESIZES HYDROGEN` A YOUNG PLANET WITH CONSTANT VOLCANOES AND EARTHQUAKES WAS CAUGHT IN LAVA,FELL INTO A GEYSER,CHOKED TO DEATH ON FLYING ASH A RIVER OF PURE PLATINUM,THE OLDEST METEO LER--AND FINALLY DISAPPEARED+ SMALL SINGULARITIES THAT ALLOW TIME TRAVELo GOLD FROM AN ANCIENT CARGO SHIP,A RADIATION-SUPPRESSION FIELD ** WORLDS POPULATED BY HUMANS I0 9: A$,B$,C$,D$,E$,F$,G$:2,A$X$B$X$C$X$D$X$E$X$F$X$G$ OPLE SCRATCH THE SOIL WITH STONE TOOLS= GOT ROMANTICALLY INVOLVED AND WAS KILLEDBY A FURIOUS FATHER GOT IN A QUARREL AND WAS MASHED WITH A STONE AX,CAUGHT A POX AND DIED A DOMESTICATED FLYING LIZARD,PRIMITIVE BUT LOVELY POTS,OPALS OF CUNNING ARTIFICE A COASTAL VILLAGE OF SEA-FARING TRADERSJ WAS CARRIED OFF INTO SLAVERY,WAS THROWN OVERBOARD WAS CAUGHT 'BORROWING' A JEWEL AND WAS TORTURED TO DEATH A SNAKE WHOSE VENOM IS SUBTLE AND STRONG,A SPECIES OF SUCCULEORFUL MOLD" A BRIGHTLY LUMINOUS FISH,THE LARGEST EMERALDS EVER FOUNDL" A HUGE CITY HOUSED IN A SINGLE MILE-HIGHBUILDING" FELL (OR WAS PUSHED) FROM A BALCONY,ARGUED WITH A COP AND WAS SHOT" WAS RUN OVER BY A CORRIDOR-TAXI,HIGH-POWERED R SPECIES OF SENTIENT TREE$ A MOSS THAT SYNTHESIZES HELIUM--AND FLOATSR$ AN ALGAE THAT SERVES AS A FAST AND POWERFUL COMPUTER$ A WHOLE TOWN LIVING IN A HUGE BASKET SLUNG UNDER A VAST BALLOON$ LIT A MATCH AND WAS IMMEDIATELY PUSHRS WHO WAGER ONTHE VICIOUS WYRMFIGHTS6& CAUGHT A DRAGON'S EYE AND BECAME LUNCH,WAS KILLED OVER A WYRMFIGHT BETo& WAS FORCED TO MARRY A LOCAL AND STAY ON THIS WORLD& DRAGONS' EGGS,HALLUCINOGENIC DRAGONS' DUNG& A SMALL DRAGON PARASITE TFROM MAMMOTH MILK( "A BREED OF SMALL, TOUGH, FAST, AND ALMOST SENTIENT HORSES"<(* ** WORLDS POPULATED BY ALIENS(+ I0 9: A$,B$,C$,D$,E$,F$,G$:2,A$X$B$X$C$X$D$X$E$X$F$X$G$(, I,A$:(- A RACE OF SENTIENT SQUIDS THAT TEND GARND THAT DWELL BY POOLS AND STREAMS-*2 DIED TRYING TO SEPARATE BODY FROM MIND,BECAME DEPRESSED AND CATATONICg*3 WENT MAD FROM DREDGED-UP MEMORIES OF PAST CRIMES*4 PROOF OF UNPROVABLE MATHEMATICAL PROPOSITIONS*5 THE SECRET OF FOL+9 ATE A TREE SLUG THAT REGENERATED 1000 TIMES INTERNALLY?,: RECORDINGS OF SONGS,AN ADVENTUROUS YOUNGSINGER OF SURPASSING TALENT,; AN 'UNSONG BIRD' THAT GENERATES A FIELD OF SILENCE WHEREVER IT GOES,< ON A PLANET OF DINOSAURS--A RACE OF WIRITE EVER FOUND+ A POOL OF SELF-REPLICATING PROTEINS--THEBEGINNINGS OF LIFE!q A GLASS-SMOOTH SURFACE COVERED WITH THE WRECKS OF OLD STARSHIPS SANK INTO THE SURFACE AND VANISHED,WAS SUCKED INTO A TINY BLACK HOLE GREW SMALLER AND SMAL I,A$: A TRIBE OF PRIMITIVE HUNTERS AND FRUIT- GATHERERS^ WANDERED OFF AND WAS EATEN,OFFENDED THE CHIEF AND WAS KILLED GOT FLEAS THAT CARRIED A DEADLY DISEASE IVORY,PELTS,ANTHROPOLOGICAL DATA A FARMING VILLAGE WHOSE PE A BRONZE-USING CIVILIZATION THAT BUILDS HUGE STONE MONUMENTSV WAS SACRIFICED TO A RAIN GOD,WAS CRUSHED UNDER A BLOCK OF STONE INSULTED A PRIEST AND WAS POISONED,MAGNIFICENT STONE SCULPTURES A SOFT AND BEAUTIFUL METAL ALLOY,GILT DAGGERSNT FISH ! BEAUTIFULLY DECORATED HARPOONS AND FISH KNIVESL! A PEOPLE WHO DWELL IN A VAST NETWORK OF CAVERNS AND BURROWS! WAS BURIED IN THE COLLAPSE OF A TUNNEL,ATE A POISONOUS MUSHROOM! GOT LOST FOREVER IN A LABYRINTH,AN EXQUISITELY FLAVOLLER SKATES# AN APHRODISIAC THAT WORKS,A PIVOTAL NEW BOOK ON PSYCHOLOGYU# A PEOPLE WHO LIVE IN THE TOPS OF HUGE DECIDUOUS TREES# STUMBLED ON A HIGH BRANCH,WAS EATEN BY A CARNIVOROUS SLOTH# WAS KIDNAPPED AND VIVISECTED,THE SEEDS OF AED OFF,WAS CARRIED OFF BY A ROC"% WAS EATEN BY ONE OF THE HUGE CARNIVORES ON THE SURFACEh% A PLANT THAT TURNS SUNLIGHT INTO USABLE HEAT,A DOMESTICATED BAT% CLEVERLY ENGINEERED WINGS THAT ALLOW HUMANS TO FLY% A FAMILY OF DRAGON BREEDEHAT CAUSES LOSTLIMBS TO REGENERATE%' A TRIBE OF HORSEMEN WHO TEND VAST HERDS OF WOOLLY MAMMOTHSf' WAS TRAMPLED IN A STAMPEDE,ANNOYED A NATIVE WITH A BLOWGUN' STOOD TOO NEAR A FLATULENT MAMMOTH AND SUFFOCATED' MAMMOTH IVORY,CHEESE MADE DENS UNDER THE SEA). BROKE AN AIRHOSE AND DROWNED,WAS HYPNOTIZED AND LURED INTO OPEN JAWSV)/ TOOK A SAMPLE OF CORAL THAT TURNED OUT TO BE SACRED)0 EXQUISITE BANSAI CORAL,PET SEAWEED THAT DOES TRICKS,SEABOTTOM SALMON)1 CREATURES OF PURE MI DED SPACE,A COMPLETE MAP OF THE UNIVERSE*+6 MONKEYISH TREE-DWELLERS THAT LIVE ONLY TO SING IN THE TREETOPSw+7 DIDN'T WEAR EARPLUGS AND WAS ENRAPTURED BY SONG--FORGETTING TO BREATHE+8 TRIED TO SING A DUET AND WAS PELTED TO DEATH WITH FRUIT SEBIRDS THAT NEVER LAND-= WAS STEPPED ON BY A BRONTOSAURUS,FELL INTO A BOG AND BECAME A FOSSILR-> TRIED TO STEAL AN EGG AND WAS PICKED UP AND DROPPED-? MIDGET HADRODONS THAT MAKE GREAT PETS,PERFUME-EMITTING DRAGONFLIES-@ XENOLOGICALLY FASC  PERMANENT ILLUSIONS TIED TO SMALL JEWELS,A FAST-GROWING LEGUME3/E A FERRET THAT IS INVARIABLY DRAWN TO HIGH INTELLIGENCE~/F A RACE OF SHAPECHANGERS WHO HAVE FORGOTTEN THEIR 'REAL' SHAPE/G WAS SHOT BY A GYPSY WHO THOUGHT IT WAS AN  UCKER,WAS TRAMPLED BY AN ANGRY HERD1L SAID SOMETHING SLANDEROUS ABOUT THE SUCKERS,SWEET-SMELLING DUNG\1M AN INTELLIGENCE-ENHANCING DISTILLATION OF SUCKER HORMONESv1N A SUCKER-EATING BAT1O TREES THAT GROW CLONES OF ANY CREATURE AS THEI BREATHING MOUSE3T A RACE OF CATS THAT KEEP DOGS AND MICE AS SLAVES--WHILE RATS REBELB3U WAS LOBOTOMIZED AND TRAINED TO FETCH FORTHE KING OF CATS3V TRIED TO PET A DOG-SOLDIER,WAS CARRIED OFF IN THE NIGHT BY A RAT PACK3W A DOG THAT CAN REPELY LUBRICATED BY A REPAIRBOT,BEAT THE WRONG ROBOT AT CHESS$5\ ORGANICALLY-GROWN POSITRONIC BRAINS,A METAL-PRESERVING FUNGUSQ5] FLEA-SIZED SELF-REPLICATING REPAIRBOTSY5 2_5S CARRIED OFF IN THE NIGHT BY A RAT PACK3W A DOG THAT CAN REPE *** GYPSY ***[ FILES 'GYPSY VIDEO' AND 'GYPSY PLANETS' MUST BE ON DISK! USE 'VIDEO SETUP' AND 'PLANET SETUP' TO CREATE THESE FILES 55,255: 56,127: 643,255: 644,127:  (TYPING THIS PROGRAM IS EASIER IF YOU GOSUB 95 ;3  38046: 648,140: VV$(23)BB$BB$" ";H  260: 33767,32m  I0 63: 35840I,0:: ES,31w  100 ' READ JOYSTICK (JY255(56320):JBJY 16 )JYJY 15: JY0 JB0 40 * 2I((0)I):* 7 I19 23: VV$ Z 53265,0: _ 53265,91:8 b *** ACTION LOOP ***_ dTMTM1: TM1 70: QS1 275 i C4%0 60: QF1 270 n C4%0 C5%0 200 xC0%0:C5%0 SP%0 280 100 IC5%:C5%0:C4%0:JI 10:KI 20 WP$(23)BB$VV$(23)"٭ϠŠҠ";: 800` VV$(24)BB$VV$(24)"PRESS BUTTON TO GO ON";:C0%0r C0%0 255 C0%1 C0%0: 256 VV$(23)BB$VV$(24)BB$;  VV$(23)(FF$,QF)VV$(24)(SS$,QS);: VV$(23)"ԠƠ̒";: "GN$(I)" CAN PILOT"3 " THE FAMILY TO FORTUNE--AND SURVIVAL!";^ VV$(24)"ӠΠϠŒ";t 40: JB0 287~' 300, ""VV$(10)"٠ο"VV$(12)"Կ";1 VV$(2)"CARGO VALUE \"(CV10000)2INATING FILMS OF MID- AIR REPRODUCTION#.A CREATURES THAT LIVE BY CREATING ILLUSIONIN THE MINDS OF THEIR PREYi.B TRIED TO CROSS AN IMAGINARY BRIDGE,WAS CAUGHT CHEATING AT POKER.C DID MAGIC TRICKS THE ALIENS COULDN'T DO AND WAS TAKEN PRISONER.DIMPOSTOR,GOT A FATAL ILLNESS 0H WENT HUNTING AND BAGGED THE WRONG PREY,A NET-SPINNING TREEK0I SHAPE-CHANGING PROTOPLASM,OZONE-EMITTING AIRBORNE SLIME0J CLUMSY GRASS-EATING BEHEMOTHS INFESTED BY SENTIENT BLOODSUCKERS0K WAS TAKEN OVER BY A SR FRUIT1P WAS DEVOURED AND CLONED 500 TIMES TO FORM A VILLAGE=2Q CLIMBED A HUNGRY TREE,CHOPPED DOWN THE CHIEF'S DAUGHTER FOR FIREWOODt2R A SEEDLING OF A TREE THAT COULD CLONE THE DEAD2S A FIBROUS PLANT WITH STEEL-LIKE THREADS,A FIRE-AT HOURS OF CONVERSA-TION WORD FOR WORD4X MICE TRAINED AS HAIRDRESSERS,PLANS FOR CATS TO TAKE OVER THE UNIVERSE^4Y ROBOTS THAT EVOLVED FROM AN ANCIENT STARSHIP SERVICE STATION4Z WAS CAUGHT WITH A DATA-ERASING MAGNETIC DEVICE4[ WAS MISTAKEN VV$(4)"SURVIVING CREW "((GL$))33LV10:XV10: I0 599:V4 VV$(XV)RX$VV$(LV)"":XVLVl5 40: JB0 3156(JY1)(JY2) 3097 LV10 LV12: 3088LV10: 308; LV12 370@GL$(PZ$,33):PY$(PZ$,TN)AGBIN DIRECT MODE RIGHT AWAY)S F$" ":C0%0:C1%0:C2%0:C3%0:C4%0:C5%0:C6%0:SP%0|  (37952)16 (37953)20 2000 VV$(24) 700: 2100 90: 600: "";: 95: 900:L(9) VV$(23)" "(I)" ";:; 8 VV$(19);:X <C4%0:FMFM1: FM0 >FMTS2:QFQF1: QF0 VV$(23)BB$;: @ VV$(23)BB$VV$(23)(FF$,QF);: FTMTS:QSQS1: QS0 VV$(24)BB$;: H VV$(24)BB$VV$(24)(SS$,QS);:1: I2 WP2: I4 WP3: I8 WP41 C0%0 230A J0 220^ QFQFLV: QF33 QF33x VV$(23)(FF$,QF);: QS17 QSQSLV: QS17 QS17 VV$(24)(SS$,QS);: WP 400,240,400,240: RP(WP)0 400) VV I0 1999:: 2801 VV$(24)"ԠƠҒ";: I0 1999:OSP%0: 90: ES,0: 40768 56578,(56578)3: 56576,((56576) 252) 3 53272,20: 648,4: ""; 95: " "GB$" HAS REMOVED YOU AS PILOT.":I(GL$): 50: " WITH LUCK,  DL(WP)5 DL(WP)3: 55: "Ϡ٢";: 507' DL(WP)7 (TR$)0 450` 55: HB(WP)1 "٭ΧԠРբ";: 507 "ϠˠàŠϠ٢";: 507 DL(WP)7 DL(WP)DL(WP)1: 542 55: "Š F(WP)4 EF(WP)EF(WP)1* 5070 FT0 56341 (DL(WP)6)(EF(WP)10) (TR$)0 565a2 55: "ϠӠȠӡ";: 507v3 DL(WP)4 5624 55: "Ԡԡ";:CVCVFT:FT0: 5075 55: "̠ԬӮՠԠ ӡ";: 507!? EF(WP)4 EF(WP)EF(WP)1: 572 55: "ԠԠŠĭ٠85!G DL(WP)8 440"HDL(WP)DL(WP)3:IDL(WP): 50: I3 440F"I "ŠΧԠŠլǠӡ": 507["J DL(WP)8 440"KDL(WP)DL(WP)3:IDL(WP): 50: I3 440"M 507"XVB32768: 56578,(56578)3: 56576,((56576) 252#p 53277,0#r 53275,0#t 53276,30 $v 53285,15: 53286,7*${ I0 7:BC(I)255BS(I):N$~ *** INITIALIZE VALUES ***Y$ "";g$ 53281,0u$ 53280,0$ CT(0),7: CT(1),5: CT(2),2: CT(3),6: CT(4),12$ *** ML TABLE  40768!VT(WP)1:DG$(PZ$,3):TR$(PZ$,HT(WP)):FT0S 56578,(56578)3: 56576,((56576) 252) 3j 53272,20: 648,4{ "";: 95 " YOU HAVE LANDED A GROUP OF GYPSIES ON" " "MM$(0,2RP(WP));: PN(WP)254 " NAMED "NM$(PN(WP1)"ԠˠϠŠ"VV$(12)"ΠӠԚ";(K9:LKF VV$(L)RX$VV$(K)RR$;:LK\ 40: JB0 431| JY1 KK1: K9 K12 JY2 KK1: K12 K9 KL 426 425 VV$(L)RX$;: K8 432,435,480,470! IT'S AWFUL! ";I(GL$): 50: GN$(I)" JUST"V 875: (GL$)5 SP%1: VV$(23)" TOO MANY LOST, PILOT!"; AM$(PD(WP),HB(WP),((DG$,1)),0)"";I(DG$): I2 446DG$(DG$,I1): HB(WP) 507,507: 424 VV$(24)"ӠTFTI FT0 FT1I(TR$): I1 TR$"": 457+TR$(TR$,I1)H HB(WP) 507,507: 424]SP%1: 90: 490f 55 "Ǡנ"(GL$)VV$(20)"ϠŠ"CV10000 VV$(24)"ӠΠϠŠ"; I ȠŠ"VV$(14)"ˠҠ";C VV$(15)"ŠԠŠ"VV$(16)"ԠˠϠŠ";f VV$(17)"ΠӠԚ";rK9:LK VV$(L)RX$VV$(K)RR$;:LK 40: JB0 515 JY1 KK1: K9 K17 JY2 KK ** STARSHIP DIRECTION1 VB1016,161 ** SETUP STRINGS2BB$" "A2FF$"FUEL "m2SS$"Ӡ"}2QF33:QS332 I0 2:PX$(I)(PZ$,10):2 ** LE IDEO",8,134 2,8,2,"GYPSY PLANETS"4> NM$(254),GN$(33),MM$(1,2),PM$(10,2),AM$(10,2,2,1).4HTN0:NM$(254)"̠"V4R2,NM$(TN): NM$(TN)"XXXXX" 2145i4\TNTN1: 21304aPZ$"": I0 254:PZ$PZ$(I)::PY$(PZ$,TN):L(9) 5vA$""GB$"ӠĠƠŠٮ":L((42(A$))2)6wB$"": I1 L:B$B$""::A$B$A$: I(A$) 4216xA$A$""::: A$`6y " NOW THE COMPUTER WILL UPDATE ITS STAR"6z " CHARTS--AND THEN WE'RE ON OUR WAY!"6 I0 2: J0  SETUP ***$ 37920,4: 37921,4$ 37922,1% 37923,0% 37924,1: 37925,1)% 37936,17% 37940,1E% 37941,0% ** GO-SPEED TIMER (NUMBER OF SPRITE 0 MOVES PER INTERRUPT [1=SLOWEST])% 37926,3: 37928,3% 37927,0: 37935,0: 53265,(53265) 64: "";& 53282,7: 53283,9: 53284,1#' ""14)"٠Ԓ"::Q' " YOU HAVE BEEN CHOSEN TO PILOT THE"~' "FAMILY'S STARSHIP IN SEARCH OF WORLDS' "WHERE WE CAN TRADE, PUT ON SHOWS, AND"' "PERHAPS FINDDARE ATTEMPT?"( "٠Ӡ" ) "ĠԠԠ"M) "٠Š":: "(USE JOYSTICK IN PORT 2)";)VV$(0)"": I1 24:VV$(I)VV$(I1)""::RR$"=":RX$"":LV18)RR$"=":RX$"":LV18:XVLV)* " ӠӠ FOR HYDROGEN FUEL ":+ " ٠ FOR THE ELEMENTS THAT "N+ " SUPPORT LIFE--CARBON, OXYGEN, NITROGEN"~+: " YOUR JOB IS TO PILOT THE SHIP INTO"+ " STATIONARY ORBIT, SO IT FOLLOWS RIGHT"+ " AL A ";, " WHILE TO LOAD SUPPLIES ABOARD THE SHIP.",- RP(WP)0:J0(-%(WP2)(WP4) J(0)100e-' J88 RP(WP)1: J96 RP(WP)2:PN(WP)254:PD(WP)10-*HB(WP)((0)3): RP(WP)2 HB(WP)0 HB(WP)1-+DL(WP)3(6(0))LPX$(HB(WP))(PX$(HB(WP)),XQ(J),1):/W J1 PX$(HB(WP))(PX$(HB(WP)),I1):1/X JI PX$(HB(WP))(PX$(HB(WP)),I1):m/YPX$(HB(WP))(PX$(HB(WP)),J1)(PX$(HB(WP)),I(J1)):/\K(PY$):L1((0)K)/aPN(WP)((PY$,L,1))/d L1 PY0 I1 4: HH(I),20((9)220)0 VV(I),50((9)190):0 HR,01 ** PUT STARS ON THE SCREENI1 "";: I0 49: VB((9)1024),46:n1 I0 8: VB((9)1024),42:1 ** STARSHIP POSITION1 53248,175: 53249,1501 VEL OF PLAY2TS50: LV3 TS20: LV2 TS102TMTS:FMTS23XQ(1)2:XQ(2)1<3 VV$(23)" PAUSE A MOMENT FOR GARBAGE DISPOSAL ...";S3 WP1 4: 800:\3CV1b33 *** MACHINE LANGUAGE ***3 LOAD ML FILE3 "GYPSY V4f I0 1: J0 2:2,MM$(I,J)::4p I0 32:2,GN$(I)::GL$(PZ$,33))5q "ŠӠŠ٠٠"R5sGB((0)33):GB$GN$(GB):IGB: 875l5t "";: I1 32 25u ,GN$(((GL$,I,1))),GN$(((GL$,I1,1))):: ""; 9:2,PM$(J,I)6 K0 1: L0 2:2,AM$(J,I,L,K)::::7 I1 2: PM$(10,I): K0 1: L0 2(7 AM$(10,I,L,K):::27 2:q7 A SPANKING NEW SPACE STATION WITH A CREWOF LONELY HUMANS7 GOT WAYLAID BY SEX-STARVED CREW MEMBERS  37943,0% 53282,1: 53283,7: 53284,9& ** SAFETY PROCEDURES ***O& 657,128: DISABLE SHIFT/COMMODORE CHARACTER SET SWITCH& 808,234: 792,193: DISABLE STOP AND STOP/RESTORE&& *** INTRO SCREEN ***& 53281,0: 53280,4: SOME SPECTACULAR TREASURE.": ( " MOST IMPORTANT, THOUGH, IS TO KEEP<( "THE FAMILY SAFE. THERE ARE DANGERS OUT"j( "AMONG THE STARS. AND YOU MUST ANSWER"( "FOR ANY LIVES THAT ARE LOST."::( " HOW DANGEROUS A VOYAGE DO YOU  VV$(XV)RX$VV$(LV)RR$;:XVLV*JB0:JY0: 40: JB0 LVLV17: 731)* JY1 LVLV1: LV18 LV20N* JY2 LVLV1: LV20 LV18X* 726{* "ԠŠ"*: " THE SHIP'S COMPUTER WILL LOCATE PLANETS:":ONG WITH THE PLANET. FUEL AND" , " SUPPLIES ARE TAKEN ABOARD BY MACHINES.":8, " TO VISIT A PLANET, PRESS THE BUTTON"\, " WHILE IN STATIONARY ORBIT.", VV$(24)"ӠΠϠϠ";, 40, " YOU CAN TAKE A NAP NOW--IT TAKESVHB(WP):EF(WP)6(6(0))LVHB(WP)-,HT(WP)1(3(0)).4 RP(WP)2 %.6PVPV1: PV28 SP%1: 885F.9I(PX$(HB(WP))): I1 810^.>J((0)I)1: 860.CPD(WP)((PX$(HB(WP)),J,1)).H I2 855.M I1 PX$(HB(WP))"":.R $(PY$,K1):/e LK PY$(PY$,K1):/fPY$(PY$,L1)(PY$,K(L1)):!0k I0 GL$(GL$,(GL$)1):E0l I(GL$)1 GL$(GL$,I1):l0pGL$(GL$,I)(GL$,(GL$)(I1)):0u VV$(23)"ՠĠӠϠӭĠˡ"BB$;0z ) ***JEWEL QUEST*** BY BOB BLACKMER5(147)I52,48:56,48:_( RX(X)(X256)u2 TX(Z)XSX256<680:590:1590F56334,(56334)254:1,(1)251PI063:J07Z14336I8J,(53248I8J):J,I d1,(1)4:56334,(5 "5 L14:::" <========> <========>"f L15:::" <==================>" L15:::" <========> <========>" L14:::" <==>" "<===> ENERGY 99<========> LEVEL <====" 0)16:FR16250? ""7)" ":49437:V30,0e 49152:(679)XX4:679,0:P193 "(680)XX4:680,0:P197 ,(X25)(X340)X25 6((V1)50)((V1)240)V1,50 @2040,P:SXRX(X):LXTX(Z):V,LX:V16,SX:LV AND NOW REFUSES TO LEAVE7 STUMBLED ON ILLEGAL DRUGS AND WAS SHOT,WAS CAUGHT SELLING HOOCHH8 AN URGENT MESSAGE OF AN ALIEN INVASION,VITAL DATA ABOUT THIS SYSTEM8 A THRILLING NOVEL THE CREW HAS WRITTEN IN THEIR ENDLESS SPARE TIME8 AN ANHIC ABILITIES9 A STRUCTURAL BEESWAX STRONGER THAN STEEL : OBSERVATIONS OF THE BEES--INCLUDING THEIR MAGNIFICENT DANCINGSION,VITAL DATA ABOUT THIS SYSTEM8 A THRILLING NOVEL THE CREW HAS WRITTEN IN THEIR ENDLESS SPARE TIME8 AN AN"15)" ":V21,0814)" ":17)" ":220cF:S1,9:S4,17:JJ1:J11J1:480V21,1:V2,JX(J):V3,JY(J):V21,3:V30,0L110::S4,129:LVLV1:LV95302016,LV48:""7)"RELAX-PRESS FL A T I O N S ! !":L150170:S1,LO:F::K:S4,0:"PRESS ANY KEY TO PLAY AGAIN"fD198,0:198,1:160NV53248:S54272:CK0:L1228812350:A:CKCKA:L,A:XL1235212414:A:CKCKA:L,A:bL1254412606:A:CKCKA:L,A:l10:JX(L),JY(L):CKCKJX(L)JY(L):9CK3286"ERROR IN LINES 740-750":?pML49152:CK0:LMLML309:A:L,A:CKCKA:CK37116"ERROR IN LINES 1200-1580": 92,88,255,88,175,136,92,185,255,185,175,224,113,136,234,136 2,136,136,136,34,32R 32,0,32,0,0,128,0,2/\ 20,0,8,40,0,32,40,0Kf 128,80,0,32,80,0,8,80dp 0,0,112,0,2,84,0,0z 85,0,0,169,64,0,33,64 0,137,64,2,2,120,8,0 156,32,0,32,168,0,42 34,34,32,162,162,34,170,170 186,8,32,32,0,8,0,1 66,0,0,160,128,0,160,32* 0,80,8,0,80,32,0,80E 128,0,112,0,1,82,0,5a 80,0,20,168,0,20,32,0~ 20,136,0,242,2,0,232,0 128,32,0,32,168,0,42 8,136,136,162,34,34,72,136 138,0,32,0,0,8,0,1 66,0,0,1606334)1* n"BY THE WAY, GOOD LUCK!"Z x53272,((53272)240)14:53270,(53270)16 CK0:CH5962:BY07:N:CKCKN 14336(8CH)BY,N:BY,CH:CK3205"ERROR-LINES 1160-1190": 710 53281,0:53280,0:53282,2:53283,5:"":":2023,62C Y1170:X176:V2,JX(1):V3,JY(1):2041,198:P193:J1:LV1} C54272:F49241:700,0:701,39:702,57:703,58:704,0 2016,LV48:2016C,5:V1,Y1:V21,2:1997,57:1998,57 ""7)"PRESS FIRE BUTTON TO START":V21,3 FR(56327F J(V31)249348:(704)3702 T(V30)3450I ^AN$:AN$""500R h280 r198,0:1998,48:""15)"GAME OVER" |14)"PLAY AGAIN?":17)"(Y/N)" 198,1:AN$ AN$"Y"430 AN$"N"828,0:828 390"CIENT ALIEN ORBITAL VESSEL WITH A CREW OF GIANT SPEECHLESS BEES9 WENT EXPLORING--FOUND THE QUEEN AND WAS STUNG TO DEATHf9 TRIED TO BREATHE THE ALIEN AIR,WAS KIDNAPPED AND USED FOR LARVA FOOD9 A KIND OF HONEY THAT GIVES TEMPORARY TELEPAT,128,0,160,32  0,80,8,0,80,32,0,80& 128,0,112,0,1,82,0,5B 80,0,20,168,0,20,32,0_$ 20,136,0,242,2,0,232,0z. 128,32,0,32,168,0,428 0,32,0,0,184,0,2,254B 0,0,184,0,0,32,0,0L 0,0,0,0,0,0,0,0V 0,0,0,0,0,0,0,0` 03 TO CONTINUE"$198,0:198,1:P$:P$""510[""7)" ":49437:oS4,17:K110"C O N G R A T U L A T I O N S ! !"&L2002010:F:S1,L:L:S4,330"C O N G R A T U L1260812670:A:CKCKA:L,A:4vL1267212734:A:CKCKA:L,A:`CK13468"ERROR IN LINES 760-1150":V28,3:V37,15:V38,7:V39,12:V40,1LSS24:L,0::S1,200:S5,16:S6,64S18,129:S14,5:S24,15:CK0:L1 113,185,234,185 34,34,32,162,162,34,170,1709 186,8,32,32,0,128,0,2S  20,0,8,40,0,32,40,0o 128,80,0,32,80,0,8,80  0,0,112,0,2,84,0,0* 85,0,0,169,64,0,33,644 0,137,64,2,2,120,8,0> 156,32,0,32,168,0,42H 34,34,3 IGHT.";&h" TO FLY UP PUSH THE FIRE BUTTON. TO GET A JEWEL JUST TOUCH IT ";rr"WITH YOUR LANDING PODS. DONT TOUCH THE VELVET ON WHICH THEY SIT ";|"OR THE ROBOT GUARDS WHICH PATROL FOR THEY SAP YOUR ENERGY."4)"PRESS F1 TO & ******************************K * DIRECTORY MANIPULATOR INIT *p ******************************(""9)"DIRECTORY MANIPULATOR"25)"INSERT DISKETTE TO MANIPULATE":1430<F$(144):I111:FL$FL$(0)::TY$(131)(18)(0 12)" DISK UNIT OK !"6 **************************W * READ DIRECTORY ROUTINE *x ************************** 2,8,2,"#" 15,"U1";2;0;T;S 1550 #2,T$,S$: * TRACK & SECTOR OF NEXT DIR ENTRY * T(T$(0)):S(S$