BeebDisk/Make100

Home » Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s » BeebDisk/Make100

BeebDisk/Make100

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 » Acorn Computing » 1994 11 subscription disc.adf » 9411s
Filename:	BeebDisk/Make100
Read OK:	✔
File size:	0290 bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s » BeebDisk/Make100
AEW website » mu » mu_5_25_discs_Micro_User_12_09_D-MU12_09.ssd » Make100

File contents

   10 REM Make100 in 35 (or 16) min
   20 REM by Jon Millington
   30 REM (c) Acorn Computing
   40 MODE 7:VDU 23;8202;0;0;0;
   50 N=0
   60 DIM L$(4)
   70 L$(1)="+":L$(2)="-"
   80 L$(3)="*":L$(4)="/"
   90 FOR A%=1 TO 4:A$="1"+L$(A%)+"2"
  100 FOR B%=1 TO 4:B$=A$+L$(B%)+"3"
  110 FOR C%=1 TO 4:C$=B$+L$(C%)+"4"
  120 FOR D%=1 TO 4:D$=C$+L$(D%)+"5"
  130 FOR E%=1 TO 4:E$=D$+L$(E%)+"6"
  140 FOR F%=1 TO 4:F$=E$+L$(F%)+"7"
  150 FOR G%=1 TO 4:G$=F$+L$(G%)+"8"
  160 FOR H%=1 TO 4:H$=G$+L$(H%)+"9"
  170 V=EVAL H$
  180 PRINT TAB(6,N)H$"=";V SPC 12
  190 IF V=100 THEN N=N+1
  200 NEXT H%,G%,F%,E%,D%,C%,B%,A%
  210 PRINT TAB(6,N)SPC 31
  220 
  230 REM To print just answers delete    lines 20, 140, 160, & 180 and replace   line 150 with IF EVAL H$=100 PRINT H$


  � Make100 in 35 (or 16) min
 � by Jon Millington
 � (c) Acorn Computing
( � 7:� 23;8202;0;0;0;
2 N=0
< � L$(4)
F L$(1)="+":L$(2)="-"
P L$(3)="*":L$(4)="/"
Z! � A%=1 � 4:A$="1"+L$(A%)+"2"
d  � B%=1 � 4:B$=A$+L$(B%)+"3"
n  � C%=1 � 4:C$=B$+L$(C%)+"4"
x  � D%=1 � 4:D$=C$+L$(D%)+"5"
�  � E%=1 � 4:E$=D$+L$(E%)+"6"
�  � F%=1 � 4:F$=E$+L$(F%)+"7"
�  � G%=1 � 4:G$=F$+L$(G%)+"8"
�  � H%=1 � 4:H$=G$+L$(H%)+"9"
� V=� H$
� � �6,N)H$"=";V � 12
� � V=100 � N=N+1
� � H%,G%,F%,E%,D%,C%,B%,A%
� � �6,N)� 31
� 
�t � To print just answers delete    lines 20, 140, 160, & 180 and replace   line 150 with IF EVAL H$=100 PRINT H$
�

