Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape02a_c16_basic1.wav » unit3quiz
unit3quiz
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_tape02a_c16_basic1.wav |
Filename: | unit3quiz |
Read OK: | ✔ |
File size: | 0D6B 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_tape02a_c16_basic1.wav » unit3quiz
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape02b_c16_basic1.wav » unit3quiz
File contents
2 REM UNIT5QUIZ64 3 REM COPYRIGHT (C) ANDREW COLIN 1982 5 COLOR0,2:COLOR4,15,4:PRINT"<black>" 10 PRINT"<clr><cursor down><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 PRINT"<red><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$)>120THENW=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 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 DATA10 9060 DATA"WHAT WOULD THE COMMAND% COLOR 0,7%DO?%%%A) TURN THE BACKGROUND TO GREEN%%B 9065 DATA") TURN THE BACKGROUND TO BLUE%%C) TURN THE BACKGROUND TO YELLOW%#",B%BLUE%# 9070 DATA"WHAT WOULD THE COMMAND% COLOR 4,3%DO?%A) TURN THE BORDER RED%B) TURN 9075 DATA" THE BACKGROUND RED%C) TURN THE CURSOR RED%%#",A%# 9080 DATA"WHAT IS THE COLOUR CODE FOR%ORANGE?%%",#,9%NINE%# 9090 DATA"HOW MANY DIFFERENT COLOURS CAN%YOUR COMPUTER DISPLAY?%","%#",16%SIXTEEN%# 9100 DATA"WHENEVER YOU TYPE A CHARACTER,%IT GOES%%A)TO THE LEFT OF%B)TO THE RIGHT " 9105 DATA"OF%C)UNDER THE CURSOR ?%%#",C%UNDER%# 9110 DATA"WHICH OF THE FOLLOWING CLEARS%THE SCREEN?%%A)PRESSING RESET%B)KEYING SHIF 9115 DATA"T AND INST/DEL%C)PRESSING SHIFT AND CLEAR/HOME%#",C%# 9120 DATA"WHAT DOES THE CLEAR/HOME KEY DO%IF USED BY ITSELF?%%A)CLEAR THE SCREEN%%B) 9125 DATA"TAKE THE CURSOR TO THE TOP% LEFTHAND CORNER%%C)ERASE THE CURRENT LINE%#",B%# 9130 DATA"HOW MANY LINES OF CHARACTERS%FIT ON THE SCREEN?",%%#,25%TWENTYFIVE%# 9140 DATA"HOW WIDE IS THE SCREEN, IN%CHARACTERS?%",%#",40%FORTY%# 9150 DATA"IF YOUR COMPUTER GETS STUCK,%YOU CAN ALWAYS FREE IT BY%%%A)HITTING RETURN 9155 DATA"%B)PRESSING RESET%C)TYPING RUN/STOP%D)SWITCHING OFF%#",B%D%#
� UNIT5QUIZ64 9 � COPYRIGHT (C) ANDREW COLIN 1982 O �0,2:�4,15,4:�"�"