Home » Archimedes archive » Archimedes World » AW-1993-04.adf » AWApril93 » !AWApril93/Goodies/BASICS/!Multiply/!RunImage

!AWApril93/Goodies/BASICS/!Multiply/!RunImage

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 » Archimedes archive » Archimedes World » AW-1993-04.adf » AWApril93
Filename: !AWApril93/Goodies/BASICS/!Multiply/!RunImage
Read OK: ✔
File size: 05DD bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
  100REM> Multiply Game Basic Programming
  110REM Author: G.Stanley
  120REM Version: 1.01
  130REM Purpose: Multiply Game
  140REM Date: 01-01-93
  150REM CopyRight: Archimedes World 1993
  160:
  170 DIM hi$(10)
  180 FOR I%=1 TO 10:hi$(I%)="Archimedes World":NEXT
  190 PROCscreen
  200 PROCinput
  210 REPEAT
  220 PROCinit
  230 PROCask
  240 PROCanswer
  250 UNTIL Tries%=10
  260 PROChigh_Scores
  270 GOTO 190
  280:
  290 DEFPROCinit
  300 A%=RND(12):B%=RND(12):Wait%=300
  310 ENDPROC
  320:
  330 DEFPROCscreen
  340 MODE12
  350 OFF
  360 COLOUR3
  370 PRINTTAB(20,0)"(C) Archimedes World 1993"TAB(25,1)"Basic Programming"
  380 ENDPROC
  390:
  400 DEFPROCinput
  410 COLOUR2:PRINTTAB(15,15);:INPUT" Please Enter Your Name: "NAME$
  420 PRINTTAB(15,15)"Hello"SPC(1);NAME$SPC(1)"we are going to play a little game"
  430 ENDPROC
  440:
  450 DEFPROCask
  460 COLOUR4:PRINTTAB(18,19)"What is"SPC(2);A%SPC(2)"Multiplied by"SPC(2)B%
  470 ENDPROC
  480:
  490 DEFPROCanswer
  500 INPUTTAB(18,21)"Enter your answer here !!:"SPC(2)Answer%
  510 IF Answer% =  A% * B% THEN
  520 COLOUR5
  530 PRINTTAB(18,23)"Well done that is the correct answer:"
  540 COLOUR8:Tries%=Tries%+1:Score%=Score%+1
  550 PRINTTAB(20,29)"Please Wait......":A=INKEY(Wait%)
  560 ELSE COLOUR1:PRINTTAB(17,23)"I am sorry that answer is incorrect":VDU7
  570 COLOUR6:PRINTTAB(18,25)"The correct answer is:"SPC(4);A%*B%
  580 COLOUR8:Score%=Score%+0:Tries%=Tries%+1
  590 PRINTTAB(20,29)"Please Wait......":A=INKEY(Wait%)
  600 ENDIF
  610 CLS
  620 ENDPROC
  630:
  640 DEFPROChigh_Scores
  650 COLOUR6
  660 PRINTTAB(9,0)"Archimedes World High Scores..."
  670 FOR T%=1 TO 10
  680 POSITION%=11-Score%:POSIT%=11-T%
  690 IF Score%=POSIT% THEN hi$(POSITION%)=NAME$:PRINT T%;SPC(5);hi$(POSITION%) ELSE PRINT T%;SPC(5);hi$(T%)
  700 PRINTTAB(31,T%)POSIT%
  710 NEXT
  720 ENDIF
  730 PRINTTAB(0,29)"........Press Any Key To Play Again.......":A=GET
  740 Tries%=0:Score%=0
  750 ENDPROC

d&�> Multiply Game Basic Programming
n� Author: G.Stanley
x� Version: 1.01
�� Purpose: Multiply Game
�� Date: 01-01-93
�&� CopyRight: Archimedes World 1993
�:
� � hi$(10)
�- � I%=1 � 10:hi$(I%)="Archimedes World":�
� �screen
� �input
� �
�
 �init
�	 �ask
� �answer
� � Tries%=10
 �high_Scores
 � �t~@
:
" ��init
,  A%=�(12):B%=�(12):Wait%=300
6 �
@:
J
 ��screen
