d&�> Multiply Game Basic Programming
n� Author: G.Stanley
x� Version: 1.01
�� Purpose: Multiply Game
�� Date: 01-01-93
�&� CopyRight: Archimedes World 1993
�:
�:
�:
�:
� �screen
� �input
� �
�
 �init
�	 �ask
� �answer

 � Tries%=10

 �6

? �19,0)"Your Score Was"�(2);Score%�(2);"Out Of"�(2);Tries%

" �7

,C �10,29)"Press Any Key To Play Again, Or Press Escape To Quit"

6
 A=�:�

@ �

J:

T Tries%=0:Score%=0

^ ��init

h A%=�(12):B%=�(12)

r �

|:

�
 ��screen

� �12

� �

� �3

�@ �20,0)"(C) Archimedes World 1993"�25,1)"Basic Programming"

� �

�:

� ��input

�/ �2:�15,15);:�" Please Enter Your Name:"A$

�C �15,15)"Hello"�(1);A$�(1)"we are going to play a little game"

� �

�:

�
 ��ask
9 �4:�18,19)"What is"�(2);A%�(2)"Multiplied by"�(2)B%
 �
:
&
 ��answer
04 �18,21)"Enter your answer here !!:"�(2)Answer%
: � Answer% =  A% * B% �
D �5
N4 �18,23)"Well done that is the correct answer:"
X' �8:Tries%=Tries%+1:Score%=Score%+1
b4 �20,29)"Your Score So Far"�(2);Score%:A=�(300)
l: � �1:�17,23)"I am sorry that answer is incorrect":�7
v2 �6:�18,25)"The correct answer is:"�(4);A%*B%
�' �8:Score%=Score%+0:Tries%=Tries%+1
�4 �20,29)"Your Score So Far"�(2);Score%:A=�(300)
� �
� �
� �
�

00000000  0d 00 64 26 f4 3e 20 4d  75 6c 74 69 70 6c 79 20  |..d&.> Multiply |
00000010  47 61 6d 65 20 42 61 73  69 63 20 50 72 6f 67 72  |Game Basic Progr|
00000020  61 6d 6d 69 6e 67 0d 00  6e 17 f4 20 41 75 74 68  |amming..n.. Auth|
00000030  6f 72 3a 20 47 2e 53 74  61 6e 6c 65 79 0d 00 78  |or: G.Stanley..x|
00000040  13 f4 20 56 65 72 73 69  6f 6e 3a 20 31 2e 30 31  |.. Version: 1.01|
00000050  0d 00 82 1c f4 20 50 75  72 70 6f 73 65 3a 20 4d  |..... Purpose: M|
00000060  75 6c 74 69 70 6c 79 20  47 61 6d 65 0d 00 8c 14  |ultiply Game....|
00000070  f4 20 44 61 74 65 3a 20  30 31 2d 30 31 2d 39 33  |. Date: 01-01-93|
00000080  0d 00 96 26 f4 20 43 6f  70 79 52 69 67 68 74 3a  |...&. CopyRight:|
00000090  20 41 72 63 68 69 6d 65  64 65 73 20 57 6f 72 6c  | Archimedes Worl|
000000a0  64 20 31 39 39 33 0d 00  a0 05 3a 0d 00 aa 05 3a  |d 1993....:....:|
000000b0  0d 00 b4 05 3a 0d 00 be  05 3a 0d 00 c8 0c 20 f2  |....:....:.... .|
000000c0  73 63 72 65 65 6e 0d 00  d2 0b 20 f2 69 6e 70 75  |screen.... .inpu|
000000d0  74 0d 00 dc 06 20 f5 0d  00 e6 0a 20 f2 69 6e 69  |t.... ..... .ini|
000000e0  74 0d 00 f0 09 20 f2 61  73 6b 0d 00 fa 0c 20 f2  |t.... .ask.... .|
000000f0  61 6e 73 77 65 72 0d 01  04 10 20 fd 20 54 72 69  |answer.... . Tri|
00000100  65 73 25 3d 31 30 0d 01  0e 07 20 fb 36 0d 01 18  |es%=10.... .6...|
00000110  3f 20 f1 8a 31 39 2c 30  29 22 59 6f 75 72 20 53  |? ..19,0)"Your S|
00000120  63 6f 72 65 20 57 61 73  22 89 28 32 29 3b 53 63  |core Was".(2);Sc|
00000130  6f 72 65 25 89 28 32 29  3b 22 4f 75 74 20 4f 66  |ore%.(2);"Out Of|
00000140  22 89 28 32 29 3b 54 72  69 65 73 25 0d 01 22 07  |".(2);Tries%..".|
00000150  20 fb 37 0d 01 2c 43 20  f1 8a 31 30 2c 32 39 29  | .7..,C ..10,29)|
00000160  22 50 72 65 73 73 20 41  6e 79 20 4b 65 79 20 54  |"Press Any Key T|
00000170  6f 20 50 6c 61 79 20 41  67 61 69 6e 2c 20 4f 72  |o Play Again, Or|
00000180  20 50 72 65 73 73 20 45  73 63 61 70 65 20 54 6f  | Press Escape To|
00000190  20 51 75 69 74 22 0d 01  36 0a 20 41 3d a5 3a f9  | Quit"..6. A=.:.|
000001a0  0d 01 40 06 20 e0 0d 01  4a 05 3a 0d 01 54 16 20  |..@. ...J.:..T. |
000001b0  54 72 69 65 73 25 3d 30  3a 53 63 6f 72 65 25 3d  |Tries%=0:Score%=|
000001c0  30 0d 01 5e 0b 20 dd f2  69 6e 69 74 0d 01 68 16  |0..^. ..init..h.|
000001d0  20 41 25 3d b3 28 31 32  29 3a 42 25 3d b3 28 31  | A%=.(12):B%=.(1|
000001e0  32 29 0d 01 72 06 20 e1  0d 01 7c 05 3a 0d 01 86  |2)..r. ...|.:...|
000001f0  0d 20 dd f2 73 63 72 65  65 6e 0d 01 90 08 20 eb  |. ..screen.... .|
00000200  31 32 0d 01 9a 06 20 87  0d 01 a4 07 20 fb 33 0d  |12.... ..... .3.|
00000210  01 ae 40 20 f1 8a 32 30  2c 30 29 22 28 43 29 20  |..@ ..20,0)"(C) |
00000220  41 72 63 68 69 6d 65 64  65 73 20 57 6f 72 6c 64  |Archimedes World|
00000230  20 31 39 39 33 22 8a 32  35 2c 31 29 22 42 61 73  | 1993".25,1)"Bas|
00000240  69 63 20 50 72 6f 67 72  61 6d 6d 69 6e 67 22 0d  |ic Programming".|
00000250  01 b8 06 20 e1 0d 01 c2  05 3a 0d 01 cc 0c 20 dd  |... .....:.... .|
00000260  f2 69 6e 70 75 74 0d 01  d6 2f 20 fb 32 3a f1 8a  |.input.../ .2:..|
00000270  31 35 2c 31 35 29 3b 3a  e8 22 20 50 6c 65 61 73  |15,15);:." Pleas|
00000280  65 20 45 6e 74 65 72 20  59 6f 75 72 20 4e 61 6d  |e Enter Your Nam|
00000290  65 3a 22 41 24 0d 01 e0  43 20 f1 8a 31 35 2c 31  |e:"A$...C ..15,1|
000002a0  35 29 22 48 65 6c 6c 6f  22 89 28 31 29 3b 41 24  |5)"Hello".(1);A$|
000002b0  89 28 31 29 22 77 65 20  61 72 65 20 67 6f 69 6e  |.(1)"we are goin|
000002c0  67 20 74 6f 20 70 6c 61  79 20 61 20 6c 69 74 74  |g to play a litt|
000002d0  6c 65 20 67 61 6d 65 22  0d 01 ea 06 20 e1 0d 01  |le game".... ...|
000002e0  f4 05 3a 0d 01 fe 0a 20  dd f2 61 73 6b 0d 02 08  |..:.... ..ask...|
000002f0  39 20 fb 34 3a f1 8a 31  38 2c 31 39 29 22 57 68  |9 .4:..18,19)"Wh|
00000300  61 74 20 69 73 22 89 28  32 29 3b 41 25 89 28 32  |at is".(2);A%.(2|
00000310  29 22 4d 75 6c 74 69 70  6c 69 65 64 20 62 79 22  |)"Multiplied by"|
00000320  89 28 32 29 42 25 0d 02  12 06 20 e1 0d 02 1c 05  |.(2)B%.... .....|
00000330  3a 0d 02 26 0d 20 dd f2  61 6e 73 77 65 72 0d 02  |:..&. ..answer..|
00000340  30 34 20 e8 8a 31 38 2c  32 31 29 22 45 6e 74 65  |04 ..18,21)"Ente|
00000350  72 20 79 6f 75 72 20 61  6e 73 77 65 72 20 68 65  |r your answer he|
00000360  72 65 20 21 21 3a 22 89  28 32 29 41 6e 73 77 65  |re !!:".(2)Answe|
00000370  72 25 0d 02 3a 1b 20 e7  20 41 6e 73 77 65 72 25  |r%..:. . Answer%|
00000380  20 3d 20 20 41 25 20 2a  20 42 25 20 8c 0d 02 44  | =  A% * B% ...D|
00000390  07 20 fb 35 0d 02 4e 34  20 f1 8a 31 38 2c 32 33  |. .5..N4 ..18,23|
000003a0  29 22 57 65 6c 6c 20 64  6f 6e 65 20 74 68 61 74  |)"Well done that|
000003b0  20 69 73 20 74 68 65 20  63 6f 72 72 65 63 74 20  | is the correct |
000003c0  61 6e 73 77 65 72 3a 22  0d 02 58 27 20 fb 38 3a  |answer:"..X' .8:|
000003d0  54 72 69 65 73 25 3d 54  72 69 65 73 25 2b 31 3a  |Tries%=Tries%+1:|
000003e0  53 63 6f 72 65 25 3d 53  63 6f 72 65 25 2b 31 0d  |Score%=Score%+1.|
000003f0  02 62 34 20 f1 8a 32 30  2c 32 39 29 22 59 6f 75  |.b4 ..20,29)"You|
00000400  72 20 53 63 6f 72 65 20  53 6f 20 46 61 72 22 89  |r Score So Far".|
00000410  28 32 29 3b 53 63 6f 72  65 25 3a 41 3d a6 28 33  |(2);Score%:A=.(3|
00000420  30 30 29 0d 02 6c 3a 20  cc 20 fb 31 3a f1 8a 31  |00)..l: . .1:..1|
00000430  37 2c 32 33 29 22 49 20  61 6d 20 73 6f 72 72 79  |7,23)"I am sorry|
00000440  20 74 68 61 74 20 61 6e  73 77 65 72 20 69 73 20  | that answer is |
00000450  69 6e 63 6f 72 72 65 63  74 22 3a ef 37 0d 02 76  |incorrect":.7..v|
00000460  32 20 fb 36 3a f1 8a 31  38 2c 32 35 29 22 54 68  |2 .6:..18,25)"Th|
00000470  65 20 63 6f 72 72 65 63  74 20 61 6e 73 77 65 72  |e correct answer|
00000480  20 69 73 3a 22 89 28 34  29 3b 41 25 2a 42 25 0d  | is:".(4);A%*B%.|
00000490  02 80 27 20 fb 38 3a 53  63 6f 72 65 25 3d 53 63  |..' .8:Score%=Sc|
000004a0  6f 72 65 25 2b 30 3a 54  72 69 65 73 25 3d 54 72  |ore%+0:Tries%=Tr|
000004b0  69 65 73 25 2b 31 0d 02  8a 34 20 f1 8a 32 30 2c  |ies%+1...4 ..20,|
000004c0  32 39 29 22 59 6f 75 72  20 53 63 6f 72 65 20 53  |29)"Your Score S|
000004d0  6f 20 46 61 72 22 89 28  32 29 3b 53 63 6f 72 65  |o Far".(2);Score|
000004e0  25 3a 41 3d a6 28 33 30  30 29 0d 02 94 06 20 cd  |%:A=.(300).... .|
000004f0  0d 02 9e 06 20 db 0d 02  a8 06 20 e1 0d ff        |.... ..... ...|
000004fe