Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape02b_c16_basic1.wav » unit5quiz

unit5quiz

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_tape02b_c16_basic1.wav
Filename: unit5quiz
Read OK: ✔
File size: 0D31 bytes
Load address: 1001
Exec address: 0000
Duplicates

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

File contents
    10 REM UNIT5QUIZ64
    20 REM COPYRIGHT (C) ANDREW COLIN 1982
    25 COLOR0,2:COLOR4,15,4:PRINT"<black>"
    30 PRINT"<clr><cursor down><black>     QUESTION AND ANSWER PROGRAM."
    40 PRINT:PRINT"      AT ALL TIMES, HIT ANY KEY TO"
    50 PRINT"   GET THE NEXT QUESTION"
    60 PRINT:PRINT"      ALWAYS FOLLOW YOUR REPLY
    70 PRINT"   WITH THE  RETURN  KEY"
    80 PRINT:PRINT:PRINT"   GOOD LUCK!"
    90 FORJ=1TO12:READY$:NEXT
   100 READN
   110 DIMZ(N)
   120 FORJ=1TON:Z(N)=0:NEXT
   130 SC=0
   140 FORJ=1TON
   150 IFZ(J)>=0THEN 220
   160 NEXTJ
   170 PRINT"<red><clr><cursor down>         YOU SCORED";SC
   180 PRINT:PRINT"    QUESTIONS RIGHT FIRST"
   190 PRINT:PRINT"    TIME OUT OF";N
   200 PRINT:PRINT"    THIS IS";INT(100*SC/N+0.5);"PERCENT"
   210 END
   220 D=1+INT(N*RND(1))
   230 IF Z(D)=-1THEN220
   240 C=Z(D)+1
   250 GOSUB510
   260 FORT=1TO3
   265 POKE 239,0
   270 GETA$:IFA$=""THEN270
   280 GOSUB370
   290 GOSUB590
   300 GOSUB850
   310 IFR=1ANDT=1ANDZ(D)=0THEN SC=SC+1
   320 IF R=1 AND T=1 THENZ(D)=-1:GOTO360
   330 IF R=1 THEN 350
   340 NEXTT
   350 Z(D)=Z(D)+1:GOTO140
   360 GOTO140
   370 PRINT"<clr>"
   380 PRINT"<clr>"
   390 FORJ=0TO39:POKE3072+J,160:POKE 2048+J,C:NEXT
   400 FORJ=0TO920STEP40:POKE3151+J,160:POKE 2127+J,C:NEXT
   410 FORJ=39TO0STEP-1:POKE4032+J,160:POKE 3008+J,C:NEXT
   420 FORJ=920TO0STEP-40:POKE3112+J,160:POKE 2088+J,C:NEXT
   430 W=2:IFLEN(X$)>120THENW=1
   440 P=1:J=3: K=3
   450 A$=MID$(X$,P,1):P=P+1
   460 IFA$="#"THEN 500
   470 IFA$="%"THENJ=J+W:K=3:GOTO450
   480 POKE3072+40*J+K,ASC(A$)AND 63:POKE 2048+40*J+K,15:K=K+1
   490 GOTO450
   500 RETURN
   510 RESTORE
   520 FORJ=1TO12:READX$:NEXT
   530 READN
   540 FORJ=1TOD
   550 READX$:READY$
   560 X$=X$+Y$:READY$
   570 NEXT J
   580 RETURN
   590 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>";   
   600 A$=""
   605 POKE 239,0
   610 GETQ$:IFQ$=""THEN 610
   620 IFASC(Q$)<>20 THEN650
   630 IFA$=""THEN610
   640 PRINT"<cursor left><flash on>▒<flash off> <cursor left><cursor left>";:A$=LEFT$(A$,LEN(A$)-1):GOTO610
   650 IFASC(Q$)=13 THEN PRINT" ":GOTO 690
   660 IF Q$<"0" OR (Q$>"9" AND Q$<"A")OR Q$>"Z" THEN 610
   670 PRINTQ$;"<flash on>▒<flash off><cursor left>";
   680 A$=A$+Q$:GOTO610
   690 P=LEN(A$):IF P=0THEN590
   700 IFASC(RIGHT$(A$,1))<>32THEN730
   710 A$=MID$(A$,1,P-1)
   720 GOTO690
   730 IF LEFT$(Y$,1)<>"%"THEN780
   740 P=2
   750 IFMID$(Y$,P,1)<>"-"THENP=P+1:GOTO750
   760 IFVAL(A$)>=VAL(MID$(Y$,2,P-1))ANDVAL(A$)<=VAL(MID$(Y$,P+1,LEN(Y$))) THEN840
   770 R=0:RETURN
   780 P=1
   790 IFMID$(Y$,P,1)="#"THEN770
   800 Q=P
   810 IFMID$(Y$,Q,1)<>"%"THENQ=Q+1:GOTO810
   820 IFMID$(Y$,P,Q-P)=A$THEN840
   830 P=Q+1:GOTO790
   840 :R=1:RETURN
   850 RESTORE
   860 S=6*(1-R)+INT(6*RND(1))+1
   870 FORJ=1TOS:READZ$:NEXT
   880 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$
   890 IFT<=2 THEN GOTO960
   900 PRINT"<cursor right><cursor right>THE RIGHT ANSWER IS":PRINT"<cursor right><cursor right>";
   910 IF LEFT$(Y$,1)="%"THEN950
   920 P=1
   930 IFMID$(Y$,P,1)="%"THENGOTO960
   940 PRINTMID$(Y$,P,1);:P=P+1:GOTO930
   950 PRINTMID$(Y$,2,LEN(Y$)):GOTO960
   960 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
   970 X$="ABCD"
   980 INPUTY$
   990 IFX$=Y$THEN1010
  1000 PRINT"NO":GOTO970
  1010 PRINT"YES"
  1020 STOP
  1030 DATAYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK
  1040 DATANO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT
  1050 DATA9
  1060 DATA"  IS%       X+1=X% A LEGAL BASIC COMMAND?","% A) YES% B) NO%#"
  1070 DATA"B%N%NO%#"
  1080 DATA"  HOW FAST IS THE COMMODORE 16%%(COMMANDS PER SECOND)%%A ROUGH FIGURE
  1090 DATA" WILL DO%#","%50-150#"
  1100 DATA"   HOW MANY COMMANDS CAN THE%%MACHINE REMEMBER AT THE SAME TIME?%%A) A
  1110 DATA"S MANY AS YOU NEED%%B) TEN%%C) AS MANY AS FIT IN THE STORE%%#","C%#"
  1120 DATA"COMMANDS ARE KEPT%%A) IN THE ORDER THEY ARE TYPED%B) IN ASCENDING SEQU"
  1130 DATA"ENCE%   OF LABEL NUMBER%C) NEITHER OF THESE%#","B%#"
  1140 DATA"   EVERY LABEL NUMBER MUST END%WITH A ZERO.%%   TRUE  OR  FALSE ?%"
  1150 DATA"%#","FALSE%F%#"
  1160 DATA"HOW CAN YOU SLOW THE COMPUTER DOWN?%%A) BY TYPING R U N VERY SLOWLY%%"
  1170 DATA"B) WITH THE COMMODORE KEY%%C) BY HOLDING DOWN  SPACE %%#","B%COMMODORE%#"
  1180 DATA"   A SEMICOLON AFTER A STRING%MEANS%A) START A NEW LINE%B) DON'T ST"
  1190 DATA"ART A NEW LINE%C) RESTART THE PRESENT LINE%%#","B%#"
  1200 DATA"   A VARIABLE CAN HOLD%A) JUST ONE VALUE%B) MANY VALUES,ONE AFTER"
  1210 DATA"%THE OTHER%C) MANY VALUES AT THE SAME TIME%#","B%#"
  1220 DATA"   IS%%     LET G = G + 5%%A PROPER BASIC COMMAND ?%"
  1230 DATA"A) YES%B) NO%#","A%YES%Y%TRUE%#"



