Dark Star

The code is presented below:

Dark Star is a puzzle game. You need to collect all the 'power crystals' on each of the 25 levels, against the clock. You control a robot that looks a little like a spinning beach ball (!). The robot can move up, down, left and right. When moving, it continues moving until it hits a wall object.

Not all of the power crystals are reachable; you will have to use a second robot as a temporary 'blocker' to give the first robot something to butt up against.

The game gives a reasonable demonstration of some of the capabilities of TurboForth, featuring:

Character animation
Speech
Sound
Keyboard or Joystick operation
Screen scrolling

A number of Forth programming techniques are used:

Vectored execution
CREATEd words
VALUEs

This game is based on the version for the Jupiter Ace, a true Forth machine. I didn't have access to the source code of the Ace version, but I copied the look and feel of the graphics, adding a timer element and 3 lives. The level data was taken from the Z88 compiler website, where Dark Star is included as a demo project for the compiler.

0 VALUE 'LevelData \ address of level data 0 VALUE Level \ the current level 0 VALUE Column \ used by DrawIt 0 VALUE Row \ used by DrawIt 0 VALUE OrbCount \ total number of orbs to collect on this level 0 VALUE BallRow 0 VALUE BallCol 0 VALUE RobotRow 0 VALUE RobotCol -1 VALUE Ball \ true if controlling the ball, otherwise controlling the robot 0 VALUE #Collected \ number of orbs collected on this level 84 VALUE BallChar \ 1st ascii code of the Ball UDG 0 VALUE IsPlayer? \ the current player - ball or robot 0 VALUE Score 0 VALUE Lives \ three lives (0 to 2) -1 VALUE JoystickMode? \ true if using joystick control 0 VALUE Time \ time remaining on this level 31 VALUE TimeCol \ the screen column of the time bar character 0 VALUE Frame# \ animation frame counter 0 VALUE FrameCount \ used to trigger animation after "x" frames -1 VALUE Speech? \ true if speech is enabled 0 VALUE FlashOrbs? \ when true the orbs will flash 1 CONSTANT Fire? \ comparison check for fire button 2 CONSTANT Left? \ comparison check for left 4 CONSTANT Right? \ comparison check for right 8 CONSTANT Down? \ comparison check for down 16 CONSTANT Up? \ comparison check for up $90 CONSTANT EmptyChar \ ascii code of empty space $98 CONSTANT OrbChar \ 1st ascii code for orb 13 CONSTANT ENTER \ key code for ENTER key 448 CONSTANT TimeReset \ starting time value 400 CONSTANT DelayTime \ delay loop count HEX \ user defined graphics : BrickUDG ( --) \ character data for brick wall DATA 4 7FAA D5A8 D0A0 C080 80 DCHAR DATA 4 8080 8080 8080 807F 81 DCHAR DATA 4 FEA9 4101 0101 0101 82 DCHAR DATA 4 0101 0101 0101 01FE 83 DCHAR ; : BallUDG1 ( --) \ character data for ball, frame #1 DATA 4 030F 3F3F 5F5F 9F00 84 DCHAR DATA 4 8E8E 4640 2030 0C02 85 DCHAR DATA 4 4070 3C4C 6676 7F7F 86 DCHAR DATA 4 00FF FEF2 040C 30C0 87 DCHAR ; : BallUDG2 ( --) \ character data for ball, frame #2 DATA 4 030F 3F3F 5F47 991E 84 DCHAR DATA 4 8E8D 4541 2030 0C02 85 DCHAR DATA 4 C0F0 ACCC C6B6 BF7F 86 DCHAR DATA 4 7F9F E6F2 040C 30C0 87 DCHAR ; : BallUDG3 ( --) \ character data for ball, frame #3 DATA 4 030F 2F37 7B5D 9E1E 84 DCHAR DATA 4 8C8B 4741 0030 0C03 85 DCHAR DATA 4 C0F0 BCC8 E6E6 DF3F 86 DCHAR DATA 4 7F7F BEC2 0404 30C0 87 DCHAR ; : BallUDG4 ( --) \ character data for ball, frame #4 DATA 4 030B 3D3D 5D5E 9E9E 84 DCHAR DATA 4 8887 0741 4030 0C03 85 DCHAR DATA 4 C0F0 DCCC E6F4 E31F 86 DCHAR DATA 4 7F7F 7EB2 040C 10C0 87 DCHAR ; : RobotUDG1 ( --) \ character data for robot, frame #1 DATA 4 609F 9F61 03FF 80AA 88 DCHAR DATA 4 9FB5 90B5 9FAA 80FF 89 DCHAR DATA 4 06F9 F986 C0FF 01A9 8A DCHAR DATA 4 FD59 0D59 FDA9 01FF 8B DCHAR ; : RobotUDG2 ( --) \ character data for robot, frame #2 DATA 4 1D22 221D 03FF D5BF 88 DCHAR DATA 4 EAB0 E5B0 EABF D5FF 89 DCHAR DATA 4 B8F4 F4B8 C0FF 55FF 8A DCHAR DATA 4 AD07 4D07 ADFF 55FF 8B DCHAR ; : RobotUDG3 ( --) \ character data for robot, frame #3 DATA 4 0708 0807 03FF FFD5 88 DCHAR DATA 4 E0CA E7CA E0D5 FFFF 89 DCHAR DATA 4 E010 10E0 C0FF FF57 8A DCHAR DATA 4 03A7 F3A7 0357 FFFF 8B DCHAR ; : RobotUDG4 ( --) \ character data for robot, frame #4 DATA 4 1D2F 2F1D 03FF AAC0 88 DCHAR DATA 4 95CF 95CF 95C0 AAFF 89 DCHAR DATA 4 B844 44B8 C0FF AB01 8A DCHAR DATA 4 53F9 5BF9 5301 ABFF 8B DCHAR ; : OrbUDG ( --) \ character data for orb DATA 4 0000 0000 0304 0808 98 DCHAR DATA 4 0808 0403 0000 0000 99 DCHAR DATA 4 0000 0000 C020 9050 9A DCHAR DATA 4 1010 20C0 0000 0000 9B DCHAR ; : EmptyUDG ( --) \ character data for empty space DATA 4 FFFF FFFF FFFF FFFF 90 DCHAR ; : BarUDG2 ( --) \ character data for time bar, 2 pixels wide DATA 4 $0000 $C0C0 $C0C0 $0000 2DUP A0 DCHAR A8 DCHAR ; : BarUDG4 ( --) \ character data for time bar, 4 pixels wide DATA 4 $0000 $F0F0 $F0F0 $0000 2DUP A1 DCHAR A9 DCHAR ; : BarUDG6 ( --) \ character data for time bar, 6 pixels wide DATA 4 $0000 $FCFC $FCFC $0000 2DUP A2 DCHAR AA DCHAR ; : BarUDG8 ( --) \ character data for time bar, 8 pixels wide DATA 4 $0000 $FFFF $FFFF $0000 2DUP A3 DCHAR AB DCHAR ; \ speech synthesizer words : YouWin ( --) \ says "you win" via speech synth DATA 1 $7DDB SAY ; : GoodWork ( --) \ says "good work" DATA 1 $30FA SAY ; : WellDone ( --) \ says "well done" DATA 2 $7717 $253E SAY ; : VeryGood ( --) \ says "very good" DATA 2 $74DA $30D6 SAY ; : WWT? ( --) \ says "what was that?" DATA 1 77E9 SAY ; : TryAgain ( --) \ says "try again" DATA 1 700F SAY ; : OutOfTime ( --) \ says "out of time" DATA 3 4DD4 4BBA 6E69 SAY ; : STTA ( --) \ says "Stop! Think! Try again!" DATA 3 63F7 6C73 700F SAY ; : Hurry ( --) \ says "hurry hurry hurry!" DATA 3 3757 3757 3757 SAY ; : Completed ( --) \ says one of three phrases when switching between ball and robot 3 RND CASE 0 OF DATA 2 1F1A 1FCD ENDOF \ "Command completed" 1 OF DATA 3 4B7D 3B8A 253E ENDOF \ "Okay, done" 2 OF DATA 6 39BD 1FCD 767D 473D 5231 4C41 ENDOF \ "Instructions completed. We must press on!" ENDCASE SAY ; : GoGoGo ( --) \ says "hurry hurry hurry" at the beginning of a level TALKING? NOT IF DATA 3 2FFC 2FFC 2FFC SAY THEN ; : Joystick ( --) \ says "joystick is on" Speech? IF DATA 3 3AED 3A32 4C41 SAY THEN ; : Keyboard ( --) \ says "keyboard is on" Speech? IF DATA 3 3BE9 3A32 4C41 SAY THEN ; DECIMAL \ create vector table for level completion phrases \ at the end of each level, 1 of the 4 phrase routines will be executed CREATE WinPhrases ' YouWin , ' GoodWork , ' WellDone , ' VeryGood , \ create vector table for level level incomplete phrases \ if the timer expires and all orbs are not collected then \ 1 of the 4 phrase routines will be executed CREATE LosePhrases ' WWT? , ' TryAgain , ' OutOfTime , ' STTA , \ screen drawing/management routines : DefineGraphics ( --) \ define the user defined graphics and set colours of character sets 1 GMODE FALSE SSCROLL ! 32 0 DO I 1 14 COLOR LOOP 16 1 15 COLOR \ brick colour 17 4 15 COLOR \ robot colour 18 15 14 COLOR \ empty tile colour 19 1 15 COLOR \ orb colour 21 3 14 COLOR \ time bar BrickUDG BallUDG1 RobotUDG1 OrbUDG EmptyUDG BarUDG2 BarUDG4 BarUDG6 BarUDG8 ; : NextColumn ( --) \ advance to the next column 2 +TO Column ; : DrawIt ( a b c d --) \ emits the four ascii characters on the stack to the screen as follows: \ ac \ bd Column 1+ Row 1+ GOTOXY EMIT \ d Column 1+ Row GOTOXY EMIT \ c Column Row 1+ GOTOXY EMIT \ b Column Row GOTOXY EMIT \ a NextColumn ; : DrawBrick ( --) \ draws a brick tile at Column & Row 128 129 130 131 DrawIt ; : DrawBall ( --) \ draws a ball tile at Column & Row 132 133 134 135 DrawIt ; : DrawRobot ( --) \ draws a robot at Column & Row 136 137 138 139 DrawIt ; : DrawOrb ( --) \ draws an Orb at Column & Row 152 153 154 155 DrawIt ; : DrawEmpty ( --) \ draws an empty tile at Column & Row 144 144 144 144 DrawIt ; : C@++ ( addr -- val addr+1) \ fetches a byte from addr and leaves the next address on top of stack DUP C@ SWAP 1+ ; : InfoPanel ( --) \ set up the bottom of the display (score, # of lives, etc) 0 18 GOTOXY ." Time" TRUE ZEROS ! 0 19 GOTOXY ." Score:" Score U. FALSE ZEROS ! 25 19 GOTOXY ." Lives:" Lives 1- . 0 20 GOTOXY ." Level:" Level 1+ . 18 4 $AB 28 HCHAR ; : DecodeLevel ( level --) \ walk thru 38 bytes of level data, decoding, and drawing the screen \ level data is encoded in groups of 2 bits, as follows: \ 00 - empty space \ 01 - brick \ 10 - orb \ 11 - unused 38 * 'LevelData + \ address of level data in memory C@++ C@++ -ROT \ addr robotaddr balladdr 16 /MOD 2* TO RobotRow 2* TO RobotCol 16 /MOD 2* TO BallRow 2* TO BallCol 0 TO Row 0 TO OrbCount 9 0 DO \ 9 rows 0 TO Column 4 0 DO \ 4 bytes to a row C@++ SWAP \ get a byte of data DUP $03 AND \ get 000000xx from the byte OVER 2 >> $03 AND \ get 0000xx00 from the byte 2 PICK 4 >> $03 AND \ get 00xx0000 from the byte 3 PICK 6 >> $03 AND \ get xx000000 from the byte \ now decode the extracted bit patterns... 4 0 DO CASE 0 OF DrawEmpty ENDOF 1 OF DrawBrick ENDOF 2 OF DrawOrb 1 +TO OrbCount ENDOF ENDCASE LOOP DROP LOOP 2 +TO Row LOOP DROP InfoPanel \ draw the score, # lives BallRow TO Row BallCol TO Column DrawBall \ set up ball RobotRow TO Row RobotCol TO Column DrawRobot ( set up robot) ; \ animation vector tables for ball and robot CREATE BallFrames \ store addresses of the ball character definition routines ' BallUDG1 , ' BallUDG2 , ' BallUDG3 , ' BallUDG4 , CREATE RobotFrames \ store addresses of the robot character definition routines ' RobotUDG1 , ' RobotUDG2 , ' RobotUDG3 , ' RobotUDG4 , : Tick ( --) \ update time bar at bottom of playfield \ the last character of the time bar is sucessively replaced. \ it starts with an 8 pixel wide character, then a 6 pixel, \ then a 4 pixel, then a 2 pixel wide character. \ Finally, it is replaced with an empty character, and the length \ of the bar is reduced. 18 TimeCol GCHAR \ get the ascii code from the end of the time bar DUP $A8 = IF \ replace with empty character... DROP $AB 18 TimeCol 32 1 HCHAR -1 +TO TimeCol ELSE 1- \ otherwise reduce the ascii value by 1 THEN 18 TimeCol ROT 1 HCHAR \ draw new ascii character Time 100 = IF \ time getting low? Speech? IF Hurry THEN \ say "hurry hurry hurry" 21 8 14 COLOR \ change bar to red TRUE TO FlashOrbs? THEN ; : CheckTime ( --) \ update Time and check if time bar should be updated -1 +TO Time Time 4 MOD 0= IF Tick THEN ; : Bonus ( --) \ convert un-used time to bonus points, re-draw time bar as bonus \ is computed Time 0> IF TRUE ZEROS ! 1000 \ sound pitch parameter Time 4 / 1 DO Tick 5 +TO Score 6 19 GOTOXY Score U. DUP 7 0 SOUND 8 - DUP 8 - 7 1 SOUND LOOP DROP 0 15 0 SOUND 0 15 1 SOUND \ turn off sound 4 18 GOTOXY SPACE ZEROS 0! THEN ; : Animate ( --) \ animates either the ball or the robot Ball IsPlayer? = IF BallFrames Frame# CELLS + @ EXECUTE ELSE RobotFrames Frame# CELLS + @ EXECUTE THEN Frame# 1+ 4 MOD TO Frame# ; : ScanKeyboard ( -- direction) \ called if the method of control is the keyboard KEY? DUP -1 <> IF CASE ASCII S OF 2 ENDOF ASCII D OF 4 ENDOF ASCII X OF 8 ENDOF ASCII E OF 16 ENDOF ENTER OF 1 ENDOF 0 \ default case ENDCASE ELSE DROP 0 THEN ; : GetRowCol ( --) \ loads Column and Row with either the ball's, or the robot's \ column and row, depending on who is currently being controlled. Ball IsPlayer? = IF BallRow BallCol ELSE RobotRow RobotCol THEN TO Column TO Row ; : SetRowCol ( --) \ loads either the robot's row and column, or the ball's row and \ column depending upon who is currently in control Row Column Ball IsPlayer? = IF TO BallCol TO BallRow ELSE TO RobotCol TO RobotRow THEN ; : ErasePlayer ( --) \ erase either the ball or the robot DrawEmpty -2 +TO Column ; : DrawPlayer ( --) \ draw either the ball or the robot Ball IsPlayer? = IF DrawBall ELSE DrawRobot THEN -2 +TO Column ; : CheckOrb ( --) \ check to see if the ball has landed on a tile with an orb on it \ if so, update score and #collected Row Column GCHAR OrbChar = IF 1 +TO #Collected 10 +TO Score TRUE ZEROS ! 6 19 GOTOXY Score U. ZEROS 0! THEN ; : Delay ( delay--) \ simple delay loop 0 DO LOOP ; : CanMove? ( row col--true/false) \ determines if the current player (ball or robot) can move or not \ the ball can only be stopped by the wall, or the robot \ the robot can be stopped by the wall, the ball, or an orb GCHAR Ball IsPlayer? = IF DUP EmptyChar = SWAP OrbChar = OR ELSE EmptyChar = THEN ; : MoveLeft ( --) \ move the current player to the left until it collides with something BEGIN GetRowCol Row Column 2- CanMove? WHILE ErasePlayer -2 +TO Column CheckOrb DrawPlayer SetRowCol DelayTime Delay Animate REPEAT ; : MoveRight ( --) \ move the current player to the right until it collides with something BEGIN GetRowCol Row Column 2+ CanMove? WHILE ErasePlayer 2 +TO Column CheckOrb DrawPlayer SetRowCol DelayTime Delay Animate REPEAT ; : MoveDown ( --) \ move the current player downwards until it collides with something BEGIN GetRowCol Row 2+ Column CanMove? WHILE ErasePlayer 2 +TO Row CheckOrb DrawPlayer SetRowCol DelayTime Delay Animate REPEAT ; : MoveUp ( --) \ move the current player upwards until it collides with something BEGIN GetRowCol Row 2- Column CanMove? WHILE ErasePlayer -2 +TO Row CheckOrb DrawPlayer SetRowCol DelayTime Delay Animate REPEAT ; : Debounce ( --) \ debounce the fire button (which controls swapping between ball/robot) JoystickMode? IF BEGIN 0 JOYST 0= UNTIL ELSE BEGIN KEY? -1 = UNTIL THEN ; : BusyNoise ( --) \ busy noise during transition of control between ball/robot 50 0 DO 50 15 0 DO DUP I 0 SOUND 10 + LOOP DROP LOOP 0 15 0 SOUND ; : MovePlayer ( --) \ scan either joystick or keyboard and call appropriate movement routine JoystickMode? IF 0 JOYST ELSE ScanKeyboard THEN CASE Left? OF MoveLeft ENDOF Right? OF MoveRight ENDOF Down? OF MoveDown ENDOF Up? OF MoveUp ENDOF Fire? OF IsPlayer? NOT TO IsPlayer? Debounce BusyNoise Completed ENDOF ENDCASE ; : AllOrbs? ( -- true/false) \ returns true if all orbs on this level have been collected OrbCount #Collected = ; : SayEnd ( --) \ at the end of the level (either because all orbs collected or out of time) \ call either one of the four win phrases or one of the four lose phrases Speech? IF AllOrbs? IF WinPhrases ELSE LosePhrases THEN THEN 4 RND CELLS + @ EXECUTE ; : Reset ( --) \ reset colurs, frame count, timer etc 21 3 14 COLOR \ set time bar to green 19 1 15 COLOR \ orb colour 0 TO FrameCount TimeReset TO Time 31 TO TimeCol 0 TO #Collected 0 TO Frame# Ball TO IsPlayer? FALSE TO FlashOrbs? ; : GameOver ( --) \ called when all lives are lost ." Game Over Sucker!" ; : Wow! ( --) \ you'll never see this executed! ." You completed the game!" ; : Wipe ( --) \ scrolls the playfield off the screen, downwards and to the left 32 24 23 0 DO 0 I 3 PICK 3 PICK PANEL 0 SCROLL 6 SCROLL 1- SWAP 1- SWAP LOOP 6 SCROLL 2DROP ; : FlashOrbs ( --) \ select a random colour for the Orbs 19 16 RND 15 COLOR ; : Game ( --) \ main game playing logic engine DefineGraphics 0 TO Level 3 TO Lives 0 TO Score BEGIN Lives 0> Level 25 < AND WHILE \ game on... Reset Level DecodeLevel GoGoGo \ draw screen BEGIN MovePlayer \ scan keyboard/joystick and update player 1 +TO FrameCount FrameCount 70 MOD 0= IF \ every 70 frames... Animate CheckTime THEN FlashOrbs? IF FlashOrbs THEN AllOrbs? Time 4 = OR UNTIL SayEnd Time 4 = IF -1 +TO Lives ELSE Bonus 1 +TO Level THEN Wipe REPEAT Lives 0= IF GameOver ELSE Wow! THEN ; : SlideScreen ( block# --) \ draws a screen full of instructions (which are read from a block) \ slides the contents in from the left of the screen 0 4 32 16 PANEL BLOCK 32 0 DO 0 SCROLL 16 0 DO 31 I 4 + GOTOXY DUP I 64 * + V@ EMIT LOOP 1+ LOOP DROP ; : AnyKey ( --) \ waits for any key to be pressed. Flashes a > symbol in the lower right \ of the screen while waiting ASCII > 256 * 32 + \ > and space char in single cell 0 BEGIN 1+ DUP 50 MOD 0= IF SWAP >< DUP 31 19 GOTOXY EMIT SWAP THEN KEY? 1+ 0 JOYST 1 = OR UNTIL 2DROP ; : BrickRows ( --) \ draws rows of bricks at top and bottom of screen 0 TO Row 2 0 DO 0 TO Column 2 0 DO 16 0 DO DrawBrick LOOP 2 +TO Row 0 TO Column LOOP 20 TO Row LOOP ; : GetControlMode ( --) \ ask the user which method of control she wants to use 6 BLOCK 15 64 * + 15 0 DO 32 0 DO DUP V@ I 4 GOTOXY EMIT 1+ LOOP 6 SCROLL 32 - 64 - LOOP DROP BEGIN KEY? DUP ASCII J = SWAP ASCII K = OR UNTIL KEY? ASCII J = IF TRUE ELSE FALSE THEN TO JoystickMode? Wipe ; : DarkStar ( --) \ entry point of game DefineGraphics BrickRows 7 2 DO I BLOCK DROP LOOP \ get blocks into the cache 6 2 DO I SlideScreen AnyKey LOOP GetControlMode Game ; \ screen level data HERE TO 'LevelData 17 C, 30 C, \ level 1 85 C, 85 C, 85 C, 85 C, 69 C, 0 C, 0 C, 145 C, 64 C, 0 C, 2 C, 21 C, 64 C, 0 C, 88 C, 1 C, 64 C, 82 C, 0 C, 5 C, 82 C, 8 C, 0 C, 129 C, 72 C, 0 C, 37 C, 33 C, 64 C, 5 C, 128 C, 9 C, 85 C, 85 C, 85 C, 85 C, 30 C, 86 C, \ level 2 16 C, 68 C, 64 C, 69 C, 64 C, 128 C, 0 C, 1 C, 1 C, 129 C, 128 C, 128 C, 68 C, 128 C, 8 C, 17 C, 0 C, 4 C, 8 C, 4 C, 64 C, 17 C, 8 C, 1 C, 1 C, 4 C, 64 C, 105 C, 64 C, 0 C, 0 C, 4 C, 16 C, 64 C, 0 C, 16 C, 30 C, 46 C, \ level 3 85 C, 85 C, 85 C, 85 C, 64 C, 0 C, 0 C, 145 C, 64 C, 80 C, 0 C, 81 C, 64 C, 96 C, 2 C, 1 C, 72 C, 0 C, 148 C, 9 C, 70 C, 8 C, 36 C, 37 C, 69 C, 134 C, 8 C, 149 C, 96 C, 5 C, 128 C, 1 C, 85 C, 85 C, 85 C, 85 C, 125 C, 30 C, \ level 4 85 C, 85 C, 85 C, 85 C, 64 C, 0 C, 0 C, 17 C, 64 C, 4 C, 0 C, 1 C, 89 C, 137 C, 153 C, 153 C, 68 C, 98 C, 68 C, 69 C, 89 C, 152 C, 153 C, 153 C, 64 C, 4 C, 0 C, 1 C, 64 C, 64 C, 0 C, 65 C, 85 C, 85 C, 85 C, 85 C, 17 C, 110 C, \ level 5 21 C, 85 C, 85 C, 84 C, 64 C, 64 C, 65 C, 1 C, 65 C, 132 C, 130 C, 17 C, 80 C, 0 C, 65 C, 1 C, 97 C, 144 C, 0 C, 5 C, 80 C, 1 C, 33 C, 1 C, 100 C, 17 C, 16 C, 17 C, 64 C, 64 C, 36 C, 25 C, 21 C, 85 C, 85 C, 84 C, 65 C, 113 C, \ level 6 0 C, 85 C, 85 C, 85 C, 1 C, 2 C, 1 C, 137 C, 4 C, 2 C, 0 C, 69 C, 16 C, 2 C, 0 C, 1 C, 64 C, 2 C, 0 C, 1 C, 80 C, 2 C, 4 C, 5 C, 64 C, 2 C, 0 C, 65 C, 65 C, 2 C, 5 C, 129 C, 85 C, 85 C, 85 C, 85 C, 115 C, 122 C, \ level 7 85 C, 85 C, 85 C, 85 C, 64 C, 0 C, 0 C, 1 C, 20 C, 84 C, 24 C, 89 C, 24 C, 24 C, 68 C, 68 C, 4 C, 16 C, 84 C, 80 C, 20 C, 16 C, 100 C, 100 C, 64 C, 0 C, 0 C, 1 C, 64 C, 96 C, 0 C, 25 C, 85 C, 85 C, 85 C, 85 C, 108 C, 98 C, \ level 8 85 C, 85 C, 85 C, 84 C, 66 C, 80 C, 0 C, 5 C, 65 C, 129 C, 72 C, 1 C, 66 C, 81 C, 24 C, 1 C, 80 C, 1 C, 65 C, 145 C, 81 C, 0 C, 2 C, 97 C, 98 C, 64 C, 129 C, 17 C, 80 C, 0 C, 0 C, 1 C, 21 C, 85 C, 85 C, 85 C, 30 C, 72 C, \ level 9 4 C, 85 C, 85 C, 84 C, 25 C, 128 C, 1 C, 1 C, 98 C, 64 C, 32 C, 4 C, 17 C, 9 C, 66 C, 65 C, 65 C, 134 C, 32 C, 9 C, 64 C, 9 C, 64 C, 4 C, 102 C, 0 C, 0 C, 16 C, 64 C, 0 C, 0 C, 64 C, 85 C, 85 C, 85 C, 0 C, 93 C, 36 C, \ level 10 0 C, 85 C, 85 C, 84 C, 85 C, 32 C, 0 C, 1 C, 64 C, 5 C, 98 C, 73 C, 72 C, 6 C, 24 C, 4 C, 64 C, 4 C, 32 C, 73 C, 102 C, 4 C, 144 C, 68 C, 24 C, 5 C, 65 C, 80 C, 64 C, 0 C, 4 C, 68 C, 21 C, 85 C, 80 C, 65 C, 30 C, 108 C, \ level 11 85 C, 85 C, 85 C, 85 C, 64 C, 1 C, 0 C, 1 C, 65 C, 160 C, 2 C, 133 C, 80 C, 32 C, 20 C, 9 C, 96 C, 6 C, 104 C, 21 C, 81 C, 64 C, 20 C, 1 C, 96 C, 146 C, 0 C, 9 C, 89 C, 80 C, 4 C, 5 C, 20 C, 85 C, 85 C, 84 C, 17 C, 92 C, \ level 12 80 C, 1 C, 65 C, 84 C, 69 C, 86 C, 21 C, 37 C, 64 C, 40 C, 0 C, 129 C, 69 C, 5 C, 129 C, 145 C, 68 C, 133 C, 97 C, 65 C, 69 C, 5 C, 1 C, 17 C, 64 C, 8 C, 0 C, 1 C, 64 C, 0 C, 32 C, 1 C, 85 C, 85 C, 85 C, 85 C, 18 C, 113 C, \ level 13 21 C, 85 C, 85 C, 84 C, 65 C, 0 C, 0 C, 133 C, 68 C, 6 C, 2 C, 81 C, 64 C, 0 C, 128 C, 17 C, 72 C, 0 C, 0 C, 25 C, 68 C, 0 C, 32 C, 1 C, 80 C, 0 C, 136 C, 25 C, 64 C, 64 C, 33 C, 17 C, 21 C, 85 C, 85 C, 84 C, 36 C, 50 C, \ level 14 85 C, 85 C, 85 C, 85 C, 102 C, 0 C, 0 C, 153 C, 73 C, 0 C, 1 C, 65 C, 64 C, 0 C, 2 C, 1 C, 64 C, 0 C, 36 C, 1 C, 64 C, 2 C, 0 C, 1 C, 73 C, 0 C, 0 C, 65 C, 102 C, 0 C, 0 C, 153 C, 85 C, 85 C, 85 C, 85 C, 51 C, 76 C, \ level 15 21 C, 84 C, 85 C, 84 C, 64 C, 9 C, 0 C, 33 C, 68 C, 132 C, 16 C, 33 C, 64 C, 64 C, 104 C, 97 C, 17 C, 1 C, 32 C, 17 C, 96 C, 0 C, 16 C, 97 C, 16 C, 0 C, 128 C, 4 C, 96 C, 0 C, 0 C, 9 C, 21 C, 85 C, 85 C, 84 C, 35 C, 19 C, \ level 16 85 C, 85 C, 85 C, 85 C, 80 C, 98 C, 0 C, 9 C, 96 C, 152 C, 0 C, 5 C, 81 C, 80 C, 8 C, 5 C, 80 C, 2 C, 100 C, 1 C, 104 C, 0 C, 9 C, 129 C, 82 C, 0 C, 85 C, 129 C, 89 C, 4 C, 0 C, 1 C, 85 C, 85 C, 85 C, 85 C, 29 C, 124 C, \ level 17 85 C, 85 C, 85 C, 85 C, 73 C, 0 C, 0 C, 65 C, 68 C, 38 C, 152 C, 17 C, 64 C, 25 C, 100 C, 129 C, 73 C, 0 C, 2 C, 65 C, 66 C, 96 C, 9 C, 1 C, 68 C, 17 C, 100 C, 17 C, 64 C, 33 C, 128 C, 1 C, 85 C, 85 C, 85 C, 85 C, 115 C, 26 C, \ level 18 85 C, 85 C, 85 C, 85 C, 72 C, 2 C, 1 C, 1 C, 65 C, 152 C, 6 C, 1 C, 64 C, 100 C, 1 C, 129 C, 64 C, 129 C, 2 C, 97 C, 70 C, 64 C, 73 C, 1 C, 73 C, 132 C, 132 C, 1 C, 100 C, 4 C, 0 C, 65 C, 85 C, 85 C, 85 C, 85 C, 126 C, 110 C, \ level 19 85 C, 85 C, 85 C, 85 C, 96 C, 20 C, 0 C, 89 C, 68 C, 16 C, 0 C, 97 C, 73 C, 2 C, 80 C, 129 C, 68 C, 1 C, 128 C, 1 C, 64 C, 16 C, 36 C, 1 C, 69 C, 36 C, 88 C, 17 C, 73 C, 24 C, 0 C, 81 C, 85 C, 85 C, 85 C, 85 C, 77 C, 66 C, \ level 20 85 C, 85 C, 85 C, 85 C, 64 C, 152 C, 0 C, 1 C, 88 C, 36 C, 88 C, 5 C, 68 C, 72 C, 4 C, 17 C, 64 C, 65 C, 65 C, 9 C, 68 C, 16 C, 33 C, 17 C, 80 C, 37 C, 24 C, 37 C, 64 C, 0 C, 38 C, 1 C, 85 C, 85 C, 85 C, 85 C, 103 C, 105 C, \ level 21 85 C, 85 C, 85 C, 85 C, 69 C, 64 C, 8 C, 5 C, 64 C, 64 C, 0 C, 69 C, 64 C, 88 C, 0 C, 33 C, 66 C, 0 C, 128 C, 133 C, 64 C, 16 C, 5 C, 97 C, 66 C, 32 C, 2 C, 41 C, 85 C, 85 C, 85 C, 85 C, 0 C, 0 C, 0 C, 0 C, 103 C, 105 C, \ level 22 85 C, 85 C, 85 C, 85 C, 100 C, 25 C, 24 C, 17 C, 64 C, 16 C, 0 C, 1 C, 96 C, 16 C, 96 C, 129 C, 81 C, 128 C, 2 C, 21 C, 72 C, 64 C, 86 C, 1 C, 64 C, 4 C, 64 C, 129 C, 85 C, 85 C, 85 C, 85 C, 0 C, 0 C, 0 C, 0 C, 103 C, 105 C, \ level 23 21 C, 85 C, 85 C, 84 C, 68 C, 25 C, 24 C, 17 C, 64 C, 32 C, 64 C, 1 C, 80 C, 16 C, 33 C, 129 C, 65 C, 129 C, 10 C, 33 C, 88 C, 64 C, 82 C, 1 C, 64 C, 4 C, 64 C, 129 C, 21 C, 85 C, 85 C, 84 C, 0 C, 0 C, 0 C, 0 C, 103 C, 105 C, \ level 24 85 C, 85 C, 85 C, 85 C, 64 C, 4 C, 0 C, 5 C, 69 C, 136 C, 1 C, 101 C, 70 C, 0 C, 36 C, 21 C, 74 C, 9 C, 20 C, 1 C, 70 C, 33 C, 0 C, 81 C, 69 C, 0 C, 69 C, 105 C, 85 C, 85 C, 85 C, 85 C, 0 C, 0 C, 0 C, 0 C, 103 C, 105 C, \ level 25 85 C, 85 C, 85 C, 85 C, 64 C, 0 C, 0 C, 17 C, 72 C, 88 C, 8 C, 1 C, 64 C, 96 C, 129 C, 65 C, 72 C, 1 C, 65 C, 129 C, 70 C, 2 C, 64 C, 33 C, 69 C, 132 C, 0 C, 1 C, 85 C, 85 C, 85 C, 85 C, 0 C, 0 C, 0 C, 0 C,

Block File Data

In addition to the code above, the following disk blocks should contain the following data:

Block 2

             1         2         3         4         5         6   
   0123456789012345678901234567890123456789012345678901234567890123
  +----------------------------------------------------------------
00|       Welcome to DarkStar!
01| 
02|Your ships hyperdrive has blown
03|out and the only way to restore
04|power is to collect they hyper
05|drive power cells which have
06|been scattered randomly across
07|the 25 levels of your ship.
08| 
09|Unfortunately, the radiation
10|emitted by the cells is far too
11|high for humans. You cannot do
12|it yourself. You must direct
13|two robots in order to collect
14|the cells. The first robot can
15|collect the cells. The second

Block 3

             1         2         3         4         5         6   
   0123456789012345678901234567890123456789012345678901234567890123
  +----------------------------------------------------------------
00|robot cannot collect any cells,
01|it can only move around the deck
02|and thus can only be used as a
03|'blocker' unit to make cells
04|accessible to the first robot.
05| 
06|There's a further added problem!
07|Due to the high levels of radio-
08|activity good radio communication
09|to the robots is not possible,
10|restricting the control you have
11|over the two robots. Movement in
12|the four directions is possible,
13|but it is not possible to stop
14|their movement! They will only
15|stop when they hit an object!

Block 4

             1         2         3         4         5         6   
   0123456789012345678901234567890123456789012345678901234567890123
  +----------------------------------------------------------------
00|To complete your mission, you
01|must collect all the power cells
02|from all 25 decks of the ship.
03| 
04|Oh yes, and the robots can only
05|survive for a limited amount of
06|time before succumbing to the
07|effects of radiation, so be as
08|fast as you can, you only have a
09|limited supply of robots!
10| 
11|Good luck!
12|
13|Sent via Mission Control,
14|6/9/3641
15|

Block 5

             1         2         3         4         5         6   
   0123456789012345678901234567890123456789012345678901234567890123
  +----------------------------------------------------------------
00|           Robot Control
01| 
02|In keyboard mode, use:
03| 
04|  E = Up
05|  S = Left
06|  D = Right
07|  X = Down
08| 
09|  Enter = Select robot
10| 
11|In joystick mode, use Fire to
12|select the robot.
13| 
14|Hurry hurry hurry!
15|

Block 6

             1         2         3         4         5         6   
   0123456789012345678901234567890123456789012345678901234567890123
  +----------------------------------------------------------------
00| 
01| 
02|      Select Control Method
03| 
04|Press:
05| 
06|  K for Keyboard Control
07| 
08|  J for Joystick Control
09| 
10| 
11| 
12|
13| 
14| 
15|