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