Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_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_tape03a_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:

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%#

� UNIT9QUIZ649� COPYRIGHT (C) ANDREW COLIN 1982J�0,2:�4,15,4v
�"��     QUESTION AND ANSWER PROGRAM."��:�"      AT ALL TIMES, HIT ANY KEY TO"��"   GET THE NEXT QUESTION"�(�:�"      ALWAYS FOLLOW YOUR REPLY2�"   WITH THE RETURN KEY" <�:�:�"   GOOD LUCK!"2F�J�1�12:�Y$:�9P�NCZ�Z(N)Wd�J�1�N:Z(N)�0:�`nSC�0kx�J�1�N}��Z(J)��0� 200���J���J�1�2000:�J���"��         YOU SCORED";SC���:�"    QUESTIONS RIGHT FIRST"���:�"    TIME OUT OF";N#��:�"    THIS IS";�(100�SC�N�0.5);"PERCENT")��;�D�1��(N��(1))M�� Z(D)��1�200Z�C�Z(D)�1d��1200o��T�1�3���A$:�A$�""�250��1000��1300��1600��R�1�T�1�Z(D)�0� SC�SC�1�"� R�1 � T�1 �Z(D)��1:�400�,� R�1 � 320�6�T@Z(D)�Z(D)�1:�120��120��"�""��"�"G��J�0�39:�3072�J,160:� 2048�J,C:�p�J�0�920�40:�3151�J,160:� 2127�J,C:���J�39�0��1:�4032�J,160:� 3008�J,C:���J�920�0��40:�3112�J,160:� 2088�J,C:��W�2:��(X$)�110�W�1�$P�1:J�3: K�3.A$��(X$,P,1):P�P�18�A$�"#"� 1150/B�A$�"%"�J�J�W:K�3:�1070EG�A$�"\"� A$��(34)wL�3072�40�J�K,�(A$)� 63:� 2048�40�J�K,15:K�K�1�V�1070�~�������J�1�12:�X$:����N���J�1�D���X$:�Y$��X$�X$�Y$:�Y$��� J�����"����";A$�""�Q$:�Q$�""� 13071��(Q$)��20 �1314A�A$�""�1307h�"���� ��";:A$��(A$,�(A$)�1):�1307�"��(Q$)�13 � �" ";:�1321�#� Q$�"0" � (Q$�"9" � Q$�"A")� Q$�"Z" � 1307�$�Q$;"����";�%A$�A$�Q$:�1307�)P��(A$):� P�0�1300*��(�(A$,1))��32�1330+A$��(A$,1,P�1)$.�1321<2� �(Y$,1)��"%"�1380D<P�2dF��(Y$,P,1)��"-"�P�P�1:�1350�P��(A$)���(�(Y$,2,P�1))��(A$)���(�(Y$,P�1,�(Y$))) �1500�ZR�0:��dP�1�n��(Y$,P,1)�"#"�1370�xQ�P����(Y$,Q,1)��"%"�Q�Q�1:�1410
���(Y$,P,Q�P)�A$�1500�P�Q�1:�1390%�:R�1:�+@�ETS�6�(1�R)��(6��(1))�1V^�J�1�S:�Z$:�uh�"";Z$�r�T��2 � �1750�|�"THE RIGHT ANSWER IS":�"";��� �(Y$,1)�"%"�1710��P�1����(Y$,P,1)�"%"��1750����(Y$,P,1);:P�P�1:�1690���(Y$,2,�(Y$)):�1750L��"   NOW TYPE ANY KEY":�Z�X$�"ABCD"b��Y$r��X$�Y$�2050���"NO":�2000��"YES"���J�YES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKT�NO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(#�7[�#�"WHICH KEYS DO YOU USE TO SWITCH%ON FLASHING?%A)FLASH ON AND SHIFT%B)FLASH��#�" ON AND CRTL%C)FLASH ON AND THE COMMODORE KEY%D)FLASH ON AND ESC%#",B%#��#�"WHAT HAPPENS TO THE CLOCK AT%MIDNIGHT?%%A)IT STICKS AT \235959\%B)IT GOES1�#�" ON TO \240000\%C)IT GOES BACK TO \000000\%#",C%#��#�"WHICH OF THESE DOES NOT SPOIL THE%SETTING OF THE CLOCK?%%A)THE RUN/STOP KEY%��#�"B)THE RESET BUTTON%C)SWITCHING OFF%D)LOADING A NEW PROGRAM%E)NONE OF THESE%#"��#�"A%THE RUN/STOP KEY%#"@�#�"IT IS LEGAL TO INCLUDE A%COMMAND LIKE%150 TI$=\090000\%IN A PROGRAM,%e�#�"BUT IS IT SENSIBLE?%%#",N%NO%#��#�"WHAT COLOUR IS CODED BY A%REVERSED E?%%",#,"WHITE%#"��#�"DOES THE RESET BUTTON, IF PRESSED%BY ITSELF, DESTROY YOUR PROGRAM?%%"��#�#,Y%YES%#D�#�"   HOW CAN YOU GET OUT OF A LOOP%WITHOUT SPOILING YOUR PROGRAM?%%"��#�"A)HIT RUN/STOP%B)PRESS RESET%C)SWITCH OFF THE COMPUTER%#",A%#
SPB@. unit9quiz64@9PC@. copyright (c) andrew colin 1982@jPE@.0,2:.4,15,4@VPJ@.".].     question and answer program."@.PT@.:."      at all times, hit any key to"@.P.@."   get the next question"@.P(@.:."      always follow your reply@GQ2@."   with the return key"@ Q<@.:.:."   good luck!"@2Qf@.j.1.12:.y$:.@9Qp@.n@cQz@.z(n)@wQD@.j.1.n:z(n).0:.@.QN@sc.0@KQX@.j.1.n@.Q.@.z(j)..0. 200@.Q.@.j@.Q.@.j.1.2000:.j@.Q.@."..Q         you scored";sc@.Q.@.:."    questions right first"@.Q.@.:."    time out of";n@#R.@.:."    this is";.(100.sc.n.0.5);"percent"@)R.@.@;R.@d.1..(n..(1))@mR.@. z(d)..1.200@zR.@c.z(d).1@DR.@.1200@OR.@.t.1.3@.R.@.a$:.a$."".250@.RDA.1000@.RNA.1300@.RXA.1600@.R]A.r.1.t.1.z(d).0. sc.sc.1@.R"A. r.1 . t.1 .z(d)..1:.400@.R,A. r.1 . 320@.R6A.t@GS@Az(d).z(d).1:.120@PS.A.120@YS.C."."@"S.C."."@gS.C.j.0.39:.3072.j,160:. 2048.j,c:.@PSFD.j.0.920.40:.3151.j,160:. 2127.j,c:.@.SPD.j.39.0..1:.4032.j,160:. 3008.j,c:.@.SZD.j.920.0..40:.3112.j,160:. 2088.j,c:.@.S.Dw.2:..(x$).110.w.1@.S$Dp.1:j.3: k.3@AT.Da$..(x$,p,1):p.p.1@ST8D.a$."#". 1150@/TbD.a$."%".j.j.w:k.3:.1070@eTgD.a$."£". a$..(34)@WTlD.3072.40.j.k,.(a$). 63:. 2048.40.j.k,15:k.k.1@.TvD.1070@.T.D.@.T.D.@.T.D.j.1.12:.x$:.@.T.D.n@.T.D.j.1.d@.T.D.x$:.y$@.T.Dx$.x$.y$:.y$@.T.D. j@.T.D.@.TTE."SQQQQQQQQQQQQQQQQ]]]....";@GUYEa$.""@£U[E.q$:.q$."". 1307@1U]E..(q$)..20 .1314@aU.E.a$."".1307@HU.E.".... ..";:a$..(a$,.(a$).1):.1307@.U"E..(q$).13 . ." ";:.1321@.U#E. q$."0" . (q$."9" . q$."a"). q$."z" . 1307@.U$E.q$;"....";@.U%Ea$.a$.q$:.1307@.U)Ep..(a$):. p.0.1300@GV*E..(.(a$,1))..32.1330@ZV+Ea$..(a$,1,p.1)@$V.E.1321@<V2E. .(y$,1).."%".1380@dV<Ep.2@DVfE..(y$,p,1).."-".p.p.1:.1350@.VpE..(a$)...(.(y$,2,p.1))..(a$)...(.(y$,p.1,.(y$))) .1500@.VzEr.0:.@.VDEp.1@.VNE..(y$,p,1)."#".1370@.VXEq.p@.V.E..(y$,q,1).."%".q.q.1:.1410@JW.E..(y$,p,q.p).a$.1500@ZW.Ep.q.1:.1390@%W.E:r.1:.@+W@F.@eWtFs.6.(1.r)..(6..(1)).1@vW.F.j.1.s:.z$:.@UWHF."SQQQQQQQQQQQQQQQQQ]]";z$@.WRF.t..2 . .1750@.W.F."]]the right answer is":."]]";@.W.F. .(y$,1)."%".1710@.W.Fp.1@.W.F..(y$,p,1)."%"..1750@.W.F..(y$,p,1);:p.p.1:.1690@XX.F..(y$,2,.(y$)):.1750@lX.F."SQQQQQQQQQQQQQQQQQQQQQ]   now type any key":.@zX.Gx$."abcd"@BX.G.y$@RX.G.x$.y$.2050@.X.G."no":.2000@.XBH."yes"@.XLH.@.Xj..yes,correct,right,good,"that's right",ok@DYt..no,wrong,"that's wrong",not right,"no-that's wrong",incorrect@KY(#.7@[Y.#."which keys do you use to switch%on flashing?%a)flash on and shift%b)flash@.Y.#." on and crtl%c)flash on and the commodore key%d)flash on and esc%#",b%#@.Y.#."what happens to the clock at%midnight?%%a)it sticks at £235959£%b)it goes@1Z.#." on to £240000£%c)it goes back to £000000£%#",c%#@.Z.#."which of these does not spoil the%setting of the clock?%%a)the run/stop key%@.Z.#."b)the reset button%c)switching off%d)loading a new program%e)none of these%#"@.Z.#."a%the run/stop key%#"@@[.#."it is legal to include a%command like%150 ti$=£090000£%in a program,%@E[.#."but is it sensible?%%#",n%no%#@.[.#."what colour is coded by a%reversed e?%%",#,"white%#"@.[.#."does the reset button, if pressed%by itself, destroy your program?%%"@.[.#.#,y%yes%#@d£.#."   how can you get out of a loop%without spoiling your program?%%"@.£.#."a)hit run/stop%b)press reset%c)switch off the computer%#",a%#@@@
00000000  13 10 02 00 8f 20 55 4e  49 54 39 51 55 49 5a 36  |..... UNIT9QUIZ6|
00000010  34 00 39 10 03 00 8f 20  43 4f 50 59 52 49 47 48  |4.9.... COPYRIGH|
00000020  54 20 28 43 29 20 41 4e  44 52 45 57 20 43 4f 4c  |T (C) ANDREW COL|
00000030  49 4e 20 31 39 38 32 00  4a 10 05 00 e7 30 2c 32  |IN 1982.J....0,2|
00000040  3a e7 34 2c 31 35 2c 34  00 76 10 0a 00 99 22 93  |:.4,15,4.v....".|
00000050  1d 90 20 20 20 20 20 51  55 45 53 54 49 4f 4e 20  |..     QUESTION |
00000060  41 4e 44 20 41 4e 53 57  45 52 20 50 52 4f 47 52  |AND ANSWER PROGR|
00000070  41 4d 2e 22 00 a2 10 14  00 99 3a 99 22 20 20 20  |AM."......:."   |
00000080  20 20 20 41 54 20 41 4c  4c 20 54 49 4d 45 53 2c  |   AT ALL TIMES,|
00000090  20 48 49 54 20 41 4e 59  20 4b 45 59 20 54 4f 22  | HIT ANY KEY TO"|
000000a0  00 c2 10 1e 00 99 22 20  20 20 47 45 54 20 54 48  |......"   GET TH|
000000b0  45 20 4e 45 58 54 20 51  55 45 53 54 49 4f 4e 22  |E NEXT QUESTION"|
000000c0  00 e9 10 28 00 99 3a 99  22 20 20 20 20 20 20 41  |...(..:."      A|
000000d0  4c 57 41 59 53 20 46 4f  4c 4c 4f 57 20 59 4f 55  |LWAYS FOLLOW YOU|
000000e0  52 20 52 45 50 4c 59 00  07 11 32 00 99 22 20 20  |R REPLY...2.."  |
000000f0  20 57 49 54 48 20 54 48  45 20 52 45 54 55 52 4e  | WITH THE RETURN|
00000100  20 4b 45 59 22 00 20 11  3c 00 99 3a 99 3a 99 22  | KEY". .<..:.:."|
00000110  20 20 20 47 4f 4f 44 20  4c 55 43 4b 21 22 00 32  |   GOOD LUCK!".2|
00000120  11 46 00 81 4a b2 31 a4  31 32 3a 87 59 24 3a 82  |.F..J.1.12:.Y$:.|
00000130  00 39 11 50 00 87 4e 00  43 11 5a 00 86 5a 28 4e  |.9.P..N.C.Z..Z(N|
00000140  29 00 57 11 64 00 81 4a  b2 31 a4 4e 3a 5a 28 4e  |).W.d..J.1.N:Z(N|
00000150  29 b2 30 3a 82 00 60 11  6e 00 53 43 b2 30 00 6b  |).0:..`.n.SC.0.k|
00000160  11 78 00 81 4a b2 31 a4  4e 00 7d 11 82 00 8b 5a  |.x..J.1.N.}....Z|
00000170  28 4a 29 b1 b2 30 a7 20  32 30 30 00 84 11 8c 00  |(J)..0. 200.....|
00000180  82 4a 00 95 11 96 00 81  4a b2 31 a4 32 30 30 30  |.J......J.1.2000|
00000190  3a 82 4a 00 b6 11 9b 00  99 22 90 93 11 20 20 20  |:.J......"...   |
000001a0  20 20 20 20 20 20 59 4f  55 20 53 43 4f 52 45 44  |      YOU SCORED|
000001b0  22 3b 53 43 00 d9 11 a0  00 99 3a 99 22 20 20 20  |";SC......:."   |
000001c0  20 51 55 45 53 54 49 4f  4e 53 20 52 49 47 48 54  | QUESTIONS RIGHT|
000001d0  20 46 49 52 53 54 22 00  f4 11 aa 00 99 3a 99 22  | FIRST"......:."|
000001e0  20 20 20 20 54 49 4d 45  20 4f 55 54 20 4f 46 22  |    TIME OUT OF"|
000001f0  3b 4e 00 23 12 b4 00 99  3a 99 22 20 20 20 20 54  |;N.#....:."    T|
00000200  48 49 53 20 49 53 22 3b  b5 28 31 30 30 ac 53 43  |HIS IS";.(100.SC|
00000210  ad 4e aa 30 2e 35 29 3b  22 50 45 52 43 45 4e 54  |.N.0.5);"PERCENT|
00000220  22 00 29 12 be 00 80 00  3b 12 c8 00 44 b2 31 aa  |".).....;...D.1.|
00000230  b5 28 4e ac bb 28 31 29  29 00 4d 12 d2 00 8b 20  |.(N..(1)).M.... |
00000240  5a 28 44 29 b2 ab 31 a7  32 30 30 00 5a 12 dc 00  |Z(D)..1.200.Z...|
00000250  43 b2 5a 28 44 29 aa 31  00 64 12 e6 00 8d 31 32  |C.Z(D).1.d....12|
00000260  30 30 00 6f 12 f0 00 81  54 b2 31 a4 33 00 82 12  |00.o....T.1.3...|
00000270  fa 00 a1 41 24 3a 8b 41  24 b2 22 22 a7 32 35 30  |...A$:.A$."".250|
00000280  00 8c 12 04 01 8d 31 30  30 30 00 96 12 0e 01 8d  |......1000......|
00000290  31 33 30 30 00 a0 12 18  01 8d 31 36 30 30 00 bd  |1300......1600..|
000002a0  12 1d 01 8b 52 b2 31 af  54 b2 31 af 5a 28 44 29  |....R.1.T.1.Z(D)|
000002b0  b2 30 a7 20 53 43 b2 53  43 aa 31 00 db 12 22 01  |.0. SC.SC.1...".|
000002c0  8b 20 52 b2 31 20 af 20  54 b2 31 20 a7 5a 28 44  |. R.1 . T.1 .Z(D|
000002d0  29 b2 ab 31 3a 89 34 30  30 00 eb 12 2c 01 8b 20  |)..1:.400...,.. |
000002e0  52 b2 31 20 a7 20 33 32  30 00 f2 12 36 01 82 54  |R.1 . 320...6..T|
000002f0  00 07 13 40 01 5a 28 44  29 b2 5a 28 44 29 aa 31  |...@.Z(D).Z(D).1|
00000300  3a 89 31 32 30 00 10 13  90 01 89 31 32 30 00 19  |:.120......120..|
00000310  13 e8 03 99 22 93 22 00  22 13 f2 03 99 22 93 22  |...."."."...."."|
00000320  00 47 13 fc 03 81 4a b2  30 a4 33 39 3a 97 33 30  |.G....J.0.39:.30|
00000330  37 32 aa 4a 2c 31 36 30  3a 97 20 32 30 34 38 aa  |72.J,160:. 2048.|
00000340  4a 2c 43 3a 82 00 70 13  06 04 81 4a b2 30 a4 39  |J,C:..p....J.0.9|
00000350  32 30 a9 34 30 3a 97 33  31 35 31 aa 4a 2c 31 36  |20.40:.3151.J,16|
00000360  30 3a 97 20 32 31 32 37  aa 4a 2c 43 3a 82 00 98  |0:. 2127.J,C:...|
00000370  13 10 04 81 4a b2 33 39  a4 30 a9 ab 31 3a 97 34  |....J.39.0..1:.4|
00000380  30 33 32 aa 4a 2c 31 36  30 3a 97 20 33 30 30 38  |032.J,160:. 3008|
00000390  aa 4a 2c 43 3a 82 00 c2  13 1a 04 81 4a b2 39 32  |.J,C:.......J.92|
000003a0  30 a4 30 a9 ab 34 30 3a  97 33 31 31 32 aa 4a 2c  |0.0..40:.3112.J,|
000003b0  31 36 30 3a 97 20 32 30  38 38 aa 4a 2c 43 3a 82  |160:. 2088.J,C:.|
000003c0  00 d9 13 1f 04 57 b2 32  3a 8b c3 28 58 24 29 b1  |.....W.2:..(X$).|
000003d0  31 31 30 a7 57 b2 31 00  ea 13 24 04 50 b2 31 3a  |110.W.1...$.P.1:|
000003e0  4a b2 33 3a 20 4b b2 33  00 01 14 2e 04 41 24 b2  |J.3: K.3.....A$.|
000003f0  ca 28 58 24 2c 50 2c 31  29 3a 50 b2 50 aa 31 00  |.(X$,P,1):P.P.1.|
00000400  13 14 38 04 8b 41 24 b2  22 23 22 a7 20 31 31 35  |..8..A$."#". 115|
00000410  30 00 2f 14 42 04 8b 41  24 b2 22 25 22 a7 4a b2  |0./.B..A$."%".J.|
00000420  4a aa 57 3a 4b b2 33 3a  89 31 30 37 30 00 45 14  |J.W:K.3:.1070.E.|
00000430  47 04 8b 41 24 b2 22 5c  22 a7 20 41 24 b2 c7 28  |G..A$."\". A$..(|
00000440  33 34 29 00 77 14 4c 04  97 33 30 37 32 aa 34 30  |34).w.L..3072.40|
00000450  ac 4a aa 4b 2c c6 28 41  24 29 af 20 36 33 3a 97  |.J.K,.(A$). 63:.|
00000460  20 32 30 34 38 aa 34 30  ac 4a aa 4b 2c 31 35 3a  | 2048.40.J.K,15:|
00000470  4b b2 4b aa 31 00 81 14  56 04 89 31 30 37 30 00  |K.K.1...V..1070.|
00000480  87 14 7e 04 8e 00 8d 14  b0 04 8c 00 9f 14 bf 04  |..~.............|
00000490  81 4a b2 31 a4 31 32 3a  87 58 24 3a 82 00 a6 14  |.J.1.12:.X$:....|
000004a0  c4 04 87 4e 00 b1 14 ce  04 81 4a b2 31 a4 44 00  |...N......J.1.D.|
000004b0  bd 14 d8 04 87 58 24 3a  87 59 24 00 ce 14 dd 04  |.....X$:.Y$.....|
000004c0  58 24 b2 58 24 aa 59 24  3a 87 59 24 00 d6 14 e2  |X$.X$.Y$:.Y$....|
000004d0  04 82 20 4a 00 dc 14 ec  04 8e 00 fd 14 14 05 99  |.. J............|
000004e0  22 13 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
000004f0  11 11 1d 1d 1d 82 a6 84  9d 22 3b 00 07 15 19 05  |.........";.....|
00000500  41 24 b2 22 22 00 1c 15  1b 05 a1 51 24 3a 8b 51  |A$.""......Q$:.Q|
00000510  24 b2 22 22 a7 20 31 33  30 37 00 31 15 1d 05 8b  |$."". 1307.1....|
00000520  c6 28 51 24 29 b3 b1 32  30 20 a7 31 33 31 34 00  |.(Q$)..20 .1314.|
00000530  41 15 1e 05 8b 41 24 b2  22 22 a7 31 33 30 37 00  |A....A$."".1307.|
00000540  68 15 1f 05 99 22 9d 82  a6 84 20 9d 9d 22 3b 3a  |h....".... ..";:|
00000550  41 24 b2 c8 28 41 24 2c  c3 28 41 24 29 ab 31 29  |A$..(A$,.(A$).1)|
00000560  3a 89 31 33 30 37 00 84  15 22 05 8b c6 28 51 24  |:.1307..."...(Q$|
00000570  29 b2 31 33 20 a7 20 99  22 20 22 3b 3a 89 31 33  |).13 . ." ";:.13|
00000580  32 31 00 b4 15 23 05 8b  20 51 24 b3 22 30 22 20  |21...#.. Q$."0" |
00000590  b0 20 28 51 24 b1 22 39  22 20 af 20 51 24 b3 22  |. (Q$."9" . Q$."|
000005a0  41 22 29 b0 20 51 24 b1  22 5a 22 20 a7 20 31 33  |A"). Q$."Z" . 13|
000005b0  30 37 00 c4 15 24 05 99  51 24 3b 22 82 a6 84 9d  |07...$..Q$;"....|
000005c0  22 3b 00 d7 15 25 05 41  24 b2 41 24 aa 51 24 3a  |";...%.A$.A$.Q$:|
000005d0  89 31 33 30 37 00 ee 15  29 05 50 b2 c3 28 41 24  |.1307...).P..(A$|
000005e0  29 3a 8b 20 50 b2 30 a7  31 33 30 30 00 07 16 2a  |):. P.0.1300...*|
000005f0  05 8b c6 28 c9 28 41 24  2c 31 29 29 b3 b1 33 32  |...(.(A$,1))..32|
00000600  a7 31 33 33 30 00 1a 16  2b 05 41 24 b2 ca 28 41  |.1330...+.A$..(A|
00000610  24 2c 31 2c 50 ab 31 29  00 24 16 2e 05 89 31 33  |$,1,P.1).$....13|
00000620  32 31 00 3c 16 32 05 8b  20 c8 28 59 24 2c 31 29  |21.<.2.. .(Y$,1)|
00000630  b3 b1 22 25 22 a7 31 33  38 30 00 44 16 3c 05 50  |.."%".1380.D.<.P|
00000640  b2 32 00 64 16 46 05 8b  ca 28 59 24 2c 50 2c 31  |.2.d.F...(Y$,P,1|
00000650  29 b3 b1 22 2d 22 a7 50  b2 50 aa 31 3a 89 31 33  |).."-".P.P.1:.13|
00000660  35 30 00 9f 16 50 05 8b  c5 28 41 24 29 b1 b2 c5  |50...P...(A$)...|
00000670  28 ca 28 59 24 2c 32 2c  50 ab 31 29 29 af c5 28  |(.(Y$,2,P.1))..(|
00000680  41 24 29 b3 b2 c5 28 ca  28 59 24 2c 50 aa 31 2c  |A$)...(.(Y$,P.1,|
00000690  c3 28 59 24 29 29 29 20  a7 31 35 30 30 00 a9 16  |.(Y$))) .1500...|
000006a0  5a 05 52 b2 30 3a 8e 00  b1 16 64 05 50 b2 31 00  |Z.R.0:....d.P.1.|
000006b0  c9 16 6e 05 8b ca 28 59  24 2c 50 2c 31 29 b2 22  |..n...(Y$,P,1)."|
000006c0  23 22 a7 31 33 37 30 00  d1 16 78 05 51 b2 50 00  |#".1370...x.Q.P.|
000006d0  f1 16 82 05 8b ca 28 59  24 2c 51 2c 31 29 b3 b1  |......(Y$,Q,1)..|
000006e0  22 25 22 a7 51 b2 51 aa  31 3a 89 31 34 31 30 00  |"%".Q.Q.1:.1410.|
000006f0  0a 17 8c 05 8b ca 28 59  24 2c 50 2c 51 ab 50 29  |......(Y$,P,Q.P)|
00000700  b2 41 24 a7 31 35 30 30  00 1a 17 96 05 50 b2 51  |.A$.1500.....P.Q|
00000710  aa 31 3a 89 31 33 39 30  00 25 17 dc 05 3a 52 b2  |.1:.1390.%...:R.|
00000720  31 3a 8e 00 2b 17 40 06  8c 00 45 17 54 06 53 b2  |1:..+.@...E.T.S.|
00000730  36 ac 28 31 ab 52 29 aa  b5 28 36 ac bb 28 31 29  |6.(1.R)..(6..(1)|
00000740  29 aa 31 00 56 17 5e 06  81 4a b2 31 a4 53 3a 87  |).1.V.^..J.1.S:.|
00000750  5a 24 3a 82 00 75 17 68  06 99 22 13 11 11 11 11  |Z$:..u.h..".....|
00000760  11 11 11 11 11 11 11 11  11 11 11 11 11 1d 1d 22  |..............."|
00000770  3b 5a 24 00 87 17 72 06  8b 54 b3 b2 32 20 a7 20  |;Z$...r..T..2 . |
00000780  89 31 37 35 30 00 ab 17  7c 06 99 22 1d 1d 54 48  |.1750...|.."..TH|
00000790  45 20 52 49 47 48 54 20  41 4e 53 57 45 52 20 49  |E RIGHT ANSWER I|
000007a0  53 22 3a 99 22 1d 1d 22  3b 00 c2 17 86 06 8b 20  |S":."..";...... |
000007b0  c8 28 59 24 2c 31 29 b2  22 25 22 a7 31 37 31 30  |.(Y$,1)."%".1710|
000007c0  00 ca 17 90 06 50 b2 31  00 e3 17 9a 06 8b ca 28  |.....P.1.......(|
000007d0  59 24 2c 50 2c 31 29 b2  22 25 22 a7 89 31 37 35  |Y$,P,1)."%"..175|
000007e0  30 00 ff 17 a4 06 99 ca  28 59 24 2c 50 2c 31 29  |0.......(Y$,P,1)|
000007f0  3b 3a 50 b2 50 aa 31 3a  89 31 36 39 30 00 18 18  |;:P.P.1:.1690...|
00000800  ae 06 99 ca 28 59 24 2c  32 2c c3 28 59 24 29 29  |....(Y$,2,.(Y$))|
00000810  3a 89 31 37 35 30 00 4c  18 d6 06 99 22 13 11 11  |:.1750.L...."...|
00000820  11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000830  11 11 11 1d 20 20 20 4e  4f 57 20 54 59 50 45 20  |....   NOW TYPE |
00000840  41 4e 59 20 4b 45 59 22  3a 8e 00 5a 18 d0 07 58  |ANY KEY":..Z...X|
00000850  24 b2 22 41 42 43 44 22  00 62 18 da 07 85 59 24  |$."ABCD".b....Y$|
00000860  00 72 18 e4 07 8b 58 24  b2 59 24 a7 32 30 35 30  |.r....X$.Y$.2050|
00000870  00 82 18 ee 07 99 22 4e  4f 22 3a 89 32 30 30 30  |......"NO":.2000|
00000880  00 8d 18 02 08 99 22 59  45 53 22 00 93 18 0c 08  |......"YES".....|
00000890  90 00 c1 18 4a 1f 83 59  45 53 2c 43 4f 52 52 45  |....J..YES,CORRE|
000008a0  43 54 2c 52 49 47 48 54  2c 47 4f 4f 44 2c 22 54  |CT,RIGHT,GOOD,"T|
000008b0  48 41 54 27 53 20 52 49  47 48 54 22 2c 4f 4b 00  |HAT'S RIGHT",OK.|
000008c0  04 19 54 1f 83 4e 4f 2c  57 52 4f 4e 47 2c 22 54  |..T..NO,WRONG,"T|
000008d0  48 41 54 27 53 20 57 52  4f 4e 47 22 2c 4e 4f 54  |HAT'S WRONG",NOT|
000008e0  20 52 49 47 48 54 2c 22  4e 4f 2d 54 48 41 54 27  | RIGHT,"NO-THAT'|
000008f0  53 20 57 52 4f 4e 47 22  2c 49 4e 43 4f 52 52 45  |S WRONG",INCORRE|
00000900  43 54 00 0b 19 28 23 83  37 00 5b 19 82 23 83 22  |CT...(#.7.[..#."|
00000910  57 48 49 43 48 20 4b 45  59 53 20 44 4f 20 59 4f  |WHICH KEYS DO YO|
00000920  55 20 55 53 45 20 54 4f  20 53 57 49 54 43 48 25  |U USE TO SWITCH%|
00000930  4f 4e 20 46 4c 41 53 48  49 4e 47 3f 25 41 29 46  |ON FLASHING?%A)F|
00000940  4c 41 53 48 20 4f 4e 20  41 4e 44 20 53 48 49 46  |LASH ON AND SHIF|
00000950  54 25 42 29 46 4c 41 53  48 00 a9 19 87 23 83 22  |T%B)FLASH....#."|
00000960  20 4f 4e 20 41 4e 44 20  43 52 54 4c 25 43 29 46  | ON AND CRTL%C)F|
00000970  4c 41 53 48 20 4f 4e 20  41 4e 44 20 54 48 45 20  |LASH ON AND THE |
00000980  43 4f 4d 4d 4f 44 4f 52  45 20 4b 45 59 25 44 29  |COMMODORE KEY%D)|
00000990  46 4c 41 53 48 20 4f 4e  20 41 4e 44 20 45 53 43  |FLASH ON AND ESC|
000009a0  25 23 22 2c 42 25 23 00  f9 19 8c 23 83 22 57 48  |%#",B%#....#."WH|
000009b0  41 54 20 48 41 50 50 45  4e 53 20 54 4f 20 54 48  |AT HAPPENS TO TH|
000009c0  45 20 43 4c 4f 43 4b 20  41 54 25 4d 49 44 4e 49  |E CLOCK AT%MIDNI|
000009d0  47 48 54 3f 25 25 41 29  49 54 20 53 54 49 43 4b  |GHT?%%A)IT STICK|
000009e0  53 20 41 54 20 5c 32 33  35 39 35 39 5c 25 42 29  |S AT \235959\%B)|
000009f0  49 54 20 47 4f 45 53 00  31 1a 91 23 83 22 20 4f  |IT GOES.1..#." O|
00000a00  4e 20 54 4f 20 5c 32 34  30 30 30 30 5c 25 43 29  |N TO \240000\%C)|
00000a10  49 54 20 47 4f 45 53 20  42 41 43 4b 20 54 4f 20  |IT GOES BACK TO |
00000a20  5c 30 30 30 30 30 30 5c  25 23 22 2c 43 25 23 00  |\000000\%#",C%#.|
00000a30  84 1a 96 23 83 22 57 48  49 43 48 20 4f 46 20 54  |...#."WHICH OF T|
00000a40  48 45 53 45 20 44 4f 45  53 20 4e 4f 54 20 53 50  |HESE DOES NOT SP|
00000a50  4f 49 4c 20 54 48 45 25  53 45 54 54 49 4e 47 20  |OIL THE%SETTING |
00000a60  4f 46 20 54 48 45 20 43  4c 4f 43 4b 3f 25 25 41  |OF THE CLOCK?%%A|
00000a70  29 54 48 45 20 52 55 4e  2f 53 54 4f 50 20 4b 45  |)THE RUN/STOP KE|
00000a80  59 25 00 d8 1a 9b 23 83  22 42 29 54 48 45 20 52  |Y%....#."B)THE R|
00000a90  45 53 45 54 20 42 55 54  54 4f 4e 25 43 29 53 57  |ESET BUTTON%C)SW|
00000aa0  49 54 43 48 49 4e 47 20  4f 46 46 25 44 29 4c 4f  |ITCHING OFF%D)LO|
00000ab0  41 44 49 4e 47 20 41 20  4e 45 57 20 50 52 4f 47  |ADING A NEW PROG|
00000ac0  52 41 4d 25 45 29 4e 4f  4e 45 20 4f 46 20 54 48  |RAM%E)NONE OF TH|
00000ad0  45 53 45 25 23 22 00 f4  1a 9d 23 83 22 41 25 54  |ESE%#"....#."A%T|
00000ae0  48 45 20 52 55 4e 2f 53  54 4f 50 20 4b 45 59 25  |HE RUN/STOP KEY%|
00000af0  23 22 00 40 1b a0 23 83  22 49 54 20 49 53 20 4c  |#".@..#."IT IS L|
00000b00  45 47 41 4c 20 54 4f 20  49 4e 43 4c 55 44 45 20  |EGAL TO INCLUDE |
00000b10  41 25 43 4f 4d 4d 41 4e  44 20 4c 49 4b 45 25 31  |A%COMMAND LIKE%1|
00000b20  35 30 20 54 49 24 3d 5c  30 39 30 30 30 30 5c 25  |50 TI$=\090000\%|
00000b30  49 4e 20 41 20 50 52 4f  47 52 41 4d 2c 25 00 65  |IN A PROGRAM,%.e|
00000b40  1b a5 23 83 22 42 55 54  20 49 53 20 49 54 20 53  |..#."BUT IS IT S|
00000b50  45 4e 53 49 42 4c 45 3f  25 25 23 22 2c 4e 25 4e  |ENSIBLE?%%#",N%N|
00000b60  4f 25 23 00 a0 1b aa 23  83 22 57 48 41 54 20 43  |O%#....#."WHAT C|
00000b70  4f 4c 4f 55 52 20 49 53  20 43 4f 44 45 44 20 42  |OLOUR IS CODED B|
00000b80  59 20 41 25 52 45 56 45  52 53 45 44 20 45 3f 25  |Y A%REVERSED E?%|
00000b90  25 22 2c 23 2c 22 57 48  49 54 45 25 23 22 00 ec  |%",#,"WHITE%#"..|
00000ba0  1b b4 23 83 22 44 4f 45  53 20 54 48 45 20 52 45  |..#."DOES THE RE|
00000bb0  53 45 54 20 42 55 54 54  4f 4e 2c 20 49 46 20 50  |SET BUTTON, IF P|
00000bc0  52 45 53 53 45 44 25 42  59 20 49 54 53 45 4c 46  |RESSED%BY ITSELF|
00000bd0  2c 20 44 45 53 54 52 4f  59 20 59 4f 55 52 20 50  |, DESTROY YOUR P|
00000be0  52 4f 47 52 41 4d 3f 25  25 22 00 fb 1b b9 23 83  |ROGRAM?%%"....#.|
00000bf0  23 2c 59 25 59 45 53 25  23 00 44 1c be 23 83 22  |#,Y%YES%#.D..#."|
00000c00  20 20 20 48 4f 57 20 43  41 4e 20 59 4f 55 20 47  |   HOW CAN YOU G|
00000c10  45 54 20 4f 55 54 20 4f  46 20 41 20 4c 4f 4f 50  |ET OUT OF A LOOP|
00000c20  25 57 49 54 48 4f 55 54  20 53 50 4f 49 4c 49 4e  |%WITHOUT SPOILIN|
00000c30  47 20 59 4f 55 52 20 50  52 4f 47 52 41 4d 3f 25  |G YOUR PROGRAM?%|
00000c40  25 22 00 88 1c c3 23 83  22 41 29 48 49 54 20 52  |%"....#."A)HIT R|
00000c50  55 4e 2f 53 54 4f 50 25  42 29 50 52 45 53 53 20  |UN/STOP%B)PRESS |
00000c60  52 45 53 45 54 25 43 29  53 57 49 54 43 48 20 4f  |RESET%C)SWITCH O|
00000c70  46 46 20 54 48 45 20 43  4f 4d 50 55 54 45 52 25  |FF THE COMPUTER%|
00000c80  23 22 2c 41 25 23 00 00  00                       |#",A%#...|
00000c89