Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » unit10quiz

unit10quiz

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: unit10quiz
Read OK: ✔
File size: 0CF0 bytes
Load address: 1001
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
     5 COLOR0,2:COLOR4,15,4
    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 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 DATA8
  9010 DATA"THE INPUT COMMAND CAN BE USED%%%A) FOR NUMBERS%B) FOR STRINGS%C) FOR NUMBER
  9015 DATA"S AND STRINGS MIXED%D) FOR BOTH BUT NOT AT THE SAME TIME%%#",C%#
  9030 DATA"   THE COMMAND%  INPUT £RQ$£; RS%INPUTS%A) RQ$ ONLY%B) RS ONLY%C) BOTH
  9035 DATA" RQ$ AND RS%D) NEITHER OF THEM%#","RS%B%#"
  9040 DATA"   INPUT X,Y%EXPECTS%%A) 1 VALUE%B) 2 VALUES%C) MORE THAN 2 VALUES%%"
  9045 DATA#,TWO%2%B%#
  9050 DATA"TO 'INPUT £AGE£;D' THE USER REPLIES%£DONALD DUCK£.WHAT HAPPENS?%%A)THE V
  9055 DATA"ALUE IS ACCEPTED%B)THE MESSAGE IS 'REDO FROM START'%C)THE PROGRAM FAILS%#
  9057 DATAB%#
  9060 DATA"TO INPUT £NAME£;DD$%THE USER TYPES%£MICKEY MOUSE£%WHAT HAPPENS?%%A)THE VA
  9065 DATA"LUE IS ACCEPTED%B)THE MACHINE SAYS%'REDO FROM START'%C)THE PROGRAM FAILS#
  9067 DATAA%#
  9070 DATA"   10 INPUT 777%%IS THIS%A) AN ILLEGAL COMMAND%B) A VALID COMMAND%C) A V
  9075 DATA"ALID BUT USELESS COMMAND%%#",A%#
  9080 DATA"10 INPUT T%20 T=93%%IS THIS SEQUENCE SENSIBLE?%%",#,"NO%N%#
  9090 DATA"   WHEN THE RUN/STOP KEY IS%DISABLED HOW CAN YOU STOP%A PROGRAM?%%A) W
  9095 DATA"ITH THE RESET KEY ALONE%B) RUN/STOP AND RESET%C) CRTL AND RESET%#"
  9097 DATAB%#


