1 COMMON A, AL, B, BASEONLY, C, C$, C1, CAT$, CC, CKT$, D, D$, DD, DIA, DIMN$, DMS, E, EO, EX$, F, F$, FD, FF, FQ, FRQ, G$, GO$, I, I$, L, LATLONG, LD, LL, LN, LS, LW, LX, MAX, MENU, MIN, MX, N, NN, NT, OV, P, PI, PROG$, Q, QQ, QU, R, RA, RC, T, T$, U, U$, UH, UL$, V$, VC, W, WHIP, WIRD, WW, X, X$, X1, XS, Z$, ZP, ZS
10 'TIMEQ - TIME QUIZ - 1 APR 09
20 CLS:KEY OFF
30 IF EX$=""THEN EX$="EXIT"
40 IF PROG$=""THEN GO$=EX$ ELSE GO$=PROG$
50 PRINT :PRINT
60 COLOR 15:PRINT SPC(29);"T I M E   Q U I Z"
70 PRINT
80 PRINT SPC(17);"Do you know what happens daily at these times?"
90 PRINT
100 COLOR 14
110 FOR Z=0 TO 60 STEP 60/11
120 D=Z/5:D1=INT(D):D2=(D-D1)*60:D3=(D2-INT(D2))*60
130 LOCATE ,36
140 IF Z>0 THEN PRINT USING "##:##:##";INT(D1),INT(D2),INT(D3)
150 NEXT Z
160 PRINT
170 COLOR 15:PRINT SPC(20);"If you don't know, then press any key...."
180 Z$=INKEY$:IF Z$=""THEN 180
190 LOCATE CSRLIN-1:PRINT STRING$(79,32):LOCATE CSRLIN-1
200 LOCATE ,7:COLOR 14
210 PRINT "The HOUR, MINUTE and SECOND hands all point in the same direction!"
220 GOSUB 240
230 CLS:RUN GO$
240 '.....PRT
250 KEY OFF:GOSUB 320:LOCATE 25,5:COLOR 0,2
260 PRINT " Send this page to:(1)Printer Queue? (2)Printout? ";
270 PRINT "(3)Next page? (1/2/3)";:COLOR 7,0
280 Z$=INKEY$:IF Z$<"1"OR Z$>"3"THEN 280 ELSE GOSUB 320
290 IF Z$="3"THEN RETURN
300 FOR I%=1 TO 24:FOR J%=1 TO 80:LPRINT CHR$(SCREEN(I%,J%));:NEXT J%:NEXT I%
310 IF Z$="2"THEN LPRINT CHR$(12) ELSE 250
320 LOCATE 25,1:PRINT STRING$(80,32);:RETURN
