City of Xon is a side-scrolling space combat game in which the player pilots a craft toward an enemy fortress, managing fuel, armor, weapons (disruptor and phaser), and a grappling hook across a series of procedurally varied obstacle zones. The REM statement on line 1 contains the entire machine code payload for the game, a common technique on this platform to store binary data within a program line. Line 8 uses RAND USR 25295 to seed the random number generator and jump into the machine code, bypassing the BASIC loader after initialization. Lines 3–7 perform a nested loop to randomize the RAND seed before the machine code entry point, adding variability to each play session. The game includes a full rules screen, animated title sequence, and multiple hazard types including grenade launchers, missile silos, photon batteries, and a final castle assault.
Program Analysis
Program Structure
The visible BASIC portion of the program is minimal: lines 1–11. The overwhelming bulk of the program’s logic, graphics data, and game engine resides in the REM statement on line 1, which spans many kilobytes and encodes the machine code and display data as raw bytes stored within the program file. This is the canonical technique for embedding machine code in a BASIC program on this platform — the tokenizer stores the literal byte content of a REM line verbatim, making it an ideal container for binary payloads.
| Line | Purpose |
|---|---|
1 | REM — contains entire machine code engine, graphics, and string data |
2 | PRINT status message during initialization |
3–7 | Nested loop to iterate the random number generator seed |
8 | RAND USR 25295 — seeds RNG and transfers control to machine code |
9 | GOTO 12 — skips the SAVE/RUN lines (targets non-existent line, halts) |
10 | SAVE "XON" — utility save line, not reached during normal play |
11 | RUN — utility restart line |
Machine Code Entry and Random Seeding
Line 8 is the critical entry point: RAND USR 25295 simultaneously seeds the BASIC random number generator with the value returned by the machine code routine at address 25295 and transfers execution into that routine. The address 25295 (decimal) falls within the area of RAM where the REM line’s data bytes would be loaded, confirming that the machine code is stored there. Prior to this, lines 3–7 use a doubly-nested loop — outer iterating 20 times, inner iterating a random number of times up to 20 each pass — to call RAND repeatedly, ensuring the internal random state is non-deterministic before the machine code takes over.
REM Line as Data Store
The REM on line 1 is not a comment in any practical sense; it is a binary blob. The listing reveals extensive embedded string data (game messages, rules text, status strings) as well as block graphics characters that form the animated title sequence and scrolling terrain graphics. Strings visible in the REM include all in-game event messages such as “YOUR FUEL TANK IS RUPTURED”, “ARMOR HAS BEEN DAMAGED”, “FORTRESS OF MIGHTY XON AHEAD”, “YOU HAVE CAPTURED XON”, and the full rules screen. These are accessed directly by the machine code using known offsets into the REM line’s data area.
Graphics and Display Data
The REM line contains extensive block-graphic compositions representing the animated intro sequence, scrolling landscape features, the player’s craft, the XON castle fortress, and various enemy installations. The landscape data includes representations of grenade launchers, missile silos, photon batteries, gun parapets, guard towers, artillery, a fuel depot, a robotics factory, tracking towers, munitions vaults, a prison cellblock, and the final castle keep — matching the in-game hazard list described in the rules screen. The title screen graphic spells out “CITY OF XON” and “COPYRIGHT 1983 PLEASANTREES” using block graphics characters.
Key BASIC Idioms
GOTO 12on line 9 targets a non-existent line number, causing execution to halt cleanly after the machine code returns (if it ever does) without falling through to the SAVE line.RAND USR 25295is a dual-purpose idiom: theUSRcall executes machine code, and wrapping it inRANDdiscards the integer return value while simultaneously seeding the random number generator — a neat one-liner that achieves two goals.- The random seeding loop (lines 3–7) uses
RND*20as the inner loop bound, which itself consumes random state, creating a chaotic but reproducible-enough distribution of seeds.
Game Features Inferred from String Data
The embedded strings reveal a rich feature set entirely implemented in machine code:
- Controls: arrow keys for flight,
Afor armor toggle,Sto swap 300 points for fuel,Dfor disruptor,Ffor phaser,Gfor grappling hook,Qto quit. - Fuel management: fuel regenerates in flight if no armor or guns are used; grappling hook can tether fuel pods for a half-tank refill.
- Damage model: separate tracking of fuel tank rupture, armor damage, energy pod damage, and shrapnel damage; crew can complete repairs.
- Win/loss conditions: player must reach and capture XON fortress with a score of 300,000 and time of 2:00:00; failure results in craft destruction.
- A “play again” prompt (
TRY YOUR LUCK ONCE MORE? Y/N) is present, suggesting the machine code handles full game restart logic.
Notable Techniques
- All game logic, rendering, collision detection, and input handling are performed entirely in machine code; BASIC is used solely as a loader and initializer.
- The rules and title screens visible in the REM data use carefully composed block graphics to create bordered panels and decorative elements, exploiting the full character set.
- The SAVE line (line 10) uses an inverse-video character in the filename, which serves as a metadata flag in the file header rather than being part of the displayed name.
- The
PRINT AT 10,3;"(SETTING RANDOM FUNCTION)"on line 2 provides user feedback during the brief initialization delay caused by the seeding loops, a small but considerate UX touch.
Anomalies and Observations
The GOTO 12 on line 9 is intentional: since line 12 does not exist, BASIC will stop execution at that point. In normal gameplay, RAND USR 25295 on line 8 transfers control permanently to machine code and never returns to BASIC, so line 9 acts as a safety net. Lines 10 and 11 are developer utilities unreachable during normal program flow.
Content
Image Gallery
Source Code
1 REM ETRND FASTLN F?LN 3\~~Y>NOT U5RNDACS #4AE:RND FASTLN ## LPRINT RETURN#C SCROLL CLEARACS 5# 4U RETURN#C5 RETURN-C▒ RETURN0S SLOW RETURNAK STEP NOT /<>▛▛J NEW▝LEN ▝M2RND5 Y>NOT /ACS Y<NOT LN (INKEY$ S[N] LPRINT STR$ FASTLN 3\~~AT LN /\,, LPRINT [B]TAN RETURN#CA RETURN0S[I] RETURNGK[E]NOT CHR$ 0#- ; FOR 52RNDPC OR FOR DDDD/[+] CLEARACS 5#""ACS #COS LPRINT LPRINT RTAN ) ## RETURN-4▖7£/ RUN FASTCHR$ 0#A ; FOR LPRINT 7# RETURN<C+ RETURN#C) FASTSTR$ LPRINT ▞\,,;FLN ▖INKEY$ 7( SAVE FOR LPRINT /PEEK [*][T]COS [B] GOSUB # GOSUB # FOR [B]TAN 6MRNDACS [W]SGN TAN UVRND PRINT LN F?LN ##[B]4▝INT COPY RETURNC4 POKE LET ACS #""#7?###P?### PRINT ▒#▘ ##"VAL ▞(##5 DACS )*K▘;( RUN AT TAN :▘/▞:▝/▝: #[E] NEW█#STR$ LN GOSUB INKEY$ STOPLN GOSUB INKEY$ FOR LPRINT #[B]CQ#[L] FAST GOSUB # GOSUB # FASTAT SGN 5 RZ PRINT ##2▒DK▌[?] GOSUB #/\,,▗ GOSUB #S▀ GOSUB PIXW14 GOTO # LET K LLIST ACS #4▘ FOR ACS #COS /"LN #INKEY$ ACS (SQR /▀#▛SQR FOR [B] GOSUB # GOSUB #TAN #▛S▞[P]COS 5▘ TAN 5 COPY COPYTAN [B] GOSUB #TAN [B] GOSUB ##[P]5 ""GTAN [B] GOSUB #COS / STOP FOR ▘ █/▖ FOR ▘▘█#[C]##[C]# GOSUB #A ##** INPUT ▘#TAN #[P]5 COS #[N]COS GTAN #[P][M] GOSUB #/ PRINT Y▘/▘[J] STOP#7#7 STOPFD;[B]C▒ FOR LPRINT STOP FOR #7#TAN #7# FOR TAN FOR LN #PI FOR TAN STR$ )# GOSUB #MRND▀##LN \,,< FAST##LN \,,<AT #▟K▘▖##[(]K▘9#F##INKEY$ U5RNDACS #4,ACS #4\~~ACS #C▞Y-NOT LN LIST INKEY$ ▘ LIST **2 COPYVAL LN LPRINT ▛LN [H]\~~ FASTAT 5#RND#20#ACS #C▘#[*] GOSUB #▄NOT [*] GOSUB #▄NOT ACS #ACS IF C LOAD TAN LPRINT #7 RETURN#CJ RETURN#4▀NOT / NEXT LN #INKEY$ / INPUT [*]/▝Y[(]##5KRND##STR$ FASTLN [M]" LPRINT SGN #TAN LN £PI#[P] STOP#7#7 STOP"" LPRINT FOR DIM # NEW3# CLEARACS ▘#C\~~ CLEAR[-]SACS COPYLEN WUSR #▒ CLEAR▚T RETURN5UURND THEN▘LN IF ▒ CLEARACS ▘LEN TAN LPRINT #7#7 FASTSTR$ 5▛ ;▞▖#F#FSTR$ ( RAND LPRINT AT SGN #; FOR LPRINT STOP#7#VAL LPRINT ▛K▘ FOR LN .PI LPRINT **AT DIM FOR #TAN AT FASTAT TAN #A TAN ) AND ZSTR$ FASTTAN VAL LPRINT TAN FOR LN ## FOR TAN LN ##S CLSLN ##K CLSSTR$ LN [V]▝ FASTAT G#C▖LN [X]▛#A #SGN TAN ▘/▀)[L]#5▚# GOSUB [K]TAN #Y#NOT ▘/▀)##5## GOSUB [K]TAN #Y#NOT ▘/▀)##5[L]# GOSUB [K]TAN #Y#NOT ▘/▀)##5## GOSUB [K]TAN #Y#NOT ▘" )SIN #5\~~# GOSUB [K]TAN #Y#NOT /1<<<<<<<<<<<<<<<<<<<<<<<▘\~~ GOSUB [K]TAN )W#5[B]#LN CLS#LN SLOW#LN SLOW#LN SLOW#LN SLOW#LN SLOW#LN SLOW#LN SLOW#LN SLOW#LN SLOW#TAN #Y#NOT ▘1 )[L]#5[I]# GOSUB [K]▘. )ABS #5ACS # GOSUB [K]▘; ) NEXT #5 NEW# GOSUB [K]▘* )=#5[,]# GOSUB [K]▘+ )P#5[L]# GOSUB [K]▘< )##5SIN # GOSUB [K]▘) )##5▝# GOSUB [K]▘? )[/]#5▖# GOSUB [K]▘$ )[T]#5▞# GOSUB [K]▘▌ ) RETURN#5)# GOSUB [K]▘▛ )1#5?# GOSUB [K]▘\,, )W#5$# GOSUB [K]▘" )##5"# GOSUB [K]▘$ )##5-# GOSUB [K]▘? )[;]#57# GOSUB [K]▘) )[S]#5M# GOSUB [K]5SGN #Q#▘5 \,,Q#\,,Q#\,,Q#\,,Q#\,,Q#\,,Q#\,,Q#\,,Q#\,,Q#\,,Q#\,,Q#7Q 7Q 7Q ▘2 \,,Q#7Q ▀▀\,,Q#▀\,,Q#\,,Q#""\,,Q 7Q 7Q## AND # AND RX #Y#NOT /-<<<<<<<<<<<<<<<<▘) GOSUB [K]TAN ) IF #5[Z]#LN ##LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#TAN #Y#NOT ) OR #5["]#LN ##LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#LN Z#TAN #Y#NOT 5##Q▐7Q[,,]7Q█7Q█7Q[0]7Q█7Q[.]7Q▛▘. \,,Q\~~7Q[▒]7Q[,,]7Q█7Q█7Q▛▘2 \,,Q\~~7Q[▒]7Q▛TAN #Y#NOT 5##Q▐7Q[,,]7Q▞7Q▞7Q[0]7Q▞7Q▞7Q▞▘. \,,Q\~~7Q[▒]7Q[,,]7Q▞7Q▞7Q▞▘2 \,,Q\~~7Q[▒]7Q▛TAN #Y#NOT 5▖#Q█7Q█7Q█7Q█7Q█7Q█7Q█7Q▛▘. \,,Q▀7Q█7Q█7Q█7Q█7Q▛▘2 \,,Q▀7Q█7Q▛TAN #Y#NOT 5INKEY$ #)ATN #▘\,, GOSUB [K]) SCROLL#▘\,, GOSUB [K])[.]#▘\,, GOSUB [K]TAN #Y#NOT - - - - - . . . . . . █▀ ▚ ▄▀▄▀▝▖ ▄▄▀ ▖▚ ▗ ▄\~~[,,]▄ ▚ ▄▀ . \~~[,,]▄ ▄▀ . \~~ ▄▀ . ▄▀ ▄▀ ▀ ▄▀ ▄▀▝▖ ▄▀▖▚ ▗ ▄▀ ▚ #Y#NOT LN ABS PI▛▀▀▀▀▀▀▀▀▀▜ 000000 ▌ NEARING ▐ ▀▀▀▀▀▀ ▌ CASTLE ▐ # ▛▀▀▀▀▀▀▀▜# ▌0:00:09▐# ▙▄▄▄▄▄▄▄▟# ▄ ▄▀ ▄▀ ▄▀ ▄▀ . ▀ ▗▄ . ▗[/]▛▚ ▗▄ ▜▛▖▖▘ ▗[/]▛▚ ▜▛▖▖▘ ▄ ▄ ▄▀ ▄▀ . ▄▀ ▐[.] ▄▄▀. ▗[.]▛▚\~~[,,]▄ .▝▛▖▞ \~~[,,]▄ . . \~~[,,]▄ . . \~~[,,]▄ . \~~[,,] ▄ ▄▀ ▄▀ ▄▀ ▄▖ ▄▀. ▐▞▟ ▀ ▄▖ ▐▞▟ .▐▞▟ ▟▟▟▖ ▐▞▟ ▝▜▀ . ▟▟▟▖. ▝▜▀ . ▄ ▄ ▄▀ ▗\,,\,,\,,▟▚\,,▖▀▀▀[(][(][(]▘.█[(] ▄▀ ▝▙▐▘▘▀ . ▟▐▄ .▝▜▄▘▄▀ .▝▀ . . . ▄ ▄ ▞▖ ▄▀ ▗▘▝▖ ▄▀ ▞ ▝▞ ▗ ▌-[-]▌▝▚▖▌▚ ▙▖▐-[-]▌▐ ▚▌▝▜▖▐ ▌ ▗▚▖ ▝▜▟ ▐ ▝▚▖ ▐ ▗▞ ▝▚▟▗▞▘▄ : ▄ [▒][▒][▒] ▄▀ ▜[.]▛▄▀: [~~][▒][▒] [▒][▒][▒] -[~~][▒][▒] ▜[.]▛ ▀ [▒][▒][▒] [~~][▒][▒] [▒][▒][~~]-[~~][▒][▒] ▟▜▜▘▘[▒][▒][▒] [▒][▒][~~]▛ ▟▜▜▘▙ ▄ ▄▀ ▄▀ ▄[,,] ▄[,,]\~~▗[~~]▖ [,,]\~~▀▀█▙▘\~~\,, [▒][,,]▄.▝▘ .[~~]\~~[▒][▒][,,]▄..▄[,,][▒] \~~[▒][▒][,,][,,][▒]\~~ \~~[▒]\~~ ▄ ▄ \,,[▒]\,,▀ [~~][▒][▒][▒][▒]\,, ▄▌[.][~~][▒][~~][.] ▄/. ▀▌[.]▐▀▀,M ,. ▀ MV,M ,. .V MV,M ,. .V MV M .V V▄ ▄ ▄ \,,▒\,, ▒▀ ▜[~~]▒[~~]▒ \,,█▟▜█▒ \,,▒[▒]▒[,,]█[,,]▒\,, █[~~]▒▒[▒]▒[▒][~~]▒[~~]█▟▜[~~][▒]▒▒[~~]▛█ ▀█▟▜[~~]▛▙█▀ ▀█▙█▀ ▀ ▄ ) ▄ ) [,,]▄) [,,] ▄[▒] [,,] [▒]▄▀ [▒] [▒] ▄[▒] [~~][,,][▒][▒] ▀.[▒] .▙▛[~~][,,][~~] [▒] ▀█▙▛█ ▟[▒]▖. ▀█▀▝█▜█▖ . ..▝▜▛ .▄ ▄ ▖▄▀ ▖ ▞▟▖ . ▞▟▞.▟[.]▖ ▟.▟[.]▖▞▘. ▀.▘▞▘ . ▖ . ▖. ▞▟▖ ▞▟▖ ▞.▟[.]▖▞.▟[.]▖ ▘▞▘ ▘▞▘▄ ▄ ▄▀ ▄▀ ▄▀ ▄ ▄[,,]▄ ▄[,,][▒][,,]▄▛[~~][▒][▒][,,][▒][▒][▒][▒][~~]▛▙▛[~~][▒][▒][▒][~~]▛▙▀▙▛▙▛[~~]▛▙▛▙ ▀▙▛▙▛▙▀ ▀▙▀ ▄ ▄▄▀ ▄ ▄ ▄\~~[,,]▄ [,,]▄[▒]▀[,,] ▄▀ ▄▀ . \~~[,,]▄[▒][▒][▒][,,][▒]█[▒]▄[,,] ▄ [,,]▄. \~~[▒][▒][▒][~~][~~][▒][▒][,,][▒][,,][▒][,,][▒][▒]▄[,,].[▒][▒]█[T][T][~~][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒]▄[▒]█[T][T][T][T][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒]█[T][T][T][T][▒][▒][▒][▒][▒][▒][▒]█[▒][▒][▒] ▀[T][T][T][T][▒][▒][▒][▒]█[▒][▒][▒][▒][~~]▀ ▀[T][T][▒][▒][▒][▒][▒][▒][▒][~~]▀▝▖ ▀[▒][▒][▒][▒][▒][~~]▀▖▚ ▗ \~~[▒][~~]▀ ▚ ▄[,,] ▄▄▀ ▄[,,][▒][▒] ▄\~~[,,]▄ [,,][▒][▒][▒][▒] ▄▀▄. \~~[,,]▄ [▒][▒][▒][▒][▒]▄▀▄[,,][▒] . \~~ ▄[▒][▒][▒][▒][▒]▄[,,][▒][▒][▒] . [▒][▒][▒][▒][~~][▒][▒][▒][▒][▒][▒] [,,][▒][▒][▒]█[*]█[▒][▒][▒][▒][~~][,,] \~~[▒][▒][,,][~~][,,]█[▒][▒][~~][,,][▒][▒] \~~ \~~[,,][~~][▒][,,][▒][▒][▒][▒]▄ ▄▀=▒ \~~[▒][▒][▒][▒][~~][,,][▒]▀ ▟█▚ [▒][▒][~~][,,][▒]\~~ ▝▘ \~~[▒]\~~ █▀ ▚ ▐▒ ▄▀▄▀▝▖ ▐ ▄▄▀ ▖▚ ▗ ▄▐ ▄\~~[,,]▄ ▚ [,,]▄▜▙ . \~~[,,]▄ ▟[-]█▄[▒][▒][,,]▄[,,]▄ . \~~▀\~~[~~][~~]█[,,][~~][,,]▄\~~[▒][,,][▒] . [,,]▙▛[,,][~~][▒][,,][~~][,,]▄[▒][▒]▀▄ [,,][~~][▒][,,][~~][▒][,,][~~][▒][,,][~~][▒][▒]▄.▀▄[▒][▒][,,][~~][▒][,,][~~][▒][,,][~~][▒][▒][▒][▒][,,][,,][▒]▀[~~][▒][▒][,,][~~][▒][,,][~~][▒][,,][▒][▒][▒][▒][~~]▀ ▀[~~][▒][▒][,,][~~][▒][,,][▒][▒][▒][~~]▀▝▖ ▀[~~][▒][▒][,,][▒][▒][~~]▀▖▚ ▗ ▀[~~][▒][~~]▀ ▚ ▐[P][R][E][S][S][:] P...PLAY R...RULESYOUR FUEL TANK IS RUPTURED.ARMOR HAS BEEN DAMAGED. ENERGY PODS DAMAGED. CREW HAS COMPLETEDREPAIRS. SHRAPNEL DAMAGE SUSTAINEDGRAPPLING OF FUEL A SUCCESSGRAPPLING OF FUEL FAILED. FORTRESS OF MIGHTYXON AHEADBEGINNINGXON FINALAPPROACH.YOU HAVE CAPTURED XON...... CAPTURE ATTEMPT FAILED. CRAFT DESTROYEDGAME OVERTRY YOUR LUCK ONCEMORE? Y/NMAYBE YOUCAN DO ITNEXT TIME GRENADE LAUNCHERS AHEAD. INTENSE RADIATION AHEAD. CAUTION: MISSILE SILOS NEARING PHOTON BATTERY PARAPET AND GUNS AHEAD COMING UP ON GUARD TOWERS. HEAVY ARTILLERY AHEAD. NEARING XONS FUEL DEPOT. ROBOTICS FACTORY AHEAD. TRACKING TOWERS COMING UPMUNITIONS VAULTS AHEAD. PRISON CELLBLOCK AHEAD. NEARING CASTLE KEEP... █▐[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]▌[▒]█#[▒] [X] ▄#▄ ▗█▀█▖ [▒]#[▒] ▗▗▚▐▌[▒]▐▌▞▖▖ ▀#▄ ▗▚▚▘▙[,,]█▄█[,,]▟▝▞▞▖ [▒]#[▒] ▞▖▙▟▜▌[▒][:] [:][▒]▐▛▙▟▗▚ ▀#▄ ▙▐▄▌[X]▞[X][▒][:]▀[:][▒][X]▚[X]▐▄▌▟ [▒]#[▒] ▙▟▐▙▜▌[X][▒][:]▄[:][▒][X]▐▛▟▌▙▟ ▀#▄ ▗▖▜▟▞[X]▐▌[X][▒][:] [:][▒][X]▐▌[X]▚▙▛ [▒]#[▒] ▌ ▜▙[X]▀▀▀▀▀▀▀▀▀▀▀[X]▟▛ ▀#▄ ▛▖▝▌.............▐▘ ▞▘ ▒#[▒] ▐▞▞▖▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▌ ▀#▄▖▄▄▟▟▟▐[▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒]\,,\,,\,,[,,]\,,\,,\,,\,,#███[~~]█▜▙█[~~][~~][~~][~~][~~][~~][~~][~~][~~][~~][~~][~~][~~]\~~\~~\~~\~~\~~\~~ ▜▖ \,,# ▝▙ ▙▚▘\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,▟▜▗ ▜▖▀#\~~\~~\~~[~~]\~~[~~][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒][▒]█▜▙█[,,]███#▄ ▝▜ ▄▄▖ ▀▀▀▀▀▀▀▀▀▀▀▀▀▌▛▛▛▀▀▝▀#[▒] ▐▝▄▀▜[Y][O][U][R][S]█[I][S]█[T][H][E]▙▟▘▝▞▞▌ ▀#▄ ▝▘▝ ▝▀▀ ▝▟ [▒]#[▒] ▜▟▗▌▝ ▌ ▐▌▐ ▀#▄ ▜▟ ▌▟▘▞▜▝▛▘▞▜▝▞▘▜▝▌▝▌▝▘ [▒]#[▒] ▝█▗▘▐ ▌▗ ▌▖▌▐ ▌ ▐ ▌ ▘ ▀#▀ ▗ ▝▘ ▝▘▝▘ ▀ ▀▘ ▀ ▗▀ ▝▘ [▒]#█[▒]▐[▒] ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▚▝▀ [▒]▌[▒]▌█#000 CITY OF XON RULES: # ▝▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▘ #1. ARROW KEYS CONTROL YOUR CRAFT# (FLYING TOO LOW IS DANGEROUS) #2. A...SWITCHES ARMOR ON AND OFF#3. S...SWAP +300 POINTS FOR FUEL#4. D...FIRES POWERFUL DISRUPTOR #5. F...FIRES LESS POTENT PHASER #6. G...LOWERS GRAPPLING HOOK TO # TETHER FUEL OR TO CAPTURE XON #7. Q...TO QUIT (HALTS GAME) #--------------------------------#▄▄▄▄▄ *FUEL GENERATED IN FLIGHT#[W][O][R][D][S] IF NO ARMOR OR GUNS USED#[T][O]███ ▀▀ #[T][H][E]██ *TO MEET XON▐[S][C][O][R][E]▌300000#[W][I][S][E][:] AND▐[T][I][M][E]▌2:00:00 NEEDED #▀▀▀▀▀ ▀▀▀▀▀▀ #*HOOKING FUEL YIELDS HALF TANK # ▀▀▀▀ ▀▀▀▀ #*HITS CAN DAMAGE UNARMORED CRAFT# (ION FIELD RAYS ARE INVISIBLE) # ▀▀▀▀▀▀▀▀▀ #*BEST OF LUCK* B.....TO BEGIN# ▌ KEEP... ▐ ▙▄▄▄▄▄▄▄▄▄▟ ▒▒▒▒▒▒▒▒▒▒▒▒ ▘" ) AND #5\,,# GOSUB [K]▘\,, ) CLS#5\,,# GOSUB [K]▘▛ )0#5\,,# GOSUB [K]▘▌ )X#5\,,# GOSUB [K]TAN [~~]\~~\,,▒\,,▒▗\~~\,,[~~]\,,\,,[,,]▒▒\~~\,,[,,] ▗[~~]▒\,,▒\~~\~~▒▒[,,]\~~\,,▒\,, ▝ \~~\,,▒\~~▒▗▝▗█▖\~~[~~]\,,[~~]▒▒ ▞▛▖▘▒[~~]\~~[,,]▒\~~▗ ▖▒▒\~~\,,\~~▒▒\,,▒\~~▒▒[,,]\~~[~~]▒\,,▒▒▒\~~[,,]▖ ▝▒\~~[,,]▒[~~]\~~\,, ▄ ▄▀ ▄▀ ▄▀▀▀▄ ▄▀-[=]█▖ ▄▀ [▒][,,]▄▀ ▄▀ ▄▀[~~][▒][▒][,,]▄ -[=]█▖ ▄▀▗ ▀[~~][▒][▒][,,]▄▀ ▄ ▄▀▗▝ ▄[,,][~~][,,][~~][▒][▒][,,]▄[,,][▒][▒][~~] ▄▀▗▝ ▄ ▀[~~]▀ ▀[~~][▒][▒][▒][~~]▀▖▘ ▄▀▗▝ ▄[,,][~~][,,]▄ ▗ ▀[~~]▀ ▚ ▄▀▗▝ ▄ ▀[~~]▀ ▗▝ ▄▀▝▖ ▄▀▗▝ ▄[,,][~~][,,]▄ ▗▝ ▄▀▖▚ ▗ ▄▀▄▝ ▀[~~]▀ ▗▝ ▄▀ ▚ ▄▀. ▀▄ ▗▝ ▄▀▝▖ ▄▀. . ▀▄ ▗▝ ▄▀▖▚ ▗ ▄▀. ▄ . ▀▄▄▝▝▄▀ ▚ ▄▀. ▄█▌▛▄ . ▀▄▀▝▖ ▄▀. ▄███▌▌▌▛▄ ▄▀▖▚ ▗ ▄▀ ▀████▌▌▌▌▌▀ ▄▀ ▚ ▄▀. ▀██▌▌▌▘ ▄▀▝▖ ▄▀▄ . ▀▌▘ ▄▀▖▚ ▗ ▄▀▗▝ ▀▄ . ▄▀ ▚ ▄▀▗▝ ▀▄ . ▄▀▝▖ ▄▀▗▝ ▄[,,]▄ ▀▄ ▄▀▖▚ ▗ ▄▀▗▝ ▄ ▀[~~][,,][~~]▀ ▖▘▀▄▀ ▚ ▄▀▗▝ ▄[,,][~~][,,]▄ ▀ ▖▘ ▄▀▝▖ ▄▀▗▝ ▄ ▀[~~]▀ ▖▘ ▄▀▖▚ ▗ ▄▀▗▝ ▄[,,][~~][,,]▄ ▖▘ ▄▀ ▚ ▄▀▗▝ ▄ ▀[~~]▀ ▖▘ ▄▀▝▖ ▄▀▗▝ ▄[,,][~~][,,]▄ ▖▘ ▄▀▖▚ ▗ ▄▀▄▝ ▀[~~]▀ ▖▘ ▄▀ ▚ ▄▀. ▀▄ ▖▘ ▄▀▝▖ ▄▀. . ▀▄ ▖▘ ▄▀▖▚ ▗ ▄▀. ▄ . ▀▄▖▘ ▄▀ ▚ ▄▀. ▄█▌▛▄ . ▀▄▀▝▖ ▄▀. ▄███▌▌▌▛▄ ▄▀▖▚ ▗ ▄▀. ▀████▌▌▌▌▌▀ ▄▀ ▚ -[-]█▄ . ▀██▌▌▌▘ ▄▀▝▖ ▄▀▀-[-]█▄ . ▀▌▘ ▄▀▖▚ ▗ ▄▀. ▀-[-]█▄ . ▄▀ ▚ ▄▄▀. . ▀-[-]█▄ ▄▀▝▖ ▄\~~[,,]▄ . . ▀-[-]█▄▀▖▚ ▗ ▄▀ \~~[,,]▄ . . █▀ ▚ ▐▒ ▄▀ \~~[,,]▄ . ▄▀▝▖ ▐ ▄▄▀ \~~[,,]▄ ▄▀▖▚ ▗ ▄▐ ▄\~~[,,]▄ \~~[,,]▀ ▚ [,,]▄▜▙ . \~~[,,]▄ ▄▀▝▖ ▟[-]█▄[▒][▒][,,]▄[,,]▄ . \~~[,,]▄ ▄▀▝▖ ▀\~~[~~][~~]█[,,][~~][,,]▄\~~[▒][,,][▒] . \~~[,,]▄ ▄▀▖▚ ▗ [,,]▙▛[,,][~~][▒][,,][~~][,,]▄[▒][▒]▀▄ . \~~[,,]▀ ▚ [,,][~~][▒][,,][~~][▒][,,][~~][▒][,,][~~][▒][▒]▄.▀▄ ▄▀▝▗ ▄[▒][▒][,,][~~][▒][,,][~~][▒][,,][~~][▒][▒][▒][▒][,,][,,][▒]▄▀▖▚ ▗ ▄▀ ▀[~~][▒][▒][,,][~~][▒][,,][~~][▒][,,][▒][▒][▒][▒][~~]▀ ▚ ▄▀ ▀[~~][▒][▒][,,][~~][▒][,,][▒][▒][▒][~~]▀▝▖ ▄▀▀▀▄ ▀[~~][▒][▒][,,][▒][▒][~~]▀▖▚ ▗ ▄▀-[=]█▖ ▀▄ ▀[~~][▒][~~]▀ ▚ [▒][,,]▄▀ ▀▄ ▄▀▝▖ ▄▀[~~][▒][▒][,,]▄ -[=]█▖ ▀▄ ▄▀▖▚ ▗ ▄▀▗▝ ▀[~~][▒][▒][,,]▄▀ ▄[,,][▒] ▄▀ ▚ ▄▀▗▝ ▄[,,][~~][,,][~~][▒][▒][,,]▄[,,][▒][▒][~~]▀▝▖ ▄▀▗▝ ▄ ▀[~~]▀ ▀[~~][▒][▒][▒][~~]▀▖▚ ▗ ▄▀▗▝ ▄[,,][~~][,,]▄ ▗ ▀[~~]▀ ▚ ▄▀▗▝ ▄ ▀[~~]▀ ▗▝ ▄▀▝▖ ▄▀▗▝ ▄[,,][~~][,,]▄ ▗▝ ▄▀▖▚ ▗ ▄▀▄▝ ▀[~~]▀ ▗▝ ▄▀ ▚ ▄▀. ▀▄ ▗▝ ▄▀▝▖ ▄▀. . ▀▄ ▗▝ ▄▀▖▚ ▗ ▄▀. ▄ . ▀▄▗▝ ▄▀ ▚ ▄▀. ▄█▌▛▄ . ▀▄▀ ▖ ▄▀. ▄███▌▌▌▛▄ ▄▀▖▚ ▗ ▄▀. ▀████▌▌▌▌▌▀ ▄▀ ▚ ▄▀ . ▀██▌▌▌▘ ▄▀▝▖ ▄▀ . ▀▌▘ ▄▀▖▚ ▗ ▄▀ . ▄▀ ▚ 5##6##5 RUN # FAST5# SGN LN ##5 SAVE # FAST5# SGN LN ##5#▘6##5<▘6##5 6##5 6##5 6##50 6##50 6##50 6##50 6##50 6##5£ 6##5##6##5 6##5 6##5£RNDLN ## FAST5$RNDLN ## FOR 5 ▘LN [,]INKEY$ FOR LPRINT ;)▘ ;6##50 6##50 6##50 6##) ▘E##LN [-]INKEY$ 6##) ▘E##LN [>]INKEY$ 6##50 6##5 LPRINT 6##5[A]# FASTE##SGN LN ##5[B]# FASTE##SGN LN ##5# 6##5[Q]# FASTE##SGN LN ##5[R]# FASTE##SGN LN ##5LEN # FASTE##SGN LN ##5SIN # FASTE##SGN LN ##LN E\~~5▘ 6##5""▝6##5▘ 6##5 PLOT #6▟#LN ABS PI█#LN J###5\,, FAST5\~~ SGN LN #INKEY$ LN ABS PI[C][I][T][Y]█[O][F]█[X][O][N]#Y#NOT 5 FAST5▝ SGN LN #INKEY$ LN ABS PI[C][O][P][Y][R][I][G][H][T]█[1][9][8][3]█[P][L][E][A][S][A][N][T][R][E][E][S]#Y#NOT 5> FAST5 SGN LN #INKEY$ LN ABS PIPRESS P..TO PROCEED R..FOR RULES#Y#NOT LN ##6##)P E##LN \,,PILN IF PIR#)R E##LN \,,PILN IF PI[5]####LN [6]#LN ##6##5$ FAST5▌ SGN LN #INKEY$ LN ABS PI-▖#Y#NOT )B E##LN \,,PILN IF PIR#)Q E##LN \,,PILN CLEARPI<>#LN ##LN RUN #5$ FAST5▌ SGN LN #INKEY$ LN ABS PI #Y#NOT #[8]#5▘ 6▄#5G▘6▐#5▘ 6▗#5?#6[,,]#LN J#▄#LN ##5▘ 6▄#5# 6▐#5▘ 6▗#5J#6[,,]#LN J#▄#LN ##5 6["]#5 6[$]#5## FAST5# SGN LN ##5## FAST5# SGN LN ##LN ##5[;]# FAST5# SGN LN ##5[,]# FAST5# SGN LN ##LN [>]#5LEN #6##5SGN #6##5▘ 6##5[$]#6▟#E## FAST5▒ SGN LN ##LN J###5D#6##5J#6##5▘ 6##5[P]#6▟#E## FAST50 SGN LN ##LN J###5E# FAST5: SGN LN ##5H# FAST5: SGN LN ##5[U]#6##5[X]#6##5▘ 6##5 NEXT #6▟#E## FAST50 SGN LN ##LN J###5[R]# FAST5# SGN LN ##5[S]# FAST5# SGN LN ##LN E#LN [Q]#5R# FAST5▖ SGN LN ##5S# FAST5# SGN LN ##5## FAST5 SGN LN ##LN Q#LN [M]#LN ##6##)R E##LN \,,PILN IF PI[5]#)P E##LN \,,PILN IF PI RETURN####)$ LN #PILN [-]INKEY$ 6##)1 E##LN 4PI FAST)2 E##LN 4PI FOR LPRINT LN PPILN IF PI AND #)▌ E##LN 4PILN IF PI PLOT #) E##LN \,,PILN IF PI[<]#)▘ E##LN \,,PILN IF PI##)▝ E##LN \,,PILN IF PIEXP #)▀ E##LN \,,PILN IF PI\,,#)▖ E##LN \,,PILN IF PI##)▌ E##LN \,,PILN IF PI[U]#)▞ E##LN \,,PILN IF PI##)▛ E##LN \,,PILN IF PI##)▒ E##LN \,,PILN IF PIE#)\,, E##LN \,,PILN IF PI PRINT #)\~~ E##LN \,,PILN IF PITAN #)" E##LN \,,PILN IF PI[=]#)£ E##LN \,,PILN IF PI RETURN#5▌# FAST5# SGN LN ##5▞# FAST5# SGN LN ##5## FAST5 CLEAR SGN LN ##5## FAST5# SGN LN ##5* 6[?]#5\,, 6###Q#5▌# FAST5[B] SGN LN ##5▞# FAST5# SGN LN ##5## FAST5/ SGN LN ##5## FAST5# SGN LN ##5 6[?]#5\,, 6###Q#5▌# FAST5" SGN LN ##5▞# FAST5# SGN LN ##5## FAST5N SGN LN ##5## FAST5# SGN LN ##5▌ 6[?]#5▒ 6###Q#5▌# FAST5# SGN LN ##5▞# FAST5# SGN LN ##5## FAST5[3] SGN LN ##5## FAST5# SGN LN ##5▀ 6[?]#5▛ 6###Q#5▌# FAST5PEEK SGN LN ##5▞# FAST5# SGN LN ##5## FAST5# SGN LN ##5## FAST5# SGN LN ##5= 6[?]#5▛ 6###Q#5▌# FAST5R SGN LN ##5▞# FAST5# SGN LN ##5## FAST5▜ SGN LN ##5## FAST5# SGN LN ##5\,, 6[?]#5▞ 6###Q#5▌# FAST5[.] SGN LN ##5▞# FAST5# SGN LN ##5## FAST5# SGN LN ##5## FAST5# SGN LN ##5. 6[?]#5▒ 6###Q#5▌# FAST5 COPY SGN LN ##5▞# FAST5# SGN LN ##5## FAST5[U] SGN LN ##5## FAST5# SGN LN ##5\,, 6###Q#5▌# FAST5# SGN LN ##5▞# FAST5# SGN LN ##5## FAST5STR$ SGN LN ##5## FAST5# SGN LN ##5▌ 6###Q#5▌# FAST5SIN SGN LN ##5▞# FAST5# SGN LN ##5## FAST5 LIST SGN LN ##5## FAST5# SGN LN ##5▞ 6###Q#5▌# FAST5F SGN LN ##5▞# FAST5# SGN LN ##5## FAST5" SGN LN ##5## FAST5# SGN LN ##5\,, 6###Q#5▌# FAST5[?] SGN LN ##5▞# FAST5# SGN LN ##5## FAST5A SGN LN ##5## FAST5# SGN LN ##5▒ 6###Q#5[▒]# FAST5["] SGN LN ##5[,,]# FAST5# SGN LN ##LN ▜#5## FAST5INKEY$ SGN LN ##5## FAST5# SGN LN ##5▖ 6###T#LN LLIST #LN ##5##6[)]#)9 E##LN 4PILN CLEARPI##)▘ E##;6##)9 E##LN 4PILN CLEARPI##)\~~ E##LN ▌PI6##)A E##LN \,,PILN CLEARPI[£]#)▘ E##;6##)A E##LN \,,PILN CLEARPI[4]#50 6##)A E##LN \,,PILN CLEARPI[S]#)▘ E##;6##)A E##LN \,,PILN CLEARPIATN #50 6##5[U]# FASTE##SGN LN ##5[V]# FASTE##SGN LN ##5[W]# FASTE##SGN LN ##5[X]# FASTE##SGN LN ##)▘ E##;6##)A E##LN \,,PILN CLEARPI,#)▘ E##;6##)A E##LN \,,PILN CLEARPII#50 6##)6 E##LN \,,PILN CLEARPI##)▘ E##;6##)6 E##LN \,,PILN CLEARPI##50 6##)A E##LN \,,PILN CLEARPI##)▘ E##;6##)A E##LN \,,PILN CLEARPI▚#50 6##)6 E##LN \,,PILN CLEARPI[2]#)▘ E##;6##)6 E##LN \,,PILN CLEARPI[M]#50 6##5J# FASTE##SGN LN ##5I# FASTE##SGN LN ##5G# FASTE##SGN LN ##5F# FASTE##SGN LN ##5D# FASTE##SGN LN ##)S E##LN \,,PILN IF PI IF ####)4 E##LN 5PILN IF PI*#)▀ E##LN ▌PI6#####)1 E##LN 5PILN IF PIO#)▘ E##LN ▌PI6#####)1 E##LN 5PILN IF PI##)▘ E##LN ▌PI6##59 6##57 6##)# E##;6##)▘ E##;6##)<▘E##LN 4PILN CLEARPI▙#5<▘6##LN ABS #)▘ E##LN 5PILN IF PI##5LEN #6##); E##LN [>]INKEY$ FOR 5LEN #;6##5▘ 6##5[Q]#6▟#E## FAST5▒ SGN LN ##LN J###)▘ E##LN \,,PILN CLEARPI STEP #)▝ E##LN ▌PI6##)##E##LN ▌PI6[<]#)5 E[<]#LN [>]INKEY$ 6[<]#)[H]#E[)]#LN 5PI FAST) NEXT #E[)]#LN 4PI FOR LPRINT LN PPILN IF PI/##Q# GOSUB ###E[<]#LN 5PILN IF PIQ# GOSUB ###E[<]#LN .PILN IF PI##LN ##6##5[,]# FAST) ▘E[)]#LN [>]INKEY$ SGN LN ##5[;]# FAST) ▘E[)]#LN [-]INKEY$ SGN LN ##)▚#E[)]#LN 5PI FAST)[H]#E[)]#LN 4PI FOR LPRINT LN PPILN CLEARPI##LN SLOW#)█#E[)]#LN 5PI FAST)CODE #E[)]#LN 4PI FOR LPRINT LN PPILN CLEARPI[2]#LN IF #)£ E##LN \,,PILN CLEARPI[J]#LN >#)£ E##LN 4PILN CLEARPI""#LN ▞#)£ E##LN 5PILN CLEARPISGN #LN [4]#) E##LN 4PILN CLEARPI LLIST #LN ##)▘ E[$]#LN \,,PILN IF PI£#) E["]#LN 4PILN CLEARPI▘#LN ##)"#E[)]#LN 5PI FAST)##E[)]#LN 4PI FOR LPRINT LN PPILN CLEARPI5#LN FOR #)A E##LN \,,PILN CLEARPIM#LN S#)D E##LN 5PILN IF PI##)G E##LN \,,PILN IF PI##)F E##LN \,,PILN IF PIL#)D E##LN \,,PILN IF PIL#)Q E##LN \,,PILN CLEARPI##LN ###SIN #)5 E##LN \,,PILN IF PI>=#)6 E##LN \,,PILN IF PI RAND #)7 E##LN \,,PILN IF PI=#)8 E##LN \,,PILN IF PIL#)Q E##LN \,,PILN CLEARPISIN #LN ##)3 E[)]#LN ▌PI6[)]#)##E[)]#LN 5PILN IF PI SLOW##PI#5[▒]# FAST5ASN SGN LN ##5[,,]# FAST5# SGN LN ##LN ▜#)$ E##LN \,,PILN IF PI+#): E##LN \,,PILN IF PI##5##LN ##)# LN 4PILN IF PI##5## FAST5USR SGN LN #####)▘ E##LN \,,PILN IF PI##) E##LN \,,PILN CLEARPI##5▘ 6##LN ##5 6##LN ##)▌ E##LN ▌PI6##)5 E[<]#LN [,]INKEY$ GOSUB ###; GOSUB ###; GOSUB ###;)"▘;6[+]#) E##LN \,,PILN CLEARPI[D]#)[S]▝E##;6##)▘ E##LN \,,PILN CLEARPIAT #)<=▝E##;6##)▝ E##LN \,,PILN CLEARPI OR #) RETURN▝E##;6##) E##LN \,,PILN CLEARPI GOSUB #5##6[*]#)▘ E##LN \,,PILN CLEARPI▘#5##6[*]#)▝ E##LN \,,PILN CLEARPI+#5[$]#6[*]#E##LN ##)[*] LN \,,PILN CLEARPIG#5▘ 6[$]#E##LN ##)M LN \,,PI FASTE##LN ##), LN \,,PI FOR LPRINT LN RNDPILN IF PI[R]#E##LN ##)V LN \,,PILN IF PI[R]#): E##LN \,,PILN IF PI##)▘ E[$]#LN \,,PILN IF PISIN ##[2]#E[+]#6##E##6##55 6##5[*]#6▟#E## FAST5: SGN LN ##LN J###5 6##LN ##)- E##LN ▌PI6##)▖ LN #PILN [-]INKEY$ 6[;]#) E[;]#LN \,,PILN CLEARPI>=#5▄ 6▄#)▘ E[;]#LN \,,PILN CLEARPI LIST #5[2] 6▄#)▝ E[;]#LN \,,PILN CLEARPI▖#5[T] 6▄#)▀ E[;]#LN \,,PILN CLEARPI/#5 LOAD 6▄#5## FASTE▄#SGN LN ##5## FAST5# SGN LN ##5 PLOT COPY6[.]#)▘ E[;]#LN \,,PILN CLEARPI##5> 6[.]#LN ##5▝# FAST)# E##LN ▌PI) ▘LN [-]INKEY$ SGN LN ##5▀# FAST)# E##LN ▌PI) ▘LN [>]INKEY$ SGN LN ##5▌# FAST5▛ SGN LN ##5▞# FAST5# SGN LN ##5[G] 6[1]#5# 6[3]####5## FAST59 SGN LN ##5## FAST5# SGN LN ###SIN #5## FAST5\~~ SGN LN ##5## FAST5# SGN LN ##)[£] E##;6###SIN #5$ 6##5## FAST5RND SGN LN ##5## FAST5# SGN LN ##5## FAST5 NEXT SGN LN ##5## FAST5# SGN LN ##5▌ 6###W#5: 6##5## FAST5# SGN LN ##5## FAST5# SGN LN ##5## FAST5[Z] SGN LN ##5## FAST5# SGN LN ##5▌ 6###W#5## FAST5[)] SGN LN ##5## FAST5# SGN LN ##LN [G]#5 LLIST 6[1]#5# 6[3]#5## FASTE[1]#SGN LN ##5## FASTE[3]#SGN LN ##LN ▜#LN [G]#5▌# FAST5[.] SGN LN ##5## FAST5 LLIST SGN LN ##5## FAST5# SGN LN ##5▝# FAST5W SGN LN ##5▀# FAST5# SGN LN ##5▞# FAST5# SGN LN ##LN [G]#5## FAST5SIN SGN LN ##LN [4]#LN ##6##)N E##LN \,,PILN CLEARPI CLS#LN ##)Y E##LN \,,PILN IF PIINT ## LPRINT #5## FAST5# SGN LN ##5## FAST5# SGN LN ##LN [G]#LN TAB #LN [J]#LN [J]##[B]#)▒ E##;6[5]#5- 6[7]#)[L]#E[5]#LN ▌PI GOSUB ###;6[5]#)" E[<]#LN \,,PI FAST) E##LN \,,PI FOR LPRINT LN PPILN IF PISIN #) E[<]#LN \,,PI FAST) E##LN 4PI FOR LPRINT LN PPILN IF PISIN #)▀ E[<]#LN 5PI FAST)▝ E##LN \,,PI FOR LPRINT LN PPILN IF PISIN # GOSUB #[<]#E[5]#LN ▌PI GOSUB #[<]#LN ▌PI)- ; GOSUB ###;6["]#)F E##LN \,,PILN IF PI▀#)▘ E##LN ▌PI6##5\,, 6[7]#E["]#LN ##6[9]#)" E[9]#LN 5PILN CLEARPI▀#5▀ 6[B]#)▘ E##LN ▌PI6##)[+] E[9]#LN 4PILN IF PI##)█ E[9]#LN 4PILN IF PI##)U E[9]#LN 4PILN CLEARPIZ#5▘ 6[B]#)< E[9]#LN 4PILN CLEARPI##)▘ E[B]#;6[B]####5▖ 6[B]#)▘ E[B]#;6[B]# GOSUB #[B]#E##;6##5 6[B]##SIN #E[5]#6##E["]#6##5▘ 6##5[-]#6▟#E## FASTE[7]#SGN LN ##LN J###)5 E["]#LN ▌PI FAST5▘ SGN LN ##E["]# FAST5▟ SGN LN ##)▘ E["]#LN ▌PI FAST5▞ SGN LN ##5 6["]#LN ##) E##LN \,,PILN IF PISIN #)▘ E##LN ▌PI6#####) LPRINT #E##LN 4PILN IF PISIN #)5 E##;6#####)##E##LN 5PILN IF PISIN #)5 E##LN ▌PI6#####)▝ E##LN \,,PILN IF PISIN #)▘ E##;6## GOSUB ###E##; GOSUB ###;6##) ▘E##LN [-]INKEY$ 6[D]#) ▘E##LN [>]INKEY$ 6[F]#5[R]# FASTE[D]#SGN LN ##5[S]# FASTE[F]#SGN LN ##5 RUN # FASTE[D]#SGN LN ##5 SAVE # FASTE[F]#SGN LN ##) E##LN \,,PILN CLEARPI[Q]#5R# FAST5▖ SGN LN ##)▘ E##LN \,,PILN CLEARPIINT #5R# FAST5B SGN LN ##)▝ E##LN \,,PILN CLEARPI CONT #5R# FAST5# SGN LN ###SIN #E[?]#6[H]#5- 6[?]##0#)▀ E##LN 5PILN CLEARPI"#LN ##)▞ E##LN 4PILN CLEARPI0#LN ## GOSUB ###E##; FAST)▀ LN #PILN [-]INKEY$ FOR LPRINT ;6[J]#E[J]# FASTE[?]#SGN LN ##)▛ E[J]#LN ▌PI6[J]#E[J]#LN ##)# LN 4PI FAST) E##LN \,,PI FOR LPRINT LN PPILN CLEARPI##LN [K]#E[J]# FASTE[?]#SGN LN ##)▞ E[J]#LN ▌PI6[J]#E[J]# FASTE[?]#SGN LN ##)▘ E[J]#;6[J]#E[J]#LN ##)# LN 4PI FAST) E##LN \,,PI FOR LPRINT LN PPILN CLEARPI[X]#LN [K]#)Y E##;6##)#▘E##LN 5PILN IF PI<=#5# 6##E[H]#6[?]#LN ##)▝ E##LN 4PILN CLEARPI PRINT #LN ## GOSUB ###E##;6[L]#E[L]# FASTE[?]#SGN LN ##)# E[L]#LN ▌PI6[L]#E[L]#LN ##)# LN 4PI FAST) E##LN \,,PI FOR LPRINT LN PPILN CLEARPIU#LN [K]#E[L]# FASTE[?]#SGN LN ##)# E[L]#LN ▌PI6[L]#E[L]#LN ##)# LN 4PI FAST) E##LN \,,PI FOR LPRINT LN PPILN CLEARPI##LN [K]#E[L]# FASTE[?]#SGN LN ##)Y E##;6##)#▝E##LN \,,PILN CLEARPI[1]#5 LPRINT 6##LN ##LN ABS #LN LLIST #LN [M]#LN ##LN [4]#5▘ 6##5▛ 6##5▘ 6##5SIN #6▟#LN RUN #LN J###LN ##LN [>]#LN ##LN E#LN 2#LN Q#)▘ E##LN \,,PILN CLEARPI PAUSE #LN PLOT #) E##LN \,,PILN CLEARPI▀#LN [Q]#LN ##LN ABS #LN X#LN [M]#LN ##LN ABS #LN ▜#LN [M]#LN ##5## FAST5 SGN LN ##5Z# FAST5 SGN LN ##5## FAST5 SGN LN ##5## FAST5 SGN LN ##LN #### LPRINT <▘ ▖ 0 0 0 0 9 £ ## Q ##0 0 0 # # 0 # ABS #SGN #▘ [Q]# LOAD G▘▘ ?# ▚# ####▀ PLOT COPY[G] # H#- ▟ # # ##[G]#
2 PRINT AT 10,3;"(SETTING RANDOM FUNCTION)"
3 FOR L=1 TO 20
4 FOR I=1 TO RND*20
5 RAND
6 NEXT I
7 NEXT L
8 RAND USR 25295
9 GOTO 12
10 SAVE "XO[N]"
11 RUN
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.