T �12
^ �
h �3
r@ �20,0)"(C) Archimedes World 1993"�25,1)"Basic Programming"
| �
�:
� ��input
�3 �2:�15,15);:�" Please Enter Your Name: "NAME$
�F �15,15)"Hello"�(1);NAME$�(1)"we are going to play a little game"
� �
�:
�
 ��ask
�9 �4:�18,19)"What is"�(2);A%�(2)"Multiplied by"�(2)B%
� �
�:
�
 ��answer
�4 �18,21)"Enter your answer here !!:"�(2)Answer%
� � Answer% =  A% * B% �
 �5
4 �18,23)"Well done that is the correct answer:"
' �8:Tries%=Tries%+1:Score%=Score%+1
&+ �20,29)"Please Wait......":A=�(Wait%)
0: � �1:�17,23)"I am sorry that answer is incorrect":�7
:2 �6:�18,25)"The correct answer is:"�(4);A%*B%
D' �8:Score%=Score%+0:Tries%=Tries%+1
N+ �20,29)"Please Wait......":A=�(Wait%)
X �
b �
l �
v:
� ��high_Scores
� �6
�, �9,0)"Archimedes World High Scores..."
� � T%=1 � 10
�% POSITION%=11-Score%:POSIT%=11-T%
�X � Score%=POSIT% � hi$(POSITION%)=NAME$:� T%;�(5);hi$(POSITION%) � � T%;�(5);hi$(T%)
� �31,T%)POSIT%
� �
� �
�< �0,29)"........Press Any Key To Play Again.......":A=�
� Tries%=0:Score%=0
� �
�
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 0e 20  |d 1993....:.... |
000000b0  de 20 68 69 24 28 31 30  29 0d 00 b4 2d 20 e3 20  |. hi$(10)...- . |
000000c0  49 25 3d 31 20 b8 20 31  30 3a 68 69 24 28 49 25  |I%=1 . 10:hi$(I%|
000000d0  29 3d 22 41 72 63 68 69  6d 65 64 65 73 20 57 6f  |)="Archimedes Wo|
000000e0  72 6c 64 22 3a ed 0d 00  be 0c 20 f2 73 63 72 65  |rld":..... .scre|
000000f0  65 6e 0d 00 c8 0b 20 f2  69 6e 70 75 74 0d 00 d2  |en.... .input...|
00000100  06 20 f5 0d 00 dc 0a 20  f2 69 6e 69 74 0d 00 e6  |. ..... .init...|
00000110  09 20 f2 61 73 6b 0d 00  f0 0c 20 f2 61 6e 73 77  |. .ask.... .answ|
00000120  65 72 0d 00 fa 10 20 fd  20 54 72 69 65 73 25 3d  |er.... . Tries%=|
00000130  31 30 0d 01 04 11 20 f2  68 69 67 68 5f 53 63 6f  |10.... .high_Sco|
00000140  72 65 73 0d 01 0e 0b 20  e5 20 8d 74 7e 40 0d 01  |res.... . .t~@..|
00000150  18 05 3a 0d 01 22 0b 20  dd f2 69 6e 69 74 0d 01  |..:..". ..init..|
00000160  2c 20 20 41 25 3d b3 28  31 32 29 3a 42 25 3d b3  |,  A%=.(12):B%=.|
00000170  28 31 32 29 3a 57 61 69  74 25 3d 33 30 30 0d 01  |(12):Wait%=300..|
00000180  36 06 20 e1 0d 01 40 05  3a 0d 01 4a 0d 20 dd f2  |6. ...@.:..J. ..|
00000190  73 63 72 65 65 6e 0d 01  54 08 20 eb 31 32 0d 01  |screen..T. .12..|
000001a0  5e 06 20 87 0d 01 68 07  20 fb 33 0d 01 72 40 20  |^. ...h. .3..r@ |
000001b0  f1 8a 32 30 2c 30 29 22  28 43 29 20 41 72 63 68  |..20,0)"(C) Arch|
000001c0  69 6d 65 64 65 73 20 57  6f 72 6c 64 20 31 39 39  |imedes World 199|
000001d0  33 22 8a 32 35 2c 31 29  22 42 61 73 69 63 20 50  |3".25,1)"Basic P|
000001e0  72 6f 67 72 61 6d 6d 69  6e 67 22 0d 01 7c 06 20  |rogramming"..|. |
000001f0  e1 0d 01 86 05 3a 0d 01  90 0c 20 dd f2 69 6e 70  |.....:.... ..inp|
00000200  75 74 0d 01 9a 33 20 fb  32 3a f1 8a 31 35 2c 31  |ut...3 .2:..15,1|
00000210  35 29 3b 3a e8 22 20 50  6c 65 61 73 65 20 45 6e  |5);:." Please En|
00000220  74 65 72 20 59 6f 75 72  20 4e 61 6d 65 3a 20 22  |ter Your Name: "|
00000230  4e 41 4d 45 24 0d 01 a4  46 20 f1 8a 31 35 2c 31  |NAME$...F ..15,1|
00000240  35 29 22 48 65 6c 6c 6f  22 89 28 31 29 3b 4e 41  |5)"Hello".(1);NA|
00000250  4d 45 24 89 28 31 29 22  77 65 20 61 72 65 20 67  |ME$.(1)"we are g|
00000260  6f 69 6e 67 20 74 6f 20  70 6c 61 79 20 61 20 6c  |oing to play a l|
00000270  69 74 74 6c 65 20 67 61  6d 65 22 0d 01 ae 06 20  |ittle game".... |
00000280  e1 0d 01 b8 05 3a 0d 01  c2 0a 20 dd f2 61 73 6b  |.....:.... ..ask|
00000290  0d 01 cc 39 20 fb 34 3a  f1 8a 31 38 2c 31 39 29  |...9 .4:..18,19)|
000002a0  22 57 68 61 74 20 69 73  22 89 28 32 29 3b 41 25  |"What is".(2);A%|
000002b0  89 28 32 29 22 4d 75 6c  74 69 70 6c 69 65 64 20  |.(2)"Multiplied |
000002c0  62 79 22 89 28 32 29 42  25 0d 01 d6 06 20 e1 0d  |by".(2)B%.... ..|
000002d0  01 e0 05 3a 0d 01 ea 0d  20 dd f2 61 6e 73 77 65  |...:.... ..answe|
000002e0  72 0d 01 f4 34 20 e8 8a  31 38 2c 32 31 29 22 45  |r...4 ..18,21)"E|
000002f0  6e 74 65 72 20 79 6f 75  72 20 61 6e 73 77 65 72  |nter your answer|
00000300  20 68 65 72 65 20 21 21  3a 22 89 28 32 29 41 6e  | here !!:".(2)An|
00000310  73 77 65 72 25 0d 01 fe  1b 20 e7 20 41 6e 73 77  |swer%.... . Answ|
00000320  65 72 25 20 3d 20 20 41  25 20 2a 20 42 25 20 8c  |er% =  A% * B% .|
00000330  0d 02 08 07 20 fb 35 0d  02 12 34 20 f1 8a 31 38  |.... .5...4 ..18|
00000340  2c 32 33 29 22 57 65 6c  6c 20 64 6f 6e 65 20 74  |,23)"Well done t|
00000350  68 61 74 20 69 73 20 74  68 65 20 63 6f 72 72 65  |hat is the corre|
00000360  63 74 20 61 6e 73 77 65  72 3a 22 0d 02 1c 27 20  |ct answer:"...' |
00000370  fb 38 3a 54 72 69 65 73  25 3d 54 72 69 65 73 25  |.8:Tries%=Tries%|
00000380  2b 31 3a 53 63 6f 72 65  25 3d 53 63 6f 72 65 25  |+1:Score%=Score%|
00000390  2b 31 0d 02 26 2b 20 f1  8a 32 30 2c 32 39 29 22  |+1..&+ ..20,29)"|
000003a0  50 6c 65 61 73 65 20 57  61 69 74 2e 2e 2e 2e 2e  |Please Wait.....|
000003b0  2e 22 3a 41 3d a6 28 57  61 69 74 25 29 0d 02 30  |.":A=.(Wait%)..0|
000003c0  3a 20 cc 20 fb 31 3a f1  8a 31 37 2c 32 33 29 22  |: . .1:..17,23)"|
000003d0  49 20 61 6d 20 73 6f 72  72 79 20 74 68 61 74 20  |I am sorry that |
000003e0  61 6e 73 77 65 72 20 69  73 20 69 6e 63 6f 72 72  |answer is incorr|
000003f0  65 63 74 22 3a ef 37 0d  02 3a 32 20 fb 36 3a f1  |ect":.7..:2 .6:.|
00000400  8a 31 38 2c 32 35 29 22  54 68 65 20 63 6f 72 72  |.18,25)"The corr|
00000410  65 63 74 20 61 6e 73 77  65 72 20 69 73 3a 22 89  |ect answer is:".|
00000420  28 34 29 3b 41 25 2a 42  25 0d 02 44 27 20 fb 38  |(4);A%*B%..D' .8|
00000430  3a 53 63 6f 72 65 25 3d  53 63 6f 72 65 25 2b 30  |:Score%=Score%+0|
00000440  3a 54 72 69 65 73 25 3d  54 72 69 65 73 25 2b 31  |:Tries%=Tries%+1|
00000450  0d 02 4e 2b 20 f1 8a 32  30 2c 32 39 29 22 50 6c  |..N+ ..20,29)"Pl|
00000460  65 61 73 65 20 57 61 69  74 2e 2e 2e 2e 2e 2e 22  |ease Wait......"|
00000470  3a 41 3d a6 28 57 61 69  74 25 29 0d 02 58 06 20  |:A=.(Wait%)..X. |
00000480  cd 0d 02 62 06 20 db 0d  02 6c 06 20 e1 0d 02 76  |...b. ...l. ...v|
00000490  05 3a 0d 02 80 12 20 dd  f2 68 69 67 68 5f 53 63  |.:.... ..high_Sc|
000004a0  6f 72 65 73 0d 02 8a 07  20 fb 36 0d 02 94 2c 20  |ores.... .6..., |
000004b0  f1 8a 39 2c 30 29 22 41  72 63 68 69 6d 65 64 65  |..9,0)"Archimede|
000004c0  73 20 57 6f 72 6c 64 20  48 69 67 68 20 53 63 6f  |s World High Sco|
000004d0  72 65 73 2e 2e 2e 22 0d  02 9e 10 20 e3 20 54 25  |res...".... . T%|
000004e0  3d 31 20 b8 20 31 30 0d  02 a8 25 20 50 4f 53 49  |=1 . 10...% POSI|
000004f0  54 49 4f 4e 25 3d 31 31  2d 53 63 6f 72 65 25 3a  |TION%=11-Score%:|
00000500  50 4f 53 49 54 25 3d 31  31 2d 54 25 0d 02 b2 58  |POSIT%=11-T%...X|
00000510  20 e7 20 53 63 6f 72 65  25 3d 50 4f 53 49 54 25  | . Score%=POSIT%|
00000520  20 8c 20 68 69 24 28 50  4f 53 49 54 49 4f 4e 25  | . hi$(POSITION%|
00000530  29 3d 4e 41 4d 45 24 3a  f1 20 54 25 3b 89 28 35  |)=NAME$:. T%;.(5|
00000540  29 3b 68 69 24 28 50 4f  53 49 54 49 4f 4e 25 29  |);hi$(POSITION%)|
00000550  20 8b 20 f1 20 54 25 3b  89 28 35 29 3b 68 69 24  | . . T%;.(5);hi$|
00000560  28 54 25 29 0d 02 bc 13  20 f1 8a 33 31 2c 54 25  |(T%).... ..31,T%|
00000570  29 50 4f 53 49 54 25 0d  02 c6 06 20 ed 0d 02 d0  |)POSIT%.... ....|
00000580  06 20 cd 0d 02 da 3c 20  f1 8a 30 2c 32 39 29 22  |. ....< ..0,29)"|
00000590  2e 2e 2e 2e 2e 2e 2e 2e  50 72 65 73 73 20 41 6e  |........Press An|
000005a0  79 20 4b 65 79 20 54 6f  20 50 6c 61 79 20 41 67  |y Key To Play Ag|
000005b0  61 69 6e 2e 2e 2e 2e 2e  2e 2e 22 3a 41 3d a5 0d  |ain.......":A=..|
000005c0  02 e4 16 20 54 72 69 65  73 25 3d 30 3a 53 63 6f  |... Tries%=0:Sco|
000005d0  72 65 25 3d 30 0d 02 ee  06 20 e1 0d ff           |re%=0.... ...|
000005dd

© Dominic Ford 2021–2025.

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