U$ NEXT & DEF LINE $ T=0 10 CLS 30 PRINT "NAME" 50 FREAD "MUSIC";G$ 51 T=T+1: IF T=15 THEN ($fd): ELSE ($fc):($fa) REM REM line numbering breaks here! REM y 55 IF EOF ("MUSIC")=1 THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM l 60 PRINT G$:($fb) REM REM line numbering breaks here! REM  70 CLOSE 1 80 END 100 XX$= INKEY$ : IF XX$="" THEN ($fd): ELSE ($fc):($fb) 9376 REM REM line numbering breaks here! REM eT=0 $ DELETE 44 END REM REM line numbering breaks here! REM END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11404 9880 $, DIM 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 WIZAWRITE QUICK BROWN FOX BUSIWRITER 64 FORTH Q*BERTH FROGGER POPEYE JAMES BOND 007 GYRUSS TURTLE GRAPHICS II BRIGDE MASTER BRIGDE 64 THE MUTANT SPIDERS THE FORTH SARCOPSHAUGS CENTIPEDE PAC MAN DEFENDER DIG DUG DONKEY KING ROBOTRON POLE POSITION JUNGLE HUNT MOON PAROL DRELBS CHOPLIFTER SERPENTINE SEA FOX LODE RUNNER JUMPMAN JR. GATEWAY TO APSHAI PITSTOP 1 MAZE MASTER ROOTIN TOOTIN THE PIT TYPE'N WRITER MASTER TYPE STAR TREK BUCK ROGERS CONGO BONGO ALF IN THE COLORCVES BUBBLE BURST JUKE BOX AEGEAN VOVAYE ADVENTURE CREATOR RANCH ERNIE'S MAGIC SHAPES BIG BIRD SPECTIAL DELIVERI DELTA MUSIC DELTA DRAWING STORY MACHINE PEANUT BUTTER PANIC TIME BOUND HES WRITER MATH MILEAGE SEA HORSE HIDE'N SEEK CRISIS MOUNTAIN PIPES MOONDUST SPIT BALL SAVE NEW YORK OIL'S WELL THREE SHOLD SAMMY LIGHTFOOT MR.COOL FACE MAKER FRACTION FEVER COSMIC LIFE ALPHABET ZOO KIDS ON KEYS HES MON BUMBLE BEE RETRO BALL YAWBREAKER APPLE CIDER SPIDER GRIDRUNNER KINDER KOMD PIMBALL SPECTACULAR LAZARIAN MUSIC MACHINE MUSIC COMPOSER PAINT BRUSH JUPITER LANDER KICKMAN SEA WOLF SPEED BINGO MATCH CLOWNS VISIBLE SOLAR SYSTEMS OMEGA RACE LE MANS AVENGER SUPER SMASH FROG MASTER JANE P.P.S. CALC RESULT MUSICALC PRACTICALC RKD DATABASE DELPHI'S ORACLE SUPERBASE 64 EASY CALC RESULT MULTIPLAN SUPERTEXT PROFFESIONAL PAPER CLIP WORDPROSESSOR WORD PROCESSOR PROFF. DATABASE MANAGER WIZASPELL LEARNING BRIGDE MADE EASY INVENTORY MANAGEMENT FORTH 64 HOME ACCOUNTANT DIARY 64 CHESS KEN USTON PROF.BLACK JACK HOMEWORD BANK STREET WRITER SPEED READER II OMNI WRITER MERLIN 64 STEP BY STEP MILLIONAIRE TYCOON BARON S.A.M. MEMORY TRAINER PRACTICALC PRACTIFILE TIME MONEY MANAGER STAT 64 ULTIMA III EASY SCRIPT DISKEY COAST TO COAST PAINT WIZARD SPELL WIZARD SARGON III WITNESS PLANETFALL ENCHANTER INFIDEL SORCERER CHECKERS ODIN DATAMANAGER II WORDWRITER FLIGHTSIMULATOR II LETTER WIZARD ADVANSED REPORT FCM WORD ATTACK MATH BLASTER AERO BICS STOCK CONTROLL INVOICING SALES LEDGER PURCHASES LEDGER ATZEC CHALLENGE SUMMAR GAMES BASEBALL SEASTALKER KOALAGRAMES S. 1 LOGO DESIGN MASTER GLOBE GRABBER DINO EGGS SONGWRITER MASTER TYPE QUIZAGON OPERATION WHIRLWIND LOGHTWAVES STARFIRE/FIREONE DRAGONRIDERS OF PERN JUMPMAN TEMPLE OF APSHAI DUNZHIN BLADE OF BLACKPOOL REPTON CRITICAL MASS WAY OUT TYPE ATTACK BANDITS GRUDS IN SPACE TRAINS TIGERS IN THE SNOW BATTLE OF NORMANY KNIGHTS OF DESSERT COMBATS LEADER GEOPOLITIQUE EAGLES GOLF CHATERBEE MASK OF THE SON RINGSIDE SEAT SNOOPERTROPPS 1 IN SEARCH OF THE SONG THE MOST AMAZING THING INVENTORY BENJI SPACE RESCUE BEACH HEAD NEUTRAL ZONE SPRITE MASTER SERPENTINE DROL SWASCHBUCKLERS MR.ROBOT AND HIS FAKTORY COSMIC TUNNEL LUNAR OUTPOST SARGON II THE GREAT MA TO CAR RACE SYN THE SOUND SYNTHE SOUND TURTLE TOYLAND JR. ZORK I ZORK II ZORK III DEADLINES STARCROSS SNOKIE FLAK PARALLAX DEATH IN THE CARRIBIAN THE HEIST BEYOND CASTLE WOLFSTEIN CAVERNS OF CALLIXTO QUEST KIDWRITER GRANDMA'S HOUSE PROTECTO II SHAMUS FORTH FOTH APOCALYPSE PICINIC PARANOYA DRELBS NECRO WANCER SURVIVOR PHARAO'S CURSE RAINBOW WALKER ZAXXON QUASIMODO N.Y.C. SLAM BALL BLUE MAX ZAPPELIN SENTIEL SNAKE BYTE SQUISH'EM CHECK EASY FAST EDDIE TURMOIL QUEST FOR TIRES STORY MAKER WORD RACE KID GRID JUICE SUISIDE STRIKE SLALOM MOTOR CROSS WATER LINE DAVID'S MIDNIGHT MAGIC MURDER BY THE DOSEN MONSERS SMASH PRO PREDICTIONS WIZN ROO ERNIE'S MAGIC SHAPES BIG BIRD ALIEN ADDITION MINUS MISSION METEOR MULTIPLICATION DEMOLITION DEMOLITION DIVISION ALLIGATOR MIX DRAGON MIX SAMMY LIGHTFOOT IFR FLIGHT SIMULATOR CHECK BOOK EL ADRESSEBOOK HOME INVENTORY MAIL LIST PHOTO GRAPHS/SLIDES MOVIE RECIPES STAPIPS LADYTUT MATH MILEAGE MATH MILEAGE DUCK'S AHOY DRAGON HAWK SUPER BUNNY ROUNDABOUT BILESTOAD MATING ZONE MOON SHUTTLE GENSIS BRUCE LEE SWORD OF FARGOAL CRUSH.GUMBLE.CHOMP BRISTLESS FLIP FLOP HIGH RICE ASTRO CHASE MICRO A&S MICRO M&D SPIDE EATER COLORING SERIES I CASTLE WOLFSTEIN RESQUE SQUAD WIZARD & PRINSESS CROSSFIRE JAWBREAKER MISSION ASTROID WAVY NAVY THE MODEL DIETT STAMPS HOW ABOUT A NICE GAME OF CHESS MOTHERSHIP MIGHT MISSION PINBALL SPACE SENTIEL TELENGUARD MATHS WHIT CBS EARLY GAMES FOR YOUNG CHILDREN EARLY GAMES PIECE OF CAKE EARLY GAMES MUSIC FRACTION FACTORY EARLY GAMES MATCH MAKER TOTUR COMPRESHENSIVE DFM DATABASE & DIALOGUE TRASACT INVOSTAT STOOK AID SNOOPER TROPPS II KINDER COMP RHYMES & RIDDLES HEY DIDDLE DIDDLE TYPING TOTUR+WORD INVADER SWM SWM ADDITION/SUBTRAKTION SWM MULTIPLICATION/DIVISION SWM QUADRIC EQUATIONS SF MULTIPLICATION/DIVISION SD MULTIPLIKATION/DIVISION POKER SAM DUNGEON OF THE ALGEBRA DRAGONS CAVE OF THE WORD WIZARD ROBBERS OF THE LAST TOMB ZEPPELIN RESCUE 64 DOCTOR WALL STREET FDM DATABASE STERKE VERB E. STERKE VERB T. SOLO FLIGHT Y'S DEMISE THUNDER BOMBE PENSATE THE SPY STRIKES BACK BEST COMPUTER COACH BEST KEYBOARD COACH O RHILEY'S MINE POOYAN UPPER REACHES OF APSHAI COLLOSSEUM CHESS SPACE PILOT KONG MOON BUGGY HEXPERT ZODIAC SUPER PIPELINE JAMMIN BOZO'S NIGHT OUT GYROPOD PANIC 64 SCRAMBLE 64 SPRITE MAN STAR TREK DEFENDA WHEELIN WALLEY BURGER TIME GET OUT OF MY GARDEN CHINA MINER CUDDLY Q*BERTH SIREN CITY VOTEX RAIDER HEROS OF CARN TOKENS OF GALL VICTREE+CABEL VICTREE P.S. MIKRO ASSEMBLER ARROWS CARTRIGDE JUMP MAN PETLINK 64 JET STAR PRINTLINK 64 SHAMUS MORAL DATABASE/LABELS THE PERSONAL ACCOUNTANT BRUSE LEE HOUSEHOLD FINANSE TRANSACT 6502 PROF DEVILER SYSTEM V6 SYSTEM I V6 SYSTEM II V6 SYSTEM III THE ELIMINATOR FLYING ACE D.O.T.A.D. CAVE OF THE WORD WIZARD TOUCH TYPING GRAND MASTER HOBBIT 64 VALHALLA T.G.I.F. CURSE OF RA SYS 15000 ANDROMEDA & THE MICROCHIP MIDWAY CAMPAGN COMPUTER FOOTBALLSTRATEGIC COSMIC CAPERS CRACKS OF FIRE GOBLIN TOWERS NUKEWAR ADVENTURELAND SAGA 1 PIRATES ADVENTURE SAGA 2 V CASTLE HULK CONTRACT BRIGDE TWIN KINGDOM VALLEY LORDS OF TIME SNOWBALL COLLOSAL ADVENTURE ACOS+(EXTENDED BASIC) QUEST FOR QUINTANA OPEN SESAME ENARMET BANDITT VEKSLEPENGER GRAPHICHS 64 TAGSORT 64 ZOOM SUPER MONITOR 1541 BACKUP FORBIDDEN FOREST MY SICRET FILE THE PEN AND THE DARK KILLERWATT BLAGGER LOCO 737 FLIGHT PATH KONG HOVVER BOVVER ATTACK OF THE MUTANT CAMELS LAZER ZONE REVENGE OF THE MUTANT CAMELS SHEEP IN SPACE BATH TIME QUART STING 64 PURPLE TURTLE QUINTIC WARRIOR AQUAPLANE REVELATION JEEPER'S CREEPERS DINKY DOO MANIC MINER PLUMB CRAZY STAR COMMANDO COSMIC COMMANDO INDIAN ATTACK ZYLOGON MEGAHAWK KICK OFF HUSTLER A-LEVEL PHYSISC R.AID O-LEVEL PHYSISC R.AID O-LEVEL BIOLOGY R.AID O-LEVEL PHYSISC R.AID DERBY DAY 3-D TANKS DICTATOR 64 PYRAMID 64 HEROS OF CARN WALLY GOES TO RHYMELAND SPIDER AT THE FLY ODYSSEY SCUBA DIVE MARTECH HARRIER ATTACK HORACE GOES SKIING CLASSIC ADVENTURE HUNCHBACK 64 MR. WIMPY KRYSTAL OF SONG MOBY DICK TRANSYLIAN TOWER TANK ATTACK KAKTUS CRAZY KONG STIX MANGROVE MOTOR MANIA COMPACTOR RENUMBER TAPE MERGE/APPEND NEPTUNE'S DAUGHTER GRIDRUNNER SUPERFONT 9.0 JOHNNY REB FALLSKJERM MUSIC 64 LORD OF THE BALKONG PEDRO COSMIC CRUISER BREAK DANCE TURBO TAPE BASKETBALL INTER SOCCER SOCCER SOCCER III ELIZA DAILY THOMPSON'S DECATHLON DECATHLON TI CAMP EXTERMINATOR AUTO START ALICE IN VIDEOLAND AEROBITS ARCADIA ANIROG SCRAMBLE ARCTIC SCIPWECK AUSTRO COMPILER ATZEC ANNIHILATOR ARABIAN NIGHT BLOCK COPY BACK UP BC'S QUEST BILJARD CLONE COPY 58.5K/II CUTHBERT IN THE JUNGLE CUESAR THE CAT DISK IO MITCHMATCH DISKETT LEADER THE DALLAS QUEST DISK MONITOR DIRTY LITTLE BOY DISK SORTER DIRTY MINTES KLES POKER FUCK IT SAM DOGFIGHT DRAGONS DEN RIDE OVER MOSCOW FAST COPY ."1" FLOPPY DISK DOC FILE COPY FAST LOAD FLASHLOAD FALCON PATROL I FALCON PATROL II GALAXIAN 64 GRIDDER HES GAMES HIGH NOON HULSTER JO CHANGER ICE HUNTER GHOST BUSTERS LABYRINTH LUNAR LEEPER LOCO LOADER M/C COPIERING MUSIC CONSTRAST SET MONTY POLE MINER 2049'ER NECRO MAKER PITSTOPP II OLYMPIC SKIER PETSPIDER SILENT COPY SPACE TAXI SEQUENSER II SPRITE EDITOR SOOPER FROUT STELLAR WARS SLURPY SNAKE BYTE SUPERSCRAMBLE STELLAR TRIUMPH TRIPPEL TOURM TRIPPEL TOURNAMEN SIMON'S BASIC FILE DIRECTORY QUARKS YAHTZEE MANIAC K.O.S. RADAR RAT RACE CONGO BONGO SIEGE FRANTIC FREDDIE MUSICALC PASCAL 64 TEXTOMAT-64 VIDEO BASIC 64 PITFALL I PITFALL II TOY BIZARRE ZENJI AZTEC TOMB II LAS VEGAS MINIPEDE PSI WARROIR WINDOW'S REVENGE WARLOCK STEVE DAVIDS"SNOOKER" AVENGER EASY MAIL EASY FINANSE I EASY FINANSE II EASY FINANSE III EASY FINANSE IV EASY FINANSE V REGNSKAP 64 G-PASCAL TOOL 64 CP/M OPERATIVSYSTEM BOMUS PACK NORSK LOGO SUPER EXPANDER NUMBER NABBER TOOTH INVADER SOOPER FRUIT TERRAPIN LOGO CRISIS MOUNTAIN I AM THE C-64 DANGERMOUSE IN BLACK FOREST CHA SPITBALL MOONDUST MACBETH WING COMMANDER BLACK HAWK DANGERMOUSE IN DOUBLE TROUBLE JAVA JIM STORY HOUSE COUNTDON TO MELTDOWN ORC ATTACK SLURPY BIRD MOTHER RIVER RESQUE GLUG GLUG PYSTRON MY CHESS SPEED READER II ZEUS 64 EUREKA COMBATH LYNX HAVOC QUO VADIS FIRE QUEST KOKOTONI WILF MARATHON STRANDED FAX PERCY THE POTTY PIGEON SKULL WORD CHALLENGE SUISIDE EXPRESS GUN DOGS SUSPECT AFRICAN SAFARI STAR FORCE/GAMMERON PROGRAMMERS GUIDE CITY ATTACK ITS ONLY ROCK&ROLL LORDS OF TIME JUMP CHALLENGE STAR TROOPER SWOOP GHOULS ADVANSED REPORT GENERATOR GAMES CREATOR ANDROID II HUNCHBACK II GILLIGANS GOLD STUNT BIKE JONNY & THE JIMPYS TORNADO LOW LEVEL ROLAND RAT RACE EVIL DEAD BATTLE FOR MIDWAY BOUNCING KAMUNGAS EXPEDITION AMAZON STELLAR 7 XYPHUS MELODY TIC TAC TOE/FLAK SS-ACCOUNTANT TIME REC SS-JOB COSTING ESTIMATING SS-SALES&PURCHASE DAYBU$Y&f LINE $ CLS : PRINT "CREATE GAMES LIST" 30 PRINT @128,"";: INPUT "GAME ";G$ 40 IF G$="XXX" THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM l 50 FWRITE "CSPILL";G$ 55 ($fb) REM REM line numbering breaks here! REM  60 CLOSE 1 70 END REM REM line numbering breaks here! REM ,X END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11354 9830 $,Z 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM SPECIAL SELECTION 1 SPECIAL SELECTION 2 QUEST MADNESS AND THE MINOTAUR PERSONAL FINANSE GRAPHICS ANIMATOR COMPUTAVOICE EXAMPLES FROM THE MANUAL CALIXTO ISLAND TYPING TOTUR DRAGON MOUNTAIN FLAG BERSERK METEORIDS COSMIC INVADERS GHOST ATTACK CAVE HUNTER STARSHIP CHAMELON ASTROBLAST CHESS EL DIABLERO RAIL RUNNER PROGRAM PACK 3 FORTH SPACE-WAR KATERPILLAR ATTACK PLANET INVASION DEFENSE TELEWRITER DONKEY KING FLIPPER RACERBALL PHANTOM SLAYER INVADERS REVENGE SHARK TRESURE STORM ARROWS DREAM HIDE AND SEEK DOODLE BUG SELECTION 4 TELE-TOTUR 1 EDIT+ NUMBER GULPER PIXEL EDITOR FINAL COUNTDOWN MANSION OF DOME STALAG/ENO SCHOOL MAZE TIMSCRIPT WHIRLYBIRD RUN GALAX ATTAX SHUTTLE ZAP DREAM BUG BRIGDE MASTER POSEIDON ADVENTURE CIRCUS ADVENTURE COMPOSER CRAZY PAINTER TALKING ANDROID CUTHBERT IN THE JUNGLE OFFICIAL FROGGER GRAND PRIX SPACE SHUTTLE GOLF ALL DREAM SUPERWRITER 2 BREAKOUT/MIDDLE KINGDOM FLIGHT MONSTERS AND MAGIC DYNAFAST BASIC DRAGON HAWK DANGER RANGER EIGHT BAAL/FOOL DEVIL ASSAULT SPACEFIGHTER INTERGALACTIC FORCE BLOC HEAD SYNTHER 7 LUNAR ROVER PATROL JUNIOR REVENGE VIKING WORDS WORDS WORDS JUMPJET LET'S COUNT CRANKY SHAFT CHAMPIONS ASTROLOGY DUNGEON RAID BUZZARD BAIT PENGON TOUCHSTONE BEAM RIDER OSSIE DEADWOOD SWASHBUCHLERS VALLEY WHITE BARROW STOCKMARKED CELLS AND SERPENTS FALL OF DOME FROGGY BUG DIVER LEGGIT PEDRO TEXTSTAR ATTACK MINEDOUT SUPERSPY TRANSYLVIAN TOWER STRATEGIC COMMAND CONWOY ATTACK ROMIC CUBE CYCLOPS WHITE CRYSTAL UGH GALACTICANS DEATH CRUIE I CHING CASTLE ADVENTURE UXB ARTIST'S DESIGNER PEPPER'S GAME PACK DRAGON TREK THE RING OF DARKNESS MAURICE MINOR TRACE RACE DROIDS CRUSADERS FOUR HORSE ALCATRAZ SUBMARIN COMMAND XX DREAM BUG FILMASTER MST DATABASE MAILER/ADRESSE BOOK MST STOCK CONTROLL MST HOME ACCOUNTS MST BUISNESS ACCOUNTS MST CALC SPREADSHEET MST INVOICEC & STATMENTS SUPER DRAGON WRITER 2 LOGO OS-9 OPERATIVSYSTEM OS-9 SYSTEM MANUAL BASIC 09 STYLOGRAPH DYNACALC RECORD MANAGMENT SYSTEM PASCAL C-COMPILER EDITOR.ASSEMBLER.DEBUGGER STOCK RECORDING SYSTEM CASH & VAT REGISTER SYSTEM CUTHBERT IN THE MINES CUTHBERT IN THE SPACE boker DRAGON 32/64 MANUAL DRAGON COMPANION LOAD AND GO WHIT YOU DRAGON LEARNING TO USE THE DRAGON 32 C THE WORKING DRAGON 32 DRAGON 32 GAMES MASTER ENTER THE DRAGON INSIDE THE DRAGON DRAGON MACHINE LANGUAGE FOR BEG DYNAMIC GAMES FOR YOUR DRAGON MANIC MINER DOWNLAND TIME BANDIT CASHMAN HUNCHBACK BACK TRACK GRABBER SHENANIGANS NINJA PLANET INVASION U$Y&f LINE $ CLS : PRINT "CREATE GAMES LIST" 30 PRINT @128,"";: INPUT "GAME ";G$ 40 IF G$="XXX" THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM l 50 FWRITE "DSPILL";G$ 55 ($fb) REM REM line numbering breaks here! REM  60 CLOSE 1 70 END REM REM line numbering breaks here! REM ,X END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11354 9830 $,Z 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM U$ COLOR & SUB LINE $ CLS 20 PRINT @0,"NAVN","NUMMER" 21 T=0 30 FREAD "NAVN";N$ 40 FREAD "TELE";T$ 60 PRINT N$,T$ 70 T=T+1: IF T=15 THEN ($fd): ELSE ($fc):($fb) 9348 REM REM line numbering breaks here! REM P IF EOF ("NAVN")=1 THEN ($fd): ELSE ($fc): END 90 IF EOF ("TELE")=1 THEN ($fd): ELSE ($fc): END 91 ($fb) 9409 9419 INKEY$ : IF C$="" THEN ($fd): ELSE ($fc):($fb) 9419 REM REM line numbering breaks here! REM eT=0: RETURN , PCLEAR END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11441 9917 $, CIRCLE 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM FROM U$& DIM LINE $  CLS 10 PRINT @98,"": INPUT "NAVN";NAVN$ 20 PRINT @98+98,"": INPUT "TLF.";TELE$ 30 IF NAVN$="" THEN ($fd): ELSE ($fc): CLOSE : END 40 IF TELE$="" THEN ($fd): ELSE ($fc): CLOSE : END 50 FWRITE "NAVN";NAVN$ 60 FWRITE "TELE";TELE$ 70 ($fb) REM REM line numbering breaks here! REM  ,~ END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11392 9868 $, FOR 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 U$ READ & CSAVE LINE $ T=0 10 CLS 30 PRINT "GAME" 50 FREAD "CSPILL";G$ 51 T=T+1: IF T=15 THEN ($fd): ELSE ($fc):($fa) REM REM line numbering breaks here! REM { 55 IF EOF ("CSPILL")=1 THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM n 60 PRINT G$:($fb) REM REM line numbering breaks here! REM  70 CLOSE 1 80 END 100 XX$= INKEY$ : IF XX$="" THEN ($fd): ELSE ($fc):($fb) 9378 REM REM line numbering breaks here! REM eT=0 $ TRON 44 DIM REM REM line numbering breaks here! REM END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11406 9882 $, LET 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM EVA WALVIK STIAN WIX0E TOMMY SIMONSEN K. PETERSEN KNUT CLAUSSEN MORTEN TAKSRUD N$="" THEN CLOSE : END $f JAN DYSKELAND STIAN WIXOE HANNE CHRIS ROLLAND HHRFUXDOY BBHTDK6 KENNETH EN598536 LEIF RAMSLAND580737 MARTINE TUNGE597202 LILL TUNGE597202 KNUT CLAUSSEN598127 KNUT CLAUSEN598127 FROM ($fe)($FFFF) 254 ($FFFF) NOT ($FFFF) REM REM line numbering breaks here! REM ($fe)($FFFF) RENAME ($FFFF) 65295 RENAME ($FFFF) 65519 224 ($FFBF)($FFFF) FOR ($FFFB)($FFEF)($FF3F)($fe) REM REM line numbering breaks here! REM ($fe)($f8) RENAME THEN ( DSKINIT ($ed) NAVN DATD SKIPF COMODOREBIN ($fc) 150 TELEFON REM REM line numbering breaks here! REM BIN FREAD ON TELE BIN PUT 185 DGAMES REM REM line numbering breaks here! REM BIN RESTORE b DSPILL DAT l ON COMMODORBIN H b CSPILL DAT 378  FLREAD  REM REM line numbering breaks here! REM iMUSIKK BIN 148 REM REM line numbering breaks here! REM TELE DAT DIM  S MUSIKK BAK SET  140 VSPILL REM REM line numbering breaks here! REM DAT COLOR  Q PLATER DAT OFF  179 REM REM line numbering breaks here! REM MUSIKK BAS CREATE  141 REM REM line numbering breaks here! REM TEST BAS. 146 DRAGON REM REM line numbering breaks here! REM BIN($f8) 150 VIC20 REM REM line numbering breaks here! REM BIN 150 VIC21 REM REM line numbering breaks here! REM BIN b INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT . SS-SOLICITORS TIME RECORD SS-CASH BOOK SS-ESTATE AGENTS SS-STOCK RECORDS SS-TRAVEL AGENT SS-CLUB MEMBERSHIP NORSK SUPERBASE-64 STRONTIUM DOG FRED SEE SAW FUNGUS THE BOGEYMAN THE SNOWMAN MAGIC MICRO MISSION AUTO CALC MOVIEMAKER HALLS OF DEATH TAPPER SPITFIRE ACE TERRORIST SORCERY BREDANS BASIC DARE DEVIL TENNIS BIG MOUTH FIRSTBASE 64 FIRSTWORD 64 POWERPLAN 64 ADA TRAINING COURSE SOFTWARE STAR SORCEROR CLAYMORGUE CASTLE WARLOCK GUMSHOE ROCKET ROGER CHART BUSTER BLAGGER GOES TO HOLLYWOOD P C FUZZ G.A.S KIT SLAP SHOT RAID ON BUNGELING BAY GIVE MY REGARDS BLASING PADDIES DECISION MAKER FORECASTER ENTREPENEUR BUMPING BUGGIES FLYING FEATHERS WRITE NOW FILE NOW CALC NOW TERRAPIN LOGO NEVADA COBOL NUMBER NABBER F.FANTOMS SUSPENDED SOOPER FRUIT SELECT 1 JAVA JIM SLURPY BIRD MOTHER GLIDER PILOT HALLS OF THE THING DEATH PIT HAVOC KOKOTONI WILF DUCES OF HAZARD SUPERFRONT 4.0 STRANDED MARATHON SKULL AAGH CONDOR EGBERT FABULAS WANDA TIR NA NOG THE QUILL BUDSJETT (N) EASY BASE (N) GLOSE PROGRAM (N) MONTY MOLE PERCY THE POTTY PIGEON HEATHROW ATC ENCOUNTER INFIDEL CUTTHROATS SORCERER SUSPECT ENCHANTER STARCOSS BIG TOP BARNEY BIG BEN FORNT LINE BREAK FEWER EMPIRE OF KARN SUPERBASIC HERCULES AFRICAN SAFARI BLACK KNIGHT STAR FORCE GAMMERON THE PEN AND THE DARK THE GREAT SPACE RACE RETURN TO EDEN OXFORD PASCAL ANCIPITAL AGENT U.S.A. EDDIE KIDS JUMP CHALLENGE BRIAN JACKS SUPERSTAR ACOS+ ZIM ZALA BIM SHERLOCK HOLMES CASTLE OF TERROR HAMPSTEAD STAR TROOPER AUTOMANIA PYJAMARAMA GLOBE GRABBER HIGHRISE BOULDER DASH JINN GENIE KOSMIC KANGA SWAG CYBERTRON MISSION FELIX IN FACTORY GHOULS EVERYYONES A WALLEY WORD PROCESSOR-PROF. DATABASE MANAGER ADVANCED REPORT GENERATOR GAMES CREATOR CEASER THE CAT ZETA 7 RESCUE SQUAD MACHINE CODE TOTUR CLIFF HANGER SHOOT THE RAPIDS HWITE LIGHTENING STUNT BIKE KONG STREETS BACK ULTIMA III BATTLE FOR MIDWAY METRO BLITZ SPY'S DEMISE THUNDERBOMBS PENSATE BOUNCING KAMUNGAS EXPEDITION AMAZON XYPHUS MELODY S.S. ACCOUNTANT TIME REC. S.S. JOB COSTING ESTIMATING S.S. SALES &PHURCHASE DAYB. S.S.SOLICITORS TIME REC. CASH BOOK S.S. ESTATE AGENTS S.S.STOCK RECORDS S.S. TRAVEL AGENT S.S. CLUB MEMBERSHIP SUPERBASE (N) MATCH POINT STRONTIUM DOG DEATH GUANT DIR SEE SAW FUNGUS THE BOYEMAN THE SNOWMAN MAGIC MICRO MISSION ULTISYNTH BLACK THUNDER MISSION 1 PROJECT VOLCANO AUTO CALC EVEREST SHIP OF THE LINE BLACK ONYX MISSION ASTEROIDS OLYSSES THE WIZZARD AND THE PRINCESS B.C.GROG'S REVENGE DAMBUSTERS SIERRA CHAMPIONSHIP BOXING STUNT FLYER HOMEWORD HOMEWORD FILER GELFING ADVENTURE LEARNING WHIT FUZZYWOMP WIZZARD OF ID'S WIZMATH WIZZARD OF ID'S WIZWORD WIZZARD IF ID'S WIZTYPE FIRE QUEST THE MODEL DIET CRAZY BALOON HUNCHBACK AT THE OLYMPICS THRUSTA CRISIS COUNTDOWN MISSION ONE BOULDERDASH FRAK GEOPOLITIQUE PROF.TOURNAMENT GOLF BALTIC'85 BROADSIDES CARRIER FORCE QUESTRON RINGSIDE SEAT BESEIGED MOTOR CROSS JUICE DEATHSTAR INTERCEPTOR PANARAMA POSTER PAINTER CADSAM WARRIOR LAZY JONES JACK AND THE BEANSTALK REVENGE OF THE BEANSTALK BLACK HAWK DANGERMOUSE JAVA JIM DRAGON WORLD FAHRENHEIT 451 RENDEZVOUS W RAMA FLYER FOX GANDALF THE SORCERER STAFF OF KARNATH NATO COMMANDER RAID OVER MOSCOW SPITFIRE ACE TAPPER F-15 STRIKE EAGLE INDIANA JONES SPY HUNTER UP 'N' DOWN BITMANIA HIDEOUS BILL SORCERY ALTAIR 4 DARE DEVIL DENNIS FROM TOUR DE FRANCE FLYER FOX DEJA VU THERE IS SOMEONE IN MY C64 BEACH HEAD II SUMMER GAMES II WINTER GAMES THE LULL BEFORE THE STORM THE WIZARD AND THE PRINSESS ULYSSES AND THE GOLDEN FLEECE MISSION ASTEROID THE HACKER KENNEDY APPROACH GROGS REVENGE SUPER HUEY BROAD STREET ROCKY HORROR SHOW ON COURT TENNIS LAGUE BASEBALL MUTANT MONTY HANDICAP GOLF CRICKET 64 SHADOWS FIRE THE BULGE EVERYONE'S A WALLY HERBERTE'S DUMMY RUN TIR NA DOG DALEY THOMPSON II BOULDER DASH ON FIELD FOTBALL TAPPER COMBAT LYNX CAULDRON WORLD SERIES FOTBALL HAMPSTEAD PASTFINDER PYJAMARAMA JET SET WILLY II UP 'N' DOWN SOFTWARE STAR ELITE WAY OF THE EXPLODING FIST DALEY'S SUPER TEST FRANKIE GOES TO HOLLYWOOD THEATRE EUROPE STREET HAWK HYPER SPORTS TERRORMOLINOS BOOTY MATRIX BOUNTY BOB STRIKES BACK SPYHUNTER THE INNER CIRCLE NETWORKS REVEALED INTO THE WALLY UP THE AMAZON GREMLINS EMERALD ISLE SUBSUNK LEWELS OF BABYLON BLACK CRYSTAL CLASSIC ADVENTURE THE HELM VELNOR'S LAIR ZINDERNEUF SLEUTH SOFT AID SHADOWFIRE INTERNATIONAL BASKETBALL KICK START ENTOMBED AIRWOLF CAULDRON LANDS OF HAVOC RUBERT AND THE TOYMAKERS PARTY SPY VS SPY II SCREEN STAR FIVE A SIDE FOOTBALL M.U.L.E. WAR MACHINE DROPZONE THE CHESS GAME TIMESLIP JETPACK SUPERBASE STARTER SUPERSCRIPT 64 SUPER TYPE FIRST WORD FIRST BASE ADA BASIC COMPILER POWER PLAN AQUARACER INTERNATIONAL TENNIS EU557730 598274 598536 598559 598157 598841 598554 DIR 04-535211 D52532 431467 24072 T+1: IF T=15 THEN GO SUB 100 50 IF EOF ("NAVN")=1 THEN END 51 IF EOF ("TELE")=1 THEN END 60 GO TO 31 100 C$= INKEY$ : IF C$="" THEN 100 101 T=0: RETURN REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0083 Exec: $8b8d * REM *(Start: 09217 Length: 00131 Exec: 35725) * REM ************************************************* REM 10 CLS 20 PRINT "NAVN";: LINE INPUT "";A$ 30 IF A$="" THEN END 40 B$= INKEY$ : IF B$="" THEN 40 50 IF B$= CHR$ (13) THEN 70 60 GO TO 10 70 FWRITE "PLATER";A$ 80 CLOSE 90 GO TO 10 REM REM line numbering breaks here! REM EOF ("TELE")=1 THEN END 91 GO TO 30 100 C$= INKEY$ : IF C$="" THEN 100 101 T=0: RETURN REM REM line numbering breaks here! REM FROM FROM TYPING TOTUR+WORD INVADER IFR TANK ARCADE STERKE VERB ENGELSK STERKE VERB TYSK MARTIN RAIDER LODE RUNNER EARLY GAMES FOR YOUNG CHILDREN BEST COMPUTER COACH DECISION MAKER HANGMAN/HANGMATH CHOPLIFTER HOUSEHOULD FINANCE PIPES SPILLS'N FILLS WACKY WAITERS CATCHA SNATCHA FRANTIC BEWITCHED ARCADIA ALIEN ATTACK CRAZY KONG FANTAZIA FROG GALAXZIONS JUPITER DEFENDER PENNY SLOT VIC RESQUE FALCON FIGHTER JET PACK METAGALACTIC LAZER ZONE MATRIX GRIDRUNNER SKYHAWK TORNADO DARK DUNGEONS STAR DEFENCE FIRE GALAXY CHARIOT RACE PINBALL WIZARD BOZO WIZARD AND THE PRINSESS KONG FLIGHT PAT 737 Q*BERT FROGGER TUTANKHAM PRACTICALC BUCK ROGERS CAPTURE THE FLAG BUMPER BASH COSMIC FIRE BIRDS SUPER BREAKOUT SCRAMBLER GALAXIONS MUNCH MAN ASTEROYDS GUN FIGHT CAVERNS RAIDER AVENGER STAR BATTLE SLOT ALIEN LANDER POKER ROAD RACE RADAR RAT RACE SKY IS FALLING MOLE ATTACK ADVENTURELAND PIRATE CAVE MISSION INPOSSIBLE THE COUNT VOODO CASTLE SARGON II CHESS OMEGA RACE VIC STAT PROGRAM AID-PLUGG MASKINSPRAK MONITOR MENAGERIE COSMIC JAILBREAK GARDEN WARS VIC FORTH PINBALL SPECTULATOR GORF RAID ON F.KNOX SUPERSMASH COSMIC CHRUNCHER MONEY WARS HOME BABYSITTER SOLAR SYSTEMS CLOWNS SPEED BINGO MATH SE WOLF TOOTH INVADERS STAR POST NUMBER MABBER TOOL PERSONAL FINANSE VIC GRAPH ALGER FLYSKYTER ENERGIMENGDE UBAT TELL DEM LETT ADDISJON LETT SUBTRAKSJON FYSIKK HVA ER ARBEID FYSIKK TALL HOPPER TREN HUKOMMELSEN LAER DEG MORSE SKRIVETRENING 2 GRADSLIGNINGER 2 UKJENTE MATTE 3 UKJENTE MATTE LOGARITMER MATTE KVADRATROT MATTE BR0K I BR0K II DIVISOR TREKANT RAKETT-MATTE VICY RIKSTOTO MONSTERET TANK ANGREP RAKETT ENERGIKILDEN BRANN PLANET LANDER FROM FROM FROM ac/dc HIGH VOLTAGE DIRTY DEEDS LET THERE BE ROCK POWERAGE IF YOU WANT BLOOD HIGHWAY TO HELL BACK IN BLACK THOSE ABOUT TO ROCK FLICK OF THE SWITCH accept RESTLESS AND WILD OLE JJJ U WANT BLOOD HIGHWAY TO HELL BACK IN BLACK THOSE ABOUT TO ROCK FLICK OFF THE SWITCH king sunny ade SYNCHRO SYSTEM aerosmith LIVE BOOTLEG (D) ...A HARD PLACE a flock of seagulls 1 ST LP LISTEN albion dance band RISE UP LIKE THE SUN LARK RISE TO CANDLEFORD LIGHT SHINING SHUFFLE OFF arthur alexander CH 66 allman brothers STORY OF D/IM 2486.203 ALTERED IMAGES altered images HAPPY BIRTHDAY PINKY BLUE BITS THE BIG APPLE amerika HISTORY OF (BEST) VIEW FROM THE GROUND YOUR MOVE amon duul PENGUIN MEETS HAWKS jon anderson SHORT STORIES SONS OF MR. CAIRO PRIVATE COLLECTION SONG OF SEVEN OLIAS OF SUNHILLOW ANIMATIONS laurie anderson BIG SCIENCE animals CR 30197 SONNY BOY WILLIAMSON anti nowhere league WE ARE THE LIVE IN YUGOSLAVIA anti pasta SINGLE COMPILATION anvil HARD AND HEAVY METAL ON METAL FORGED IN FIRE aphrodties child 666 (D) joan armatrading 1 ST LP AMLH 64588 SHOW SOME EMOTION WHATEVER'S FOR US TO THE LINIT STEPPIN OUT ME.MYSELF.I WALK UNDER LADDERS THE KEY art bears HOPES AND FEARS WINTER SONGS WORLD AS IT IS TODAY asia 1 ST LP ALPHA XXX associates AFFECTION ATE PUNCH FOURTH DRAWER DOWN SULK atlanta rhythm section BEST OF atomic rooster HEADLINE NEWS attack ZOMBIES au pairs PLAYING DIFFERENT SEX LIVE IN BERLIN kevin ayers JOY OF TOY/SHOOTING (D) COLLECTION DIAMOND JACK aztec camera HIGH LAND HARD RAIN ------------------------------ bad company 1 ST LP STRAIGHT SHOOTER RUN WHIT THE PACK BURNING SKY joan baez GREATEST HITS & OTHERS FIRST TEN YEARS (D) LOVESONG ALBUM (D) VERY EARLY YEARS (D) banarama RAMA band THE LAST WALTZ (3 LP'S) tony banks THE FUGITIVE barclay james harvest LIVE TAPES (D) CONCERT IN BERLIN RING OF CHANGES syd barrett MADCAP/BARRETT (D) battlefield band THERE IS A BUZZ bauhauss IN THE FLAT FIELD THE SKY GONE OUT PRESS THE EJECT MASK BURNING FROM THE INSIDE beach boys 20 GOLDEN GREATS TEN YEARS OF HARMONI VERY BEST OF (D) the beat JUST CAN'T STOP IT SPECIAL BEAT SERVICE BEST OF beatles PLEASE PLEASE ME WITH THE BEATLES HARD DAY'S NIGHT HELP BEATLES FOR SALE RUBBER SOUL REVOLVER COLLECTION OF OLDIES SERGEANT PEPPER WHITE COVER (D) YELLOW SUBMARINE ABBEY ROAD LET IT BE 1962-1966 RED COVER (D) 1967-1970 BLUE COVER (D) MAGICAL MYSTERY TOUR AT HOLLYWOOD BOWL COLL.13 LP BOX (13 LP'S) RARITIES (BUTCHERS) IM BALLADS HISTORIC SESSION (D) jeff beck TRUTH & THE YARDBIRDS BECK OLA bee gees BEE GEES GREATES (D) captain beefheart TROUTMASK REPLICA (D) 2 ORGINALS OF (D) STRICTLY PERSONAL SHINY BEAST DOC AT RADAR STATION ICE CREM OF CROW ICE CREAM FOR THE CROW harry belafonte VERY BEST OF adrian belew LONE RHINO belle stars BELLE STARS chuck berry CXMP 2011 CHESS MASTER (D) pat benatar CRIMES OF PASSION PRECIOUS TIME GET NERVOUS george benson IN YOUR EYES b52s 1 ST LP WILD PLANET PARTY MIX MESAPOTAMIA WHAMMY big country THE CROSSING big three birthday party JUNK YARD cilla black VERY BEST OF blackfoot HIGHWAY SONG (LIVE) SIOGO black sabbath MOB RULES LIVE EVIL (D) BORN AGAIN black uhuru RED SINSEMILLA CHILL OUT blancmange HAPPY FAMILY blasters OVER THERE blitz VOICE OF A GENERATION SECOND EMPIRE JUSTICE blondie BEST OF mike bloomfield IF YOU LOVE THE BLUES ANALINE CRICIN FOR A BRUISIN blue oyster cult ON YOUR KNEES (D) AGENT OF FORTUNE SPECTRES FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0084 Exec: $8b8d * REM *(Start: 09217 Length: 00132 Exec: 35725) * REM ************************************************* REM 10 CLS 20 PRINT "NAVN ";: LINE INPUT "";A$ 30 IF A$="" THEN END 40 B$= INKEY$ : IF B$="" THEN 40 50 IF B$= CHR$ (13) THEN 70 60 GO TO 10 70 FWRITE "PLATER";A$ 80 CLOSE 90 GO TO 10 REM REM line numbering breaks here! REM XX$="" THEN 100 101 T=0 102 RETURN REM REM line numbering breaks here! REM FROM FROM REKA TIM LOVES CRICKET FOURTH PROTOCOL STAFF OF KARNATH SORCERY GATES OF DAWN ROCKET BALL AIRWOLFE ALL LEVEL 9 GAMES HUNCHBACK II LORDS OF MIDNIGHT A DAY IN THE LIFE KNOCKOUT GRAHAM GOOCH'S TEST CRICKET MERCENARY A WIEV TO A KILL NICK FALDO OPEN THING ON A SPRING F.G.T.H. FRANK BRUNO MIG ALLEY ACE DUN DARAGH QUAKE MINUS ONE CASTLE OF TERROR REALM ON BUNGELING MURDER OF THE ZINDERNEUF MONSTER TRIVIA LOCOMOTION ACTION BIKER POCKET MONEY WORD PERFECT D-BUG PASTFINDER ULTIMA III SPITFIRE 40 PARK PATROL BUZZARD RUN BJBKBK DIR KENNETH KENNETH KENNETH HFMVGHK HGKHDG RUT DIT RUN BUBLE BOBLE FROM FROM FROM U$ READ & CSAVE LINE $ T=0 10 CLS 30 PRINT "GAME" 50 FREAD "DSPILL";G$ 51 T=T+1: IF T=15 THEN ($fd): ELSE ($fc):($fa) REM REM line numbering breaks here! REM { 55 IF EOF ("DSPILL")=1 THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM n 60 PRINT G$:($fb) REM REM line numbering breaks here! REM  70 CLOSE 1 80 END 100 XX$= INKEY$ : IF XX$="" THEN ($fd): ELSE ($fc):($fb) 9378 REM REM line numbering breaks here! REM eT=0 $ TRON 44 DIM REM REM line numbering breaks here! REM END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11406 9882 $, LET 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM U$ READ & CSAVE LINE $ T=0 10 CLS 30 PRINT "GAME" 50 FREAD "VSPILL";G$ 51 T=T+1: IF T=15 THEN ($fd): ELSE ($fc):($fa) REM REM line numbering breaks here! REM { 55 IF EOF ("VSPILL")=1 THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM n 60 PRINT G$:($fb) REM REM line numbering breaks here! REM  70 CLOSE 1 80 END 100 XX$= INKEY$ : IF XX$="" THEN ($fd): ELSE ($fc):($fb) 9378 REM REM line numbering breaks here! REM eT=0 $ TRON 44 DIM REM REM line numbering breaks here! REM END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11406 9882 $, LET 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM U$Y&f LINE $ CLS : PRINT "CREATE GAMES LIST" 30 PRINT @128,"";: INPUT "GAME ";G$ 40 IF G$="XXX" THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM l 50 FWRITE "VSPILL";G$ 55 ($fb) REM REM line numbering breaks here! REM  60 CLOSE 1 70 END REM REM line numbering breaks here! REM ,X END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11354 9830 $,Z 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0089 Exec: $8b8d * REM *(Start: 09217 Length: 00137 Exec: 35725) * REM ************************************************* REM 1 DIM A(100): DIM B(100): DIM C(100) 10 B=1:C=1 20 CLS 30 SREAD 1,B,C,A$,B$ 35 ERROR GO TO 100 40 PRINT A$,B$ 50 B=B+1:C=C+1 55 WAIT 1000 60 GO TO 30 100 END REM REM line numbering breaks here! REM FROM FROM