unit12quiz

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

unit12quiz

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:	unit12quiz
Read OK:	✔
File size:	0DC4 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 » unit12quiz
Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » unit12quiz

File contents

    10 PRINT"<clr><cursor down><black>     QUESTION AND ANSWER PROGRAM."
    20 PRINT:PRINT"      AT ALL TIMES, HIT ANY KEY TO"
    25 COLOR0,2:COLOR4,15,4
    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 FOR QQ=1TO1000:A$=MID$(X$,P,1):P=P+1
  1080 IFA$="#"THEN 1150
  1090 IFA$="%"THENJ=J+W:K=3:GOTO1110
  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 NEXT QQ
  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 DATA 9
  9010 DATA"   CAN THE CONTROL VARIABLE IN%A £FOR£ COMMAND BE CALLED   G$ ?%",#
  9015 DATANO%N%#
  9020 DATA"   CAN THE FINAL VALUE OF THE%%CONTROL VARIABLE IN A £FOR£%%COMMAND BE
  9025 DATA" A VARIABLE ITSELF?%%(E.G., AS IN  £FOR FS = 1 TO GR£)%%#",YES%Y%#
  9030 DATA"   WHEN CAN YOU LEAVE OUT THE STEP%%SIZE FROM A £FOR£ COMMAND?%%A) NEVER"
  9035 DATA"%B) WHEN THE STEP SIZE IS 1%C) WHEN THE STEP SIZE IS NOT%   NEGATIVE%%#"
  9037 DATA"B%#
  9040 DATA"EXAMINE%%10 FOR Q=20 TO 37%20 PRINT Q*Q/5%30 NEXT W%%   IS THIS%%A) CO
  9045 DATA"RRECT BASIC%B) INCORRECT BASIC%C) AMBIGUOUS CODE%%#",INCORRECT%B%#
  9050 DATA"   HOW MANY COMMANDS CAN YOU PUT%%INTO THE BODY OF A £FOR£ LOOP?%%A) N
  9055 DATA"ONE OR MORE%B) ONE OR MORE%C) EXACTLY ONE%%#",A%#
  9060 DATA"   CAN THE STARTING VALUE OF THE%%CONTROL VARIABLE IN A £FOR£%%COMMAND
  9065 DATA" BE A VARIABLE ITSELF?%%(AS IN £FOR R = Q TO 100 STEP 4)%%#",YES%Y%#
  9070 DATA"   CAN THE STEP SIZE OF THE CONTROL%VARIABLE IN A £FOR£ COMMAND BE%A"
  9075 DATA" VARIABLE ?%#","YES%Y%#"
  9080 DATA"CONSIDER%%10 FOR Q=3 TO 15 STEP 4%20 PRINT Q%30 NEXT Q%%HOW MANY TIME"
  9085 DATA"S OVER IS THE%BODY OF THE LOOP EXECUTED?%%#","FOUR%4%#"
  9090 DATA"CONSIDER%%10 FOR R=7 TO 3%20 PRINT R%30 NEXT R%%HOW MANY TIMES IS THE 
  9095 DATA" BODY%OF THE LOOP OBEYED?%%A) ONCE%B) FIVE TIMES%C) NO TIMES%%#"
  9097 DATA"ONCE%1%A%#"

