Compucolor.org – Virtual Media

Listing of file='DATAB5.SCR;1D' on disk='vmedia/chip_121-sector.ccvf'

### Disk Sector 232 ###
00: 28 20 44 41 54 41 20 42 41 53 45 20 35 20 20 20   ( DATA BASE 5
10: 3f 24 41 4d 4f 55 4e 54 20 41 4e 44 20 2e 24 41   ?$AMOUNT AND .$A
20: 4d 4f 55 4e 54 20 20 20 20 20 20 20 20 20 20 20   MOUNT
30: 20 20 20 20 57 4c 47 30 31 4a 41 4e 38 32 20 29       WLG01JAN82 )
40: 28 20 64 65 66 69 6e 65 20 61 63 74 69 6f 6e 20   ( define action
50: 66 6f 72 20 65 61 63 68 20 73 63 61 6c 65 20 63   for each scale c
60: 61 73 65 20 29 20 20 20 20 20 20 20 20 20 20 20   ase )
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 233 ###
00: 3a 20 30 53 43 41 4c 45 20 31 30 30 20 44 2a 20   : 0SCALE 100 D*
10: 3b 20 20 3a 20 31 53 43 41 4c 45 20 31 30 20 44   ;  : 1SCALE 10 D
20: 2a 20 3b 20 20 3a 20 32 53 43 41 4c 45 20 3b 20   * ;  : 2SCALE ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 33 53 43 41 4c 45 20 2e 22 20 49 4e 50 55   : 3SCALE ." INPU
50: 54 20 45 52 52 4f 52 20 22 20 43 52 20 3b 20 20   T ERROR " CR ;
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 234 ###
00: 28 20 64 65 66 69 6e 65 20 73 63 61 6c 65 20 63   ( define scale c
10: 61 73 65 20 61 6e 64 20 65 78 74 65 6e 64 20 66   ase and extend f
20: 6f 72 20 65 61 63 68 20 77 69 74 68 20 27 43 46   or each with 'CF
30: 41 27 20 29 20 20 20 20 20 20 20 20 20 20 20 20   A' )
40: 27 20 30 53 43 41 4c 45 20 43 46 41 20 56 41 52   ' 0SCALE CFA VAR
50: 49 41 42 4c 45 20 4e 53 43 41 4c 45 20 27 20 31   IABLE NSCALE ' 1
60: 53 43 41 4c 45 20 43 46 41 20 2c 20 27 20 32 53   SCALE CFA , ' 2S
70: 43 41 4c 45 20 43 46 41 20 2c 20 20 20 20 20 20   CALE CFA ,
### Disk Sector 235 ###
00: 20 20 27 20 33 53 43 41 4c 45 20 43 46 41 20 2c     ' 3SCALE CFA ,
10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 28 20 73 63 61 6c 65 20 64 6f 75 62 6c 65 20 70   ( scale double p
50: 72 65 63 69 73 69 6f 6e 20 76 61 6c 75 65 20 61   recision value a
60: 63 63 6f 72 64 69 6e 67 20 74 6f 20 27 44 50 4c   ccording to 'DPL
70: 27 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20   ' )
### Disk Sector 236 ###
00: 3a 20 53 43 41 4c 45 20 44 50 4c 20 40 20 33 20   : SCALE DPL @ 3
10: 4d 49 4e 20 32 20 2a 20 4e 53 43 41 4c 45 20 2b   MIN 2 * NSCALE +
20: 20 40 20 45 58 45 43 55 54 45 20 3b 20 20 20 20    @ EXECUTE ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 28 20 77 61 69 74 20 66 6f 72 20 64 65 63 69 6d   ( wait for decim
50: 61 6c 20 76 61 6c 75 65 20 61 6e 64 20 73 63 61   al value and sca
60: 6c 65 20 69 74 20 2d 20 6c 65 61 76 65 20 76 61   le it - leave va
70: 6c 75 65 20 6f 6e 20 73 74 61 63 6b 20 29 20 20   lue on stack )
### Disk Sector 237 ###
00: 3a 20 3f 24 41 4d 4f 55 4e 54 20 51 55 45 52 59   : ?$AMOUNT QUERY
10: 20 42 4c 20 57 4f 52 44 20 48 45 52 45 20 4e 55    BL WORD HERE NU
20: 4d 42 45 52 20 53 43 41 4c 45 20 3b 20 20 20 20   MBER SCALE ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 28 20 70 72 69 6e 74 20 64 20 66 72 6f 6d 20 73   ( print d from s
50: 74 61 63 6b 20 61 73 20 24 20 61 6e 64 20 72 69   tack as $ and ri
60: 67 68 74 20 6a 75 73 74 69 66 79 20 69 6e 20 38   ght justify in 8
70: 20 73 70 61 63 65 73 20 29 20 20 20 20 20 20 20    spaces )
### Disk Sector 238 ###
00: 3a 20 2e 24 41 4d 4f 55 4e 54 20 20 20 20 20 20   : .$AMOUNT
10: 44 55 50 20 52 4f 54 20 52 4f 54 20 44 41 42 53   DUP ROT ROT DABS
20: 20 3c 23 20 23 20 23 20 34 36 20 48 4f 4c 44 20    <# # # 46 HOLD
30: 23 53 20 53 49 47 4e 20 23 3e 20 20 20 20 20 20   #S SIGN #>
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 33 36 20 45 4d 49 54 20 44 55 50 20 38 20 53 57   36 EMIT DUP 8 SW
60: 41 50 20 2d 20 53 50 41 43 45 53 20 54 59 50 45   AP - SPACES TYPE
70: 20 3b 20 20 20 20 20 20 20 20 20 3b 53 20 20 20    ;         ;S
### Disk Sector 239 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20