�0,2:�4,15,4>
�"��     QUESTION AND ANSWER PROGRAM."j�:�"      AT ALL TIMES, HIT ANY KEY TO"��"   GET THE NEXT QUESTION"�(�:�"      ALWAYS FOLLOW YOUR REPLY�2�"   WITH THE RETURN KEY"�<�:�:�"   GOOD LUCK!"�F�J�1�12:�Y$:�P�NZ�Z(N)d�J�1�N:Z(N)�0:�(nSC�03x�J�1�NE��Z(J)��0� 200L��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))�� Z(D)��1�200"�C�Z(D)�1,��12007��T�1�3J��A$:�A$�""�250T�1000^�1300h�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���"�"���"�"��J�0�39:�3072�J,160:� 2048�J,C:�8�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�1�8�A$�"#"� 1150�B�A$�"%"�J�J�W:K�3:�1070
G�A$�"\"� A$��(34)?L�3072�40�J�K,�(A$)� 63:� 2048�40�J�K,15:K�K�1IV�1070O~�U��g��J�1�12:�X$:�n��Ny��J�1�D���X$:�Y$��X$�X$�Y$:�Y$��� J�����"����";�A$�""��Q$:�Q$�""� 1307���(Q$)��20 �1314	�A$�""�13070�"���� ��";:A$��(A$,�(A$)�1):�1307L"��(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)�.�13212� �(Y$,1)��"%"�1380<P�2,F��(Y$,P,1)��"-"�P�P�1:�1350gP��(A$)���(�(Y$,2,P�1))��(A$)���(�(Y$,P�1,�(Y$))) �1500qZR�0:�ydP�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:��@�
TS�6�(1�R)��(6��(1))�1^�J�1�S:�Z$:�=h�"";Z$Or�T��2 � �1750s|�"THE RIGHT ANSWER IS":�"";��� �(Y$,1)�"%"�1710��P�1����(Y$,P,1)�"%"��1750����(Y$,P,1);:P�P�1:�1690����(Y$,2,�(Y$)):�1750��"   NOW TYPE ANY KEY":�"�X$�"ABCD"*��Y$:��X$�Y$�2050J��"NO":�2000U�"YES"[��J�YES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK�T�NO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT�(#�8%2#�"THE INPUT COMMAND CAN BE USED%%%A) FOR NUMBERS%B) FOR STRINGS%C) FOR NUMBERl7#�"S AND STRINGS MIXED%D) FOR BOTH BUT NOT AT THE SAME TIME%%#",C%#�F#�"   THE COMMAND%  INPUT \RQ$\; RS%INPUTS%A) RQ$ ONLY%B) RS ONLY%C) BOTH�K#�" RQ$ AND RS%D) NEITHER OF THEM%#","RS%B%#"6P#�"   INPUT X,Y%EXPECTS%%A) 1 VALUE%B) 2 VALUES%C) MORE THAN 2 VALUES%%"GU#�#,TWO%2%B%#�Z#�"TO 'INPUT \AGE\;D' THE USER REPLIES%\DONALD DUCK\.WHAT HAPPENS?%%A)THE V�_#�"ALUE IS ACCEPTED%B)THE MESSAGE IS 'REDO FROM START'%C)THE PROGRAM FAILS%#�a#�B%#?d#�"TO INPUT \NAME\;DD$%THE USER TYPES%\MICKEY MOUSE\%WHAT HAPPENS?%%A)THE VA�i#�"LUE IS ACCEPTED%B)THE MACHINE SAYS%'REDO FROM START'%C)THE PROGRAM FAILS#�k#�A%#�n#�"   10 INPUT 777%%IS THIS%A) AN ILLEGAL COMMAND%B) A VALID COMMAND%C) A Vs#�"ALID BUT USELESS COMMAND%%#",A%#Px#�"10 INPUT T%20 T=93%%IS THIS SEQUENCE SENSIBLE?%%",#,"NO%N%#��#�"   WHEN THE RUN/STOP KEY IS%DISABLED HOW CAN YOU STOP%A PROGRAM?%%A) W��#�"ITH THE RESET KEY ALONE%B) RUN/STOP AND RESET%C) CRTL AND RESET%#"��#�B%#
RPE@.0,2:.4,15,4@>PJ@.".Q.     question and answer program."@JPT@.:."      at all times, hit any key to"@.P.@."   get the next question"@.P(@.:."      always follow your reply@.P2@."   with the return key"@.P<@.:.:."   good luck!"@.Pf@.j.1.12:.y$:.@AQp@.n@KQz@.z(n)@.QD@.j.1.n:z(n).0:.@(QN@sc.0@3QX@.j.1.n@eQ.@.z(j)..0. 200@lQ.@.j@]Q.@.j.1.2000:.j@.Q.@."..Q         you scored";sc@.Q.@.:."    questions right first"@.Q.@.:."    time out of";n@.Q.@.:."    this is";.(100.sc.n.0.5);"percent"@.Q.@.@CR.@d.1..(n..(1))@UR.@. z(d)..1.200@"R.@c.z(d).1@,R.@.1200@7R.@.t.1.3@jR.@.a$:.a$."".250@tRDA.1000@.RNA.1300@HRXA.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@.R@Az(d).z(d).1:.120@.R.A.120@.R.C."."@.R.C."."@OS.C.j.0.39:.3072.j,160:. 2048.j,c:.@8SFD.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@.S.Da$..(x$,p,1):p.p.1@.S8D.a$."#". 1150@.SbD.a$."%".j.j.w:k.3:.1070@MTgD.a$."£". a$..(34)@?TlD.3072.40.j.k,.(a$). 63:. 2048.40.j.k,15:k.k.1@iTvD.1070@oT.D.@uT.D.@GT.D.j.1.12:.x$:.@NT.D.n@YT.D.j.1.d@.T.D.x$:.y$@.T.Dx$.x$.y$:.y$@.T.D. j@.T.D.@.TTE."SQQQQQQQQQQQQQQQQ]]]....";@.TYEa$.""@.T[E.q$:.q$."". 1307@.T]E..(q$)..20 .1314@IU.E.a$."".1307@0U.E.".... ..";:a$..(a$,.(a$).1):.1307@lU"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@.U*E..(.(a$,1))..32.1330@.U+Ea$..(a$,1,p.1)@.U.E.1321@DV2E. .(y$,1).."%".1380@LV<Ep.2@,VfE..(y$,p,1).."-".p.p.1:.1350@GVpE..(a$)...(.(y$,2,p.1))..(a$)...(.(y$,p.1,.(y$))) .1500@QVzEr.0:.@YVDEp.1@.VNE..(y$,p,1)."#".1370@.VXEq.p@.V.E..(y$,q,1).."%".q.q.1:.1410@.V.E..(y$,p,q.p).a$.1500@.V.Ep.q.1:.1390@.V.E:r.1:.@.V@F.@MWtFs.6.(1.r)..(6..(1)).1@.W.F.j.1.s:.z$:.@=WHF."SQQQQQQQQQQQQQQQQQ]]";z$@oWRF.t..2 . .1750@SW.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@.W.F..(y$,2,.(y$)):.1750@TX.F."SQQQQQQQQQQQQQQQQQQQQQ]   now type any key":.@"X.Gx$."abcd"@*X.G.y$@:X.G.x$.y$.2050@jX.G."no":.2000@uXBH."yes"@[XLH.@.Xj..yes,correct,right,good,"that's right",ok@.Xt..no,wrong,"that's wrong",not right,"no-that's wrong",incorrect@.X(#.8@%Y2#."the input command can be used%%%a) for numbers%b) for strings%c) for number@LY7#."s and strings mixed%d) for both but not at the same time%%#",c%#@.Yf#."   the command%  input £rq$£; rs%inputs%a) rq$ only%b) rs only%c) both@.Yk#." rq$ and rs%d) neither of them%#","rs%b%#"@6Zp#."   input x,y%expects%%a) 1 value%b) 2 values%c) more than 2 values%%"@gZu#.#,two%2%b%#@.Zz#."to 'input £age£;d' the user replies%£donald duck£.what happens?%%a)the v@.Z.#."alue is accepted%b)the message is 'redo from start'%c)the program fails%#@.ZA#.b%#@?[D#."to input £name£;dd$%the user types%£mickey mouse£%what happens?%%a)the va@.[I#."lue is accepted%b)the machine says%'redo from start'%c)the program fails#@.[K#.a%#@.[N#."   10 input 777%%is this%a) an illegal command%b) a valid command%c) a v@N£S#."alid but useless command%%#",a%#@p£X#."10 input t%20 t=93%%is this sequence sensible?%%",#,"no%n%#@.£.#."   when the run/stop key is%disabled how can you stop%a program?%%a) w@.£.#."ith the reset key alone%b) run/stop and reset%c) crtl and reset%#"@.£.#.b%#@@@
00000000  12 10 05 00 e7 30 2c 32  3a e7 34 2c 31 35 2c 34  |.....0,2:.4,15,4|
00000010  00 3e 10 0a 00 99 22 93  11 90 20 20 20 20 20 51  |.>...."...     Q|
00000020  55 45 53 54 49 4f 4e 20  41 4e 44 20 41 4e 53 57  |UESTION AND ANSW|
00000030  45 52 20 50 52 4f 47 52  41 4d 2e 22 00 6a 10 14  |ER PROGRAM.".j..|
00000040  00 99 3a 99 22 20 20 20  20 20 20 41 54 20 41 4c  |..:."      AT AL|
00000050  4c 20 54 49 4d 45 53 2c  20 48 49 54 20 41 4e 59  |L TIMES, HIT ANY|
00000060  20 4b 45 59 20 54 4f 22  00 8a 10 1e 00 99 22 20  | KEY TO"......" |
00000070  20 20 47 45 54 20 54 48  45 20 4e 45 58 54 20 51  |  GET THE NEXT Q|
00000080  55 45 53 54 49 4f 4e 22  00 b1 10 28 00 99 3a 99  |UESTION"...(..:.|
00000090  22 20 20 20 20 20 20 41  4c 57 41 59 53 20 46 4f  |"      ALWAYS FO|
000000a0  4c 4c 4f 57 20 59 4f 55  52 20 52 45 50 4c 59 00  |LLOW YOUR REPLY.|
000000b0  cf 10 32 00 99 22 20 20  20 57 49 54 48 20 54 48  |..2.."   WITH TH|
000000c0  45 20 52 45 54 55 52 4e  20 4b 45 59 22 00 e8 10  |E RETURN KEY"...|
000000d0  3c 00 99 3a 99 3a 99 22  20 20 20 47 4f 4f 44 20  |<..:.:."   GOOD |
000000e0  4c 55 43 4b 21 22 00 fa  10 46 00 81 4a b2 31 a4  |LUCK!"...F..J.1.|
000000f0  31 32 3a 87 59 24 3a 82  00 01 11 50 00 87 4e 00  |12:.Y$:....P..N.|
00000100  0b 11 5a 00 86 5a 28 4e  29 00 1f 11 64 00 81 4a  |..Z..Z(N)...d..J|
00000110  b2 31 a4 4e 3a 5a 28 4e  29 b2 30 3a 82 00 28 11  |.1.N:Z(N).0:..(.|
00000120  6e 00 53 43 b2 30 00 33  11 78 00 81 4a b2 31 a4  |n.SC.0.3.x..J.1.|
00000130  4e 00 45 11 82 00 8b 5a  28 4a 29 b1 b2 30 a7 20  |N.E....Z(J)..0. |
00000140  32 30 30 00 4c 11 8c 00  82 4a 00 5d 11 96 00 81  |200.L....J.]....|
00000150  4a b2 31 a4 32 30 30 30  3a 82 4a 00 7e 11 9b 00  |J.1.2000:.J.~...|
00000160  99 22 90 93 11 20 20 20  20 20 20 20 20 20 59 4f  |."...         YO|
00000170  55 20 53 43 4f 52 45 44  22 3b 53 43 00 a1 11 a0  |U SCORED";SC....|
00000180  00 99 3a 99 22 20 20 20  20 51 55 45 53 54 49 4f  |..:."    QUESTIO|
00000190  4e 53 20 52 49 47 48 54  20 46 49 52 53 54 22 00  |NS RIGHT FIRST".|
000001a0  bc 11 aa 00 99 3a 99 22  20 20 20 20 54 49 4d 45  |.....:."    TIME|
000001b0  20 4f 55 54 20 4f 46 22  3b 4e 00 eb 11 b4 00 99  | OUT OF";N......|
000001c0  3a 99 22 20 20 20 20 54  48 49 53 20 49 53 22 3b  |:."    THIS IS";|
000001d0  b5 28 31 30 30 ac 53 43  ad 4e aa 30 2e 35 29 3b  |.(100.SC.N.0.5);|
000001e0  22 50 45 52 43 45 4e 54  22 00 f1 11 be 00 80 00  |"PERCENT".......|
000001f0  03 12 c8 00 44 b2 31 aa  b5 28 4e ac bb 28 31 29  |....D.1..(N..(1)|
00000200  29 00 15 12 d2 00 8b 20  5a 28 44 29 b2 ab 31 a7  |)...... Z(D)..1.|
00000210  32 30 30 00 22 12 dc 00  43 b2 5a 28 44 29 aa 31  |200."...C.Z(D).1|
00000220  00 2c 12 e6 00 8d 31 32  30 30 00 37 12 f0 00 81  |.,....1200.7....|
00000230  54 b2 31 a4 33 00 4a 12  fa 00 a1 41 24 3a 8b 41  |T.1.3.J....A$:.A|
00000240  24 b2 22 22 a7 32 35 30  00 54 12 04 01 8d 31 30  |$."".250.T....10|
00000250  30 30 00 5e 12 0e 01 8d  31 33 30 30 00 68 12 18  |00.^....1300.h..|
00000260  01 8d 31 36 30 30 00 85  12 1d 01 8b 52 b2 31 af  |..1600......R.1.|
00000270  54 b2 31 af 5a 28 44 29  b2 30 a7 20 53 43 b2 53  |T.1.Z(D).0. SC.S|
00000280  43 aa 31 00 a3 12 22 01  8b 20 52 b2 31 20 af 20  |C.1...".. R.1 . |
00000290  54 b2 31 20 a7 5a 28 44  29 b2 ab 31 3a 89 34 30  |T.1 .Z(D)..1:.40|
000002a0  30 00 b3 12 2c 01 8b 20  52 b2 31 20 a7 20 33 32  |0...,.. R.1 . 32|
000002b0  30 00 ba 12 36 01 82 54  00 cf 12 40 01 5a 28 44  |0...6..T...@.Z(D|
000002c0  29 b2 5a 28 44 29 aa 31  3a 89 31 32 30 00 d8 12  |).Z(D).1:.120...|
000002d0  90 01 89 31 32 30 00 e1  12 e8 03 99 22 93 22 00  |...120......".".|
000002e0  ea 12 f2 03 99 22 93 22  00 0f 13 fc 03 81 4a b2  |....."."......J.|
000002f0  30 a4 33 39 3a 97 33 30  37 32 aa 4a 2c 31 36 30  |0.39:.3072.J,160|
00000300  3a 97 20 32 30 34 38 aa  4a 2c 43 3a 82 00 38 13  |:. 2048.J,C:..8.|
00000310  06 04 81 4a b2 30 a4 39  32 30 a9 34 30 3a 97 33  |...J.0.920.40:.3|
00000320  31 35 31 aa 4a 2c 31 36  30 3a 97 20 32 31 32 37  |151.J,160:. 2127|
00000330  aa 4a 2c 43 3a 82 00 60  13 10 04 81 4a b2 33 39  |.J,C:..`....J.39|
00000340  a4 30 a9 ab 31 3a 97 34  30 33 32 aa 4a 2c 31 36  |.0..1:.4032.J,16|
00000350  30 3a 97 20 33 30 30 38  aa 4a 2c 43 3a 82 00 8a  |0:. 3008.J,C:...|
00000360  13 1a 04 81 4a b2 39 32  30 a4 30 a9 ab 34 30 3a  |....J.920.0..40:|
00000370  97 33 31 31 32 aa 4a 2c  31 36 30 3a 97 20 32 30  |.3112.J,160:. 20|
00000380  38 38 aa 4a 2c 43 3a 82  00 a1 13 1f 04 57 b2 32  |88.J,C:......W.2|
00000390  3a 8b c3 28 58 24 29 b1  31 31 30 a7 57 b2 31 00  |:..(X$).110.W.1.|
000003a0  b2 13 24 04 50 b2 31 3a  4a b2 33 3a 20 4b b2 33  |..$.P.1:J.3: K.3|
000003b0  00 c9 13 2e 04 41 24 b2  ca 28 58 24 2c 50 2c 31  |.....A$..(X$,P,1|
000003c0  29 3a 50 b2 50 aa 31 00  db 13 38 04 8b 41 24 b2  |):P.P.1...8..A$.|
000003d0  22 23 22 a7 20 31 31 35  30 00 f7 13 42 04 8b 41  |"#". 1150...B..A|
000003e0  24 b2 22 25 22 a7 4a b2  4a aa 57 3a 4b b2 33 3a  |$."%".J.J.W:K.3:|
000003f0  89 31 30 37 30 00 0d 14  47 04 8b 41 24 b2 22 5c  |.1070...G..A$."\|
00000400  22 a7 20 41 24 b2 c7 28  33 34 29 00 3f 14 4c 04  |". A$..(34).?.L.|
00000410  97 33 30 37 32 aa 34 30  ac 4a aa 4b 2c c6 28 41  |.3072.40.J.K,.(A|
00000420  24 29 af 20 36 33 3a 97  20 32 30 34 38 aa 34 30  |$). 63:. 2048.40|
00000430  ac 4a aa 4b 2c 31 35 3a  4b b2 4b aa 31 00 49 14  |.J.K,15:K.K.1.I.|
00000440  56 04 89 31 30 37 30 00  4f 14 7e 04 8e 00 55 14  |V..1070.O.~...U.|
00000450  b0 04 8c 00 67 14 bf 04  81 4a b2 31 a4 31 32 3a  |....g....J.1.12:|
00000460  87 58 24 3a 82 00 6e 14  c4 04 87 4e 00 79 14 ce  |.X$:..n....N.y..|
00000470  04 81 4a b2 31 a4 44 00  85 14 d8 04 87 58 24 3a  |..J.1.D......X$:|
00000480  87 59 24 00 96 14 dd 04  58 24 b2 58 24 aa 59 24  |.Y$.....X$.X$.Y$|
00000490  3a 87 59 24 00 9e 14 e2  04 82 20 4a 00 a4 14 ec  |:.Y$...... J....|
000004a0  04 8e 00 c5 14 14 05 99  22 13 11 11 11 11 11 11  |........".......|
000004b0  11 11 11 11 11 11 11 11  11 11 1d 1d 1d 82 a6 84  |................|
000004c0  9d 22 3b 00 cf 14 19 05  41 24 b2 22 22 00 e4 14  |.";.....A$.""...|
000004d0  1b 05 a1 51 24 3a 8b 51  24 b2 22 22 a7 20 31 33  |...Q$:.Q$."". 13|
000004e0  30 37 00 f9 14 1d 05 8b  c6 28 51 24 29 b3 b1 32  |07.......(Q$)..2|
000004f0  30 20 a7 31 33 31 34 00  09 15 1e 05 8b 41 24 b2  |0 .1314......A$.|
00000500  22 22 a7 31 33 30 37 00  30 15 1f 05 99 22 9d 82  |"".1307.0...."..|
00000510  a6 84 20 9d 9d 22 3b 3a  41 24 b2 c8 28 41 24 2c  |.. ..";:A$..(A$,|
00000520  c3 28 41 24 29 ab 31 29  3a 89 31 33 30 37 00 4c  |.(A$).1):.1307.L|
00000530  15 22 05 8b c6 28 51 24  29 b2 31 33 20 a7 20 99  |."...(Q$).13 . .|
00000540  22 20 22 3b 3a 89 31 33  32 31 00 7c 15 23 05 8b  |" ";:.1321.|.#..|
00000550  20 51 24 b3 22 30 22 20  b0 20 28 51 24 b1 22 39  | Q$."0" . (Q$."9|
00000560  22 20 af 20 51 24 b3 22  41 22 29 b0 20 51 24 b1  |" . Q$."A"). Q$.|
00000570  22 5a 22 20 a7 20 31 33  30 37 00 8c 15 24 05 99  |"Z" . 1307...$..|
00000580  51 24 3b 22 82 a6 84 9d  22 3b 00 9f 15 25 05 41  |Q$;"....";...%.A|
00000590  24 b2 41 24 aa 51 24 3a  89 31 33 30 37 00 b6 15  |$.A$.Q$:.1307...|
000005a0  29 05 50 b2 c3 28 41 24  29 3a 8b 20 50 b2 30 a7  |).P..(A$):. P.0.|
000005b0  31 33 30 30 00 cf 15 2a  05 8b c6 28 c9 28 41 24  |1300...*...(.(A$|
000005c0  2c 31 29 29 b3 b1 33 32  a7 31 33 33 30 00 e2 15  |,1))..32.1330...|
000005d0  2b 05 41 24 b2 ca 28 41  24 2c 31 2c 50 ab 31 29  |+.A$..(A$,1,P.1)|
000005e0  00 ec 15 2e 05 89 31 33  32 31 00 04 16 32 05 8b  |......1321...2..|
000005f0  20 c8 28 59 24 2c 31 29  b3 b1 22 25 22 a7 31 33  | .(Y$,1).."%".13|
00000600  38 30 00 0c 16 3c 05 50  b2 32 00 2c 16 46 05 8b  |80...<.P.2.,.F..|
00000610  ca 28 59 24 2c 50 2c 31  29 b3 b1 22 2d 22 a7 50  |.(Y$,P,1).."-".P|
00000620  b2 50 aa 31 3a 89 31 33  35 30 00 67 16 50 05 8b  |.P.1:.1350.g.P..|
00000630  c5 28 41 24 29 b1 b2 c5  28 ca 28 59 24 2c 32 2c  |.(A$)...(.(Y$,2,|
00000640  50 ab 31 29 29 af c5 28  41 24 29 b3 b2 c5 28 ca  |P.1))..(A$)...(.|
00000650  28 59 24 2c 50 aa 31 2c  c3 28 59 24 29 29 29 20  |(Y$,P.1,.(Y$))) |
00000660  a7 31 35 30 30 00 71 16  5a 05 52 b2 30 3a 8e 00  |.1500.q.Z.R.0:..|
00000670  79 16 64 05 50 b2 31 00  91 16 6e 05 8b ca 28 59  |y.d.P.1...n...(Y|
00000680  24 2c 50 2c 31 29 b2 22  23 22 a7 31 33 37 30 00  |$,P,1)."#".1370.|
00000690  99 16 78 05 51 b2 50 00  b9 16 82 05 8b ca 28 59  |..x.Q.P.......(Y|
000006a0  24 2c 51 2c 31 29 b3 b1  22 25 22 a7 51 b2 51 aa  |$,Q,1).."%".Q.Q.|
000006b0  31 3a 89 31 34 31 30 00  d2 16 8c 05 8b ca 28 59  |1:.1410.......(Y|
000006c0  24 2c 50 2c 51 ab 50 29  b2 41 24 a7 31 35 30 30  |$,P,Q.P).A$.1500|
000006d0  00 e2 16 96 05 50 b2 51  aa 31 3a 89 31 33 39 30  |.....P.Q.1:.1390|
000006e0  00 ed 16 dc 05 3a 52 b2  31 3a 8e 00 f3 16 40 06  |.....:R.1:....@.|
000006f0  8c 00 0d 17 54 06 53 b2  36 ac 28 31 ab 52 29 aa  |....T.S.6.(1.R).|
00000700  b5 28 36 ac bb 28 31 29  29 aa 31 00 1e 17 5e 06  |.(6..(1)).1...^.|
00000710  81 4a b2 31 a4 53 3a 87  5a 24 3a 82 00 3d 17 68  |.J.1.S:.Z$:..=.h|
00000720  06 99 22 13 11 11 11 11  11 11 11 11 11 11 11 11  |..".............|
00000730  11 11 11 11 11 1d 1d 22  3b 5a 24 00 4f 17 72 06  |.......";Z$.O.r.|
00000740  8b 54 b3 b2 32 20 a7 20  89 31 37 35 30 00 73 17  |.T..2 . .1750.s.|
00000750  7c 06 99 22 1d 1d 54 48  45 20 52 49 47 48 54 20  ||.."..THE RIGHT |
00000760  41 4e 53 57 45 52 20 49  53 22 3a 99 22 1d 1d 22  |ANSWER IS":.".."|
00000770  3b 00 8a 17 86 06 8b 20  c8 28 59 24 2c 31 29 b2  |;...... .(Y$,1).|
00000780  22 25 22 a7 31 37 31 30  00 92 17 90 06 50 b2 31  |"%".1710.....P.1|
00000790  00 ab 17 9a 06 8b ca 28  59 24 2c 50 2c 31 29 b2  |.......(Y$,P,1).|
000007a0  22 25 22 a7 89 31 37 35  30 00 c7 17 a4 06 99 ca  |"%"..1750.......|
000007b0  28 59 24 2c 50 2c 31 29  3b 3a 50 b2 50 aa 31 3a  |(Y$,P,1);:P.P.1:|
000007c0  89 31 36 39 30 00 e0 17  ae 06 99 ca 28 59 24 2c  |.1690.......(Y$,|
000007d0  32 2c c3 28 59 24 29 29  3a 89 31 37 35 30 00 14  |2,.(Y$)):.1750..|
000007e0  18 d6 06 99 22 13 11 11  11 11 11 11 11 11 11 11  |...."...........|
000007f0  11 11 11 11 11 11 11 11  11 11 11 1d 20 20 20 4e  |............   N|
00000800  4f 57 20 54 59 50 45 20  41 4e 59 20 4b 45 59 22  |OW TYPE ANY KEY"|
00000810  3a 8e 00 22 18 d0 07 58  24 b2 22 41 42 43 44 22  |:.."...X$."ABCD"|
00000820  00 2a 18 da 07 85 59 24  00 3a 18 e4 07 8b 58 24  |.*....Y$.:....X$|
00000830  b2 59 24 a7 32 30 35 30  00 4a 18 ee 07 99 22 4e  |.Y$.2050.J...."N|
00000840  4f 22 3a 89 32 30 30 30  00 55 18 02 08 99 22 59  |O":.2000.U...."Y|
00000850  45 53 22 00 5b 18 0c 08  90 00 89 18 4a 1f 83 59  |ES".[.......J..Y|
00000860  45 53 2c 43 4f 52 52 45  43 54 2c 52 49 47 48 54  |ES,CORRECT,RIGHT|
00000870  2c 47 4f 4f 44 2c 22 54  48 41 54 27 53 20 52 49  |,GOOD,"THAT'S RI|
00000880  47 48 54 22 2c 4f 4b 00  cc 18 54 1f 83 4e 4f 2c  |GHT",OK...T..NO,|
00000890  57 52 4f 4e 47 2c 22 54  48 41 54 27 53 20 57 52  |WRONG,"THAT'S WR|
000008a0  4f 4e 47 22 2c 4e 4f 54  20 52 49 47 48 54 2c 22  |ONG",NOT RIGHT,"|
000008b0  4e 4f 2d 54 48 41 54 27  53 20 57 52 4f 4e 47 22  |NO-THAT'S WRONG"|
000008c0  2c 49 4e 43 4f 52 52 45  43 54 00 d3 18 28 23 83  |,INCORRECT...(#.|
000008d0  38 00 25 19 32 23 83 22  54 48 45 20 49 4e 50 55  |8.%.2#."THE INPU|
000008e0  54 20 43 4f 4d 4d 41 4e  44 20 43 41 4e 20 42 45  |T COMMAND CAN BE|
000008f0  20 55 53 45 44 25 25 25  41 29 20 46 4f 52 20 4e  | USED%%%A) FOR N|
00000900  55 4d 42 45 52 53 25 42  29 20 46 4f 52 20 53 54  |UMBERS%B) FOR ST|
00000910  52 49 4e 47 53 25 43 29  20 46 4f 52 20 4e 55 4d  |RINGS%C) FOR NUM|
00000920  42 45 52 00 6c 19 37 23  83 22 53 20 41 4e 44 20  |BER.l.7#."S AND |
00000930  53 54 52 49 4e 47 53 20  4d 49 58 45 44 25 44 29  |STRINGS MIXED%D)|
00000940  20 46 4f 52 20 42 4f 54  48 20 42 55 54 20 4e 4f  | FOR BOTH BUT NO|
00000950  54 20 41 54 20 54 48 45  20 53 41 4d 45 20 54 49  |T AT THE SAME TI|
00000960  4d 45 25 25 23 22 2c 43  25 23 00 b9 19 46 23 83  |ME%%#",C%#...F#.|
00000970  22 20 20 20 54 48 45 20  43 4f 4d 4d 41 4e 44 25  |"   THE COMMAND%|
00000980  20 20 49 4e 50 55 54 20  5c 52 51 24 5c 3b 20 52  |  INPUT \RQ$\; R|
00000990  53 25 49 4e 50 55 54 53  25 41 29 20 52 51 24 20  |S%INPUTS%A) RQ$ |
000009a0  4f 4e 4c 59 25 42 29 20  52 53 20 4f 4e 4c 59 25  |ONLY%B) RS ONLY%|
000009b0  43 29 20 42 4f 54 48 00  ea 19 4b 23 83 22 20 52  |C) BOTH...K#." R|
000009c0  51 24 20 41 4e 44 20 52  53 25 44 29 20 4e 45 49  |Q$ AND RS%D) NEI|
000009d0  54 48 45 52 20 4f 46 20  54 48 45 4d 25 23 22 2c  |THER OF THEM%#",|
000009e0  22 52 53 25 42 25 23 22  00 36 1a 50 23 83 22 20  |"RS%B%#".6.P#." |
000009f0  20 20 49 4e 50 55 54 20  58 2c 59 25 45 58 50 45  |  INPUT X,Y%EXPE|
00000a00  43 54 53 25 25 41 29 20  31 20 56 41 4c 55 45 25  |CTS%%A) 1 VALUE%|
00000a10  42 29 20 32 20 56 41 4c  55 45 53 25 43 29 20 4d  |B) 2 VALUES%C) M|
00000a20  4f 52 45 20 54 48 41 4e  20 32 20 56 41 4c 55 45  |ORE THAN 2 VALUE|
00000a30  53 25 25 22 00 47 1a 55  23 83 23 2c 54 57 4f 25  |S%%".G.U#.#,TWO%|
00000a40  32 25 42 25 23 00 96 1a  5a 23 83 22 54 4f 20 27  |2%B%#...Z#."TO '|
00000a50  49 4e 50 55 54 20 5c 41  47 45 5c 3b 44 27 20 54  |INPUT \AGE\;D' T|
00000a60  48 45 20 55 53 45 52 20  52 45 50 4c 49 45 53 25  |HE USER REPLIES%|
00000a70  5c 44 4f 4e 41 4c 44 20  44 55 43 4b 5c 2e 57 48  |\DONALD DUCK\.WH|
00000a80  41 54 20 48 41 50 50 45  4e 53 3f 25 25 41 29 54  |AT HAPPENS?%%A)T|
00000a90  48 45 20 56 00 e6 1a 5f  23 83 22 41 4c 55 45 20  |HE V..._#."ALUE |
00000aa0  49 53 20 41 43 43 45 50  54 45 44 25 42 29 54 48  |IS ACCEPTED%B)TH|
00000ab0  45 20 4d 45 53 53 41 47  45 20 49 53 20 27 52 45  |E MESSAGE IS 'RE|
00000ac0  44 4f 20 46 52 4f 4d 20  53 54 41 52 54 27 25 43  |DO FROM START'%C|
00000ad0  29 54 48 45 20 50 52 4f  47 52 41 4d 20 46 41 49  |)THE PROGRAM FAI|
00000ae0  4c 53 25 23 00 ef 1a 61  23 83 42 25 23 00 3f 1b  |LS%#...a#.B%#.?.|
00000af0  64 23 83 22 54 4f 20 49  4e 50 55 54 20 5c 4e 41  |d#."TO INPUT \NA|
00000b00  4d 45 5c 3b 44 44 24 25  54 48 45 20 55 53 45 52  |ME\;DD$%THE USER|
00000b10  20 54 59 50 45 53 25 5c  4d 49 43 4b 45 59 20 4d  | TYPES%\MICKEY M|
00000b20  4f 55 53 45 5c 25 57 48  41 54 20 48 41 50 50 45  |OUSE\%WHAT HAPPE|
00000b30  4e 53 3f 25 25 41 29 54  48 45 20 56 41 00 8f 1b  |NS?%%A)THE VA...|
00000b40  69 23 83 22 4c 55 45 20  49 53 20 41 43 43 45 50  |i#."LUE IS ACCEP|
00000b50  54 45 44 25 42 29 54 48  45 20 4d 41 43 48 49 4e  |TED%B)THE MACHIN|
00000b60  45 20 53 41 59 53 25 27  52 45 44 4f 20 46 52 4f  |E SAYS%'REDO FRO|
00000b70  4d 20 53 54 41 52 54 27  25 43 29 54 48 45 20 50  |M START'%C)THE P|
00000b80  52 4f 47 52 41 4d 20 46  41 49 4c 53 23 00 98 1b  |ROGRAM FAILS#...|
00000b90  6b 23 83 41 25 23 00 e7  1b 6e 23 83 22 20 20 20  |k#.A%#...n#."   |
00000ba0  31 30 20 49 4e 50 55 54  20 37 37 37 25 25 49 53  |10 INPUT 777%%IS|
00000bb0  20 54 48 49 53 25 41 29  20 41 4e 20 49 4c 4c 45  | THIS%A) AN ILLE|
00000bc0  47 41 4c 20 43 4f 4d 4d  41 4e 44 25 42 29 20 41  |GAL COMMAND%B) A|
00000bd0  20 56 41 4c 49 44 20 43  4f 4d 4d 41 4e 44 25 43  | VALID COMMAND%C|
00000be0  29 20 41 20 56 00 0e 1c  73 23 83 22 41 4c 49 44  |) A V...s#."ALID|
00000bf0  20 42 55 54 20 55 53 45  4c 45 53 53 20 43 4f 4d  | BUT USELESS COM|
00000c00  4d 41 4e 44 25 25 23 22  2c 41 25 23 00 50 1c 78  |MAND%%#",A%#.P.x|
00000c10  23 83 22 31 30 20 49 4e  50 55 54 20 54 25 32 30  |#."10 INPUT T%20|
00000c20  20 54 3d 39 33 25 25 49  53 20 54 48 49 53 20 53  | T=93%%IS THIS S|
00000c30  45 51 55 45 4e 43 45 20  53 45 4e 53 49 42 4c 45  |EQUENCE SENSIBLE|
00000c40  3f 25 25 22 2c 23 2c 22  4e 4f 25 4e 25 23 00 9d  |?%%",#,"NO%N%#..|
00000c50  1c 82 23 83 22 20 20 20  57 48 45 4e 20 54 48 45  |..#."   WHEN THE|
00000c60  20 52 55 4e 2f 53 54 4f  50 20 4b 45 59 20 49 53  | RUN/STOP KEY IS|
00000c70  25 44 49 53 41 42 4c 45  44 20 48 4f 57 20 43 41  |%DISABLED HOW CA|
00000c80  4e 20 59 4f 55 20 53 54  4f 50 25 41 20 50 52 4f  |N YOU STOP%A PRO|
00000c90  47 52 41 4d 3f 25 25 41  29 20 57 00 e6 1c 87 23  |GRAM?%%A) W....#|
00000ca0  83 22 49 54 48 20 54 48  45 20 52 45 53 45 54 20  |."ITH THE RESET |
00000cb0  4b 45 59 20 41 4c 4f 4e  45 25 42 29 20 52 55 4e  |KEY ALONE%B) RUN|
00000cc0  2f 53 54 4f 50 20 41 4e  44 20 52 45 53 45 54 25  |/STOP AND RESET%|
00000cd0  43 29 20 43 52 54 4c 20  41 4e 44 20 52 45 53 45  |C) CRTL AND RESE|
00000ce0  54 25 23 22 00 ef 1c 89  23 83 42 25 23 00 00 00  |T%#"....#.B%#...|
00000cf0

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .