home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / robot-pd / 16103.ZIP / 16103B.DSK / gprg.bas (.txt) < prev    next >
Locomotive BASIC  |  1998-04-30  |  9KB  |  107 lines
  1. GPRG    BAS
  2. e press a key"
  3. ***********************************
  4. *    GAR AND THE MAGIC SCROLL     *
  5. *                                 *
  6. *     The program                 *
  7. *     Written by Edmund Spicer    *
  8. *     Here goes...Gulp!           *
  9. *                                 *
  10. ***********************************
  11.  Eddie,20000,Arnold,15000 
  12.  Sophie,10000,Lanolin,9000 
  13.  Mark,8000,Sandra E.,7000
  14. BANKOPE
  15. |BANKOPEN error
  16.  "!gar2"
  17. Loads BANKMAN
  18. This menas BANKMAN is loaded
  19.  15,7,18,24,6,26,26,20
  20.  2,26,24,26,24,26,7
  21. Display title screen and play
  22. Horrible music!
  23. SCREENCOP
  24.  478,370,300,370,284,338
  25.  402,338,361,@
  26.  26,12,24,25,16,3,6,15,20
  27.  9,18,21,1,2,11
  28. SCREENCOP
  29.        
  30. )     
  31.  GAR AND THE MAGIC ";
  32.  "SCROLL 
  33.  "OPTIONS"
  34.  "1.JOYSTICK CONTROL"
  35.  "2.KEYBOARD CONTROL"
  36.  "3.CURSOR KEYS"
  37.  "4.NOT AVAILABLE"
  38.  "5.RESET..QUIT"
  39.  "6.SEE HI-SCORES"
  40.  "S.START GAME"
  41.  "CURRENT SELECTION:"
  42. ,"JOYSTICK"
  43. ,"KEYBOARD"
  44. ,"CURSORS "
  45.  "LEAVE DISK IN DRIVE AT AL";
  46.  "L TIMES"
  47.  26,12,24,25,16,3,6,15,20
  48.  9,18,21,1,2,11
  49. Choose screen to load.
  50.  "PLEASE WAIT.."
  51.  R1.DAT,R2.DAT,R3.DAT,R4.DAT
  52. This is a routine to create a
  53. Random screen.
  54. Walls (Type 1 & 2)
  55. Monsters (Type 1 & 2)
  56. Diamonds
  57. )    
  58. Keys and Treasure
  59. )    
  60. )    
  61. Magic ring
  62. Line 2430 returns things to 
  63. normal to prevent a spectacular
  64. crash! 
  65. The end of the screen.
  66. Varibles
  67. scree
  68. Display screen
  69. scree
  70.      
  71. ,"Lives";
  72. ," ";
  73. ,"Sc";
  74. ,"Keys";
  75. ,"Rings";
  76. Main game
  77.      
  78. ,"Sc";
  79. ,"Keys";
  80. ,"Sc";
  81. ,"Keys";
  82. ,"Rings";
  83. Dead!
  84. ,"Rings";
  85. ,"Lives";
  86. SCREENCOP
  87. );"Press a key"   
  88.  "THAT'S A HI-SCORE!"
  89.  "Enter your name:"
  90.  ">",
  91.  "10 letters max."
  92.  "Press any key"
  93. Screen complete
  94. );"ROUND CLEAR!"
  95. );"Score=";
  96. );"Bonus =";
  97. );"Keys=";
  98. );"Rings=";
  99. );"New score ";
  100. );"PLEASE WAIT..."
  101.  "r1.dat"
  102.  "r2.dat"
  103.  "r3.dat"
  104.  "r4.dat"
  105. High scores
  106.  "Please press a key"
  107.