home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / LOC1.DSK / MAINMENU.txt < prev    next >
Text File  |  2014-09-09  |  3KB  |  89 lines
  1.  FORGET DIE
  2.  FORGET PZ
  3.  FORGET T1
  4.  VARIABLE T1
  5. : KEYIN CLRKEY
  6.   BEGIN RND DROP GETKEY DUP 128 <
  7.   WHILE DROP
  8.   REPEAT CLRKEY 1000 DELAY DUP PUTC ;
  9. : CVRTNUM 176 - ;
  10.  : END? PEEK DUP 141 = SWAP ZR = OR ;
  11.  VARIABLE DR1FLG
  12.  : LENGTH
  13. DUP
  14. BEGIN
  15.    DUP END? 0 =
  16. WHILE
  17.    1 +
  18. REPEAT
  19.  SWAP - ;
  20.  : RKEY BEGIN KEYIN 141 = UNTIL ;
  21.  : RDYMES PRINT " PRESS "RETURN" WHEN READY " RKEY ;
  22.  : RRDY CR RDYMES ;
  23.  : NXTP PAD LENGTH PAD + ;
  24.  : DSB0A ZR NXTP T1 OVER POKE ADD1 POKE N1 24575 POKE CR 132 PUTC PAD WRITELN CR ZR 24575 POKE ;
  25.  : DSB0 HOME BEGIN PRINT " DRIVE (1 0R 2) =  " KEYIN CVRTNUM N1 N2 CNM
  26.   UNTIL DUP N1 = IF N1 -> DR1FLG THEN 176 + -> T1 CR PRINT " INSERT DISK, " CR RDYMES ;
  27.  VARIABLE FILETYPE
  28.  : PRWORK PRINT " WORK :  " ;
  29. : PRMAP PRINT " MAP :  " ;
  30. : PRGAME PRINT " GAME :  " ;
  31.  : DSB1 DSB0
  32.  BEGIN NXTP PUSH CR CLRKEY PRINT " NAME OF  " FILETYPE CASE: PRWORK PRMAP PRGAME THEN NXTP READLN NXTP PULL > UNTIL ;
  33.  : DSB2 DSB0A T1 177 =
  34.   IF PRINT " INSERT PROGRAM DISK, " RRDY
  35.   THEN ;
  36.  : CAT PAD ASSIGN " CATALOG,D " DSB0 DSB0A RRDY ;
  37.  : SIDE CR 132 PUTC PRINT " BLOADSIDE,D1 " CR 45056 PEEK ;
  38.  : INSERTMS HOME VTAB 8 HTAB PRINT " PLEASE INSERT GAME DISK " CR 11 HTAB PRINT " SIDE  " . PRINT "  IN DRIVE 1. " CR CR 7 HTAB RDYMES ;
  39.  : RESTG BWIN DSPEX HOME N2 -> FILETYPE 10 30 8 N16 WINDOW
  40.  PAD ASSIGN " BLOAD  " DSB1 NXTP ASSIGN " .G,A2816,D " HOME DSB0A CLOSE
  41.  5470 23936 640 MOVMEM REF
  42.  BEGIN 21 VTAB 9 HTAB CLEOP PRINT " THIS GAME? (Y/N)  " KEYIN DUP 217 = SWAP 206 = OVER OR NOT WHILE DROP REPEAT
  43.   IF ZR 22098 POKE ZR 22099 POKE ( BLACK MASKS!!
  44.  N1 24560 POKE ( INDICATES RESTART 
  45.  N1 -> F DROP N1
  46.  ELSE BWIN DSPEX HOME
  47.  THEN ;
  48.  : DEMO DROP N1 N3 -> F ;
  49.  : MAPC DROP N1 N2 -> F ;
  50.  : MSEL PRINT " SELECT OPTION: " KEYIN -> F ;
  51.  : NEWG DROP N1 ZR -> F ;
  52.  : LDG 9 VTAB N16 HTAB PRINT " LOADING " CR 15 HTAB ;
  53.  : RCC N1 -> DQQ 10 VTAB 12 HTAB PRINT " STARTING DEMO " READ " CC,D1 " ;
  54.  : RK LDG PRINT " GAME SETUP " READ " K,D1 " ;
  55.  : RLL READ " LL,D1 " ;
  56.  : RUTL BEGIN N2 9 INSERTMS HOME SIDE N2 = UNTIL
  57.  LDG PRINT " MAP MAKER " READ " MU1 " ;
  58.  : C20 20 VTAB CR CLEOP ;
  59.  : MM    BWIN DSPEX ZR 24418 POKE  
  60.    HOME ZR -> DR1FLG DQQ
  61.  IF N3 -> F
  62.  ELSE 11 HTAB PRINT " LORDS OF CONQUEST " 5 VTAB 13 HTAB PRINT " GAME SELECTION "
  63.  22 VTAB 11 HTAB PRINT " IIE AND IIC OWNERS " CR N4 HTAB PRINT " MAKE SURE CAPS LOCK KEY IS DOWN. " 
  64.  BEGIN 13 25 8 N16 WINDOW HOME
  65.   PRINT " 1) NEW GAME " CR
  66.  PRINT " 2) SAVED GAME " CR
  67.  PRINT " 3) MAP MAKER " CR
  68.  PRINT " 4) DEMO " CR
  69. CR MSEL ZR
  70.  F 177 = IF NEWG THEN
  71.  F 178 = IF RESTG THEN
  72.  F 179 = IF MAPC THEN
  73.  F 180 = IF DEMO THEN
  74.  UNTIL
  75.  F N1 <> IF BWIN THEN DSPEX HOME DR1FLG
  76.  IF C20 PRINT "   CHECK GAME DISK IS IN DRIVE 1, " CR 7 HTAB RDYMES C20 THEN
  77.  THEN
  78.  F CASE: RK RLL RUTL RCC THEN ;
  79.  
  80.  : TW 132 PUTC PRINT " BLOADTREVOR,A$D100 " CR 
  81.  HEX 20 DEB0 POKE 00 DEB1 POKE D1 DEB2 POKE 4C DEB3 POKE A8 DEB4 POKE DE DEB5 POKE DECIMAL MM ; 
  82. CLOSE RUN
  83.  
  84. 0 POKE 00 DEB1 POKE D1 DEB2 POKE 4C DEB3 POKE A8 DEB4 POKE DE DEB5 POKE DECIMAL MM ; 
  85. CLOSE RUN
  86.  
  87. RUN
  88.  
  89.