Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » unit7quiz

unit7quiz

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

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

File contents
     2 REM UNIT7QUIZ64
     3 REM COPYRIGHT (C) ANDREW COLIN 1982
     5 COLOR0,2:COLOR4,15,4:PRINT"<black>"
    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 DATA11
  9010 DATA"   £TIGER£ = £LION£%%TRUE OR FALSE?%%","#","FALSE%F%#"
  9020 DATA"   5 < 7%%TRUE OR FALSE?%%","#","TRUE%T%#"
  9030 DATA"   7 <= 3%%TRUE OR FALSE?%%","#","FALSE%F%#"
  9040 DATA"   £MOUSE£ = £HORSE£%%TRUE OR FALSE?%%","#","FALSE%F%"
  9050 DATA"   £UNICORN£ <> 7.3%%IS THIS%%A) TRUE%B) FALSE%C) INCORRECT BASIC%%"
  9055 DATA"#","C%INCORRECT%#"
  9060 DATA"   £THREE POINT FIVE£ = £3.5£%%IS THIS%A) TRUE%B) FALSE%C) INCORRECT"
  9065 DATA" BASIC%%#","FALSE%B%F%#"
  9070 DATA"   IF Y=37 AND Z=25%   Y-3 < Z+5      IS%%A) TRUE%B) FALSE%%","#"
  9075 DATAFALSE%B%F%#
  9080 DATA"   IF X HAS THE VALUE 73,%  X >= 73 IS%%A) TRUE%B) FALSE%C) ILLEGAL"
  9085 DATA"%%#",TRUE%A%T%#
  9090 DATA"   £LAMP£=£LAMPOON£%%  TRUE OR FALSE?%",#,FALSE%F%#
  9100 DATA"  CONSIDER:%%10 RS=5%20 PRINT RS,1/RS%30 RS=RS+2%40 IF RS<17 THEN 20%"
  9105 DATA"50 STOP%%   HOW MANY TIMES ROUND THE LOOP?%#",6%#
  9110 DATA"  LOOK AT:%%10 SJ$=£F£%20 PRINT SJ$%30 SJ$=£J£+SJ$+£K£%40 IF SJ$ <"
  9115 DATA" £JJJ£ THEN 20%50 STOP%WHAT IS THE LAST VALUE DISPLAYED?%#",JJFKK%#


