Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » unit9quiz
unit9quiz
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav |
| Filename: | unit9quiz |
| Read OK: | ✔ |
| File size: | 0C89 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » unit9quiz
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » unit9quiz
File contents
2 REM UNIT9QUIZ64
3 REM COPYRIGHT (C) ANDREW COLIN 1982
5 COLOR0,2:COLOR4,15,4
10 PRINT"<clr><cursor right><black> QUESTION AND ANSWER PROGRAM."
20 PRINT:PRINT" AT ALL TIMES, HIT ANY KEY TO"
30 PRINT" GET THE NEXT QUESTION"
40 PRINT:PRINT" ALWAYS FOLLOW YOUR REPLY
50 PRINT" WITH THE RETURN KEY"
60 PRINT:PRINT:PRINT" GOOD LUCK!"
70 FORJ=1TO12:READY$:NEXT
80 READN
90 DIMZ(N)
100 FORJ=1TON:Z(N)=0:NEXT
110 SC=0
120 FORJ=1TON
130 IFZ(J)>=0THEN 200
140 NEXTJ
150 FORJ=1TO2000:NEXTJ
155 PRINT"<black><clr><cursor down> YOU SCORED";SC
160 PRINT:PRINT" QUESTIONS RIGHT FIRST"
170 PRINT:PRINT" TIME OUT OF";N
180 PRINT:PRINT" THIS IS";INT(100*SC/N+0.5);"PERCENT"
190 END
200 D=1+INT(N*RND(1))
210 IF Z(D)=-1THEN200
220 C=Z(D)+1
230 GOSUB1200
240 FORT=1TO3
250 GETA$:IFA$=""THEN250
260 GOSUB1000
270 GOSUB1300
280 GOSUB1600
285 IFR=1ANDT=1ANDZ(D)=0THEN SC=SC+1
290 IF R=1 AND T=1 THENZ(D)=-1:GOTO400
300 IF R=1 THEN 320
310 NEXTT
320 Z(D)=Z(D)+1:GOTO120
400 GOTO120
1000 PRINT"<clr>"
1010 PRINT"<clr>"
1020 FORJ=0TO39:POKE3072+J,160:POKE 2048+J,C:NEXT
1030 FORJ=0TO920STEP40:POKE3151+J,160:POKE 2127+J,C:NEXT
1040 FORJ=39TO0STEP-1:POKE4032+J,160:POKE 3008+J,C:NEXT
1050 FORJ=920TO0STEP-40:POKE3112+J,160:POKE 2088+J,C:NEXT
1055 W=2:IFLEN(X$)>110THENW=1
1060 P=1:J=3: K=3
1070 A$=MID$(X$,P,1):P=P+1
1080 IFA$="#"THEN 1150
1090 IFA$="%"THENJ=J+W:K=3:GOTO1070
1095 IFA$="£"THEN A$=CHR$(34)
1100 POKE3072+40*J+K,ASC(A$)AND 63:POKE 2048+40*J+K,15:K=K+1
1110 GOTO1070
1150 RETURN
1200 RESTORE
1215 FORJ=1TO12:READX$:NEXT
1220 READN
1230 FORJ=1TOD
1240 READX$:READY$
1245 X$=X$+Y$:READY$
1250 NEXT J
1260 RETURN
1300 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><flash on>▒<flash off><cursor left>";
1305 A$=""
1307 GETQ$:IFQ$=""THEN 1307
1309 IFASC(Q$)<>20 THEN1314
1310 IFA$=""THEN1307
1311 PRINT"<cursor left><flash on>▒<flash off> <cursor left><cursor left>";:A$=LEFT$(A$,LEN(A$)-1):GOTO1307
1314 IFASC(Q$)=13 THEN PRINT" ";:GOTO1321
1315 IF Q$<"0" OR (Q$>"9" AND Q$<"A")OR Q$>"Z" THEN 1307
1316 PRINTQ$;"<flash on>▒<flash off><cursor left>";
1317 A$=A$+Q$:GOTO1307
1321 P=LEN(A$):IF P=0THEN1300
1322 IFASC(RIGHT$(A$,1))<>32THEN1330
1323 A$=MID$(A$,1,P-1)
1326 GOTO1321
1330 IF LEFT$(Y$,1)<>"%"THEN1380
1340 P=2
1350 IFMID$(Y$,P,1)<>"-"THENP=P+1:GOTO1350
1360 IFVAL(A$)>=VAL(MID$(Y$,2,P-1))ANDVAL(A$)<=VAL(MID$(Y$,P+1,LEN(Y$))) THEN1500
1370 R=0:RETURN
1380 P=1
1390 IFMID$(Y$,P,1)="#"THEN1370
1400 Q=P
1410 IFMID$(Y$,Q,1)<>"%"THENQ=Q+1:GOTO1410
1420 IFMID$(Y$,P,Q-P)=A$THEN1500
1430 P=Q+1:GOTO1390
1500 :R=1:RETURN
1600 RESTORE
1620 S=6*(1-R)+INT(6*RND(1))+1
1630 FORJ=1TOS:READZ$:NEXT
1640 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right>";Z$
1650 IFT<=2 THEN GOTO1750
1660 PRINT"<cursor right><cursor right>THE RIGHT ANSWER IS":PRINT"<cursor right><cursor right>";
1670 IF LEFT$(Y$,1)="%"THEN1710
1680 P=1
1690 IFMID$(Y$,P,1)="%"THENGOTO1750
1700 PRINTMID$(Y$,P,1);:P=P+1:GOTO1690
1710 PRINTMID$(Y$,2,LEN(Y$)):GOTO1750
1750 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right> NOW TYPE ANY KEY":RETURN
2000 X$="ABCD"
2010 INPUTY$
2020 IFX$=Y$THEN2050
2030 PRINT"NO":GOTO2000
2050 PRINT"YES"
2060 STOP
8010 DATAYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK
8020 DATANO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT
9000 DATA7
9090 DATA"WHICH KEYS DO YOU USE TO SWITCH%ON FLASHING?%A)FLASH ON AND SHIFT%B)FLASH
9095 DATA" ON AND CRTL%C)FLASH ON AND THE COMMODORE KEY%D)FLASH ON AND ESC%#",B%#
9100 DATA"WHAT HAPPENS TO THE CLOCK AT%MIDNIGHT?%%A)IT STICKS AT £235959£%B)IT GOES
9105 DATA" ON TO £240000£%C)IT GOES BACK TO £000000£%#",C%#
9110 DATA"WHICH OF THESE DOES NOT SPOIL THE%SETTING OF THE CLOCK?%%A)THE RUN/STOP KEY%
9115 DATA"B)THE RESET BUTTON%C)SWITCHING OFF%D)LOADING A NEW PROGRAM%E)NONE OF THESE%#"
9117 DATA"A%THE RUN/STOP KEY%#"
9120 DATA"IT IS LEGAL TO INCLUDE A%COMMAND LIKE%150 TI$=£090000£%IN A PROGRAM,%
9125 DATA"BUT IS IT SENSIBLE?%%#",N%NO%#
9130 DATA"WHAT COLOUR IS CODED BY A%REVERSED E?%%",#,"WHITE%#"
9140 DATA"DOES THE RESET BUTTON, IF PRESSED%BY ITSELF, DESTROY YOUR PROGRAM?%%"
9145 DATA#,Y%YES%#
9150 DATA" HOW CAN YOU GET OUT OF A LOOP%WITHOUT SPOILING YOUR PROGRAM?%%"
9155 DATA"A)HIT RUN/STOP%B)PRESS RESET%C)SWITCH OFF THE COMPUTER%#",A%#
� UNIT9QUIZ64 9 � COPYRIGHT (C) ANDREW COLIN 1982 J �0,2:�4,15,4 v �"�� QUESTION AND ANSWER PROGRAM."