10 OPTION BASE 1:DIM PER$(33)
20 PRINT CHR$(26)
30 PRINT CHR$(27)CHR$(46)CHR$(48)CHR$(27)CHR$(97)
40 FOR X=1 TO 70:PRINT CHR$(135);:NEXT X:PRINT
50 FOR X=1 TO 17:PRINT:NEXT X
60 FOR X=1 TO 70:PRINT CHR$(135);:NEXT X:PRINT
70 PRINT CHR$(30):PRINT:PRINT:PRINT
80 D$(1)="   ,,,   ,,,  ,,,,,,,,,  ,,,        ,,,,,,,,,  ,,,,,,,,,  ,,,,,,,,,"
90 D$(2)="   ,,,   ,,,  ,,,        ,,,        ,,,   ,,,  ,,,        ,,,   ,,,"
100 D$(3)="   ,,,   ,,,  ,,,        ,,,        ,,,   ,,,  ,,,        ,,,   ,,,"
110 D$(4)="   ,,,,,,,,,  ,,,,,,,    ,,,        ,,,,,,,,,  ,,,,,,,    ,,,,,,,,,"
120 D$(5)="   ,,,   ,,,  ,,,        ,,,        ,,,        ,,,        ,,, ,,,"
130 D$(6)="   ,,,   ,,,  ,,,        ,,,        ,,,        ,,,        ,,,  ,,,"
140 D$(7)="   ,,,   ,,,  ,,,,,,,,,  ,,,,,,,,,  ,,,        ,,,,,,,,,  ,,,   ,,,"
150 FOR X=1 TO 7:FOR Y=1 TO 67
160 IF MID$(D$(X),Y,1)="," THEN PRINT CHR$(150); ELSE PRINT" ";
170 NEXT Y:PRINT:NEXT X
180 PRINT CHR$(27)CHR$(65)
190 PRINT:PRINT:PRINT SPC(28)CHR$(27)CHR$(41)CHR$(27)CHR$(108);
200 PRINT"By John Pursey"CHR$(27)CHR$(109)CHR$(27)CHR$(40)
205 PRINT:PRINT:PRINT:PRINT
207 PRINT SPC(20)CHR$(147)" 1985  HELPER by John Pursey"
210 FOR X=1 TO 3000:NEXT
220 PRINT CHR$(30):PRINT:PRINT:PRINT
230 GOSUB 250
240 GOTO 290
250 FOR X=1 TO 16
260 PRINT"                                                                    "
270 NEXT X
280 RETURN
290 PRINT CHR$(30):PRINT:PRINT:PRINT
300 PRINT CHR$(27)CHR$(97)SPC(25):FOR X=1 TO 20:PRINT CHR$(135);:NEXT X:PRINT
310 IF Z=1 THEN Z=0:GOTO 340
320 PRINT:PRINT:PRINT
330 Z=1:GOTO 300
340 PRINT CHR$(30)CHR$(27)CHR$(65):PRINT:PRINT:PRINT:PRINT:PRINT
350 PRINT SPC(28)"- GAME MENU"
360 PRINT SPC(28)"- EXIT TO SYSTEM"
370 P(1)=6:P(2)=27
380 PRINT CHR$(27)"="CHR$(32+P(1))CHR$(32+P(2))CHR$(27)CHR$(46)CHR$(50);
390 A$=INPUT$(1)
400 IF A$=CHR$(13) AND P(1)=6 THEN 470
410 IF A$=CHR$(13) AND P(1)=7 THEN PRINT CHR$(26):SYSTEM
420 IF A$=CHR$(27) THEN PRINT CHR$(26):END
430 PRINT CHR$(27)CHR$(46)CHR$(48)
440 IF A$=CHR$(10) AND P(1)<7 THEN P(1)=P(1)+1:GOTO 380
450 IF A$=CHR$(11) AND P(1)>6 THEN P(1)=P(1)-1:GOTO 380
460 GOTO 380
470 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
480 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
490 PRINT SPC(31)CHR$(27)CHR$(108)"GAME MENU"CHR$(27)CHR$(109)
500 PRINT"  GAMES LIKE......
510 PRINT"    SPY         HUNT&PEK   COPTER      STARS"
520 PRINT"    ZAP         SHOOT      MR MAKER"
530 PRINT
540 PRINT"  TYPE D-{filename} FOR DIRECTIONS."
550 PRINT"  TYPE {filename} TO PLAY SELECTED GAME."
560 PRINT"  TYPE (MENU) TO RETURN TO MAIN MENU."
570 PRINT
580 PRINT"  COMMAND"CHR$(27)CHR$(41);:INPUT A$:PRINT CHR$(27)CHR$(40)
590 IF LEFT$(A$,4)="MENU" OR RIGHT$(A$,4)="MENU" THEN 220
600 IF LEFT$(A$,6)="(MENU)" OR RIGHT$(A$,6)="(MENU)" THEN 220
610 IF A$="ZAP" THEN RUN"ZAP"
620 IF A$="MR MAKER" THEN RUN"MAKER"
630 IF A$="SHOOT" THEN RUN"SHOOT"
640 IF A$="SPY" THEN RUN"SPY"
650 IF A$="HUNT&PEK" THEN RUN"HUNT&PEK"
660 IF A$="COPTER" THEN RUN"COPTER"
670 IF A$="STARS" THEN RUN"STARS"
680 GOTO 710
690 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
700 PRINT:PRINT:PRINT:PRINT:PRINT:GOTO 580
710 IF RIGHT$(A$,3)<>"SPY" THEN 870
720 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
730 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
740 PRINT SPC(31)CHR$(27)CHR$(108)"SPY"CHR$(27)CHR$(109)
750 PRINT
760 PRINT"     Spy is a game of luck and skill.   You are in a ten story"
770 PRINT"  building trying to get all the secret documents which are"
780 PRINT"  spread over the ten floors each in its own combination safe."
790 PRINT"  Once you have all the secret documents, you pass on to the"
800 PRINT"  next level which is more difficult."
810 PRINT"     You also can choose your level of difficulty, and what"
820 PRINT"  level you would like to start on."
830 PRINT"     Further instructions in the game."
840 PRINT
850 PRINT SPC(22)CHR$(27)CHR$(41)"Press any key to continue."CHR$(27)CHR$(40)
860 PRINT"  ";:A$=INPUT$(1):GOTO 470
870 IF RIGHT$(A$,8)<>"HUNT&PEK" THEN 1040
880 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
890 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
900 PRINT SPC(31)CHR$(27)CHR$(108)"HUNT&PEK"CHR$(27)CHR$(109)
910 PRINT
920 PRINT"     Hunt&peck is a game for sharp eyes and quick hands.   The"
930 PRINT"  plot of the game is quite simple, you are a little circle who"
940 PRINT"  is moving constantly (unless you hit something) on a grid with"
950 PRINT"  dots and blocks.   You have to run over the dots, thus removing"
960 PRINT"  them from the board within the time limit.   You cannot run"
970 PRINT"  through a block to get from one place to the other.   After all"
980 PRINT"  the dots are gone you go on to the next grid with a shorter"
990 PRINT"  time limit.   The shorter you take to clear all the dots, the"
1000 PRINT"  higher score you will get for that grid."
1010 PRINT"     The controls are:  The arrow keys"
1020 PRINT"                               <ESC>=End game"
1030 GOTO 840
1040 IF RIGHT$(A$,6)<>"COPTER" THEN 1220
1050 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
1060 PRINT CHR$(30):PRINT:PRINT:PRINT
1070 PRINT SPC(31)CHR$(27)CHR$(108)"COPTER"CHR$(27)CHR$(109)
1080 PRINT
1090 PRINT"     In copter, you are a helicopter pilot dodging bombs and"
1100 PRINT"  destroying enemy helicopters and planes.   There are four"
1110 PRINT"  ways you can die.  1 - if you get hit by a bomb.   2 - if you"
1120 PRINT"  run out of fuel.   3 - if you run out of bullets before getting"
1130 PRINT"  the nessessary points to advance to the next level.   4 - if"
1140 PRINT"  your time limit is up before you get enough points to advance"
1150 PRINT"  to the next level.   Planes are worth more than helicopters,"
1160 PRINT"  and both planes and helicopters are worth more at higher speeds."
1170 PRINT"  Only helicopters drop bombs and bombs can fall from the top of"
1180 PRINT"  the screen.
1190 PRINT"     The controls are: 8=Up  2=Down  6=Speed up  5=Slow down"
1200 PRINT"                          <ESC>=End game  {space bar}=Fire"
1210 GOTO 840
1220 IF RIGHT$(A$,5)<>"STARS" THEN 1330
1230 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
1240 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
1250 PRINT SPC(31)CHR$(27)CHR$(108)"STARS"CHR$(27)CHR$(109)
1260 PRINT
1270 PRINT"     Stars is a very simple luck game where you dodge stars"
1280 PRINT"  comming up from the bottom of the screen.   At the beginning"
1290 PRINT"  of each game you choose the level of difficulty and the speed"
1300 PRINT"  of the game."
1310 PRINT"     The controls are: .=Right  ,=Left  <ESC>=End game"
1320 GOTO 840
1330 IF RIGHT$(A$,3)<>"ZAP" THEN 1460
1340 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
1350 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
1360 PRINT SPC(32)CHR$(27)CHR$(108)"ZAP"CHR$(27)CHR$(109)
1370 PRINT
1380 PRINT"     In zap, you are a small worm trying to eat all the bombs"
1390 PRINT"  you can without running into your own body or the wall.  This"
1400 PRINT"  may not seem so hard at first, but every time you eat a bomb"
1410 PRINT"  you get one link longer and 50 points.  Pretty soon, you're so"
1420 PRINT"  long you have to plan your moves ahead.  Its a really great"
1430 PRINT"  game!    Try it!!"
1440 PRINT"     The controls are the arrow keys.
1450 GOTO 840
1460 IF RIGHT$(A$,5)<>"SHOOT" THEN 1620
1470 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
1480 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
1490 PRINT SPC(31)CHR$(27)CHR$(108)"SHOOT"CHR$(27)CHR$(109)
1500 PRINT
1510 PRINT"     In shoot, you are a small missle launcher who is trying to"
1520 PRINT"  blast away aliens that are taking over the earth.  On the first"
1530 PRINT"  five levels, the aliens have to move from the left to the right"
1540 PRINT"  but on the sixth level, they move randomly both directions."
1550 PRINT"  There are five different kinds of aliens, each worth a different"
1560 PRINT"  value, each capable of moving a different speed.  Example -"
1570 PRINT"  alien #3 can move from 1 to 3 spaces every turn and is worth 30"
1580 PRINT"  points."
1590 PRINT"     The controls are: , = Left  . = Right  <ESC> = End game"
1600 PRINT"                            {space bar} = fire"
1610 GOTO 840
1620 IF RIGHT$(A$,8)<>"MR MAKER" THEN 480
1630 PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
1640 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
1650 PRINT SPC(29)CHR$(27)CHR$(108)"MR MAKER"CHR$(27)CHR$(109)
1660 PRINT
1670 PRINT"     Mr Maker is the most strategy oriented game on this disk."
1680 PRINT"  You are a small man trying to get all 7 gold statues and move"
1690 PRINT"  to the next screen with maximum points.  Unfortunately, this"
1700 PRINT"  isn't easy because each statue is a different hight from the"
1710 PRINT"  the ground.  You have to get up to the statues by building"
1720 PRINT"  ladders and floors.  You cannot make more than 5 ladders on"
1730 PRINT"  each floor, you cannot make a floor without at least 2 ladders"
1740 PRINT"  on the floor below you.  Besides the time limit which gets"
1750 PRINT"  shorter every screen, you have to watch out for sparks which"
1760 PRINT"  are always moving the same direction every screen and are always"
1770 PRINT"  trying to stay at the same level as you."
1780 PRINT
1790 PRINT SPC(22)CHR$(27)CHR$(41)"Press any key to continue."CHR$(27)CHR$(40)
1800 PRINT" ";:A$=INPUT$(1):PRINT CHR$(30):PRINT:PRINT:PRINT:GOSUB 250
1810 PRINT CHR$(30):PRINT:PRINT:PRINT:PRINT
1820 PRINT SPC(29)CHR$(27)CHR$(108)"MR MAKER"CHR$(27)CHR$(109):PRINT
1830 PRINT"     You can escape a spark by 1. jump over the spark, or 2. move"
1840 PRINT"  around the spark at top speed using your ladders and floors."
1850 PRINT"  Sparks do speed up every screen and falling does cost you"
1860 PRINT"  points."
1870 PRINT"     The controls are: {up arrow} = Climb ladder"
1880 PRINT"                       {down arrow} = Descend ladder"
1890 PRINT"                       {right & left arrow} = Move right & left"
1900 PRINT"                       {space bar} = Jump"
1910 PRINT"                       B = Make ladder or level"
1920 GOTO 840
 PRINT"                       {space bar} = Jump"
1910 PRINT"                       B = M