home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
dunquest.zip
/
MENU.BAS
< prev
Wrap
BASIC Source File
|
1985-10-29
|
1KB
|
49 lines
10 'MENU - DUNGEON MASTERS ASSISTANT - MAIN MENU
20 SCREEN 3
30 KEY OFF
40 WIDTH 20
50 COLOR 1,4
60 CLS
70 LOCATE 4,1
80 PRINT " THE"
90 LOCATE 7,1
100 PRINT " DUNGEON"
110 LOCATE 10,1
120 PRINT " MASTERS"
130 LOCATE 13,1
140 PRINT " ASSISTANT"
150 LOCATE 22,1
160 PRINT "BY BILL CHELMOWSKI"
170 'KILL TIME
180 FOR X = 1 TO 1000
190 NEXT X
200 'PRINT MENU
210 SCREEN 1
220 WIDTH 40
230 COLOR 4,1
240 CLS
250 LOCATE 3,1
260 PRINT " THE DUNGEON MASTERS ASSISTANT"
270 LOCATE 6,10
280 PRINT "1. PLAYER CHARACTERS"
290 LOCATE 8,10
300 PRINT "2. THE SUPPLY SHOPPE"
310 LOCATE 10,10
320 PRINT "3. THE QUEST"
330 LOCATE 12,10
340 PRINT "9. THE END"
350 'GET REPLY
360 DEF SEG=0: POKE 1050,PEEK(1052) 'CLEAR KEYBOARD BUFFER
370 LET REPLY$ = INKEY$
380 IF REPLY$ = "" THEN GOTO 370
390 IF REPLY$ = "1" THEN CHAIN "DUNCHAR"
400 IF REPLY$ = "2" THEN CHAIN "DUNSHOP"
410 IF REPLY$ = "3" THEN CHAIN "DUNQUEST"
420 IF REPLY$ = "9" THEN GOTO 440
430 GOTO 370
440 'END
450 CLS
460 SYSTEM
1000 'RETURN POINT
1110 GOTO 200 'PRINT MENU