THE
PAST
MASTER
CLUB
GAME MENU.HTM
10 KEY OFF
20 '' GAME.BAS COPYRIGHTED NICK VAN VLIET 1993 TRANSLATED OCT/99 û
30 '' SCREEN 2:SCREEN 0,0,0
40 Q = 1: F = Q - Q: R = Q + Q: P = R + Q: S = P + Q: D = S + Q: T = D + Q: U = T + Q: V = U + Q: W = V + Q: E = R * D: Y = 15: X = U
50 COLOR X, Q, P: CLS : COLOR 11, P, Y
60 LOCATE Q, Q: PRINT "CODEBREAKER "; : COLOR F, S:
PRINT " NICK VAN VLIET ";
70 COLOR Y, D: PRINT " "; : PRINT DATE$; " "; : PRINT TIME$; : PRINT " "; :
COLOR Y, F
80 PRINT " GAMES ": COLOR Y, Q
90 LOCATE 5, R * X + S: PRINT "PLEASE SELECT TYPE OF GAME ": PRINT
100 PRINT TAB(R * X + S); "FOR CHESS..................1"
110 PRINT TAB(R * X + S); "FOR CODE...................2"
120 PRINT TAB(R * X + S); "FOR TIC-TAC-TOE............3"
130 PRINT TAB(R * X + S); "FOR 3D TIC TAC TOE.........4"
140 PRINT TAB(R * X + S); "FOR SUPERTIC...............5"
150 PRINT TAB(R * X + S); "FOR CALENDAR...............6"
160 PRINT TAB(R * X + S); "FOR CRITICAL PATH..........7"
170 PRINT TAB(R * X + S); "FOR \ACAD\PIPE.SCR & NCN...8"
180 PRINT TAB(R * X + S); "FOR 3D SURFACE.............9"
182 PRINT TAB(R * X + S); "FOR PIANO MUSIC...........10": PRINT
190 PRINT TAB(R * X + S); "QUIT......................11"
200 IF INKEY$ <> "" THEN GOTO 200
210 LOCATE X + V + D, P * X - P: INPUT "INPUT YOUR CHOICE: ", N
220 ON N GOTO 230, 250, 270, 290, 310, 330, 350, 370, 390, 410, 9030
230 CHAIN "CH"
240 RUN
250 CHAIN "CODE"
260 RUN
270 CHAIN "TTT"
280 RUN
290 CHAIN "3DTTT"
300 RUN
310 CHAIN "SPRTC"
320 RUN
330 CHAIN "CAL"
340 RUN
350 CHAIN "PATH"
360 RUN
370 CHAIN "PIPE"
380 RUN
390 CHAIN "SRFC"
400 RUN
410 CHAIN "MUSIC"
420 RUN
9000 ''
9010 '' CLS
9030 '' SCREEN 0,0,0:CLS
9040 '' SYSTEM
9050 '' SAVE"GAME.BAS"
END
RETURN TO TOP
PREVIOUS MENU
RETURN TO PMC MENU
HOME PAGE
You are visitor no.