Listing of file='UTIL03.SCR;24' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 288 ### 00: 28 20 55 54 49 4c 49 54 49 45 53 20 33 20 20 20 ( UTILITIES 3 10: 20 53 2e 20 20 42 41 53 45 2e 20 20 44 45 56 2e S. BASE. DEV. 20: 20 20 50 52 54 2e 20 20 56 4f 43 2e 20 20 53 54 PRT. VOC. ST 30: 41 54 20 20 31 39 4d 41 52 38 34 57 4c 47 20 29 AT 19MAR84WLG ) 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 ### Disk Sector 289 ### 00: 3a 20 44 45 50 54 48 20 20 20 20 20 20 20 20 20 : DEPTH 10: 53 50 40 20 53 30 20 40 20 53 57 41 50 20 2d 20 SP@ S0 @ SWAP - 20: 32 20 2f 20 30 20 4d 41 58 20 3b 20 20 20 20 20 2 / 0 MAX ; 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 : L 50: 44 45 50 54 48 20 49 46 20 44 55 50 20 53 43 52 DEPTH IF DUP SCR 60: 20 21 20 45 4c 53 45 20 53 43 52 20 40 20 45 4e ! ELSE SCR @ EN 70: 44 49 46 20 4c 49 53 54 20 3b 20 20 20 20 20 20 DIF LIST ; ### Disk Sector 290 ### 00: 3a 20 53 2e 20 20 20 20 44 45 50 54 48 20 49 46 : S. DEPTH IF 10: 20 53 50 40 20 32 20 2d 20 53 30 20 40 20 32 20 SP@ 2 - S0 @ 2 20: 2d 20 44 4f 20 49 20 40 20 55 2e 20 2d 32 20 2b - DO I @ U. -2 + 30: 4c 4f 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 LOOP 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c EL 50: 53 45 20 31 38 20 45 4d 49 54 20 2e 22 20 45 4d SE 18 EMIT ." EM 60: 50 54 59 20 53 54 41 43 4b 22 20 45 4e 44 49 46 PTY STACK" ENDIF 70: 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ; ### Disk Sector 291 ### 00: 3a 20 42 41 53 45 2e 20 42 41 53 45 20 40 20 44 : BASE. BASE @ D 10: 55 50 20 44 45 43 49 4d 41 4c 20 2e 22 20 42 41 UP DECIMAL ." BA 20: 53 45 20 3d 20 22 20 2e 20 42 41 53 45 20 21 20 SE = " . BASE ! 30: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ; 40: 3a 20 50 52 54 2e 20 20 2e 22 20 50 52 54 20 22 : PRT. ." PRT " 50: 20 33 38 34 35 31 20 43 40 20 49 46 20 2e 22 20 38451 C@ IF ." 60: 4f 4e 22 20 45 4c 53 45 20 2e 22 20 4f 46 46 22 ON" ELSE ." OFF" 70: 20 45 4e 44 49 46 20 3b 20 20 20 20 20 20 20 20 ENDIF ; ### Disk Sector 292 ### 00: 3a 20 44 45 56 2e 20 20 2e 22 20 44 45 56 20 22 : DEV. ." DEV " 10: 20 33 33 30 34 34 20 43 40 20 49 46 20 2e 22 20 33044 C@ IF ." 20: 31 3a 22 20 45 4c 53 45 20 2e 22 20 30 3a 22 20 1:" ELSE ." 0:" 30: 45 4e 44 49 46 20 3b 20 20 20 20 20 20 20 20 20 ENDIF ; 40: 3a 20 56 4f 43 2e 20 20 43 4f 4e 54 45 58 54 20 : VOC. CONTEXT 50: 40 20 34 20 2d 20 4e 46 41 20 49 44 2e 20 3b 20 @ 4 - NFA ID. ; 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 293 ### 00: 3a 20 53 54 41 54 20 20 53 2e 20 32 33 20 45 4d : STAT S. 23 EM 10: 49 54 20 53 50 41 43 45 20 42 41 53 45 2e 20 32 IT SPACE BASE. 2 20: 31 20 45 4d 49 54 20 53 50 41 43 45 20 44 45 56 1 EMIT SPACE DEV 30: 2e 20 32 32 20 45 4d 49 54 20 20 20 20 20 20 20 . 22 EMIT 40: 20 20 20 20 20 20 20 20 32 20 53 50 41 43 45 53 2 SPACES 50: 20 50 52 54 2e 20 31 37 20 45 4d 49 54 20 32 20 PRT. 17 EMIT 2 60: 53 50 41 43 45 53 20 56 4f 43 2e 20 53 50 41 43 SPACES VOC. SPAC 70: 45 20 54 49 4d 45 20 31 38 20 45 4d 49 54 20 3b E TIME 18 EMIT ; ### Disk Sector 294 ### 00: 20 20 2d 2d 3e 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: 53 54 41 54 20 70 72 69 6e 74 73 20 53 2e 28 73 STAT prints S.(s 50: 74 61 63 6b 20 63 6f 6e 74 65 6e 74 73 20 6f 72 tack contents or 60: 20 65 6d 70 74 79 20 73 74 61 63 6b 29 2c 20 42 empty stack), B 70: 41 53 45 2e 28 32 2c 20 31 30 2c 20 31 36 29 2c ASE.(2, 10, 16), ### Disk Sector 295 ### 00: 44 45 56 20 61 6e 64 20 50 52 54 20 73 74 61 74 DEV and PRT stat 10: 75 73 2c 20 63 75 72 72 65 6e 74 20 76 6f 63 61 us, current voca 20: 62 75 6c 61 72 79 20 61 6e 64 20 54 49 4d 45 2e bulary and TIME. 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