00000000  0d 00 0a 20 20 f4 20 4d  61 6b 65 31 30 30 20 69  |...  . Make100 i|
00000010  6e 20 33 35 20 28 6f 72  20 31 36 29 20 6d 69 6e  |n 35 (or 16) min|
00000020  0d 00 14 18 20 f4 20 62  79 20 4a 6f 6e 20 4d 69  |.... . by Jon Mi|
00000030  6c 6c 69 6e 67 74 6f 6e  0d 00 1e 1a 20 f4 20 28  |llington.... . (|
00000040  63 29 20 41 63 6f 72 6e  20 43 6f 6d 70 75 74 69  |c) Acorn Computi|
00000050  6e 67 0d 00 28 19 20 eb  20 37 3a ef 20 32 33 3b  |ng..(. . 7:. 23;|
00000060  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 32 08 20  |8202;0;0;0;..2. |
00000070  4e 3d 30 0d 00 3c 0c 20  de 20 4c 24 28 34 29 0d  |N=0..<. . L$(4).|
00000080  00 46 18 20 4c 24 28 31  29 3d 22 2b 22 3a 4c 24  |.F. L$(1)="+":L$|
00000090  28 32 29 3d 22 2d 22 0d  00 50 18 20 4c 24 28 33  |(2)="-"..P. L$(3|
000000a0  29 3d 22 2a 22 3a 4c 24  28 34 29 3d 22 2f 22 0d  |)="*":L$(4)="/".|
000000b0  00 5a 21 20 e3 20 41 25  3d 31 20 b8 20 34 3a 41  |.Z! . A%=1 . 4:A|
000000c0  24 3d 22 31 22 2b 4c 24  28 41 25 29 2b 22 32 22  |$="1"+L$(A%)+"2"|
000000d0  0d 00 64 20 20 e3 20 42  25 3d 31 20 b8 20 34 3a  |..d  . B%=1 . 4:|
000000e0  42 24 3d 41 24 2b 4c 24  28 42 25 29 2b 22 33 22  |B$=A$+L$(B%)+"3"|
000000f0  0d 00 6e 20 20 e3 20 43  25 3d 31 20 b8 20 34 3a  |..n  . C%=1 . 4:|
00000100  43 24 3d 42 24 2b 4c 24  28 43 25 29 2b 22 34 22  |C$=B$+L$(C%)+"4"|
00000110  0d 00 78 20 20 e3 20 44  25 3d 31 20 b8 20 34 3a  |..x  . D%=1 . 4:|
00000120  44 24 3d 43 24 2b 4c 24  28 44 25 29 2b 22 35 22  |D$=C$+L$(D%)+"5"|
00000130  0d 00 82 20 20 e3 20 45  25 3d 31 20 b8 20 34 3a  |...  . E%=1 . 4:|
00000140  45 24 3d 44 24 2b 4c 24  28 45 25 29 2b 22 36 22  |E$=D$+L$(E%)+"6"|
00000150  0d 00 8c 20 20 e3 20 46  25 3d 31 20 b8 20 34 3a  |...  . F%=1 . 4:|
00000160  46 24 3d 45 24 2b 4c 24  28 46 25 29 2b 22 37 22  |F$=E$+L$(F%)+"7"|
00000170  0d 00 96 20 20 e3 20 47  25 3d 31 20 b8 20 34 3a  |...  . G%=1 . 4:|
00000180  47 24 3d 46 24 2b 4c 24  28 47 25 29 2b 22 38 22  |G$=F$+L$(G%)+"8"|
00000190  0d 00 a0 20 20 e3 20 48  25 3d 31 20 b8 20 34 3a  |...  . H%=1 . 4:|
000001a0  48 24 3d 47 24 2b 4c 24  28 48 25 29 2b 22 39 22  |H$=G$+L$(H%)+"9"|
000001b0  0d 00 aa 0b 20 56 3d a0  20 48 24 0d 00 b4 18 20  |.... V=. H$.... |
000001c0  f1 20 8a 36 2c 4e 29 48  24 22 3d 22 3b 56 20 89  |. .6,N)H$"=";V .|
000001d0  20 31 32 0d 00 be 14 20  e7 20 56 3d 31 30 30 20  | 12.... . V=100 |
000001e0  8c 20 4e 3d 4e 2b 31 0d  00 c8 1e 20 ed 20 48 25  |. N=N+1.... . H%|
000001f0  2c 47 25 2c 46 25 2c 45  25 2c 44 25 2c 43 25 2c  |,G%,F%,E%,D%,C%,|
00000200  42 25 2c 41 25 0d 00 d2  10 20 f1 20 8a 36 2c 4e  |B%,A%.... . .6,N|
00000210  29 89 20 33 31 0d 00 dc  05 20 0d 00 e6 74 20 f4  |). 31.... ...t .|
00000220  20 54 6f 20 70 72 69 6e  74 20 6a 75 73 74 20 61  | To print just a|
00000230  6e 73 77 65 72 73 20 64  65 6c 65 74 65 20 20 20  |nswers delete   |
00000240  20 6c 69 6e 65 73 20 32  30 2c 20 31 34 30 2c 20  | lines 20, 140, |
00000250  31 36 30 2c 20 26 20 31  38 30 20 61 6e 64 20 72  |160, & 180 and r|
00000260  65 70 6c 61 63 65 20 20  20 6c 69 6e 65 20 31 35  |eplace   line 15|
00000270  30 20 77 69 74 68 20 49  46 20 45 56 41 4c 20 48  |0 with IF EVAL H|
00000280  24 3d 31 30 30 20 50 52  49 4e 54 20 48 24 0d ff  |$=100 PRINT H$..|
00000290

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