� > <Basicsave$dir>.SPRINGS
� By The Safe Scientist
� (c) The Micro User
(�1
2	�vars
<�drawstart
F�
P�addweight
Z�calcnewlength
d�w=1000
n(�10,30)"PRESS SPACE TO START AGAIN"
x���=32:�
��
�
��vars
�	pos=0
�F=�(10)
�'�23,224,240,15,240,15,240,15,240,15
�!�23,225,240,15,240,15,0,0,0,0
�+�23,226,255,231,247,247,247,247,227,255
�+�23,227,255,195,153,189,189,153,195,255
��23,228,56,72,72,8,8,8,8,8
�weight$=�226+�227+�227
�(spring$=�224+�8+�10+�224+�8+�10+�224
��
���drawstart

#�10,2)"SPRINGS"�10,3)"~~~~~~~"

�13,4);spring$

�13,7);�228

"%�1:�130:�N=18�28:�2,N);weight$:�

,�1,30)"WEIGHTS"

60�700,132:�932,132:�932,900:�700,900:�700,132

@)�932,132:�1164,132:�1164,900:�932,900

J"�N=132�900�64:�700,N:�1164,N:�

T�3:�128

^!�23,4)"WEIGHT"�30,4)"LENGTH"

h�25,6)"0"�32,6)"3"

r�

|��addweight

�'�10,30)"PRESS SPACE TO ADD WEIGHT"

��� �=32

�
pos=pos+1

��128:�3

��2,pos+17);�(3)

��12,pos+7);�(3)

�$�13,pos+6);�224;�13,pos+7);�228

��1:�130

�$�X=1�pos:�12,X+7+pos);weight$:�

��

���calcnewlength

�L=3+pos*F:w=100*pos

��3:�128
"�25,6+pos*2);w;�32,6+pos*2);L
�
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 42 61 73 69 63 73 61  |..... > <Basicsa|
00000010  76 65 24 64 69 72 3e 2e  53 50 52 49 4e 47 53 0d  |ve$dir>.SPRINGS.|
00000020  00 14 1b f4 20 42 79 20  54 68 65 20 53 61 66 65  |.... By The Safe|
00000030  20 53 63 69 65 6e 74 69  73 74 0d 00 1e 18 f4 20  | Scientist..... |
00000040  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000050  65 72 0d 00 28 06 eb 31  0d 00 32 09 f2 76 61 72  |er..(..1..2..var|
00000060  73 0d 00 3c 0e f2 64 72  61 77 73 74 61 72 74 0d  |s..<..drawstart.|
00000070  00 46 05 f5 0d 00 50 0e  f2 61 64 64 77 65 69 67  |.F....P..addweig|
00000080  68 74 0d 00 5a 12 f2 63  61 6c 63 6e 65 77 6c 65  |ht..Z..calcnewle|
00000090  6e 67 74 68 0d 00 64 0b  fd 77 3d 31 30 30 30 0d  |ngth..d..w=1000.|
000000a0  00 6e 28 f1 8a 31 30 2c  33 30 29 22 50 52 45 53  |.n(..10,30)"PRES|
000000b0  53 20 53 50 41 43 45 20  54 4f 20 53 54 41 52 54  |S SPACE TO START|
000000c0  20 41 47 41 49 4e 22 0d  00 78 0c f5 fd a5 3d 33  | AGAIN"..x....=3|
000000d0  32 3a f9 0d 00 82 05 e0  0d 00 8c 0a dd f2 76 61  |2:............va|
000000e0  72 73 0d 00 96 09 70 6f  73 3d 30 0d 00 a0 0b 46  |rs....pos=0....F|
000000f0  3d b3 28 31 30 29 0d 00  aa 27 ef 32 33 2c 32 32  |=.(10)...'.23,22|
00000100  34 2c 32 34 30 2c 31 35  2c 32 34 30 2c 31 35 2c  |4,240,15,240,15,|
00000110  32 34 30 2c 31 35 2c 32  34 30 2c 31 35 0d 00 b4  |240,15,240,15...|
00000120  21 ef 32 33 2c 32 32 35  2c 32 34 30 2c 31 35 2c  |!.23,225,240,15,|
00000130  32 34 30 2c 31 35 2c 30  2c 30 2c 30 2c 30 0d 00  |240,15,0,0,0,0..|
00000140  be 2b ef 32 33 2c 32 32  36 2c 32 35 35 2c 32 33  |.+.23,226,255,23|
00000150  31 2c 32 34 37 2c 32 34  37 2c 32 34 37 2c 32 34  |1,247,247,247,24|
00000160  37 2c 32 32 37 2c 32 35  35 0d 00 c8 2b ef 32 33  |7,227,255...+.23|
00000170  2c 32 32 37 2c 32 35 35  2c 31 39 35 2c 31 35 33  |,227,255,195,153|
00000180  2c 31 38 39 2c 31 38 39  2c 31 35 33 2c 31 39 35  |,189,189,153,195|
00000190  2c 32 35 35 0d 00 d2 1e  ef 32 33 2c 32 32 38 2c  |,255.....23,228,|
000001a0  35 36 2c 37 32 2c 37 32  2c 38 2c 38 2c 38 2c 38  |56,72,72,8,8,8,8|
000001b0  2c 38 0d 00 dc 1a 77 65  69 67 68 74 24 3d bd 32  |,8....weight$=.2|
000001c0  32 36 2b bd 32 32 37 2b  bd 32 32 37 0d 00 e6 28  |26+.227+.227...(|
000001d0  73 70 72 69 6e 67 24 3d  bd 32 32 34 2b bd 38 2b  |spring$=.224+.8+|
000001e0  bd 31 30 2b bd 32 32 34  2b bd 38 2b bd 31 30 2b  |.10+.224+.8+.10+|
000001f0  bd 32 32 34 0d 00 f0 05  e1 0d 00 fa 0f dd f2 64  |.224...........d|
00000200  72 61 77 73 74 61 72 74  0d 01 04 23 f1 8a 31 30  |rawstart...#..10|
00000210  2c 32 29 22 53 50 52 49  4e 47 53 22 8a 31 30 2c  |,2)"SPRINGS".10,|
00000220  33 29 22 7e 7e 7e 7e 7e  7e 7e 22 0d 01 0e 13 f1  |3)"~~~~~~~".....|
00000230  8a 31 33 2c 34 29 3b 73  70 72 69 6e 67 24 0d 01  |.13,4);spring$..|
00000240  18 10 f1 8a 31 33 2c 37  29 3b bd 32 32 38 0d 01  |....13,7);.228..|
00000250  22 25 fb 31 3a fb 31 33  30 3a e3 4e 3d 31 38 b8  |"%.1:.130:.N=18.|
00000260  32 38 3a f1 8a 32 2c 4e  29 3b 77 65 69 67 68 74  |28:..2,N);weight|
00000270  24 3a ed 0d 01 2c 14 f1  8a 31 2c 33 30 29 22 57  |$:...,...1,30)"W|
00000280  45 49 47 48 54 53 22 0d  01 36 30 ec 37 30 30 2c  |EIGHTS"..60.700,|
00000290  31 33 32 3a df 39 33 32  2c 31 33 32 3a df 39 33  |132:.932,132:.93|
000002a0  32 2c 39 30 30 3a df 37  30 30 2c 39 30 30 3a df  |2,900:.700,900:.|
000002b0  37 30 30 2c 31 33 32 0d  01 40 29 ec 39 33 32 2c  |700,132..@).932,|
000002c0  31 33 32 3a df 31 31 36  34 2c 31 33 32 3a df 31  |132:.1164,132:.1|
000002d0  31 36 34 2c 39 30 30 3a  df 39 33 32 2c 39 30 30  |164,900:.932,900|
000002e0  0d 01 4a 22 e3 4e 3d 31  33 32 b8 39 30 30 88 36  |..J".N=132.900.6|
000002f0  34 3a ec 37 30 30 2c 4e  3a df 31 31 36 34 2c 4e  |4:.700,N:.1164,N|
00000300  3a ed 0d 01 54 0b fb 33  3a fb 31 32 38 0d 01 5e  |:...T..3:.128..^|
00000310  21 f1 8a 32 33 2c 34 29  22 57 45 49 47 48 54 22  |!..23,4)"WEIGHT"|
00000320  8a 33 30 2c 34 29 22 4c  45 4e 47 54 48 22 0d 01  |.30,4)"LENGTH"..|
00000330  68 17 f1 8a 32 35 2c 36  29 22 30 22 8a 33 32 2c  |h...25,6)"0".32,|
00000340  36 29 22 33 22 0d 01 72  05 e1 0d 01 7c 0f dd f2  |6)"3"..r....|...|
00000350  61 64 64 77 65 69 67 68  74 0d 01 86 27 f1 8a 31  |addweight...'..1|
00000360  30 2c 33 30 29 22 50 52  45 53 53 20 53 50 41 43  |0,30)"PRESS SPAC|
00000370  45 20 54 4f 20 41 44 44  20 57 45 49 47 48 54 22  |E TO ADD WEIGHT"|
00000380  0d 01 90 0b f5 fd 20 a5  3d 33 32 0d 01 9a 0d 70  |...... .=32....p|
00000390  6f 73 3d 70 6f 73 2b 31  0d 01 a4 0b fb 31 32 38  |os=pos+1.....128|
000003a0  3a fb 33 0d 01 ae 14 f1  8a 32 2c 70 6f 73 2b 31  |:.3......2,pos+1|
000003b0  37 29 3b 89 28 33 29 0d  01 b8 14 f1 8a 31 32 2c  |7);.(3)......12,|
000003c0  70 6f 73 2b 37 29 3b 89  28 33 29 0d 01 c2 24 f1  |pos+7);.(3)...$.|
000003d0  8a 31 33 2c 70 6f 73 2b  36 29 3b bd 32 32 34 3b  |.13,pos+6);.224;|
000003e0  8a 31 33 2c 70 6f 73 2b  37 29 3b bd 32 32 38 0d  |.13,pos+7);.228.|
000003f0  01 cc 0b fb 31 3a fb 31  33 30 0d 01 d6 24 e3 58  |....1:.130...$.X|
00000400  3d 31 b8 70 6f 73 3a f1  8a 31 32 2c 58 2b 37 2b  |=1.pos:..12,X+7+|
00000410  70 6f 73 29 3b 77 65 69  67 68 74 24 3a ed 0d 01  |pos);weight$:...|
00000420  e0 05 e1 0d 01 ea 13 dd  f2 63 61 6c 63 6e 65 77  |.........calcnew|
00000430  6c 65 6e 67 74 68 0d 01  f4 17 4c 3d 33 2b 70 6f  |length....L=3+po|
00000440  73 2a 46 3a 77 3d 31 30  30 2a 70 6f 73 0d 01 fe  |s*F:w=100*pos...|
00000450  0b fb 33 3a fb 31 32 38  0d 02 08 22 f1 8a 32 35  |..3:.128..."..25|
00000460  2c 36 2b 70 6f 73 2a 32  29 3b 77 3b 8a 33 32 2c  |,6+pos*2);w;.32,|
00000470  36 2b 70 6f 73 2a 32 29  3b 4c 0d 02 12 05 e1 0d  |6+pos*2);L......|
00000480  ff                                                |.|
00000481