0 'QZ-100.BA v3.3 Bill Templeton Feb-88 Copyright 1987 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' True or False Quiz 3 ' 4 files req'd to run this program: 4 ' DISNEY.DO, ARTS.DO, HORSES.DO, BOXING.DO 5 ' During each 24 question quiz: 6 ' Press ESC to start over 7 ' Press DEL to stop 8 ' Honor Code: 15 lashes to anyone who looks at answers before taking quiz! 9 ' 10 CLS:MAXFILES=1:DEFSTRE,R,N:E=CHR$(27):R=E+"p":N=E+"q":ONERRORGOTO0 11 PRINT" QQQ 12 PRINT" Q Q u u i zzzz 13 PRINT" Q Q u u i z 14 PRINT" Q Q Q u u i z 15 PRINT" QQQ uu i zzzz":PRINT" Q":PRINT@256,R" 24 Questions/Quiz "N:GOSUB50 16 CLS:PRINT@8,R" True or False Questions "N:PRINT@83,"Press [T] or [ENTER] if "R" True "N 17 PRINT@163,"Press [F] or [SPACEBAR] if "R" False "N:PRINT@253,"Press any key...":Q$=INPUT$(1) 18 CLS:PRINT@41,R" Choose one: "N:PRINT@128,"[1] Disney Movies 19 PRINT@168,"[2] Arts & Entertainment":PRINT@208,"[3] Boxing History":PRINT@248,"[4] Horse Racing 20 B$="":Q$="":A$=INPUT$(1):A=VAL(A$) 21 IFA=1THENF$="Disney 22 IFA=2THENF$="Arts 23 IFA=3THENF$="Boxing 24 IFA=4THENF$="Horses 25 IFA$=ETHENMENUELSEIFA<1ORA>4THEN20ELSECLS:PRINT@42,"Select your skill level on "R" "F$" "N 26 PRINT@125,"[E]xpert - allows 5 seconds":PRINT@165,"[A]verage - allows 10 seconds":PRINT@205,"[N]ovice - allows 20 seconds 27 B$=INPUT$(1):IFINSTR("eE",B$)THENB$="Expert":Z=5ELSEIFINSTR("aA",B$)THENB$="Average":Z=10ELSEB$="Novice":Z=20 28 PRINT@295,R" "B$" "N;:FORX=1TO500:NEXT 29 S=0:T=0:CLOSE:OPENF$FORINPUTAS1 30 A$="":LINEINPUT#1,A$ 31 CLS:PRINTR" TRUE or FALSE "N:PRINT:PRINTA$ 32 C$="":LINEINPUT#1,C$:D$=LEFT$(C$,1):TM$=TIME$:IFINSTR("tT",D$)THEND$="T"ELSED$="F 33 Q$=INPUT$(1):IFINSTR("tT"+CHR$(13),Q$)THENQ$="T":PRINT" ":GOTO36 34 IFINSTR("fF"+CHR$(32),Q$)THENQ$="F":PRINT" ":GOTO36 35 IFQ$=ETHEN18ELSEIFQ$=CHR$(127)THEN43ELSE33 36 TA=VAL(LEFT$(TIME$,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2)) 37 TB=VAL(LEFT$(TM$,2))*3600+VAL(MID$(TM$,4,2))*60+VAL(RIGHT$(TM$,2))+Z*.9 38 IFTA>TBTHEN41 39 IFQ$=D$THENS=S+1 40 FORX=1TO200:NEXT:PRINTR" "C$" "N;:FORX=1TO1200:NEXT:GOTO42 41 PRINT:PRINTR" Timed out... no points scored "N:FORX=1TO1000:NEXT 42 T=T+1:IFEOF(1)THEN43ELSE30 43 CLS:PRINT@120,R" Your score was"S"correct out of 24... "N:PRINT@253,"Press [ENTER]...":Q$=INPUT$(1) 44 CLS:PRINT@82," Do you want to go again (Y/N?) ":Q$=INPUT$(1):IFINSTR("yY",Q$)THENPRINT:GOTO25 45 PRINT@122,R" Do you want another quiz (Y/N?) "N:Q$=INPUT$(1):IFINSTR("yY",Q$)THEN18 46 PRINT@162," Run another program (Y/N?)":Q$=INPUT$(1):IFINSTR("yY",Q$)THEN47ELSEMENU 47 ONERRORGOTO48:P$="":PRINT@203,"Program name: ";:INPUTP$:IFP$="q"ORP$="Q"THENMENUELSERUNP$ 48 IFERR=52ORERR=55THENGOSUB49:RESUME47ELSE47 49 PRINT@253,R" Bad filename "N:FORT=1TO500:NEXT:PRINT@219,SPACE$(20):PRINT@253,SPACE$(20):RETURN 50 FORX=16000TO100STEP-400:SOUNDX,1:NEXT:FORX=1TO500:NEXT:RETURN