Home » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s » BeebDisk/CountM2
BeebDisk/CountM2
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 08 subscription disc.adf » 9408s |
| Filename: | BeebDisk/CountM2 |
| Read OK: | ✔ |
| File size: | 05A8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM CountM2 20 REM by Jon Millington 30 REM (c) Acorn Computing 40 PRINT'"Count Up/Down/Rand? U/D/R" 50 REPEAT Y=GET-68:IF Y=17 Y=9 60 UNTIL Y=9 OR Y=0 OR Y=14 70 INPUT'"Foreground colour? "F 80 INPUT'"Background colour? "X 90 MODE 2 100 VDU 19,F,0;0;19,0,X;0;5 110 FOR Z=0 TO 7 STEP 7 120 PROCP(X,X,X,X,X,X,X) 130 VDU 29,77*Z;20; 140 RESTORE 150 FOR W=1 TO 7 160 READ A,C,D,E,G,H,J,K,L,Q,R,S 170 GCOL 0,W+Z 180 MOVE A,C:MOVE D,E 190 PLOT 85,G,H:PLOT 85,J,K 200 PLOT 85,L,Q:PLOT 85,R,S 210 NEXT W,Z 220 REPEAT 230 FOR V=9-Y TO Y STEP 2*Y/9-1 240 FOR U=9-Y TO Y STEP 2*Y/9-1 250 IF Y=14 V=RND(10)-1:U=RND(10)-1 260 FOR Z=0 TO 7 STEP 7 270 IF Z THEN N=U ELSE N=V 280 IF N=0 PROCP(F,F,F,X,F,F,F) 290 IF N=1 PROCP(X,X,F,X,X,X,F) 300 IF N=2 PROCP(X,F,F,F,F,F,X) 310 IF N=3 PROCP(X,F,F,F,X,F,F) 320 IF N=4 PROCP(F,X,F,F,X,X,F) 330 IF N=5 PROCP(F,F,X,F,X,F,F) 340 IF N=6 PROCP(F,F,X,F,F,F,F) 350 IF N=7 PROCP(X,F,F,X,X,X,F) 360 IF N=8 PROCP(F,F,F,F,F,F,F) 370 IF N=9 PROCP(F,F,F,F,X,F,F) 380 NEXT Z 390 D=INKEY(100-999*(Y=14)) 400 NEXT U,V 410 UNTIL FALSE 420 DEFPROCP(TL,T,TR,M,BL,B,BR) 430 VDU 19,Z+1,TL;0;19,Z+2,T;0; 440 VDU 19,Z+3,TR;0;19,Z+4,M;0; 450 VDU 19,Z+5,BL;0;19,Z+6,B;0; 460 VDU 19,Z+7,BR;0; 470 ENDPROC 480 DATA 184,512,272,564,168,532 490 DATA 312,800,216,852,240,876 500 DATA 240,888,328,800,280,900 510 DATA 496,800,584,900,584,900 520 DATA 552,512,472,568,576,532 530 DATA 512,800,624,852,600,900 540 DATA 272,460,192,508,448,460 550 DATA 288,560,544,508,464,560 560 DATA 120,128,216,200,104,148 570 DATA 256,456,160,484,184,504 580 DATA 128,120,232,200,160,100 590 DATA 400,200,464,100,464,100 600 DATA 480,100,416,200,520,136 610 DATA 456,456,568,484,552,504
� CountM2
� by Jon Millington
� (c) Acorn Computing
(" �'"Count Up/Down/Rand? U/D/R"
2 � Y=�-68:� Y=17 Y=9
< � Y=9 � Y=0 � Y=14
F �'"Foreground colour? "F
P �'"Background colour? "X
Z � 2
d � 19,F,0;0;19,0,X;0;5
n � Z=0 � 7 � 7
x �P(X,X,X,X,X,X,X)
� � 29,77*Z;20;
� �
� � W=1 � 7
� � A,C,D,E,G,H,J,K,L,Q,R,S
� � 0,W+Z
� � A,C:� D,E
� � 85,G,H:� 85,J,K
� � 85,L,Q:� 85,R,S
�
� W,Z
� �
� � V=9-Y � Y � 2*Y/9-1
� � U=9-Y � Y � 2*Y/9-1
� � Y=14 V=�(10)-1:U=�(10)-1
� Z=0 � 7 � 7
� Z � N=U � N=V
� N=0 �P(F,F,F,X,F,F,F)
" � N=1 �P(X,X,F,X,X,X,F)
, � N=2 �P(X,F,F,F,F,F,X)
6 � N=3 �P(X,F,F,F,X,F,F)
@ � N=4 �P(F,X,F,F,X,X,F)
J � N=5 �P(F,F,X,F,X,F,F)
T � N=6 �P(F,F,X,F,F,F,F)
^ � N=7 �P(X,F,F,X,X,X,F)
h � N=8 �P(F,F,F,F,F,F,F)
r � N=9 �P(F,F,F,F,X,F,F)
| � Z
� D=�(100-999*(Y=14))
�
� U,V
� � �
� ��P(TL,T,TR,M,BL,B,BR)
� � 19,Z+1,TL;0;19,Z+2,T;0;
� � 19,Z+3,TR;0;19,Z+4,M;0;
� � 19,Z+5,BL;0;19,Z+6,B;0;
� � 19,Z+7,BR;0;
� �
� � 184,512,272,564,168,532
� � 312,800,216,852,240,876
� � 240,888,328,800,280,900
� � 496,800,584,900,584,900
� 552,512,472,568,576,532
� 512,800,624,852,600,900
� 272,460,192,508,448,460
& � 288,560,544,508,464,560
0 � 120,128,216,200,104,148
: � 256,456,160,484,184,504
D � 128,120,232,200,160,100
N � 400,200,464,100,464,100
X � 480,100,416,200,520,136
b � 456,456,568,484,552,504
� 00000000 0d 00 0a 0e 20 f4 20 43 6f 75 6e 74 4d 32 0d 00 |.... . CountM2..|
00000010 14 18 20 f4 20 62 79 20 4a 6f 6e 20 4d 69 6c 6c |.. . by Jon Mill|
00000020 69 6e 67 74 6f 6e 0d 00 1e 1a 20 f4 20 28 63 29 |ington.... . (c)|
00000030 20 41 63 6f 72 6e 20 43 6f 6d 70 75 74 69 6e 67 | Acorn Computing|
00000040 0d 00 28 22 20 f1 27 22 43 6f 75 6e 74 20 55 70 |..(" .'"Count Up|
00000050 2f 44 6f 77 6e 2f 52 61 6e 64 3f 20 55 2f 44 2f |/Down/Rand? U/D/|
00000060 52 22 0d 00 32 18 20 f5 20 59 3d a5 2d 36 38 3a |R"..2. . Y=.-68:|
00000070 e7 20 59 3d 31 37 20 59 3d 39 0d 00 3c 17 20 fd |. Y=17 Y=9..<. .|
00000080 20 59 3d 39 20 84 20 59 3d 30 20 84 20 59 3d 31 | Y=9 . Y=0 . Y=1|
00000090 34 0d 00 46 1d 20 e8 27 22 46 6f 72 65 67 72 6f |4..F. .'"Foregro|
000000a0 75 6e 64 20 63 6f 6c 6f 75 72 3f 20 22 46 0d 00 |und colour? "F..|
000000b0 50 1d 20 e8 27 22 42 61 63 6b 67 72 6f 75 6e 64 |P. .'"Background|
000000c0 20 63 6f 6c 6f 75 72 3f 20 22 58 0d 00 5a 08 20 | colour? "X..Z. |
000000d0 eb 20 32 0d 00 64 1a 20 ef 20 31 39 2c 46 2c 30 |. 2..d. . 19,F,0|
000000e0 3b 30 3b 31 39 2c 30 2c 58 3b 30 3b 35 0d 00 6e |;0;19,0,X;0;5..n|
000000f0 12 20 e3 20 5a 3d 30 20 b8 20 37 20 88 20 37 0d |. . Z=0 . 7 . 7.|
00000100 00 78 16 20 f2 50 28 58 2c 58 2c 58 2c 58 2c 58 |.x. .P(X,X,X,X,X|
00000110 2c 58 2c 58 29 0d 00 82 12 20 ef 20 32 39 2c 37 |,X,X).... . 29,7|
00000120 37 2a 5a 3b 32 30 3b 0d 00 8c 06 20 f7 0d 00 96 |7*Z;20;.... ....|
00000130 0e 20 e3 20 57 3d 31 20 b8 20 37 0d 00 a0 1e 20 |. . W=1 . 7.... |
00000140 f3 20 41 2c 43 2c 44 2c 45 2c 47 2c 48 2c 4a 2c |. A,C,D,E,G,H,J,|
00000150 4b 2c 4c 2c 51 2c 52 2c 53 0d 00 aa 0c 20 e6 20 |K,L,Q,R,S.... . |
00000160 30 2c 57 2b 5a 0d 00 b4 10 20 ec 20 41 2c 43 3a |0,W+Z.... . A,C:|
00000170 ec 20 44 2c 45 0d 00 be 16 20 f0 20 38 35 2c 47 |. D,E.... . 85,G|
00000180 2c 48 3a f0 20 38 35 2c 4a 2c 4b 0d 00 c8 16 20 |,H:. 85,J,K.... |
00000190 f0 20 38 35 2c 4c 2c 51 3a f0 20 38 35 2c 52 2c |. 85,L,Q:. 85,R,|
000001a0 53 0d 00 d2 0a 20 ed 20 57 2c 5a 0d 00 dc 06 20 |S.... . W,Z.... |
000001b0 f5 0d 00 e6 1a 20 e3 20 56 3d 39 2d 59 20 b8 20 |..... . V=9-Y . |
000001c0 59 20 88 20 32 2a 59 2f 39 2d 31 0d 00 f0 1a 20 |Y . 2*Y/9-1.... |
000001d0 e3 20 55 3d 39 2d 59 20 b8 20 59 20 88 20 32 2a |. U=9-Y . Y . 2*|
000001e0 59 2f 39 2d 31 0d 00 fa 1f 20 e7 20 59 3d 31 34 |Y/9-1.... . Y=14|
000001f0 20 56 3d b3 28 31 30 29 2d 31 3a 55 3d b3 28 31 | V=.(10)-1:U=.(1|
00000200 30 29 2d 31 0d 01 04 12 20 e3 20 5a 3d 30 20 b8 |0)-1.... . Z=0 .|
00000210 20 37 20 88 20 37 0d 01 0e 14 20 e7 20 5a 20 8c | 7 . 7.... . Z .|
00000220 20 4e 3d 55 20 8b 20 4e 3d 56 0d 01 18 1c 20 e7 | N=U . N=V.... .|
00000230 20 4e 3d 30 20 f2 50 28 46 2c 46 2c 46 2c 58 2c | N=0 .P(F,F,F,X,|
00000240 46 2c 46 2c 46 29 0d 01 22 1c 20 e7 20 4e 3d 31 |F,F,F)..". . N=1|
00000250 20 f2 50 28 58 2c 58 2c 46 2c 58 2c 58 2c 58 2c | .P(X,X,F,X,X,X,|
00000260 46 29 0d 01 2c 1c 20 e7 20 4e 3d 32 20 f2 50 28 |F)..,. . N=2 .P(|
00000270 58 2c 46 2c 46 2c 46 2c 46 2c 46 2c 58 29 0d 01 |X,F,F,F,F,F,X)..|
00000280 36 1c 20 e7 20 4e 3d 33 20 f2 50 28 58 2c 46 2c |6. . N=3 .P(X,F,|
00000290 46 2c 46 2c 58 2c 46 2c 46 29 0d 01 40 1c 20 e7 |F,F,X,F,F)..@. .|
000002a0 20 4e 3d 34 20 f2 50 28 46 2c 58 2c 46 2c 46 2c | N=4 .P(F,X,F,F,|
000002b0 58 2c 58 2c 46 29 0d 01 4a 1c 20 e7 20 4e 3d 35 |X,X,F)..J. . N=5|
000002c0 20 f2 50 28 46 2c 46 2c 58 2c 46 2c 58 2c 46 2c | .P(F,F,X,F,X,F,|
000002d0 46 29 0d 01 54 1c 20 e7 20 4e 3d 36 20 f2 50 28 |F)..T. . N=6 .P(|
000002e0 46 2c 46 2c 58 2c 46 2c 46 2c 46 2c 46 29 0d 01 |F,F,X,F,F,F,F)..|
000002f0 5e 1c 20 e7 20 4e 3d 37 20 f2 50 28 58 2c 46 2c |^. . N=7 .P(X,F,|
00000300 46 2c 58 2c 58 2c 58 2c 46 29 0d 01 68 1c 20 e7 |F,X,X,X,F)..h. .|
00000310 20 4e 3d 38 20 f2 50 28 46 2c 46 2c 46 2c 46 2c | N=8 .P(F,F,F,F,|
00000320 46 2c 46 2c 46 29 0d 01 72 1c 20 e7 20 4e 3d 39 |F,F,F)..r. . N=9|
00000330 20 f2 50 28 46 2c 46 2c 46 2c 46 2c 58 2c 46 2c | .P(F,F,F,F,X,F,|
00000340 46 29 0d 01 7c 08 20 ed 20 5a 0d 01 86 18 20 44 |F)..|. . Z.... D|
00000350 3d a6 28 31 30 30 2d 39 39 39 2a 28 59 3d 31 34 |=.(100-999*(Y=14|
00000360 29 29 0d 01 90 0a 20 ed 20 55 2c 56 0d 01 9a 08 |)).... . U,V....|
00000370 20 fd 20 a3 0d 01 a4 1b 20 dd f2 50 28 54 4c 2c | . ..... ..P(TL,|
00000380 54 2c 54 52 2c 4d 2c 42 4c 2c 42 2c 42 52 29 0d |T,TR,M,BL,B,BR).|
00000390 01 ae 1e 20 ef 20 31 39 2c 5a 2b 31 2c 54 4c 3b |... . 19,Z+1,TL;|
000003a0 30 3b 31 39 2c 5a 2b 32 2c 54 3b 30 3b 0d 01 b8 |0;19,Z+2,T;0;...|
000003b0 1e 20 ef 20 31 39 2c 5a 2b 33 2c 54 52 3b 30 3b |. . 19,Z+3,TR;0;|
000003c0 31 39 2c 5a 2b 34 2c 4d 3b 30 3b 0d 01 c2 1e 20 |19,Z+4,M;0;.... |
000003d0 ef 20 31 39 2c 5a 2b 35 2c 42 4c 3b 30 3b 31 39 |. 19,Z+5,BL;0;19|
000003e0 2c 5a 2b 36 2c 42 3b 30 3b 0d 01 cc 13 20 ef 20 |,Z+6,B;0;.... . |
000003f0 31 39 2c 5a 2b 37 2c 42 52 3b 30 3b 0d 01 d6 06 |19,Z+7,BR;0;....|
00000400 20 e1 0d 01 e0 1e 20 dc 20 31 38 34 2c 35 31 32 | ..... . 184,512|
00000410 2c 32 37 32 2c 35 36 34 2c 31 36 38 2c 35 33 32 |,272,564,168,532|
00000420 0d 01 ea 1e 20 dc 20 33 31 32 2c 38 30 30 2c 32 |.... . 312,800,2|
00000430 31 36 2c 38 35 32 2c 32 34 30 2c 38 37 36 0d 01 |16,852,240,876..|
00000440 f4 1e 20 dc 20 32 34 30 2c 38 38 38 2c 33 32 38 |.. . 240,888,328|
00000450 2c 38 30 30 2c 32 38 30 2c 39 30 30 0d 01 fe 1e |,800,280,900....|
00000460 20 dc 20 34 39 36 2c 38 30 30 2c 35 38 34 2c 39 | . 496,800,584,9|
00000470 30 30 2c 35 38 34 2c 39 30 30 0d 02 08 1e 20 dc |00,584,900.... .|
00000480 20 35 35 32 2c 35 31 32 2c 34 37 32 2c 35 36 38 | 552,512,472,568|
00000490 2c 35 37 36 2c 35 33 32 0d 02 12 1e 20 dc 20 35 |,576,532.... . 5|
000004a0 31 32 2c 38 30 30 2c 36 32 34 2c 38 35 32 2c 36 |12,800,624,852,6|
000004b0 30 30 2c 39 30 30 0d 02 1c 1e 20 dc 20 32 37 32 |00,900.... . 272|
000004c0 2c 34 36 30 2c 31 39 32 2c 35 30 38 2c 34 34 38 |,460,192,508,448|
000004d0 2c 34 36 30 0d 02 26 1e 20 dc 20 32 38 38 2c 35 |,460..&. . 288,5|
000004e0 36 30 2c 35 34 34 2c 35 30 38 2c 34 36 34 2c 35 |60,544,508,464,5|
000004f0 36 30 0d 02 30 1e 20 dc 20 31 32 30 2c 31 32 38 |60..0. . 120,128|
00000500 2c 32 31 36 2c 32 30 30 2c 31 30 34 2c 31 34 38 |,216,200,104,148|
00000510 0d 02 3a 1e 20 dc 20 32 35 36 2c 34 35 36 2c 31 |..:. . 256,456,1|
00000520 36 30 2c 34 38 34 2c 31 38 34 2c 35 30 34 0d 02 |60,484,184,504..|
00000530 44 1e 20 dc 20 31 32 38 2c 31 32 30 2c 32 33 32 |D. . 128,120,232|
00000540 2c 32 30 30 2c 31 36 30 2c 31 30 30 0d 02 4e 1e |,200,160,100..N.|
00000550 20 dc 20 34 30 30 2c 32 30 30 2c 34 36 34 2c 31 | . 400,200,464,1|
00000560 30 30 2c 34 36 34 2c 31 30 30 0d 02 58 1e 20 dc |00,464,100..X. .|
00000570 20 34 38 30 2c 31 30 30 2c 34 31 36 2c 32 30 30 | 480,100,416,200|
00000580 2c 35 32 30 2c 31 33 36 0d 02 62 1e 20 dc 20 34 |,520,136..b. . 4|
00000590 35 36 2c 34 35 36 2c 35 36 38 2c 34 38 34 2c 35 |56,456,568,484,5|
000005a0 35 32 2c 35 30 34 0d ff |52,504..|
000005a8 
.