� UNIT5QUIZ649� COPYRIGHT (C) ANDREW COLIN 1982O�0,2:�4,15,4:�"�"{�"��     QUESTION AND ANSWER PROGRAM."�(�:�"      AT ALL TIMES, HIT ANY KEY TO"�2�"   GET THE NEXT QUESTION"�<�:�"      ALWAYS FOLLOW YOUR REPLYF�"   WITH THE  RETURN  KEY"'P�:�:�"   GOOD LUCK!"9Z�J�1�12:�Y$:�@d�NJn�Z(N)^x�J�1�N:Z(N)�0:�g�SC�0r��J�1�N���Z(J)��0� 220���J���"�         YOU SCORED";SC���:�"    QUESTIONS RIGHT FIRST"���:�"    TIME OUT OF";N��:�"    THIS IS";�(100�SC�N�0.5);"PERCENT"��1�D�1��(N��(1))C�� Z(D)��1�220P�C�Z(D)�1Y��510d�T�1�3p	� 239,0��A$:�A$�""�270��370�"�590�,�850�6�R�1�T�1�Z(D)�0� SC�SC�1�@� R�1 � T�1 �Z(D)��1:�360�J� R�1 � 350�T�T^Z(D)�Z(D)�1:�140h�140r�"�" |�"�"E��J�0�39:�3072�J,160:� 2048�J,C:�n��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$)�120�W�1��P�1:J�3: K�3��A$��(X$,P,1):P�P�1��A$�"#"� 500+��A$�"%"�J�J�W:K�3:�450]��3072�40�J�K,�(A$)� 63:� 2048�40�J�K,15:K�K�1f��450l��r����J�1�12:�X$:���N��J�1�D�&�X$:�Y$�0X$�X$�Y$:�Y$�:� J�D��N�"����";   �XA$�""�]� 239,0b�Q$:�Q$�""� 610#l��(Q$)��20 �6502v�A$�""�610X��"���� ��";:A$��(A$,�(A$)�1):�610s���(Q$)�13 � �" ":� 690��� Q$�"0" � (Q$�"9" � Q$�"A")� Q$�"Z" � 610���Q$;"����";��A$�A$�Q$:�610��P��(A$):� P�0�590����(�(A$,1))��32�730�A$��(A$,1,P�1)��690%�� �(Y$,1)��"%"�780-�P�2L���(Y$,P,1)��"-"�P�P�1:�750����(A$)���(�(Y$,2,P�1))��(A$)���(�(Y$,P�1,�(Y$))) �840�R�0:��P�1���(Y$,P,1)�"#"�770� Q�P�*��(Y$,Q,1)��"%"�Q�Q�1:�810�4��(Y$,P,Q�P)�A$�840�>P�Q�1:�790H:R�1:�R�(\S�6�(1�R)��(6��(1))�19f�J�1�S:�Z$:�Xp�"";Z$iz�T��2 � �960���"THE RIGHT ANSWER IS":�"";��� �(Y$,1)�"%"�950��P�1����(Y$,P,1)�"%"��960����(Y$,P,1);:P�P�1:�930����(Y$,2,�(Y$)):�960*��"   NOW TYPE ANY KEY":�8�X$�"ABCD"@��Y$P��X$�Y$�1010_��"NO":�970j��"YES"p����YES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK��NO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT��9-$�"  IS%       X+1=X% A LEGAL BASIC COMMAND?","% A) YES% B) NO%#"=.�"B%N%NO%#"�8�"  HOW FAST IS THE COMMODORE 16%%(COMMANDS PER SECOND)%%A ROUGH FIGURE�B�" WILL DO%#","%50-150#"�L�"   HOW MANY COMMANDS CAN THE%%MACHINE REMEMBER AT THE SAME TIME?%%A) A>V�"S MANY AS YOU NEED%%B) TEN%%C) AS MANY AS FIT IN THE STORE%%#","C%#"�`�"COMMANDS ARE KEPT%%A) IN THE ORDER THEY ARE TYPED%B) IN ASCENDING SEQU"�j�"ENCE%   OF LABEL NUMBER%C) NEITHER OF THESE%#","B%#"t�"   EVERY LABEL NUMBER MUST END%WITH A ZERO.%%   TRUE  OR  FALSE ?%"'~�"%#","FALSE%F%#"t��"HOW CAN YOU SLOW THE COMPUTER DOWN?%%A) BY TYPING R U N VERY SLOWLY%%"���"B) WITH THE COMMODORE KEY%%C) BY HOLDING DOWN  SPACE %%#","B%COMMODORE%#"��"   A SEMICOLON AFTER A STRING%MEANS%A) START A NEW LINE%B) DON'T ST"J��"ART A NEW LINE%C) RESTART THE PRESENT LINE%%#","B%#"���"   A VARIABLE CAN HOLD%A) JUST ONE VALUE%B) MANY VALUES,ONE AFTER"���"%THE OTHER%C) MANY VALUES AT THE SAME TIME%#","B%#"	��"   IS%%     LET G = G + 5%%A PROPER BASIC COMMAND ?%"0��"A) YES%B) NO%#","A%YES%Y%TRUE%#"
SPJ@. unit5quiz64@9PT@. copyright (c) andrew colin 1982@oPY@.0,2:.4,15,4:."."@.P.@.".Q.     question and answer program."@.P(@.:."      at all times, hit any key to"@.P2@."   get the next question"@.P<@.:."      always follow your reply@NQf@."   with the  return  key"@'Qp@.:.:."   good luck!"@9Qz@.j.1.12:.y$:.@@QD@.n@jQN@.z(n)@.QX@.j.1.n:z(n).0:.@GQ.@sc.0@RQ.@.j.1.n@.Q.@.z(j)..0. 220@.Q.@.j@.Q.@."£.Q         you scored";sc@.Q.@.:."    questions right first"@.Q.@.:."    time out of";n@YR.@.:."    this is";.(100.sc.n.0.5);"percent"@.R.@.@1R.@d.1..(n..(1))@cR.@. z(d)..1.220@pR.@c.z(d).1@yR.@.510@DRDA.t.1.3@PRIA. 239,0@.RNA.a$:.a$."".270@.RXA.370@.R"A.590@.R,A.850@.R6A.r.1.t.1.z(d).0. sc.sc.1@.R@A. r.1 . t.1 .z(d)..1:.360@.RjA. r.1 . 350@.RtA.t@ES.Az(d).z(d).1:.140@NSHA.140@WSRA."."@ S.A."."@eS.A.j.0.39:.3072.j,160:. 2048.j,c:.@NS.A.j.0.920.40:.3151.j,160:. 2127.j,c:.@.S.A.j.39.0..1:.4032.j,160:. 3008.j,c:.@.S.A.j.920.0..40:.3112.j,160:. 2088.j,c:.@.S.Aw.2:..(x$).120.w.1@.S.Ap.1:j.3: k.3@.S.Aa$..(x$,p,1):p.p.1@PT.A.a$."#". 500@+T.A.a$."%".j.j.w:k.3:.450@]T.A.3072.40.j.k,.(a$). 63:. 2048.40.j.k,15:k.k.1@FT.A.450@LT.A.@RT.A.@.THB.j.1.12:.x$:.@.TRB.n@.T£B.j.1.d@.T&B.x$:.y$@.T0Bx$.x$.y$:.y$@.T:B. j@.TdB.@.TnB."SQQQQQQQQQQQQQQQQ]]]....";   @.TxBa$.""@.T]B. 239,0@OUBB.q$:.q$."". 610@#ULB..(q$)..20 .650@2UVB.a$."".610@xU.B.".... ..";:a$..(a$,.(a$).1):.610@SU.B..(q$).13 . ." ":. 690@.U.B. q$."0" . (q$."9" . q$."a"). q$."z" . 610@.U.B.q$;"....";@.U.Ba$.a$.q$:.610@.U.Bp..(a$):. p.0.590@.U.B..(.(a$,1))..32.730@EV.Ba$..(a$,1,p.1)@NV.B.690@%V.B. .(y$,1).."%".780@-V.Bp.2@lV.B..(y$,p,1).."-".p.p.1:.750@.V.B..(a$)...(.(y$,2,p.1))..(a$)...(.(y$,p.1,.(y$))) .840@.VBCr.0:.@.VLCp.1@.VVC..(y$,p,1)."#".770@.V Cq.p@.V*C..(y$,q,1).."%".q.q.1:.810@.V4C..(y$,p,q.p).a$.840@.V>Cp.q.1:.790@HWhC:r.1:.@NWrC.@(W£Cs.6.(1.r)..(6..(1)).1@9WFC.j.1.s:.z$:.@xWPC."SQQQQQQQQQQQQQQQQQ]]";z$@IWZC.t..2 . .960@.W.C."]]the right answer is":."]]";@.W.C. .(y$,1)."%".950@.W.Cp.1@.W.C..(y$,p,1)."%"..960@.W.C..(y$,p,1);:p.p.1:.930@.W.C..(y$,2,.(y$)):.960@*X.C."SQQQQQQQQQQQQQQQQQQQQQ]   now type any key":.@8X.Cx$."abcd"@@X.C.y$@pX.C.x$.y$.1010@.X.C."no":.970@JX.C."yes"@PX.C.@.XFD.yes,correct,right,good,"that's right",ok@.XPD.no,wrong,"that's wrong",not right,"no-that's wrong",incorrect@.XZD.9@-Y$D."  is%       x+1=x% a legal basic command?","% a) yes% b) no%#"@=Y.D."b%n%no%#"@.Y8D."  how fast is the commodore 16%%(commands per second)%%a rough figure@.YbD." will do%#","%50-150#"@.YlD."   how many commands can the%%machine remember at the same time?%%a) a@>ZvD."s many as you need%%b) ten%%c) as many as fit in the store%%#","c%#"@.Z.D."commands are kept%%a) in the order they are typed%b) in ascending sequ"@.ZJD."ence%   of label number%c) neither of these%#","b%#"@Q[TD."   every label number must end%with a zero.%%   true  or  false ?%"@'[.D."%#","false%f%#"@T[.D."how can you slow the computer down?%%a) by typing r u n very slowly%%"@.[.D."b) with the commodore key%%c) by holding down  space %%#","b%commodore%#"@O£.D."   a semicolon after a string%means%a) start a new line%b) don't st"@j£.D."art a new line%c) restart the present line%%#","b%#"@.£.D."   a variable can hold%a) just one value%b) many values,one after"@.£.D."%the other%c) many values at the same time%#","b%#"@I].D."   is%%     let g = g + 5%%a proper basic command ?%"@0].D."a) yes%b) no%#","a%yes%y%true%#"@@@
00000000  13 10 0a 00 8f 20 55 4e  49 54 35 51 55 49 5a 36  |..... UNIT5QUIZ6|
00000010  34 00 39 10 14 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 19 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  1e 00 99 22 93 11 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 28 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  32 00 99 22 20 20 20 47  |Y TO"...2.."   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  3c 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 0e 11 46  |W YOUR REPLY...F|
000000f0  00 99 22 20 20 20 57 49  54 48 20 54 48 45 20 20  |.."   WITH THE  |
00000100  52 45 54 55 52 4e 20 20  4b 45 59 22 00 27 11 50  |RETURN  KEY".'.P|
00000110  00 99 3a 99 3a 99 22 20  20 20 47 4f 4f 44 20 4c  |..:.:."   GOOD L|
00000120  55 43 4b 21 22 00 39 11  5a 00 81 4a b2 31 a4 31  |UCK!".9.Z..J.1.1|
00000130  32 3a 87 59 24 3a 82 00  40 11 64 00 87 4e 00 4a  |2:.Y$:..@.d..N.J|
00000140  11 6e 00 86 5a 28 4e 29  00 5e 11 78 00 81 4a b2  |.n..Z(N).^.x..J.|
00000150  31 a4 4e 3a 5a 28 4e 29  b2 30 3a 82 00 67 11 82  |1.N:Z(N).0:..g..|
00000160  00 53 43 b2 30 00 72 11  8c 00 81 4a b2 31 a4 4e  |.SC.0.r....J.1.N|
00000170  00 84 11 96 00 8b 5a 28  4a 29 b1 b2 30 a7 20 32  |......Z(J)..0. 2|
00000180  32 30 00 8b 11 a0 00 82  4a 00 ac 11 aa 00 99 22  |20......J......"|
00000190  1c 93 11 20 20 20 20 20  20 20 20 20 59 4f 55 20  |...         YOU |
000001a0  53 43 4f 52 45 44 22 3b  53 43 00 cf 11 b4 00 99  |SCORED";SC......|
000001b0  3a 99 22 20 20 20 20 51  55 45 53 54 49 4f 4e 53  |:."    QUESTIONS|
000001c0  20 52 49 47 48 54 20 46  49 52 53 54 22 00 ea 11  | RIGHT FIRST"...|
000001d0  be 00 99 3a 99 22 20 20  20 20 54 49 4d 45 20 4f  |...:."    TIME O|
000001e0  55 54 20 4f 46 22 3b 4e  00 19 12 c8 00 99 3a 99  |UT OF";N......:.|
000001f0  22 20 20 20 20 54 48 49  53 20 49 53 22 3b b5 28  |"    THIS IS";.(|
00000200  31 30 30 ac 53 43 ad 4e  aa 30 2e 35 29 3b 22 50  |100.SC.N.0.5);"P|
00000210  45 52 43 45 4e 54 22 00  1f 12 d2 00 80 00 31 12  |ERCENT".......1.|
00000220  dc 00 44 b2 31 aa b5 28  4e ac bb 28 31 29 29 00  |..D.1..(N..(1)).|
00000230  43 12 e6 00 8b 20 5a 28  44 29 b2 ab 31 a7 32 32  |C.... Z(D)..1.22|
00000240  30 00 50 12 f0 00 43 b2  5a 28 44 29 aa 31 00 59  |0.P...C.Z(D).1.Y|
00000250  12 fa 00 8d 35 31 30 00  64 12 04 01 81 54 b2 31  |....510.d....T.1|
00000260  a4 33 00 70 12 09 01 97  20 32 33 39 2c 30 00 83  |.3.p.... 239,0..|
00000270  12 0e 01 a1 41 24 3a 8b  41 24 b2 22 22 a7 32 37  |....A$:.A$."".27|
00000280  30 00 8c 12 18 01 8d 33  37 30 00 95 12 22 01 8d  |0......370..."..|
00000290  35 39 30 00 9e 12 2c 01  8d 38 35 30 00 bb 12 36  |590...,..850...6|
000002a0  01 8b 52 b2 31 af 54 b2  31 af 5a 28 44 29 b2 30  |..R.1.T.1.Z(D).0|
000002b0  a7 20 53 43 b2 53 43 aa  31 00 d9 12 40 01 8b 20  |. SC.SC.1...@.. |
000002c0  52 b2 31 20 af 20 54 b2  31 20 a7 5a 28 44 29 b2  |R.1 . T.1 .Z(D).|
000002d0  ab 31 3a 89 33 36 30 00  e9 12 4a 01 8b 20 52 b2  |.1:.360...J.. R.|
000002e0  31 20 a7 20 33 35 30 00  f0 12 54 01 82 54 00 05  |1 . 350...T..T..|
000002f0  13 5e 01 5a 28 44 29 b2  5a 28 44 29 aa 31 3a 89  |.^.Z(D).Z(D).1:.|
00000300  31 34 30 00 0e 13 68 01  89 31 34 30 00 17 13 72  |140...h..140...r|
00000310  01 99 22 93 22 00 20 13  7c 01 99 22 93 22 00 45  |..".". .|..".".E|
00000320  13 86 01 81 4a b2 30 a4  33 39 3a 97 33 30 37 32  |....J.0.39:.3072|
00000330  aa 4a 2c 31 36 30 3a 97  20 32 30 34 38 aa 4a 2c  |.J,160:. 2048.J,|
00000340  43 3a 82 00 6e 13 90 01  81 4a b2 30 a4 39 32 30  |C:..n....J.0.920|
00000350  a9 34 30 3a 97 33 31 35  31 aa 4a 2c 31 36 30 3a  |.40:.3151.J,160:|
00000360  97 20 32 31 32 37 aa 4a  2c 43 3a 82 00 96 13 9a  |. 2127.J,C:.....|
00000370  01 81 4a b2 33 39 a4 30  a9 ab 31 3a 97 34 30 33  |..J.39.0..1:.403|
00000380  32 aa 4a 2c 31 36 30 3a  97 20 33 30 30 38 aa 4a  |2.J,160:. 3008.J|
00000390  2c 43 3a 82 00 c0 13 a4  01 81 4a b2 39 32 30 a4  |,C:.......J.920.|
000003a0  30 a9 ab 34 30 3a 97 33  31 31 32 aa 4a 2c 31 36  |0..40:.3112.J,16|
000003b0  30 3a 97 20 32 30 38 38  aa 4a 2c 43 3a 82 00 d7  |0:. 2088.J,C:...|
000003c0  13 ae 01 57 b2 32 3a 8b  c3 28 58 24 29 b1 31 32  |...W.2:..(X$).12|
000003d0  30 a7 57 b2 31 00 e8 13  b8 01 50 b2 31 3a 4a b2  |0.W.1.....P.1:J.|
000003e0  33 3a 20 4b b2 33 00 ff  13 c2 01 41 24 b2 ca 28  |3: K.3.....A$..(|
000003f0  58 24 2c 50 2c 31 29 3a  50 b2 50 aa 31 00 10 14  |X$,P,1):P.P.1...|
00000400  cc 01 8b 41 24 b2 22 23  22 a7 20 35 30 30 00 2b  |...A$."#". 500.+|
00000410  14 d6 01 8b 41 24 b2 22  25 22 a7 4a b2 4a aa 57  |....A$."%".J.J.W|
00000420  3a 4b b2 33 3a 89 34 35  30 00 5d 14 e0 01 97 33  |:K.3:.450.]....3|
00000430  30 37 32 aa 34 30 ac 4a  aa 4b 2c c6 28 41 24 29  |072.40.J.K,.(A$)|
00000440  af 20 36 33 3a 97 20 32  30 34 38 aa 34 30 ac 4a  |. 63:. 2048.40.J|
00000450  aa 4b 2c 31 35 3a 4b b2  4b aa 31 00 66 14 ea 01  |.K,15:K.K.1.f...|
00000460  89 34 35 30 00 6c 14 f4  01 8e 00 72 14 fe 01 8c  |.450.l.....r....|
00000470  00 84 14 08 02 81 4a b2  31 a4 31 32 3a 87 58 24  |......J.1.12:.X$|
00000480  3a 82 00 8b 14 12 02 87  4e 00 96 14 1c 02 81 4a  |:.......N......J|
00000490  b2 31 a4 44 00 a2 14 26  02 87 58 24 3a 87 59 24  |.1.D...&..X$:.Y$|
000004a0  00 b3 14 30 02 58 24 b2  58 24 aa 59 24 3a 87 59  |...0.X$.X$.Y$:.Y|
000004b0  24 00 bb 14 3a 02 82 20  4a 00 c1 14 44 02 8e 00  |$...:.. J...D...|
000004c0  e5 14 4e 02 99 22 13 11  11 11 11 11 11 11 11 11  |..N.."..........|
000004d0  11 11 11 11 11 11 11 1d  1d 1d 82 a6 84 9d 22 3b  |..............";|
000004e0  20 20 20 00 ef 14 58 02  41 24 b2 22 22 00 fb 14  |   ...X.A$.""...|
000004f0  5d 02 97 20 32 33 39 2c  30 00 0f 15 62 02 a1 51  |].. 239,0...b..Q|
00000500  24 3a 8b 51 24 b2 22 22  a7 20 36 31 30 00 23 15  |$:.Q$."". 610.#.|
00000510  6c 02 8b c6 28 51 24 29  b3 b1 32 30 20 a7 36 35  |l...(Q$)..20 .65|
00000520  30 00 32 15 76 02 8b 41  24 b2 22 22 a7 36 31 30  |0.2.v..A$."".610|
00000530  00 58 15 80 02 99 22 9d  82 a6 84 20 9d 9d 22 3b  |.X....".... ..";|
00000540  3a 41 24 b2 c8 28 41 24  2c c3 28 41 24 29 ab 31  |:A$..(A$,.(A$).1|
00000550  29 3a 89 36 31 30 00 73  15 8a 02 8b c6 28 51 24  |):.610.s.....(Q$|
00000560  29 b2 31 33 20 a7 20 99  22 20 22 3a 89 20 36 39  |).13 . ." ":. 69|
00000570  30 00 a2 15 94 02 8b 20  51 24 b3 22 30 22 20 b0  |0...... Q$."0" .|
00000580  20 28 51 24 b1 22 39 22  20 af 20 51 24 b3 22 41  | (Q$."9" . Q$."A|
00000590  22 29 b0 20 51 24 b1 22  5a 22 20 a7 20 36 31 30  |"). Q$."Z" . 610|
000005a0  00 b2 15 9e 02 99 51 24  3b 22 82 a6 84 9d 22 3b  |......Q$;"....";|
000005b0  00 c4 15 a8 02 41 24 b2  41 24 aa 51 24 3a 89 36  |.....A$.A$.Q$:.6|
000005c0  31 30 00 da 15 b2 02 50  b2 c3 28 41 24 29 3a 8b  |10.....P..(A$):.|
000005d0  20 50 b2 30 a7 35 39 30  00 f2 15 bc 02 8b c6 28  | P.0.590.......(|
000005e0  c9 28 41 24 2c 31 29 29  b3 b1 33 32 a7 37 33 30  |.(A$,1))..32.730|
000005f0  00 05 16 c6 02 41 24 b2  ca 28 41 24 2c 31 2c 50  |.....A$..(A$,1,P|
00000600  ab 31 29 00 0e 16 d0 02  89 36 39 30 00 25 16 da  |.1)......690.%..|
00000610  02 8b 20 c8 28 59 24 2c  31 29 b3 b1 22 25 22 a7  |.. .(Y$,1).."%".|
00000620  37 38 30 00 2d 16 e4 02  50 b2 32 00 4c 16 ee 02  |780.-...P.2.L...|
00000630  8b ca 28 59 24 2c 50 2c  31 29 b3 b1 22 2d 22 a7  |..(Y$,P,1).."-".|
00000640  50 b2 50 aa 31 3a 89 37  35 30 00 86 16 f8 02 8b  |P.P.1:.750......|
00000650  c5 28 41 24 29 b1 b2 c5  28 ca 28 59 24 2c 32 2c  |.(A$)...(.(Y$,2,|
00000660  50 ab 31 29 29 af c5 28  41 24 29 b3 b2 c5 28 ca  |P.1))..(A$)...(.|
00000670  28 59 24 2c 50 aa 31 2c  c3 28 59 24 29 29 29 20  |(Y$,P.1,.(Y$))) |
00000680  a7 38 34 30 00 90 16 02  03 52 b2 30 3a 8e 00 98  |.840.....R.0:...|
00000690  16 0c 03 50 b2 31 00 af  16 16 03 8b ca 28 59 24  |...P.1.......(Y$|
000006a0  2c 50 2c 31 29 b2 22 23  22 a7 37 37 30 00 b7 16  |,P,1)."#".770...|
000006b0  20 03 51 b2 50 00 d6 16  2a 03 8b ca 28 59 24 2c  | .Q.P...*...(Y$,|
000006c0  51 2c 31 29 b3 b1 22 25  22 a7 51 b2 51 aa 31 3a  |Q,1).."%".Q.Q.1:|
000006d0  89 38 31 30 00 ee 16 34  03 8b ca 28 59 24 2c 50  |.810...4...(Y$,P|
000006e0  2c 51 ab 50 29 b2 41 24  a7 38 34 30 00 fd 16 3e  |,Q.P).A$.840...>|
000006f0  03 50 b2 51 aa 31 3a 89  37 39 30 00 08 17 48 03  |.P.Q.1:.790...H.|
00000700  3a 52 b2 31 3a 8e 00 0e  17 52 03 8c 00 28 17 5c  |:R.1:....R...(.\|
00000710  03 53 b2 36 ac 28 31 ab  52 29 aa b5 28 36 ac bb  |.S.6.(1.R)..(6..|
00000720  28 31 29 29 aa 31 00 39  17 66 03 81 4a b2 31 a4  |(1)).1.9.f..J.1.|
00000730  53 3a 87 5a 24 3a 82 00  58 17 70 03 99 22 13 11  |S:.Z$:..X.p.."..|
00000740  11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000750  1d 1d 22 3b 5a 24 00 69  17 7a 03 8b 54 b3 b2 32  |..";Z$.i.z..T..2|
00000760  20 a7 20 89 39 36 30 00  8d 17 84 03 99 22 1d 1d  | . .960......"..|
00000770  54 48 45 20 52 49 47 48  54 20 41 4e 53 57 45 52  |THE RIGHT ANSWER|
00000780  20 49 53 22 3a 99 22 1d  1d 22 3b 00 a3 17 8e 03  | IS":."..";.....|
00000790  8b 20 c8 28 59 24 2c 31  29 b2 22 25 22 a7 39 35  |. .(Y$,1)."%".95|
000007a0  30 00 ab 17 98 03 50 b2  31 00 c3 17 a2 03 8b ca  |0.....P.1.......|
000007b0  28 59 24 2c 50 2c 31 29  b2 22 25 22 a7 89 39 36  |(Y$,P,1)."%"..96|
000007c0  30 00 de 17 ac 03 99 ca  28 59 24 2c 50 2c 31 29  |0.......(Y$,P,1)|
000007d0  3b 3a 50 b2 50 aa 31 3a  89 39 33 30 00 f6 17 b6  |;:P.P.1:.930....|
000007e0  03 99 ca 28 59 24 2c 32  2c c3 28 59 24 29 29 3a  |...(Y$,2,.(Y$)):|
000007f0  89 39 36 30 00 2a 18 c0  03 99 22 13 11 11 11 11  |.960.*....".....|
00000800  11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000810  11 1d 20 20 20 4e 4f 57  20 54 59 50 45 20 41 4e  |..   NOW TYPE AN|
00000820  59 20 4b 45 59 22 3a 8e  00 38 18 ca 03 58 24 b2  |Y KEY":..8...X$.|
00000830  22 41 42 43 44 22 00 40  18 d4 03 85 59 24 00 50  |"ABCD".@....Y$.P|
00000840  18 de 03 8b 58 24 b2 59  24 a7 31 30 31 30 00 5f  |....X$.Y$.1010._|
00000850  18 e8 03 99 22 4e 4f 22  3a 89 39 37 30 00 6a 18  |...."NO":.970.j.|
00000860  f2 03 99 22 59 45 53 22  00 70 18 fc 03 90 00 9e  |..."YES".p......|
00000870  18 06 04 83 59 45 53 2c  43 4f 52 52 45 43 54 2c  |....YES,CORRECT,|
00000880  52 49 47 48 54 2c 47 4f  4f 44 2c 22 54 48 41 54  |RIGHT,GOOD,"THAT|
00000890  27 53 20 52 49 47 48 54  22 2c 4f 4b 00 e1 18 10  |'S RIGHT",OK....|
000008a0  04 83 4e 4f 2c 57 52 4f  4e 47 2c 22 54 48 41 54  |..NO,WRONG,"THAT|
000008b0  27 53 20 57 52 4f 4e 47  22 2c 4e 4f 54 20 52 49  |'S WRONG",NOT RI|
000008c0  47 48 54 2c 22 4e 4f 2d  54 48 41 54 27 53 20 57  |GHT,"NO-THAT'S W|
000008d0  52 4f 4e 47 22 2c 49 4e  43 4f 52 52 45 43 54 00  |RONG",INCORRECT.|
000008e0  e8 18 1a 04 83 39 00 2d  19 24 04 83 22 20 20 49  |.....9.-.$.."  I|
000008f0  53 25 20 20 20 20 20 20  20 58 2b 31 3d 58 25 20  |S%       X+1=X% |
00000900  41 20 4c 45 47 41 4c 20  42 41 53 49 43 20 43 4f  |A LEGAL BASIC CO|
00000910  4d 4d 41 4e 44 3f 22 2c  22 25 20 41 29 20 59 45  |MMAND?","% A) YE|
00000920  53 25 20 42 29 20 4e 4f  25 23 22 00 3d 19 2e 04  |S% B) NO%#".=...|
00000930  83 22 42 25 4e 25 4e 4f  25 23 22 00 89 19 38 04  |."B%N%NO%#"...8.|
00000940  83 22 20 20 48 4f 57 20  46 41 53 54 20 49 53 20  |."  HOW FAST IS |
00000950  54 48 45 20 43 4f 4d 4d  4f 44 4f 52 45 20 31 36  |THE COMMODORE 16|
00000960  25 25 28 43 4f 4d 4d 41  4e 44 53 20 50 45 52 20  |%%(COMMANDS PER |
00000970  53 45 43 4f 4e 44 29 25  25 41 20 52 4f 55 47 48  |SECOND)%%A ROUGH|
00000980  20 46 49 47 55 52 45 00  a6 19 42 04 83 22 20 57  | FIGURE...B.." W|
00000990  49 4c 4c 20 44 4f 25 23  22 2c 22 25 35 30 2d 31  |ILL DO%#","%50-1|
000009a0  35 30 23 22 00 f3 19 4c  04 83 22 20 20 20 48 4f  |50#"...L.."   HO|
000009b0  57 20 4d 41 4e 59 20 43  4f 4d 4d 41 4e 44 53 20  |W MANY COMMANDS |
000009c0  43 41 4e 20 54 48 45 25  25 4d 41 43 48 49 4e 45  |CAN THE%%MACHINE|
000009d0  20 52 45 4d 45 4d 42 45  52 20 41 54 20 54 48 45  | REMEMBER AT THE|
000009e0  20 53 41 4d 45 20 54 49  4d 45 3f 25 25 41 29 20  | SAME TIME?%%A) |
000009f0  41 00 3e 1a 56 04 83 22  53 20 4d 41 4e 59 20 41  |A.>.V.."S MANY A|
00000a00  53 20 59 4f 55 20 4e 45  45 44 25 25 42 29 20 54  |S YOU NEED%%B) T|
00000a10  45 4e 25 25 43 29 20 41  53 20 4d 41 4e 59 20 41  |EN%%C) AS MANY A|
00000a20  53 20 46 49 54 20 49 4e  20 54 48 45 20 53 54 4f  |S FIT IN THE STO|
00000a30  52 45 25 25 23 22 2c 22  43 25 23 22 00 8c 1a 60  |RE%%#","C%#"...`|
00000a40  04 83 22 43 4f 4d 4d 41  4e 44 53 20 41 52 45 20  |.."COMMANDS ARE |
00000a50  4b 45 50 54 25 25 41 29  20 49 4e 20 54 48 45 20  |KEPT%%A) IN THE |
00000a60  4f 52 44 45 52 20 54 48  45 59 20 41 52 45 20 54  |ORDER THEY ARE T|
00000a70  59 50 45 44 25 42 29 20  49 4e 20 41 53 43 45 4e  |YPED%B) IN ASCEN|
00000a80  44 49 4e 47 20 53 45 51  55 22 00 c7 1a 6a 04 83  |DING SEQU"...j..|
00000a90  22 45 4e 43 45 25 20 20  20 4f 46 20 4c 41 42 45  |"ENCE%   OF LABE|
00000aa0  4c 20 4e 55 4d 42 45 52  25 43 29 20 4e 45 49 54  |L NUMBER%C) NEIT|
00000ab0  48 45 52 20 4f 46 20 54  48 45 53 45 25 23 22 2c  |HER OF THESE%#",|
00000ac0  22 42 25 23 22 00 11 1b  74 04 83 22 20 20 20 45  |"B%#"...t.."   E|
00000ad0  56 45 52 59 20 4c 41 42  45 4c 20 4e 55 4d 42 45  |VERY LABEL NUMBE|
00000ae0  52 20 4d 55 53 54 20 45  4e 44 25 57 49 54 48 20  |R MUST END%WITH |
00000af0  41 20 5a 45 52 4f 2e 25  25 20 20 20 54 52 55 45  |A ZERO.%%   TRUE|
00000b00  20 20 4f 52 20 20 46 41  4c 53 45 20 3f 25 22 00  |  OR  FALSE ?%".|
00000b10  27 1b 7e 04 83 22 25 23  22 2c 22 46 41 4c 53 45  |'.~.."%#","FALSE|
00000b20  25 46 25 23 22 00 74 1b  88 04 83 22 48 4f 57 20  |%F%#".t...."HOW |
00000b30  43 41 4e 20 59 4f 55 20  53 4c 4f 57 20 54 48 45  |CAN YOU SLOW THE|
00000b40  20 43 4f 4d 50 55 54 45  52 20 44 4f 57 4e 3f 25  | COMPUTER DOWN?%|
00000b50  25 41 29 20 42 59 20 54  59 50 49 4e 47 20 52 20  |%A) BY TYPING R |
00000b60  55 20 4e 20 56 45 52 59  20 53 4c 4f 57 4c 59 25  |U N VERY SLOWLY%|
00000b70  25 22 00 c4 1b 92 04 83  22 42 29 20 57 49 54 48  |%"......"B) WITH|
00000b80  20 54 48 45 20 43 4f 4d  4d 4f 44 4f 52 45 20 4b  | THE COMMODORE K|
00000b90  45 59 25 25 43 29 20 42  59 20 48 4f 4c 44 49 4e  |EY%%C) BY HOLDIN|
00000ba0  47 20 44 4f 57 4e 20 20  53 50 41 43 45 20 25 25  |G DOWN  SPACE %%|
00000bb0  23 22 2c 22 42 25 43 4f  4d 4d 4f 44 4f 52 45 25  |#","B%COMMODORE%|
00000bc0  23 22 00 0f 1c 9c 04 83  22 20 20 20 41 20 53 45  |#"......"   A SE|
00000bd0  4d 49 43 4f 4c 4f 4e 20  41 46 54 45 52 20 41 20  |MICOLON AFTER A |
00000be0  53 54 52 49 4e 47 25 4d  45 41 4e 53 25 41 29 20  |STRING%MEANS%A) |
00000bf0  53 54 41 52 54 20 41 20  4e 45 57 20 4c 49 4e 45  |START A NEW LINE|
00000c00  25 42 29 20 44 4f 4e 27  54 20 53 54 22 00 4a 1c  |%B) DON'T ST".J.|
00000c10  a6 04 83 22 41 52 54 20  41 20 4e 45 57 20 4c 49  |..."ART A NEW LI|
00000c20  4e 45 25 43 29 20 52 45  53 54 41 52 54 20 54 48  |NE%C) RESTART TH|
00000c30  45 20 50 52 45 53 45 4e  54 20 4c 49 4e 45 25 25  |E PRESENT LINE%%|
00000c40  23 22 2c 22 42 25 23 22  00 93 1c b0 04 83 22 20  |#","B%#"......" |
00000c50  20 20 41 20 56 41 52 49  41 42 4c 45 20 43 41 4e  |  A VARIABLE CAN|
00000c60  20 48 4f 4c 44 25 41 29  20 4a 55 53 54 20 4f 4e  | HOLD%A) JUST ON|
00000c70  45 20 56 41 4c 55 45 25  42 29 20 4d 41 4e 59 20  |E VALUE%B) MANY |
00000c80  56 41 4c 55 45 53 2c 4f  4e 45 20 41 46 54 45 52  |VALUES,ONE AFTER|
00000c90  22 00 cd 1c ba 04 83 22  25 54 48 45 20 4f 54 48  |"......"%THE OTH|
00000ca0  45 52 25 43 29 20 4d 41  4e 59 20 56 41 4c 55 45  |ER%C) MANY VALUE|
00000cb0  53 20 41 54 20 54 48 45  20 53 41 4d 45 20 54 49  |S AT THE SAME TI|
00000cc0  4d 45 25 23 22 2c 22 42  25 23 22 00 09 1d c4 04  |ME%#","B%#".....|
00000cd0  83 22 20 20 20 49 53 25  25 20 20 20 20 20 4c 45  |."   IS%%     LE|
00000ce0  54 20 47 20 3d 20 47 20  2b 20 35 25 25 41 20 50  |T G = G + 5%%A P|
00000cf0  52 4f 50 45 52 20 42 41  53 49 43 20 43 4f 4d 4d  |ROPER BASIC COMM|
00000d00  41 4e 44 20 3f 25 22 00  30 1d ce 04 83 22 41 29  |AND ?%".0...."A)|
00000d10  20 59 45 53 25 42 29 20  4e 4f 25 23 22 2c 22 41  | YES%B) NO%#","A|
00000d20  25 59 45 53 25 59 25 54  52 55 45 25 23 22 00 00  |%YES%Y%TRUE%#"..|
00000d30  00                                                |.|
00000d31

© Dominic Ford 2021–2024.

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