-
�"��     QUESTION AND ANSWER PROGRAM."Y�:�"      AT ALL TIMES, HIT ANY KEY TO"j�0,2:�4,15,4��"   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�.� QQ�1�1000:A$��(X$,P,1):P�P�1�8�A$�"#"� 1150B�A$�"%"�J�J�W:K�3:�1110G�A$�"\"� A$��(34)KL�3072�40�J�K,�(A$)� 63:� 2048�40�J�K,15:K�K�1TV� QQZ~�`��r��J�1�12:�X$:�y��N���J�1�D���X$:�Y$��X$�X$�Y$:�Y$��� J�����"����";�A$�""��Q$:�Q$�""� 1307��(Q$)��20 �1314�A$�""�1307;�"���� ��";:A$��(A$,�(A$)�1):�1307W"��(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�27F��(Y$,P,1)��"-"�P�P�1:�1350rP��(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:��@�TS�6�(1�R)��(6��(1))�1)^�J�1�S:�Z$:�Hh�"";Z$Zr�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$)):�1750��"   NOW TYPE ANY KEY":�-�X$�"ABCD"5��Y$E��X$�Y$�2050U��"NO":�2000`�"YES"f��J�YES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK�T�NO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT�(#� 9)2#�"   CAN THE CONTROL VARIABLE IN%A \FOR\ COMMAND BE CALLED   G$ ?%",#57#�NO%N%#�<#�"   CAN THE FINAL VALUE OF THE%%CONTROL VARIABLE IN A \FOR\%%COMMAND BE�A#�" A VARIABLE ITSELF?%%(E.G., AS IN  \FOR FS = 1 TO GR\)%%#",YES%Y%#F#�"   WHEN CAN YOU LEAVE OUT THE STEP%%SIZE FROM A \FOR\ COMMAND?%%A) NEVER"jK#�"%B) WHEN THE STEP SIZE IS 1%C) WHEN THE STEP SIZE IS NOT%   NEGATIVE%%#"tM#�"B%#�P#�"EXAMINE%%10 FOR Q=20 TO 37%20 PRINT Q*Q/5%30 NEXT W%%   IS THIS%%A) CO
U#�"RRECT BASIC%B) INCORRECT BASIC%C) AMBIGUOUS CODE%%#",INCORRECT%B%#WZ#�"   HOW MANY COMMANDS CAN YOU PUT%%INTO THE BODY OF A \FOR\ LOOP?%%A) N�_#�"ONE OR MORE%B) ONE OR MORE%C) EXACTLY ONE%%#",A%#�d#�"   CAN THE STARTING VALUE OF THE%%CONTROL VARIABLE IN A \FOR\%%COMMAND'i#�" BE A VARIABLE ITSELF?%%(AS IN \FOR R = Q TO 100 STEP 4)%%#",YES%Y%#sn#�"   CAN THE STEP SIZE OF THE CONTROL%VARIABLE IN A \FOR\ COMMAND BE%A"�s#�" VARIABLE ?%#","YES%Y%#"�x#�"CONSIDER%%10 FOR Q=3 TO 15 STEP 4%20 PRINT Q%30 NEXT Q%%HOW MANY TIME"}#�"S OVER IS THE%BODY OF THE LOOP EXECUTED?%%#","FOUR%4%#"j�#�"CONSIDER%%10 FOR R=7 TO 3%20 PRINT R%30 NEXT R%%HOW MANY TIMES IS THE ��#�" BODY%OF THE LOOP OBEYED?%%A) ONCE%B) FIVE TIMES%C) NO TIMES%%#"��#�"ONCE%1%A%#"

