Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape36a_acorn_eu_1992_july.wav » Lever

Lever

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 » Acorn tapes » Electron_User » Electron_User_tape36a_acorn_eu_1992_july.wav
Filename: Lever
Read OK: ✔
File size: 0517 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM > LEVER BALANCING
   20REM THE SAFE SCIENTIST
   30REM (c) The Micro User
   40MODE4
   50VDU19,0,4;0;19,1,3;0;
   60MOVE640,512:DRAW660,480:DRAW620,480:DRAW640,512
   70MOVE200,480:DRAW1080,544
   80X=200+RND(40)*10:M=RND(20)
   90MOVEX,548:DRAWX,700:VDU5:MOVEX-32,750:PRINT;M:VDU4
  100VDU5:MOVE200,400:PRINT"Distance from":MOVE200,300:PRINT"pivot=";640-X
  110MOVE200,900:PRINT"Force=";M
  120Y=1080:F=0
  130MOVEY,544:DRAWY,700:VDU5:MOVEY-32,750:PRINT;F:VDU4
  140VDU5:MOVE700,900:PRINT"Force=":MOVE900,900:PRINT;F
  150VDU5:MOVE700,400:PRINT"Distance from":MOVE700,300:PRINT"pivot=":MOVE900,300:PRINT;Y-640:VDU4
  160Q=Y:R=F:S=1
  170PRINTTAB(5,26)"< and > move position"TAB(5,28)"A and Z change value"
  180REPEAT
  190IF INKEY-1 S=10 ELSE S=1
  200IF INKEY-103 AND Y>650 Q=Y-S
  210IF INKEY-104 AND Y<1080 Q=Y+S
  220IF Q<0 Q=0
  230IF Q>1080 Q=1080
  240IF INKEY-66 AND F<20 R=R+1
  250IF INKEY-98 AND F>0 R=R-1
  260GCOL0,0:MOVEY,548:DRAWY,700:VDU5:MOVEY-32,750:PRINT;F:MOVE900,900:PRINT;F:MOVE900,300:PRINT;Y-640:VDU4
  270Y=Q:F=R:GCOL0,1:MOVEY,548:DRAWY,700:VDU5:MOVEY-32,750:PRINT;F:MOVE900,900:PRINT;F:MOVE900,300:PRINT;Y-640:VDU4
  280IF M*(640-X)=F*(Y-640) PROCbalance
  290IF M*(640-X)>F*(Y-640) PROCleft
  300IF M*(640-X)<F*(Y-640) PROCright
  310TIME=0:REPEATUNTILTIME>2
  320UNTIL0
  330DEFPROCbalance
  340VDU7
  350PRINTTAB(5,26);SPC(21)
  360GCOL0,0:MOVE200,480:DRAW1080,544:MOVE1080,480:DRAW200,544
  370GCOL0,1:MOVE200,512:DRAW1080,512
  380PRINTTAB(5,28)"BALANCED - PRESS SPACE"
  390REPEATUNTILINKEY-99:RUN
  400ENDPROC
  410DEFPROCleft
  420GCOL0,0:MOVE1080,480:DRAW200,544:MOVE200,512:DRAW1080,512
  430GCOL0,1:MOVE200,480:DRAW1080,544
  440ENDPROC
  450DEFPROCright
  460GCOL0,0:MOVE200,480:DRAW1080,544:MOVE200,512:DRAW1080,512
  470GCOL0,1:MOVE1080,480:DRAW200,544
  480ENDPROC


� > LEVER BALANCING
� THE SAFE SCIENTIST
� (c) The Micro User
(�4
2�19,0,4;0;19,1,3;0;
<'�640,512:�660,480:�620,480:�640,512
F�200,480:�1080,544
PX=200+�(40)*10:M=�(20)
Z%�X,548:�X,700:�5:�X-32,750:�;M:�4
d9�5:�200,400:�"Distance from":�200,300:�"pivot=";640-X
n�200,900:�"Force=";M
xY=1080:F=0
�%�Y,544:�Y,700:�5:�Y-32,750:�;F:�4
�&�5:�700,900:�"Force=":�900,900:�;F
�G�5:�700,400:�"Distance from":�700,300:�"pivot=":�900,300:�;Y-640:�4
�Q=Y:R=F:S=1
�>�5,26)"< and > move position"�5,28)"A and Z change value"
��
�� �-1 S=10 � S=1
�� �-103 � Y>650 Q=Y-S
�� �-104 � Y<1080 Q=Y+S
�
� Q<0 Q=0
�� Q>1080 Q=1080
�� �-66 � F<20 R=R+1
�� �-98 � F>0 R=R-1
H�0,0:�Y,548:�Y,700:�5:�Y-32,750:�;F:�900,900:�;F:�900,300:�;Y-640:�4
PY=Q:F=R:�0,1:�Y,548:�Y,700:�5:�Y-32,750:�;F:�900,900:�;F:�900,300:�;Y-640:�4
"� M*(640-X)=F*(Y-640) �balance
"� M*(640-X)>F*(Y-640) �left
, � M*(640-X)<F*(Y-640) �right
6
�=0:���>2
@�0
J
��balance
T�7
^�5,26);�(21)
h.�0,0:�200,480:�1080,544:�1080,480:�200,544
r�0,1:�200,512:�1080,512
|#�5,28)"BALANCED - PRESS SPACE"
����-99:�
��
�
��left
�.�0,0:�1080,480:�200,544:�200,512:�1080,512
��0,1:�200,480:�1080,544
��
���right
�.�0,0:�200,480:�1080,544:�200,512:�1080,512
��0,1:�1080,480:�200,544
��
�
00000000  0d 00 0a 17 f4 20 3e 20  4c 45 56 45 52 20 42 41  |..... > LEVER BA|
00000010  4c 41 4e 43 49 4e 47 0d  00 14 18 f4 20 54 48 45  |LANCING..... THE|
00000020  20 53 41 46 45 20 53 43  49 45 4e 54 49 53 54 0d  | SAFE SCIENTIST.|
00000030  00 1e 18 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.... (c) The Mic|
00000040  72 6f 20 55 73 65 72 0d  00 28 06 eb 34 0d 00 32  |ro User..(..4..2|
00000050  17 ef 31 39 2c 30 2c 34  3b 30 3b 31 39 2c 31 2c  |..19,0,4;0;19,1,|
00000060  33 3b 30 3b 0d 00 3c 27  ec 36 34 30 2c 35 31 32  |3;0;..<'.640,512|
00000070  3a df 36 36 30 2c 34 38  30 3a df 36 32 30 2c 34  |:.660,480:.620,4|
00000080  38 30 3a df 36 34 30 2c  35 31 32 0d 00 46 16 ec  |80:.640,512..F..|
00000090  32 30 30 2c 34 38 30 3a  df 31 30 38 30 2c 35 34  |200,480:.1080,54|
000000a0  34 0d 00 50 1a 58 3d 32  30 30 2b b3 28 34 30 29  |4..P.X=200+.(40)|
000000b0  2a 31 30 3a 4d 3d b3 28  32 30 29 0d 00 5a 25 ec  |*10:M=.(20)..Z%.|
000000c0  58 2c 35 34 38 3a df 58  2c 37 30 30 3a ef 35 3a  |X,548:.X,700:.5:|
000000d0  ec 58 2d 33 32 2c 37 35  30 3a f1 3b 4d 3a ef 34  |.X-32,750:.;M:.4|
000000e0  0d 00 64 39 ef 35 3a ec  32 30 30 2c 34 30 30 3a  |..d9.5:.200,400:|
000000f0  f1 22 44 69 73 74 61 6e  63 65 20 66 72 6f 6d 22  |."Distance from"|
00000100  3a ec 32 30 30 2c 33 30  30 3a f1 22 70 69 76 6f  |:.200,300:."pivo|
00000110  74 3d 22 3b 36 34 30 2d  58 0d 00 6e 18 ec 32 30  |t=";640-X..n..20|
00000120  30 2c 39 30 30 3a f1 22  46 6f 72 63 65 3d 22 3b  |0,900:."Force=";|
00000130  4d 0d 00 78 0e 59 3d 31  30 38 30 3a 46 3d 30 0d  |M..x.Y=1080:F=0.|
00000140  00 82 25 ec 59 2c 35 34  34 3a df 59 2c 37 30 30  |..%.Y,544:.Y,700|
00000150  3a ef 35 3a ec 59 2d 33  32 2c 37 35 30 3a f1 3b  |:.5:.Y-32,750:.;|
00000160  46 3a ef 34 0d 00 8c 26  ef 35 3a ec 37 30 30 2c  |F:.4...&.5:.700,|
00000170  39 30 30 3a f1 22 46 6f  72 63 65 3d 22 3a ec 39  |900:."Force=":.9|
00000180  30 30 2c 39 30 30 3a f1  3b 46 0d 00 96 47 ef 35  |00,900:.;F...G.5|
00000190  3a ec 37 30 30 2c 34 30  30 3a f1 22 44 69 73 74  |:.700,400:."Dist|
000001a0  61 6e 63 65 20 66 72 6f  6d 22 3a ec 37 30 30 2c  |ance from":.700,|
000001b0  33 30 30 3a f1 22 70 69  76 6f 74 3d 22 3a ec 39  |300:."pivot=":.9|
000001c0  30 30 2c 33 30 30 3a f1  3b 59 2d 36 34 30 3a ef  |00,300:.;Y-640:.|
000001d0  34 0d 00 a0 0f 51 3d 59  3a 52 3d 46 3a 53 3d 31  |4....Q=Y:R=F:S=1|
000001e0  0d 00 aa 3e f1 8a 35 2c  32 36 29 22 3c 20 61 6e  |...>..5,26)"< an|
000001f0  64 20 3e 20 6d 6f 76 65  20 70 6f 73 69 74 69 6f  |d > move positio|
00000200  6e 22 8a 35 2c 32 38 29  22 41 20 61 6e 64 20 5a  |n".5,28)"A and Z|
00000210  20 63 68 61 6e 67 65 20  76 61 6c 75 65 22 0d 00  | change value"..|
00000220  b4 05 f5 0d 00 be 14 e7  20 a6 2d 31 20 53 3d 31  |........ .-1 S=1|
00000230  30 20 8b 20 53 3d 31 0d  00 c8 19 e7 20 a6 2d 31  |0 . S=1..... .-1|
00000240  30 33 20 80 20 59 3e 36  35 30 20 51 3d 59 2d 53  |03 . Y>650 Q=Y-S|
00000250  0d 00 d2 1a e7 20 a6 2d  31 30 34 20 80 20 59 3c  |..... .-104 . Y<|
00000260  31 30 38 30 20 51 3d 59  2b 53 0d 00 dc 0d e7 20  |1080 Q=Y+S..... |
00000270  51 3c 30 20 51 3d 30 0d  00 e6 13 e7 20 51 3e 31  |Q<0 Q=0..... Q>1|
00000280  30 38 30 20 51 3d 31 30  38 30 0d 00 f0 17 e7 20  |080 Q=1080..... |
00000290  a6 2d 36 36 20 80 20 46  3c 32 30 20 52 3d 52 2b  |.-66 . F<20 R=R+|
000002a0  31 0d 00 fa 16 e7 20 a6  2d 39 38 20 80 20 46 3e  |1..... .-98 . F>|
000002b0  30 20 52 3d 52 2d 31 0d  01 04 48 e6 30 2c 30 3a  |0 R=R-1...H.0,0:|
000002c0  ec 59 2c 35 34 38 3a df  59 2c 37 30 30 3a ef 35  |.Y,548:.Y,700:.5|
000002d0  3a ec 59 2d 33 32 2c 37  35 30 3a f1 3b 46 3a ec  |:.Y-32,750:.;F:.|
000002e0  39 30 30 2c 39 30 30 3a  f1 3b 46 3a ec 39 30 30  |900,900:.;F:.900|
000002f0  2c 33 30 30 3a f1 3b 59  2d 36 34 30 3a ef 34 0d  |,300:.;Y-640:.4.|
00000300  01 0e 50 59 3d 51 3a 46  3d 52 3a e6 30 2c 31 3a  |..PY=Q:F=R:.0,1:|
00000310  ec 59 2c 35 34 38 3a df  59 2c 37 30 30 3a ef 35  |.Y,548:.Y,700:.5|
00000320  3a ec 59 2d 33 32 2c 37  35 30 3a f1 3b 46 3a ec  |:.Y-32,750:.;F:.|
00000330  39 30 30 2c 39 30 30 3a  f1 3b 46 3a ec 39 30 30  |900,900:.;F:.900|
00000340  2c 33 30 30 3a f1 3b 59  2d 36 34 30 3a ef 34 0d  |,300:.;Y-640:.4.|
00000350  01 18 22 e7 20 4d 2a 28  36 34 30 2d 58 29 3d 46  |..". M*(640-X)=F|
00000360  2a 28 59 2d 36 34 30 29  20 f2 62 61 6c 61 6e 63  |*(Y-640) .balanc|
00000370  65 0d 01 22 1f e7 20 4d  2a 28 36 34 30 2d 58 29  |e..".. M*(640-X)|
00000380  3e 46 2a 28 59 2d 36 34  30 29 20 f2 6c 65 66 74  |>F*(Y-640) .left|
00000390  0d 01 2c 20 e7 20 4d 2a  28 36 34 30 2d 58 29 3c  |.., . M*(640-X)<|
000003a0  46 2a 28 59 2d 36 34 30  29 20 f2 72 69 67 68 74  |F*(Y-640) .right|
000003b0  0d 01 36 0d d1 3d 30 3a  f5 fd 91 3e 32 0d 01 40  |..6..=0:...>2..@|
000003c0  06 fd 30 0d 01 4a 0d dd  f2 62 61 6c 61 6e 63 65  |..0..J...balance|
000003d0  0d 01 54 06 ef 37 0d 01  5e 11 f1 8a 35 2c 32 36  |..T..7..^...5,26|
000003e0  29 3b 89 28 32 31 29 0d  01 68 2e e6 30 2c 30 3a  |);.(21)..h..0,0:|
000003f0  ec 32 30 30 2c 34 38 30  3a df 31 30 38 30 2c 35  |.200,480:.1080,5|
00000400  34 34 3a ec 31 30 38 30  2c 34 38 30 3a df 32 30  |44:.1080,480:.20|
00000410  30 2c 35 34 34 0d 01 72  1b e6 30 2c 31 3a ec 32  |0,544..r..0,1:.2|
00000420  30 30 2c 35 31 32 3a df  31 30 38 30 2c 35 31 32  |00,512:.1080,512|
00000430  0d 01 7c 23 f1 8a 35 2c  32 38 29 22 42 41 4c 41  |..|#..5,28)"BALA|
00000440  4e 43 45 44 20 2d 20 50  52 45 53 53 20 53 50 41  |NCED - PRESS SPA|
00000450  43 45 22 0d 01 86 0c f5  fd a6 2d 39 39 3a f9 0d  |CE".......-99:..|
00000460  01 90 05 e1 0d 01 9a 0a  dd f2 6c 65 66 74 0d 01  |..........left..|
00000470  a4 2e e6 30 2c 30 3a ec  31 30 38 30 2c 34 38 30  |...0,0:.1080,480|
00000480  3a df 32 30 30 2c 35 34  34 3a ec 32 30 30 2c 35  |:.200,544:.200,5|
00000490  31 32 3a df 31 30 38 30  2c 35 31 32 0d 01 ae 1b  |12:.1080,512....|
000004a0  e6 30 2c 31 3a ec 32 30  30 2c 34 38 30 3a df 31  |.0,1:.200,480:.1|
000004b0  30 38 30 2c 35 34 34 0d  01 b8 05 e1 0d 01 c2 0b  |080,544.........|
000004c0  dd f2 72 69 67 68 74 0d  01 cc 2e e6 30 2c 30 3a  |..right.....0,0:|
000004d0  ec 32 30 30 2c 34 38 30  3a df 31 30 38 30 2c 35  |.200,480:.1080,5|
000004e0  34 34 3a ec 32 30 30 2c  35 31 32 3a df 31 30 38  |44:.200,512:.108|
000004f0  30 2c 35 31 32 0d 01 d6  1b e6 30 2c 31 3a ec 31  |0,512.....0,1:.1|
00000500  30 38 30 2c 34 38 30 3a  df 32 30 30 2c 35 34 34  |080,480:.200,544|
00000510  0d 01 e0 05 e1 0d ff                              |.......|
00000517
Lever.m0
Lever.m1
Lever.m2
Lever.m4
Lever.m5

© Dominic Ford 2021–2024.

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