� UNIT7QUIZ649� COPYRIGHT (C) ANDREW COLIN 1982O�0,2:�4,15,4:�"�"{
�"��     QUESTION AND ANSWER PROGRAM."��:�"      AT ALL TIMES, HIT ANY KEY TO"��"   GET THE NEXT QUESTION"�(�:�"      ALWAYS FOLLOW YOUR REPLY2�"   WITH THE RETURN KEY"%<�:�:�"   GOOD LUCK!"7F�J�1�12:�Y$:�>P�NHZ�Z(N)\d�J�1�N:Z(N)�0:�enSC�0px�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))R�� Z(D)��1�200_�C�Z(D)�1i��1200t��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��"�"'��"�"L��J�0�39:�3072�J,160:� 2048�J,C:�u�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$�"#"� 11504B�A$�"%"�J�J�W:K�3:�1070JG�A$�"\"� A$��(34)|L�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$�""� 13076��(Q$)��20 �1314F�A$�""�1307m�"���� ��";: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)).�1321A2� �(Y$,1)��"%"�1380I<P�2iF��(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:�0@�JTS�6�(1�R)��(6��(1))�1[^�J�1�S:�Z$:�zh�"";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$)):�1750Q��"   NOW TYPE ANY KEY":�_�X$�"ABCD"g��Y$w��X$�Y$�2050���"NO":�2000��"YES"���J�YES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK	T�NO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(#�11N2#�"   \TIGER\ = \LION\%%TRUE OR FALSE?%%","#","FALSE%F%#"<#�"   5 < 7%%TRUE OR FALSE?%%","#","TRUE%T%#"�F#�"   7 <= 3%%TRUE OR FALSE?%%","#","FALSE%F%#"�P#�"   \MOUSE\ = \HORSE\%%TRUE OR FALSE?%%","#","FALSE%F%":Z#�"   \UNICORN\ <> 7.3%%IS THIS%%A) TRUE%B) FALSE%C) INCORRECT BASIC%%"S_#�"#","C%INCORRECT%#"�d#�"   \THREE POINT FIVE\ = \3.5\%%IS THIS%A) TRUE%B) FALSE%C) INCORRECT"�i#�" BASIC%%#","FALSE%B%F%#"n#�"   IF Y=37 AND Z=25%   Y-3 < Z+5      IS%%A) TRUE%B) FALSE%%","#"s#�FALSE%B%F%#bx#�"   IF X HAS THE VALUE 73,%  X >= 73 IS%%A) TRUE%B) FALSE%C) ILLEGAL"x}#�"%%#",TRUE%A%T%#��#�"   \LAMP\=\LAMPOON\%%  TRUE OR FALSE?%",#,FALSE%F%#��#�"  CONSIDER:%%10 RS=5%20 PRINT RS,1/RS%30 RS=RS+2%40 IF RS<17 THEN 20%"7�#�"50 STOP%%   HOW MANY TIMES ROUND THE LOOP?%#",6%#��#�"  LOOK AT:%%10 SJ$=\F\%20 PRINT SJ$%30 SJ$=\J\+SJ$+\K\%40 IF SJ$ <"��#�" \JJJ\ THEN 20%50 STOP%WHAT IS THE LAST VALUE DISPLAYED?%#",JJFKK%#
SPB@. unit7quiz64@9PC@. copyright (c) andrew colin 1982@oPE@.0,2:.4,15,4:."."@.PJ@.".].     question and answer program."@.PT@.:."      at all times, hit any key to"@.P.@."   get the next question"@.P(@.:."      always follow your reply@LQ2@."   with the return key"@%Q<@.:.:."   good luck!"@7Qf@.j.1.12:.y$:.@>Qp@.n@hQz@.z(n)@£QD@.j.1.n:z(n).0:.@EQN@sc.0@PQX@.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))@rR.@. z(d)..1.200@.R.@c.z(d).1@IR.@.1200@TR.@.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@LS@Az(d).z(d).1:.120@US.A.120@.S.C."."@'S.C."."@lS.C.j.0.39:.3072.j,160:. 2048.j,c:.@USFD.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@FT.Da$..(x$,p,1):p.p.1@XT8D.a$."#". 1150@4TbD.a$."%".j.j.w:k.3:.1070@jTgD.a$."£". a$..(34)@.TlD.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.@BUTE."SQQQQQQQQQQQQQQQQ]]]....";@LUYEa$.""@!U[E.q$:.q$."". 1307@6U]E..(q$)..20 .1314@fU.E.a$."".1307@MU.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@LV*E..(.(a$,1))..32.1330@.V+Ea$..(a$,1,p.1)@)V.E.1321@aV2E. .(y$,1).."%".1380@iV<Ep.2@IVfE..(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@OW.E..(y$,p,q.p).a$.1500@.W.Ep.q.1:.1390@*W.E:r.1:.@0W@F.@jWtFs.6.(1.r)..(6..(1)).1@[W.F.j.1.s:.z$:.@ZWHF."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@DX.F..(y$,p,1);:p.p.1:.1690@]X.F..(y$,2,.(y$)):.1750@qX.F."SQQQQQQQQQQQQQQQQQQQQQ]   now type any key":.@.X.Gx$."abcd"@GX.G.y$@WX.G.x$.y$.2050@.X.G."no":.2000@.XBH."yes"@.XLH.@.Xj..yes,correct,right,good,"that's right",ok@IYt..no,wrong,"that's wrong",not right,"no-that's wrong",incorrect@QY(#.11@nY2#."   £tiger£ = £lion£%%true or false?%%","#","false%f%#"@.Y<#."   5 < 7%%true or false?%%","#","true%t%#"@.Yf#."   7 <= 3%%true or false?%%","#","false%f%#"@.Yp#."   £mouse£ = £horse£%%true or false?%%","#","false%f%"@:Zz#."   £unicorn£ <> 7.3%%is this%%a) true%b) false%c) incorrect basic%%"@sZ.#."#","c%incorrect%#"@.ZD#."   £three point five£ = £3.5£%%is this%a) true%b) false%c) incorrect"@.ZI#." basic%%#","false%b%f%#"@F[N#."   if y=37 and z=25%   y-3 < z+5      is%%a) true%b) false%%","#"@W[S#.false%b%f%#@B[X#."   if x has the value 73,%  x >= 73 is%%a) true%b) false%c) illegal"@X[.#."%%#",true%a%t%#@.[.#."   £lamp£=£lampoon£%%  true or false?%",#,false%f%#@.[.#."  consider:%%10 rs=5%20 print rs,1/rs%30 rs=rs+2%40 if rs<17 then 20%"@7£.#."50 stop%%   how many times round the loop?%#",6%#@.£.#."  look at:%%10 sj$=£f£%20 print sj$%30 sj$=£j£+sj$+£k£%40 if sj$ <"@.£.#." £jjj£ then 20%50 stop%what is the last value displayed?%#",jjfkk%#@@@
00000000  13 10 02 00 8f 20 55 4e  49 54 37 51 55 49 5a 36  |..... UNIT7QUIZ6|
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  4f 10 05 00 e7 30 2c 32  |IN 1982.O....0,2|
00000040  3a e7 34 2c 31 35 2c 34  3a 99 22 90 22 00 7b 10  |:.4,15,4:.".".{.|
00000050  0a 00 99 22 93 1d 90 20  20 20 20 20 51 55 45 53  |..."...     QUES|
00000060  54 49 4f 4e 20 41 4e 44  20 41 4e 53 57 45 52 20  |TION AND ANSWER |
00000070  50 52 4f 47 52 41 4d 2e  22 00 a7 10 14 00 99 3a  |PROGRAM."......:|
00000080  99 22 20 20 20 20 20 20  41 54 20 41 4c 4c 20 54  |."      AT ALL T|
00000090  49 4d 45 53 2c 20 48 49  54 20 41 4e 59 20 4b 45  |IMES, HIT ANY KE|
000000a0  59 20 54 4f 22 00 c7 10  1e 00 99 22 20 20 20 47  |Y TO"......"   G|
000000b0  45 54 20 54 48 45 20 4e  45 58 54 20 51 55 45 53  |ET THE NEXT QUES|
000000c0  54 49 4f 4e 22 00 ee 10  28 00 99 3a 99 22 20 20  |TION"...(..:."  |
000000d0  20 20 20 20 41 4c 57 41  59 53 20 46 4f 4c 4c 4f  |    ALWAYS FOLLO|
000000e0  57 20 59 4f 55 52 20 52  45 50 4c 59 00 0c 11 32  |W YOUR REPLY...2|
000000f0  00 99 22 20 20 20 57 49  54 48 20 54 48 45 20 52  |.."   WITH THE R|
00000100  45 54 55 52 4e 20 4b 45  59 22 00 25 11 3c 00 99  |ETURN KEY".%.<..|
00000110  3a 99 3a 99 22 20 20 20  47 4f 4f 44 20 4c 55 43  |:.:."   GOOD LUC|
00000120  4b 21 22 00 37 11 46 00  81 4a b2 31 a4 31 32 3a  |K!".7.F..J.1.12:|
00000130  87 59 24 3a 82 00 3e 11  50 00 87 4e 00 48 11 5a  |.Y$:..>.P..N.H.Z|
00000140  00 86 5a 28 4e 29 00 5c  11 64 00 81 4a b2 31 a4  |..Z(N).\.d..J.1.|
00000150  4e 3a 5a 28 4e 29 b2 30  3a 82 00 65 11 6e 00 53  |N:Z(N).0:..e.n.S|
00000160  43 b2 30 00 70 11 78 00  81 4a b2 31 a4 4e 00 82  |C.0.p.x..J.1.N..|
00000170  11 82 00 8b 5a 28 4a 29  b1 b2 30 a7 20 32 30 30  |....Z(J)..0. 200|
00000180  00 89 11 8c 00 82 4a 00  9a 11 96 00 81 4a b2 31  |......J......J.1|
00000190  a4 32 30 30 30 3a 82 4a  00 bb 11 9b 00 99 22 90  |.2000:.J......".|
000001a0  93 11 20 20 20 20 20 20  20 20 20 59 4f 55 20 53  |..         YOU S|
000001b0  43 4f 52 45 44 22 3b 53  43 00 de 11 a0 00 99 3a  |CORED";SC......:|
000001c0  99 22 20 20 20 20 51 55  45 53 54 49 4f 4e 53 20  |."    QUESTIONS |
000001d0  52 49 47 48 54 20 46 49  52 53 54 22 00 f9 11 aa  |RIGHT FIRST"....|
000001e0  00 99 3a 99 22 20 20 20  20 54 49 4d 45 20 4f 55  |..:."    TIME OU|
000001f0  54 20 4f 46 22 3b 4e 00  28 12 b4 00 99 3a 99 22  |T OF";N.(....:."|
00000200  20 20 20 20 54 48 49 53  20 49 53 22 3b b5 28 31  |    THIS IS";.(1|
00000210  30 30 ac 53 43 ad 4e aa  30 2e 35 29 3b 22 50 45  |00.SC.N.0.5);"PE|
00000220  52 43 45 4e 54 22 00 2e  12 be 00 80 00 40 12 c8  |RCENT".......@..|
00000230  00 44 b2 31 aa b5 28 4e  ac bb 28 31 29 29 00 52  |.D.1..(N..(1)).R|
00000240  12 d2 00 8b 20 5a 28 44  29 b2 ab 31 a7 32 30 30  |.... Z(D)..1.200|
00000250  00 5f 12 dc 00 43 b2 5a  28 44 29 aa 31 00 69 12  |._...C.Z(D).1.i.|
00000260  e6 00 8d 31 32 30 30 00  74 12 f0 00 81 54 b2 31  |...1200.t....T.1|
00000270  a4 33 00 87 12 fa 00 a1  41 24 3a 8b 41 24 b2 22  |.3......A$:.A$."|
00000280  22 a7 32 35 30 00 91 12  04 01 8d 31 30 30 30 00  |".250......1000.|
00000290  9b 12 0e 01 8d 31 33 30  30 00 a5 12 18 01 8d 31  |.....1300......1|
000002a0  36 30 30 00 c2 12 1d 01  8b 52 b2 31 af 54 b2 31  |600......R.1.T.1|
000002b0  af 5a 28 44 29 b2 30 a7  20 53 43 b2 53 43 aa 31  |.Z(D).0. SC.SC.1|
000002c0  00 e0 12 22 01 8b 20 52  b2 31 20 af 20 54 b2 31  |...".. R.1 . T.1|
000002d0  20 a7 5a 28 44 29 b2 ab  31 3a 89 34 30 30 00 f0  | .Z(D)..1:.400..|
000002e0  12 2c 01 8b 20 52 b2 31  20 a7 20 33 32 30 00 f7  |.,.. R.1 . 320..|
000002f0  12 36 01 82 54 00 0c 13  40 01 5a 28 44 29 b2 5a  |.6..T...@.Z(D).Z|
00000300  28 44 29 aa 31 3a 89 31  32 30 00 15 13 90 01 89  |(D).1:.120......|
00000310  31 32 30 00 1e 13 e8 03  99 22 93 22 00 27 13 f2  |120......".".'..|
00000320  03 99 22 93 22 00 4c 13  fc 03 81 4a b2 30 a4 33  |..".".L....J.0.3|
00000330  39 3a 97 33 30 37 32 aa  4a 2c 31 36 30 3a 97 20  |9:.3072.J,160:. |
00000340  32 30 34 38 aa 4a 2c 43  3a 82 00 75 13 06 04 81  |2048.J,C:..u....|
00000350  4a b2 30 a4 39 32 30 a9  34 30 3a 97 33 31 35 31  |J.0.920.40:.3151|
00000360  aa 4a 2c 31 36 30 3a 97  20 32 31 32 37 aa 4a 2c  |.J,160:. 2127.J,|
00000370  43 3a 82 00 9d 13 10 04  81 4a b2 33 39 a4 30 a9  |C:.......J.39.0.|
00000380  ab 31 3a 97 34 30 33 32  aa 4a 2c 31 36 30 3a 97  |.1:.4032.J,160:.|
00000390  20 33 30 30 38 aa 4a 2c  43 3a 82 00 c7 13 1a 04  | 3008.J,C:......|
000003a0  81 4a b2 39 32 30 a4 30  a9 ab 34 30 3a 97 33 31  |.J.920.0..40:.31|
000003b0  31 32 aa 4a 2c 31 36 30  3a 97 20 32 30 38 38 aa  |12.J,160:. 2088.|
000003c0  4a 2c 43 3a 82 00 de 13  1f 04 57 b2 32 3a 8b c3  |J,C:......W.2:..|
000003d0  28 58 24 29 b1 31 31 30  a7 57 b2 31 00 ef 13 24  |(X$).110.W.1...$|
000003e0  04 50 b2 31 3a 4a b2 33  3a 20 4b b2 33 00 06 14  |.P.1:J.3: K.3...|
000003f0  2e 04 41 24 b2 ca 28 58  24 2c 50 2c 31 29 3a 50  |..A$..(X$,P,1):P|
00000400  b2 50 aa 31 00 18 14 38  04 8b 41 24 b2 22 23 22  |.P.1...8..A$."#"|
00000410  a7 20 31 31 35 30 00 34  14 42 04 8b 41 24 b2 22  |. 1150.4.B..A$."|
00000420  25 22 a7 4a b2 4a aa 57  3a 4b b2 33 3a 89 31 30  |%".J.J.W:K.3:.10|
00000430  37 30 00 4a 14 47 04 8b  41 24 b2 22 5c 22 a7 20  |70.J.G..A$."\". |
00000440  41 24 b2 c7 28 33 34 29  00 7c 14 4c 04 97 33 30  |A$..(34).|.L..30|
00000450  37 32 aa 34 30 ac 4a aa  4b 2c c6 28 41 24 29 af  |72.40.J.K,.(A$).|
00000460  20 36 33 3a 97 20 32 30  34 38 aa 34 30 ac 4a aa  | 63:. 2048.40.J.|
00000470  4b 2c 31 35 3a 4b b2 4b  aa 31 00 86 14 56 04 89  |K,15:K.K.1...V..|
00000480  31 30 37 30 00 8c 14 7e  04 8e 00 92 14 b0 04 8c  |1070...~........|
00000490  00 a4 14 bf 04 81 4a b2  31 a4 31 32 3a 87 58 24  |......J.1.12:.X$|
000004a0  3a 82 00 ab 14 c4 04 87  4e 00 b6 14 ce 04 81 4a  |:.......N......J|
000004b0  b2 31 a4 44 00 c2 14 d8  04 87 58 24 3a 87 59 24  |.1.D......X$:.Y$|
000004c0  00 d3 14 dd 04 58 24 b2  58 24 aa 59 24 3a 87 59  |.....X$.X$.Y$:.Y|
000004d0  24 00 db 14 e2 04 82 20  4a 00 e1 14 ec 04 8e 00  |$...... J.......|
000004e0  02 15 14 05 99 22 13 11  11 11 11 11 11 11 11 11  |....."..........|
000004f0  11 11 11 11 11 11 11 1d  1d 1d 82 a6 84 9d 22 3b  |..............";|
00000500  00 0c 15 19 05 41 24 b2  22 22 00 21 15 1b 05 a1  |.....A$."".!....|
00000510  51 24 3a 8b 51 24 b2 22  22 a7 20 31 33 30 37 00  |Q$:.Q$."". 1307.|
00000520  36 15 1d 05 8b c6 28 51  24 29 b3 b1 32 30 20 a7  |6.....(Q$)..20 .|
00000530  31 33 31 34 00 46 15 1e  05 8b 41 24 b2 22 22 a7  |1314.F....A$."".|
00000540  31 33 30 37 00 6d 15 1f  05 99 22 9d 82 a6 84 20  |1307.m....".... |
00000550  9d 9d 22 3b 3a 41 24 b2  c8 28 41 24 2c c3 28 41  |..";:A$..(A$,.(A|
00000560  24 29 ab 31 29 3a 89 31  33 30 37 00 89 15 22 05  |$).1):.1307...".|
00000570  8b c6 28 51 24 29 b2 31  33 20 a7 20 99 22 20 22  |..(Q$).13 . ." "|
00000580  3b 3a 89 31 33 32 31 00  b9 15 23 05 8b 20 51 24  |;:.1321...#.. Q$|
00000590  b3 22 30 22 20 b0 20 28  51 24 b1 22 39 22 20 af  |."0" . (Q$."9" .|
000005a0  20 51 24 b3 22 41 22 29  b0 20 51 24 b1 22 5a 22  | Q$."A"). Q$."Z"|
000005b0  20 a7 20 31 33 30 37 00  c9 15 24 05 99 51 24 3b  | . 1307...$..Q$;|
000005c0  22 82 a6 84 9d 22 3b 00  dc 15 25 05 41 24 b2 41  |"....";...%.A$.A|
000005d0  24 aa 51 24 3a 89 31 33  30 37 00 f3 15 29 05 50  |$.Q$:.1307...).P|
000005e0  b2 c3 28 41 24 29 3a 8b  20 50 b2 30 a7 31 33 30  |..(A$):. P.0.130|
000005f0  30 00 0c 16 2a 05 8b c6  28 c9 28 41 24 2c 31 29  |0...*...(.(A$,1)|
00000600  29 b3 b1 33 32 a7 31 33  33 30 00 1f 16 2b 05 41  |)..32.1330...+.A|
00000610  24 b2 ca 28 41 24 2c 31  2c 50 ab 31 29 00 29 16  |$..(A$,1,P.1).).|
00000620  2e 05 89 31 33 32 31 00  41 16 32 05 8b 20 c8 28  |...1321.A.2.. .(|
00000630  59 24 2c 31 29 b3 b1 22  25 22 a7 31 33 38 30 00  |Y$,1).."%".1380.|
00000640  49 16 3c 05 50 b2 32 00  69 16 46 05 8b ca 28 59  |I.<.P.2.i.F...(Y|
00000650  24 2c 50 2c 31 29 b3 b1  22 2d 22 a7 50 b2 50 aa  |$,P,1).."-".P.P.|
00000660  31 3a 89 31 33 35 30 00  a4 16 50 05 8b c5 28 41  |1:.1350...P...(A|
00000670  24 29 b1 b2 c5 28 ca 28  59 24 2c 32 2c 50 ab 31  |$)...(.(Y$,2,P.1|
00000680  29 29 af c5 28 41 24 29  b3 b2 c5 28 ca 28 59 24  |))..(A$)...(.(Y$|
00000690  2c 50 aa 31 2c c3 28 59  24 29 29 29 20 a7 31 35  |,P.1,.(Y$))) .15|
000006a0  30 30 00 ae 16 5a 05 52  b2 30 3a 8e 00 b6 16 64  |00...Z.R.0:....d|
000006b0  05 50 b2 31 00 ce 16 6e  05 8b ca 28 59 24 2c 50  |.P.1...n...(Y$,P|
000006c0  2c 31 29 b2 22 23 22 a7  31 33 37 30 00 d6 16 78  |,1)."#".1370...x|
000006d0  05 51 b2 50 00 f6 16 82  05 8b ca 28 59 24 2c 51  |.Q.P.......(Y$,Q|
000006e0  2c 31 29 b3 b1 22 25 22  a7 51 b2 51 aa 31 3a 89  |,1).."%".Q.Q.1:.|
000006f0  31 34 31 30 00 0f 17 8c  05 8b ca 28 59 24 2c 50  |1410.......(Y$,P|
00000700  2c 51 ab 50 29 b2 41 24  a7 31 35 30 30 00 1f 17  |,Q.P).A$.1500...|
00000710  96 05 50 b2 51 aa 31 3a  89 31 33 39 30 00 2a 17  |..P.Q.1:.1390.*.|
00000720  dc 05 3a 52 b2 31 3a 8e  00 30 17 40 06 8c 00 4a  |..:R.1:..0.@...J|
00000730  17 54 06 53 b2 36 ac 28  31 ab 52 29 aa b5 28 36  |.T.S.6.(1.R)..(6|
00000740  ac bb 28 31 29 29 aa 31  00 5b 17 5e 06 81 4a b2  |..(1)).1.[.^..J.|
00000750  31 a4 53 3a 87 5a 24 3a  82 00 7a 17 68 06 99 22  |1.S:.Z$:..z.h.."|
00000760  13 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000770  11 11 1d 1d 22 3b 5a 24  00 8c 17 72 06 8b 54 b3  |....";Z$...r..T.|
00000780  b2 32 20 a7 20 89 31 37  35 30 00 b0 17 7c 06 99  |.2 . .1750...|..|
00000790  22 1d 1d 54 48 45 20 52  49 47 48 54 20 41 4e 53  |"..THE RIGHT ANS|
000007a0  57 45 52 20 49 53 22 3a  99 22 1d 1d 22 3b 00 c7  |WER IS":."..";..|
000007b0  17 86 06 8b 20 c8 28 59  24 2c 31 29 b2 22 25 22  |.... .(Y$,1)."%"|
000007c0  a7 31 37 31 30 00 cf 17  90 06 50 b2 31 00 e8 17  |.1710.....P.1...|
000007d0  9a 06 8b ca 28 59 24 2c  50 2c 31 29 b2 22 25 22  |....(Y$,P,1)."%"|
000007e0  a7 89 31 37 35 30 00 04  18 a4 06 99 ca 28 59 24  |..1750.......(Y$|
000007f0  2c 50 2c 31 29 3b 3a 50  b2 50 aa 31 3a 89 31 36  |,P,1);:P.P.1:.16|
00000800  39 30 00 1d 18 ae 06 99  ca 28 59 24 2c 32 2c c3  |90.......(Y$,2,.|
00000810  28 59 24 29 29 3a 89 31  37 35 30 00 51 18 d6 06  |(Y$)):.1750.Q...|
00000820  99 22 13 11 11 11 11 11  11 11 11 11 11 11 11 11  |."..............|
00000830  11 11 11 11 11 11 11 11  1d 20 20 20 4e 4f 57 20  |.........   NOW |
00000840  54 59 50 45 20 41 4e 59  20 4b 45 59 22 3a 8e 00  |TYPE ANY KEY":..|
00000850  5f 18 d0 07 58 24 b2 22  41 42 43 44 22 00 67 18  |_...X$."ABCD".g.|
00000860  da 07 85 59 24 00 77 18  e4 07 8b 58 24 b2 59 24  |...Y$.w....X$.Y$|
00000870  a7 32 30 35 30 00 87 18  ee 07 99 22 4e 4f 22 3a  |.2050......"NO":|
00000880  89 32 30 30 30 00 92 18  02 08 99 22 59 45 53 22  |.2000......"YES"|
00000890  00 98 18 0c 08 90 00 c6  18 4a 1f 83 59 45 53 2c  |.........J..YES,|
000008a0  43 4f 52 52 45 43 54 2c  52 49 47 48 54 2c 47 4f  |CORRECT,RIGHT,GO|
000008b0  4f 44 2c 22 54 48 41 54  27 53 20 52 49 47 48 54  |OD,"THAT'S RIGHT|
000008c0  22 2c 4f 4b 00 09 19 54  1f 83 4e 4f 2c 57 52 4f  |",OK...T..NO,WRO|
000008d0  4e 47 2c 22 54 48 41 54  27 53 20 57 52 4f 4e 47  |NG,"THAT'S WRONG|
000008e0  22 2c 4e 4f 54 20 52 49  47 48 54 2c 22 4e 4f 2d  |",NOT RIGHT,"NO-|
000008f0  54 48 41 54 27 53 20 57  52 4f 4e 47 22 2c 49 4e  |THAT'S WRONG",IN|
00000900  43 4f 52 52 45 43 54 00  11 19 28 23 83 31 31 00  |CORRECT...(#.11.|
00000910  4e 19 32 23 83 22 20 20  20 5c 54 49 47 45 52 5c  |N.2#."   \TIGER\|
00000920  20 3d 20 5c 4c 49 4f 4e  5c 25 25 54 52 55 45 20  | = \LION\%%TRUE |
00000930  4f 52 20 46 41 4c 53 45  3f 25 25 22 2c 22 23 22  |OR FALSE?%%","#"|
00000940  2c 22 46 41 4c 53 45 25  46 25 23 22 00 7f 19 3c  |,"FALSE%F%#"...<|
00000950  23 83 22 20 20 20 35 20  3c 20 37 25 25 54 52 55  |#."   5 < 7%%TRU|
00000960  45 20 4f 52 20 46 41 4c  53 45 3f 25 25 22 2c 22  |E OR FALSE?%%","|
00000970  23 22 2c 22 54 52 55 45  25 54 25 23 22 00 b2 19  |#","TRUE%T%#"...|
00000980  46 23 83 22 20 20 20 37  20 3c 3d 20 33 25 25 54  |F#."   7 <= 3%%T|
00000990  52 55 45 20 4f 52 20 46  41 4c 53 45 3f 25 25 22  |RUE OR FALSE?%%"|
000009a0  2c 22 23 22 2c 22 46 41  4c 53 45 25 46 25 23 22  |,"#","FALSE%F%#"|
000009b0  00 ef 19 50 23 83 22 20  20 20 5c 4d 4f 55 53 45  |...P#."   \MOUSE|
000009c0  5c 20 3d 20 5c 48 4f 52  53 45 5c 25 25 54 52 55  |\ = \HORSE\%%TRU|
000009d0  45 20 4f 52 20 46 41 4c  53 45 3f 25 25 22 2c 22  |E OR FALSE?%%","|
000009e0  23 22 2c 22 46 41 4c 53  45 25 46 25 22 00 3a 1a  |#","FALSE%F%".:.|
000009f0  5a 23 83 22 20 20 20 5c  55 4e 49 43 4f 52 4e 5c  |Z#."   \UNICORN\|
00000a00  20 3c 3e 20 37 2e 33 25  25 49 53 20 54 48 49 53  | <> 7.3%%IS THIS|
00000a10  25 25 41 29 20 54 52 55  45 25 42 29 20 46 41 4c  |%%A) TRUE%B) FAL|
00000a20  53 45 25 43 29 20 49 4e  43 4f 52 52 45 43 54 20  |SE%C) INCORRECT |
00000a30  42 41 53 49 43 25 25 22  00 53 1a 5f 23 83 22 23  |BASIC%%".S._#."#|
00000a40  22 2c 22 43 25 49 4e 43  4f 52 52 45 43 54 25 23  |","C%INCORRECT%#|
00000a50  22 00 9f 1a 64 23 83 22  20 20 20 5c 54 48 52 45  |"...d#."   \THRE|
00000a60  45 20 50 4f 49 4e 54 20  46 49 56 45 5c 20 3d 20  |E POINT FIVE\ = |
00000a70  5c 33 2e 35 5c 25 25 49  53 20 54 48 49 53 25 41  |\3.5\%%IS THIS%A|
00000a80  29 20 54 52 55 45 25 42  29 20 46 41 4c 53 45 25  |) TRUE%B) FALSE%|
00000a90  43 29 20 49 4e 43 4f 52  52 45 43 54 22 00 be 1a  |C) INCORRECT"...|
00000aa0  69 23 83 22 20 42 41 53  49 43 25 25 23 22 2c 22  |i#." BASIC%%#","|
00000ab0  46 41 4c 53 45 25 42 25  46 25 23 22 00 06 1b 6e  |FALSE%B%F%#"...n|
00000ac0  23 83 22 20 20 20 49 46  20 59 3d 33 37 20 41 4e  |#."   IF Y=37 AN|
00000ad0  44 20 5a 3d 32 35 25 20  20 20 59 2d 33 20 3c 20  |D Z=25%   Y-3 < |
00000ae0  5a 2b 35 20 20 20 20 20  20 49 53 25 25 41 29 20  |Z+5      IS%%A) |
00000af0  54 52 55 45 25 42 29 20  46 41 4c 53 45 25 25 22  |TRUE%B) FALSE%%"|
00000b00  2c 22 23 22 00 17 1b 73  23 83 46 41 4c 53 45 25  |,"#"...s#.FALSE%|
00000b10  42 25 46 25 23 00 62 1b  78 23 83 22 20 20 20 49  |B%F%#.b.x#."   I|
00000b20  46 20 58 20 48 41 53 20  54 48 45 20 56 41 4c 55  |F X HAS THE VALU|
00000b30  45 20 37 33 2c 25 20 20  58 20 3e 3d 20 37 33 20  |E 73,%  X >= 73 |
00000b40  49 53 25 25 41 29 20 54  52 55 45 25 42 29 20 46  |IS%%A) TRUE%B) F|
00000b50  41 4c 53 45 25 43 29 20  49 4c 4c 45 47 41 4c 22  |ALSE%C) ILLEGAL"|
00000b60  00 78 1b 7d 23 83 22 25  25 23 22 2c 54 52 55 45  |.x.}#."%%#",TRUE|
00000b70  25 41 25 54 25 23 00 b2  1b 82 23 83 22 20 20 20  |%A%T%#....#."   |
00000b80  5c 4c 41 4d 50 5c 3d 5c  4c 41 4d 50 4f 4f 4e 5c  |\LAMP\=\LAMPOON\|
00000b90  25 25 20 20 54 52 55 45  20 4f 52 20 46 41 4c 53  |%%  TRUE OR FALS|
00000ba0  45 3f 25 22 2c 23 2c 46  41 4c 53 45 25 46 25 23  |E?%",#,FALSE%F%#|
00000bb0  00 ff 1b 8c 23 83 22 20  20 43 4f 4e 53 49 44 45  |....#."  CONSIDE|
00000bc0  52 3a 25 25 31 30 20 52  53 3d 35 25 32 30 20 50  |R:%%10 RS=5%20 P|
00000bd0  52 49 4e 54 20 52 53 2c  31 2f 52 53 25 33 30 20  |RINT RS,1/RS%30 |
00000be0  52 53 3d 52 53 2b 32 25  34 30 20 49 46 20 52 53  |RS=RS+2%40 IF RS|
00000bf0  3c 31 37 20 54 48 45 4e  20 32 30 25 22 00 37 1c  |<17 THEN 20%".7.|
00000c00  91 23 83 22 35 30 20 53  54 4f 50 25 25 20 20 20  |.#."50 STOP%%   |
00000c10  48 4f 57 20 4d 41 4e 59  20 54 49 4d 45 53 20 52  |HOW MANY TIMES R|
00000c20  4f 55 4e 44 20 54 48 45  20 4c 4f 4f 50 3f 25 23  |OUND THE LOOP?%#|
00000c30  22 2c 36 25 23 00 81 1c  96 23 83 22 20 20 4c 4f  |",6%#....#."  LO|
00000c40  4f 4b 20 41 54 3a 25 25  31 30 20 53 4a 24 3d 5c  |OK AT:%%10 SJ$=\|
00000c50  46 5c 25 32 30 20 50 52  49 4e 54 20 53 4a 24 25  |F\%20 PRINT SJ$%|
00000c60  33 30 20 53 4a 24 3d 5c  4a 5c 2b 53 4a 24 2b 5c  |30 SJ$=\J\+SJ$+\|
00000c70  4b 5c 25 34 30 20 49 46  20 53 4a 24 20 3c 22 00  |K\%40 IF SJ$ <".|
00000c80  cb 1c 9b 23 83 22 20 5c  4a 4a 4a 5c 20 54 48 45  |...#." \JJJ\ THE|
00000c90  4e 20 32 30 25 35 30 20  53 54 4f 50 25 57 48 41  |N 20%50 STOP%WHA|
00000ca0  54 20 49 53 20 54 48 45  20 4c 41 53 54 20 56 41  |T IS THE LAST VA|
00000cb0  4c 55 45 20 44 49 53 50  4c 41 59 45 44 3f 25 23  |LUE DISPLAYED?%#|
00000cc0  22 2c 4a 4a 46 4b 4b 25  23 00 00 00              |",JJFKK%#...|
00000ccc

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 27 May 2025, 10:49 UTC
Website designed by .