-PJ@.".Q.     question and answer program."@yPT@.:."      at all times, hit any key to"@JPY@.0,2:.4,15,4@.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.D. qq.1.1000:a$..(x$,p,1):p.p.1@.S8D.a$."#". 1150@CTbD.a$."%".j.j.w:k.3:.1110@YTgD.a$."£". a$..(34)@kTlD.3072.40.j.k,.(a$). 63:. 2048.40.j.k,15:k.k.1@tTvD. qq@zT.D.@.T.D.@RT.D.j.1.12:.x$:.@YT.D.n@.T.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@DU]E..(q$)..20 .1314@TU.E.a$."".1307@;U.E.".... ..";:a$..(a$,.(a$).1):.1307@wU"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@OV2E. .(y$,1).."%".1380@WV<Ep.2@7VfE..(y$,p,1).."-".p.p.1:.1350@RVpE..(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@.V.E..(y$,p,q.p).a$.1500@.V.Ep.q.1:.1390@.V.E:r.1:.@.V@F.@XWtFs.6.(1.r)..(6..(1)).1@)W.F.j.1.s:.z$:.@hWHF."SQQQQQQQQQQQQQQQQQ]]";z$@zWRF.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@.W.F..(y$,2,.(y$)):.1750@.X.F."SQQQQQQQQQQQQQQQQQQQQQ]   now type any key":.@-X.Gx$."abcd"@5X.G.y$@eX.G.x$.y$.2050@uX.G."no":.2000@.XBH."yes"@FXLH.@.Xj..yes,correct,right,good,"that's right",ok@.Xt..no,wrong,"that's wrong",not right,"no-that's wrong",incorrect@.X(#. 9@)Y2#."   can the control variable in%a £for£ command be called   g$ ?%",#@5Y7#.no%n%#@.Y<#."   can the final value of the%%control variable in a £for£%%command be@.Ya#." a variable itself?%%(e.g., as in  £for fs = 1 to gr£)%%#",yes%y%#@[Zf#."   when can you leave out the step%%size from a £for£ command?%%a) never"@JZk#."%b) when the step size is 1%c) when the step size is not%   negative%%#"@TZm#."b%#@.Zp#."examine%%10 for q=20 to 37%20 print q*q/5%30 next w%%   is this%%a) co@J[u#."rrect basic%b) incorrect basic%c) ambiguous code%%#",incorrect%b%#@w[z#."   how many commands can you put%%into the body of a £for£ loop?%%a) n@.[.#."one or more%b) one or more%c) exactly one%%#",a%#@.[D#."   can the starting value of the%%control variable in a £for£%%command@'£I#." be a variable itself?%%(as in £for r = q to 100 step 4)%%#",yes%y%#@S£N#."   can the step size of the control%variable in a £for£ command be%a"@.£S#." variable ?%#","yes%y%#"@.£X#."consider%%10 for q=3 to 15 step 4%20 print q%30 next q%%how many time"@]].#."s over is the%body of the loop executed?%%#","four%4%#"@J].#."consider%%10 for r=7 to 3%20 print r%30 next r%%how many times is the @.].#." body%of the loop obeyed?%%a) once%b) five times%c) no times%%#"@.].#."once%1%a%#"@@@

