FOR b=500 TO 50 STEP -50:a=a+1:hi(a)=b:hi$(a)="ROBOPOST":NEXT:hi(0)=90000
LABEL titlescreen:WINDOW #1 TITLE "ROBOPOST":SET MODE 1:CLS
BOX 0;0,640,200 COLOUR 5 FILL ONLY WITH 12
BOX 65;60,480,120 COLOUR 0 FILL ROUNDED:BOX 65;60,480,120 COLOUR 1 ROUNDED
LINE 65;175,305;120,545;175 COLOUR 1 STYLE 6
SET MODE 2 FONT 3 POINTS 36:MOVE 140;150:PRINT COLOUR (2);"R O B O P O S T"
SET COLOUR 1 POINTS 18:MOVE 292;133:PRINT "By";:MOVE 240;120:PRINT "Russell Bosier"
SET COLOUR 15:MOVE 195;105:PRINT "Press 'I' For Instructions"
MOVE 249;90:PRINT "'D' For Demonstration"
MOVE 249;75:PRINT "'P' To Play":SET MODE 1 FONT 1
100 a$=INKEY$:IF a$="i" OR a$="I" THEN GOTO instructions
IF a$="p" OR a$="P" THEN dem=1:GOTO setmod
IF a$="d" OR a$="D" THEN dem=0:WINDOW #1 TITLE "ROBOPOST - DEMO":slev=1:GOTO setup
GOTO 100
LABEL instructions:CLS:BOX 0;0,640,200 COLOUR 5 FILL ONLY WITH 12
BOX 2;168,611,31 FILL ROUNDED:BOX 8;170,599,11 COLOUR 4 FILL ROUNDED
BOX 2;34,611,9 FILL ROUNDED
SET MODE 2 COLOUR 6 POINTS 36 FONT 3:MOVE 140;183:PRINT "R O B O P O S T"
SET POINTS 18:MOVE 189;172:PRINT "I N S T R U C T I O N S":SET POINTS 14
MOVE 105;36:PRINT "P R E S S A N Y K E Y T O C O N T I N U E"
SET COLOUR 4 FONT 1:MOVE 0;158:PRINT "The object of the game is to control a robot mailing system that operates in a five story buiding.Each floor is divided into thirty tiles arranged in a"
PRINT "six by five grid.Lines are painted on the tiles for the robot to follow, but the tiles must be rearranged using the CURSOR KEYS to move the surrounding"
PRINT "tiles into the black space, where a tile is missing, to guide the robot across the floor.As the robot moves across the tiles its power level reduces,"
PRINT "and guiding the robot into the black space causes a large reduction in power before it is turned around to go back in the direction that it came from."
PRINT:PRINT "The following objects are placed on each floor :-"
PRINT "ENVELOPE - Must be picked up (by guiding the robot to it) and"
PRINT "delivered to the floor specified.Ten points are scored for picking it up. When it is picked up a shredder appears in its place."
WHILE INKEY$="":WEND
SET MODE 1:BOX 0;44,640,123 COLOUR 5 FILL ONLY WITH 12
n=154:GOSUB letterbox:SET MODE 2:MOVE 80;155
PRINT "LETTERBOX - When a letter is posted in the correct letterbox points"
PRINT "are scored depending on the amount of power that is left.Posting a letter on the wrong floor deducts fifty points from the score."
n=125:GOSUB shredder:MOVE 80;126:PRINT "SHREDDER - If the robot is carrying a letter and it is guided into"
PRINT "a shredder the letter will be destroyed and fifty points will be deducted."
n=104:GOSUB battery:SET MODE 2 POINTS 14 COLOUR 4:MOVE 80;105:PRINT "BATTERY - A battery is placed on each floor and may be picked up"
PRINT "when the robot is not carrying a letter.Each battery may only be used once but restores the robots power level."
MOVE 0;76:PRINT "If a letter is picked up and then destroyed, another letter can be found on another floor.If the robot returns to that floor a new letter will be waiting to be collected."
WHILE INKEY$="":WEND
SET MODE 1:BOX 0;44,640,123 COLOUR 5 FILL ONLY WITH 12:SET MODE 2
MOVE 0;158:PRINT "To change to another floor, the robot must be guided to the required floor number on the left hand side of the grid.That number then changes from brown"
PRINT "to purple which indicates that the lift has been set to that floor.If the wrong floor is set the robot may be guided to another number"
PRINT:PRINT "The lift is situated on the right hand side of the grid and guiding the robot to it once a floor has been set will change the floor"
PRINT:PRINT "The five floors are represented on the right hand side of the screen by rectangles in the same order as the lift nubers.To the left of these an arrow"
PRINT "points to the floor that the robot is on under 'PRESENT'.When a letter is picked up an envelope is displayed to the right of this under 'DELIVERY' to indicate the floor that the letter must be delivered on."
WHILE INKEY$="":WEND
SET MODE 1:BOX 0;44,640,123 COLOUR 5 FILL ONLY WITH 12:SET MODE 2
MOVE 0;158:PRINT "At the begining of the game the robot will start from the top left corner of the grid and on a random floor."
PRINT:PRINT "Before playing the NUM LOCK key must be in the ON position"
PRINT:PRINT "When in the demonstration mode, press any key to return to the title screen."