00000000  2d 10 0a 00 99 22 93 11  90 20 20 20 20 20 51 55  |-...."...     QU|
00000010  45 53 54 49 4f 4e 20 41  4e 44 20 41 4e 53 57 45  |ESTION AND ANSWE|
00000020  52 20 50 52 4f 47 52 41  4d 2e 22 00 59 10 14 00  |R PROGRAM.".Y...|
00000030  99 3a 99 22 20 20 20 20  20 20 41 54 20 41 4c 4c  |.:."      AT ALL|
00000040  20 54 49 4d 45 53 2c 20  48 49 54 20 41 4e 59 20  | TIMES, HIT ANY |
00000050  4b 45 59 20 54 4f 22 00  6a 10 19 00 e7 30 2c 32  |KEY TO".j....0,2|
00000060  3a e7 34 2c 31 35 2c 34  00 8a 10 1e 00 99 22 20  |:.4,15,4......" |
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 d5 13 2e 04 81 20 51  51 b2 31 a4 31 30 30 30  |...... QQ.1.1000|
000003c0  3a 41 24 b2 ca 28 58 24  2c 50 2c 31 29 3a 50 b2  |:A$..(X$,P,1):P.|
000003d0  50 aa 31 00 e7 13 38 04  8b 41 24 b2 22 23 22 a7  |P.1...8..A$."#".|
000003e0  20 31 31 35 30 00 03 14  42 04 8b 41 24 b2 22 25  | 1150...B..A$."%|
000003f0  22 a7 4a b2 4a aa 57 3a  4b b2 33 3a 89 31 31 31  |".J.J.W:K.3:.111|
00000400  30 00 19 14 47 04 8b 41  24 b2 22 5c 22 a7 20 41  |0...G..A$."\". A|
00000410  24 b2 c7 28 33 34 29 00  4b 14 4c 04 97 33 30 37  |$..(34).K.L..307|
00000420  32 aa 34 30 ac 4a aa 4b  2c c6 28 41 24 29 af 20  |2.40.J.K,.(A$). |
00000430  36 33 3a 97 20 32 30 34  38 aa 34 30 ac 4a aa 4b  |63:. 2048.40.J.K|
00000440  2c 31 35 3a 4b b2 4b aa  31 00 54 14 56 04 82 20  |,15:K.K.1.T.V.. |
00000450  51 51 00 5a 14 7e 04 8e  00 60 14 b0 04 8c 00 72  |QQ.Z.~...`.....r|
00000460  14 bf 04 81 4a b2 31 a4  31 32 3a 87 58 24 3a 82  |....J.1.12:.X$:.|
00000470  00 79 14 c4 04 87 4e 00  84 14 ce 04 81 4a b2 31  |.y....N......J.1|
00000480  a4 44 00 90 14 d8 04 87  58 24 3a 87 59 24 00 a1  |.D......X$:.Y$..|
00000490  14 dd 04 58 24 b2 58 24  aa 59 24 3a 87 59 24 00  |...X$.X$.Y$:.Y$.|
000004a0  a9 14 e2 04 82 20 4a 00  af 14 ec 04 8e 00 d0 14  |..... J.........|
000004b0  14 05 99 22 13 11 11 11  11 11 11 11 11 11 11 11  |..."............|
000004c0  11 11 11 11 11 1d 1d 1d  82 a6 84 9d 22 3b 00 da  |............";..|
000004d0  14 19 05 41 24 b2 22 22  00 ef 14 1b 05 a1 51 24  |...A$.""......Q$|
000004e0  3a 8b 51 24 b2 22 22 a7  20 31 33 30 37 00 04 15  |:.Q$."". 1307...|
000004f0  1d 05 8b c6 28 51 24 29  b3 b1 32 30 20 a7 31 33  |....(Q$)..20 .13|
00000500  31 34 00 14 15 1e 05 8b  41 24 b2 22 22 a7 31 33  |14......A$."".13|
00000510  30 37 00 3b 15 1f 05 99  22 9d 82 a6 84 20 9d 9d  |07.;....".... ..|
00000520  22 3b 3a 41 24 b2 c8 28  41 24 2c c3 28 41 24 29  |";:A$..(A$,.(A$)|
00000530  ab 31 29 3a 89 31 33 30  37 00 57 15 22 05 8b c6  |.1):.1307.W."...|
00000540  28 51 24 29 b2 31 33 20  a7 20 99 22 20 22 3b 3a  |(Q$).13 . ." ";:|
00000550  89 31 33 32 31 00 87 15  23 05 8b 20 51 24 b3 22  |.1321...#.. Q$."|
00000560  30 22 20 b0 20 28 51 24  b1 22 39 22 20 af 20 51  |0" . (Q$."9" . Q|
00000570  24 b3 22 41 22 29 b0 20  51 24 b1 22 5a 22 20 a7  |$."A"). Q$."Z" .|
00000580  20 31 33 30 37 00 97 15  24 05 99 51 24 3b 22 82  | 1307...$..Q$;".|
00000590  a6 84 9d 22 3b 00 aa 15  25 05 41 24 b2 41 24 aa  |...";...%.A$.A$.|
000005a0  51 24 3a 89 31 33 30 37  00 c1 15 29 05 50 b2 c3  |Q$:.1307...).P..|
000005b0  28 41 24 29 3a 8b 20 50  b2 30 a7 31 33 30 30 00  |(A$):. P.0.1300.|
000005c0  da 15 2a 05 8b c6 28 c9  28 41 24 2c 31 29 29 b3  |..*...(.(A$,1)).|
000005d0  b1 33 32 a7 31 33 33 30  00 ed 15 2b 05 41 24 b2  |.32.1330...+.A$.|
000005e0  ca 28 41 24 2c 31 2c 50  ab 31 29 00 f7 15 2e 05  |.(A$,1,P.1).....|
000005f0  89 31 33 32 31 00 0f 16  32 05 8b 20 c8 28 59 24  |.1321...2.. .(Y$|
00000600  2c 31 29 b3 b1 22 25 22  a7 31 33 38 30 00 17 16  |,1).."%".1380...|
00000610  3c 05 50 b2 32 00 37 16  46 05 8b ca 28 59 24 2c  |<.P.2.7.F...(Y$,|
00000620  50 2c 31 29 b3 b1 22 2d  22 a7 50 b2 50 aa 31 3a  |P,1).."-".P.P.1:|
00000630  89 31 33 35 30 00 72 16  50 05 8b c5 28 41 24 29  |.1350.r.P...(A$)|
00000640  b1 b2 c5 28 ca 28 59 24  2c 32 2c 50 ab 31 29 29  |...(.(Y$,2,P.1))|
00000650  af c5 28 41 24 29 b3 b2  c5 28 ca 28 59 24 2c 50  |..(A$)...(.(Y$,P|
00000660  aa 31 2c c3 28 59 24 29  29 29 20 a7 31 35 30 30  |.1,.(Y$))) .1500|
00000670  00 7c 16 5a 05 52 b2 30  3a 8e 00 84 16 64 05 50  |.|.Z.R.0:....d.P|
00000680  b2 31 00 9c 16 6e 05 8b  ca 28 59 24 2c 50 2c 31  |.1...n...(Y$,P,1|
00000690  29 b2 22 23 22 a7 31 33  37 30 00 a4 16 78 05 51  |)."#".1370...x.Q|
000006a0  b2 50 00 c4 16 82 05 8b  ca 28 59 24 2c 51 2c 31  |.P.......(Y$,Q,1|
000006b0  29 b3 b1 22 25 22 a7 51  b2 51 aa 31 3a 89 31 34  |).."%".Q.Q.1:.14|
000006c0  31 30 00 dd 16 8c 05 8b  ca 28 59 24 2c 50 2c 51  |10.......(Y$,P,Q|
000006d0  ab 50 29 b2 41 24 a7 31  35 30 30 00 ed 16 96 05  |.P).A$.1500.....|
000006e0  50 b2 51 aa 31 3a 89 31  33 39 30 00 f8 16 dc 05  |P.Q.1:.1390.....|
000006f0  3a 52 b2 31 3a 8e 00 fe  16 40 06 8c 00 18 17 54  |:R.1:....@.....T|
00000700  06 53 b2 36 ac 28 31 ab  52 29 aa b5 28 36 ac bb  |.S.6.(1.R)..(6..|
00000710  28 31 29 29 aa 31 00 29  17 5e 06 81 4a b2 31 a4  |(1)).1.).^..J.1.|
00000720  53 3a 87 5a 24 3a 82 00  48 17 68 06 99 22 13 11  |S:.Z$:..H.h.."..|
00000730  11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000740  1d 1d 22 3b 5a 24 00 5a  17 72 06 8b 54 b3 b2 32  |..";Z$.Z.r..T..2|
00000750  20 a7 20 89 31 37 35 30  00 7e 17 7c 06 99 22 1d  | . .1750.~.|..".|
00000760  1d 54 48 45 20 52 49 47  48 54 20 41 4e 53 57 45  |.THE RIGHT ANSWE|
00000770  52 20 49 53 22 3a 99 22  1d 1d 22 3b 00 95 17 86  |R IS":."..";....|
00000780  06 8b 20 c8 28 59 24 2c  31 29 b2 22 25 22 a7 31  |.. .(Y$,1)."%".1|
00000790  37 31 30 00 9d 17 90 06  50 b2 31 00 b6 17 9a 06  |710.....P.1.....|
000007a0  8b ca 28 59 24 2c 50 2c  31 29 b2 22 25 22 a7 89  |..(Y$,P,1)."%"..|
000007b0  31 37 35 30 00 d2 17 a4  06 99 ca 28 59 24 2c 50  |1750.......(Y$,P|
000007c0  2c 31 29 3b 3a 50 b2 50  aa 31 3a 89 31 36 39 30  |,1);:P.P.1:.1690|
000007d0  00 eb 17 ae 06 99 ca 28  59 24 2c 32 2c c3 28 59  |.......(Y$,2,.(Y|
000007e0  24 29 29 3a 89 31 37 35  30 00 1f 18 d6 06 99 22  |$)):.1750......"|
000007f0  13 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000800  11 11 11 11 11 11 1d 20  20 20 4e 4f 57 20 54 59  |.......   NOW TY|
00000810  50 45 20 41 4e 59 20 4b  45 59 22 3a 8e 00 2d 18  |PE ANY KEY":..-.|
00000820  d0 07 58 24 b2 22 41 42  43 44 22 00 35 18 da 07  |..X$."ABCD".5...|
00000830  85 59 24 00 45 18 e4 07  8b 58 24 b2 59 24 a7 32  |.Y$.E....X$.Y$.2|
00000840  30 35 30 00 55 18 ee 07  99 22 4e 4f 22 3a 89 32  |050.U...."NO":.2|
00000850  30 30 30 00 60 18 02 08  99 22 59 45 53 22 00 66  |000.`...."YES".f|
00000860  18 0c 08 90 00 94 18 4a  1f 83 59 45 53 2c 43 4f  |.......J..YES,CO|
00000870  52 52 45 43 54 2c 52 49  47 48 54 2c 47 4f 4f 44  |RRECT,RIGHT,GOOD|
00000880  2c 22 54 48 41 54 27 53  20 52 49 47 48 54 22 2c  |,"THAT'S RIGHT",|
00000890  4f 4b 00 d7 18 54 1f 83  4e 4f 2c 57 52 4f 4e 47  |OK...T..NO,WRONG|
000008a0  2c 22 54 48 41 54 27 53  20 57 52 4f 4e 47 22 2c  |,"THAT'S WRONG",|
000008b0  4e 4f 54 20 52 49 47 48  54 2c 22 4e 4f 2d 54 48  |NOT RIGHT,"NO-TH|
000008c0  41 54 27 53 20 57 52 4f  4e 47 22 2c 49 4e 43 4f  |AT'S WRONG",INCO|
000008d0  52 52 45 43 54 00 df 18  28 23 83 20 39 00 29 19  |RRECT...(#. 9.).|
000008e0  32 23 83 22 20 20 20 43  41 4e 20 54 48 45 20 43  |2#."   CAN THE C|
000008f0  4f 4e 54 52 4f 4c 20 56  41 52 49 41 42 4c 45 20  |ONTROL VARIABLE |
00000900  49 4e 25 41 20 5c 46 4f  52 5c 20 43 4f 4d 4d 41  |IN%A \FOR\ COMMA|
00000910  4e 44 20 42 45 20 43 41  4c 4c 45 44 20 20 20 47  |ND BE CALLED   G|
00000920  24 20 3f 25 22 2c 23 00  35 19 37 23 83 4e 4f 25  |$ ?%",#.5.7#.NO%|
00000930  4e 25 23 00 82 19 3c 23  83 22 20 20 20 43 41 4e  |N%#...<#."   CAN|
00000940  20 54 48 45 20 46 49 4e  41 4c 20 56 41 4c 55 45  | THE FINAL VALUE|
00000950  20 4f 46 20 54 48 45 25  25 43 4f 4e 54 52 4f 4c  | OF THE%%CONTROL|
00000960  20 56 41 52 49 41 42 4c  45 20 49 4e 20 41 20 5c  | VARIABLE IN A \|
00000970  46 4f 52 5c 25 25 43 4f  4d 4d 41 4e 44 20 42 45  |FOR\%%COMMAND BE|
00000980  00 cb 19 41 23 83 22 20  41 20 56 41 52 49 41 42  |...A#." A VARIAB|
00000990  4c 45 20 49 54 53 45 4c  46 3f 25 25 28 45 2e 47  |LE ITSELF?%%(E.G|
000009a0  2e 2c 20 41 53 20 49 4e  20 20 5c 46 4f 52 20 46  |., AS IN  \FOR F|
000009b0  53 20 3d 20 31 20 54 4f  20 47 52 5c 29 25 25 23  |S = 1 TO GR\)%%#|
000009c0  22 2c 59 45 53 25 59 25  23 00 1b 1a 46 23 83 22  |",YES%Y%#...F#."|
000009d0  20 20 20 57 48 45 4e 20  43 41 4e 20 59 4f 55 20  |   WHEN CAN YOU |
000009e0  4c 45 41 56 45 20 4f 55  54 20 54 48 45 20 53 54  |LEAVE OUT THE ST|
000009f0  45 50 25 25 53 49 5a 45  20 46 52 4f 4d 20 41 20  |EP%%SIZE FROM A |
00000a00  5c 46 4f 52 5c 20 43 4f  4d 4d 41 4e 44 3f 25 25  |\FOR\ COMMAND?%%|
00000a10  41 29 20 4e 45 56 45 52  22 00 6a 1a 4b 23 83 22  |A) NEVER".j.K#."|
00000a20  25 42 29 20 57 48 45 4e  20 54 48 45 20 53 54 45  |%B) WHEN THE STE|
00000a30  50 20 53 49 5a 45 20 49  53 20 31 25 43 29 20 57  |P SIZE IS 1%C) W|
00000a40  48 45 4e 20 54 48 45 20  53 54 45 50 20 53 49 5a  |HEN THE STEP SIZ|
00000a50  45 20 49 53 20 4e 4f 54  25 20 20 20 4e 45 47 41  |E IS NOT%   NEGA|
00000a60  54 49 56 45 25 25 23 22  00 74 1a 4d 23 83 22 42  |TIVE%%#".t.M#."B|
00000a70  25 23 00 c1 1a 50 23 83  22 45 58 41 4d 49 4e 45  |%#...P#."EXAMINE|
00000a80  25 25 31 30 20 46 4f 52  20 51 3d 32 30 20 54 4f  |%%10 FOR Q=20 TO|
00000a90  20 33 37 25 32 30 20 50  52 49 4e 54 20 51 2a 51  | 37%20 PRINT Q*Q|
00000aa0  2f 35 25 33 30 20 4e 45  58 54 20 57 25 25 20 20  |/5%30 NEXT W%%  |
00000ab0  20 49 53 20 54 48 49 53  25 25 41 29 20 43 4f 00  | IS THIS%%A) CO.|
00000ac0  0a 1b 55 23 83 22 52 52  45 43 54 20 42 41 53 49  |..U#."RRECT BASI|
00000ad0  43 25 42 29 20 49 4e 43  4f 52 52 45 43 54 20 42  |C%B) INCORRECT B|
00000ae0  41 53 49 43 25 43 29 20  41 4d 42 49 47 55 4f 55  |ASIC%C) AMBIGUOU|
00000af0  53 20 43 4f 44 45 25 25  23 22 2c 49 4e 43 4f 52  |S CODE%%#",INCOR|
00000b00  52 45 43 54 25 42 25 23  00 57 1b 5a 23 83 22 20  |RECT%B%#.W.Z#." |
00000b10  20 20 48 4f 57 20 4d 41  4e 59 20 43 4f 4d 4d 41  |  HOW MANY COMMA|
00000b20  4e 44 53 20 43 41 4e 20  59 4f 55 20 50 55 54 25  |NDS CAN YOU PUT%|
00000b30  25 49 4e 54 4f 20 54 48  45 20 42 4f 44 59 20 4f  |%INTO THE BODY O|
00000b40  46 20 41 20 5c 46 4f 52  5c 20 4c 4f 4f 50 3f 25  |F A \FOR\ LOOP?%|
00000b50  25 41 29 20 4e 00 8f 1b  5f 23 83 22 4f 4e 45 20  |%A) N..._#."ONE |
00000b60  4f 52 20 4d 4f 52 45 25  42 29 20 4f 4e 45 20 4f  |OR MORE%B) ONE O|
00000b70  52 20 4d 4f 52 45 25 43  29 20 45 58 41 43 54 4c  |R MORE%C) EXACTL|
00000b80  59 20 4f 4e 45 25 25 23  22 2c 41 25 23 00 dc 1b  |Y ONE%%#",A%#...|
00000b90  64 23 83 22 20 20 20 43  41 4e 20 54 48 45 20 53  |d#."   CAN THE S|
00000ba0  54 41 52 54 49 4e 47 20  56 41 4c 55 45 20 4f 46  |TARTING VALUE OF|
00000bb0  20 54 48 45 25 25 43 4f  4e 54 52 4f 4c 20 56 41  | THE%%CONTROL VA|
00000bc0  52 49 41 42 4c 45 20 49  4e 20 41 20 5c 46 4f 52  |RIABLE IN A \FOR|
00000bd0  5c 25 25 43 4f 4d 4d 41  4e 44 00 27 1c 69 23 83  |\%%COMMAND.'.i#.|
00000be0  22 20 42 45 20 41 20 56  41 52 49 41 42 4c 45 20  |" BE A VARIABLE |
00000bf0  49 54 53 45 4c 46 3f 25  25 28 41 53 20 49 4e 20  |ITSELF?%%(AS IN |
00000c00  5c 46 4f 52 20 52 20 3d  20 51 20 54 4f 20 31 30  |\FOR R = Q TO 10|
00000c10  30 20 53 54 45 50 20 34  29 25 25 23 22 2c 59 45  |0 STEP 4)%%#",YE|
00000c20  53 25 59 25 23 00 73 1c  6e 23 83 22 20 20 20 43  |S%Y%#.s.n#."   C|
00000c30  41 4e 20 54 48 45 20 53  54 45 50 20 53 49 5a 45  |AN THE STEP SIZE|
00000c40  20 4f 46 20 54 48 45 20  43 4f 4e 54 52 4f 4c 25  | OF THE CONTROL%|
00000c50  56 41 52 49 41 42 4c 45  20 49 4e 20 41 20 5c 46  |VARIABLE IN A \F|
00000c60  4f 52 5c 20 43 4f 4d 4d  41 4e 44 20 42 45 25 41  |OR\ COMMAND BE%A|
00000c70  22 00 92 1c 73 23 83 22  20 56 41 52 49 41 42 4c  |"...s#." VARIABL|
00000c80  45 20 3f 25 23 22 2c 22  59 45 53 25 59 25 23 22  |E ?%#","YES%Y%#"|
00000c90  00 df 1c 78 23 83 22 43  4f 4e 53 49 44 45 52 25  |...x#."CONSIDER%|
00000ca0  25 31 30 20 46 4f 52 20  51 3d 33 20 54 4f 20 31  |%10 FOR Q=3 TO 1|
00000cb0  35 20 53 54 45 50 20 34  25 32 30 20 50 52 49 4e  |5 STEP 4%20 PRIN|
00000cc0  54 20 51 25 33 30 20 4e  45 58 54 20 51 25 25 48  |T Q%30 NEXT Q%%H|
00000cd0  4f 57 20 4d 41 4e 59 20  54 49 4d 45 22 00 1d 1d  |OW MANY TIME"...|
00000ce0  7d 23 83 22 53 20 4f 56  45 52 20 49 53 20 54 48  |}#."S OVER IS TH|
00000cf0  45 25 42 4f 44 59 20 4f  46 20 54 48 45 20 4c 4f  |E%BODY OF THE LO|
00000d00  4f 50 20 45 58 45 43 55  54 45 44 3f 25 25 23 22  |OP EXECUTED?%%#"|
00000d10  2c 22 46 4f 55 52 25 34  25 23 22 00 6a 1d 82 23  |,"FOUR%4%#".j..#|
00000d20  83 22 43 4f 4e 53 49 44  45 52 25 25 31 30 20 46  |."CONSIDER%%10 F|
00000d30  4f 52 20 52 3d 37 20 54  4f 20 33 25 32 30 20 50  |OR R=7 TO 3%20 P|
00000d40  52 49 4e 54 20 52 25 33  30 20 4e 45 58 54 20 52  |RINT R%30 NEXT R|
00000d50  25 25 48 4f 57 20 4d 41  4e 59 20 54 49 4d 45 53  |%%HOW MANY TIMES|
00000d60  20 49 53 20 54 48 45 20  00 b1 1d 87 23 83 22 20  | IS THE ....#." |
00000d70  42 4f 44 59 25 4f 46 20  54 48 45 20 4c 4f 4f 50  |BODY%OF THE LOOP|
00000d80  20 4f 42 45 59 45 44 3f  25 25 41 29 20 4f 4e 43  | OBEYED?%%A) ONC|
00000d90  45 25 42 29 20 46 49 56  45 20 54 49 4d 45 53 25  |E%B) FIVE TIMES%|
00000da0  43 29 20 4e 4f 20 54 49  4d 45 53 25 25 23 22 00  |C) NO TIMES%%#".|
00000db0  c3 1d 89 23 83 22 4f 4e  43 45 25 31 25 41 25 23  |...#."ONCE%1%A%#|
00000dc0  22 00 00 00                                       |"...|
00000dc4

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