Listing of file='UTIL01.SCR;17' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 184 ###
00: 28 20 55 54 49 4c 49 54 49 45 53 20 31 20 20 20 ( UTILITIES 1
10: 31 2d 20 46 43 53 20 46 46 20 50 7b 4c 7d 4c 49 1- FCS FF P{L}LI
20: 53 54 20 54 49 4d 45 20 42 41 55 44 20 45 58 54 ST TIME BAUD EXT
30: 45 4e 44 20 57 4c 47 31 36 41 50 52 38 34 20 29 END WLG16APR84 )
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 185 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 46 4f 52 54 48 20 44 45 46 49 4e 49 54 49 4f 4e FORTH DEFINITION
20: 53 20 44 45 43 49 4d 41 4c 20 20 20 20 20 20 20 S DECIMAL
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 31 2d 20 31 20 2d 20 3b 20 20 20 20 20 20 : 1- 1 - ;
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 186 ###
00: 3a 20 46 43 53 20 20 20 20 20 20 20 20 20 20 20 : FCS
10: 30 20 57 4f 52 44 20 36 31 32 30 34 20 46 43 53 0 WORD 61204 FCS
20: 43 20 3b 20 20 20 20 20 20 20 20 3a 20 46 46 20 C ; : FF
30: 31 32 20 53 31 4f 55 54 20 3b 20 20 20 20 20 20 12 S1OUT ;
40: 3a 20 50 4c 49 53 54 20 20 20 20 20 20 20 20 20 : PLIST
50: 53 43 52 20 21 20 31 36 20 30 20 44 4f 20 49 20 SCR ! 16 0 DO I
60: 53 43 52 20 40 20 2e 4c 49 4e 45 20 43 52 20 3f SCR @ .LINE CR ?
70: 54 45 52 4d 49 4e 41 4c 20 20 20 20 20 20 20 20 TERMINAL
### Disk Sector 187 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 49 46 20 43 52 20 4c 45 41 56 45 20 45 4e 44 49 IF CR LEAVE ENDI
20: 46 20 4c 4f 4f 50 20 3b 20 20 20 20 20 20 20 20 F LOOP ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 4c 4c 49 53 54 20 20 20 20 20 20 20 20 20 : LLIST
50: 31 2b 20 53 57 41 50 20 43 52 20 44 4f 20 49 20 1+ SWAP CR DO I
60: 50 4c 49 53 54 20 4c 4f 4f 50 20 3b 20 20 20 20 PLIST LOOP ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 188 ###
00: 3a 20 4c 30 20 20 20 20 20 20 20 20 20 20 20 20 : L0
10: 44 55 50 20 31 30 20 3c 20 49 46 20 2e 22 20 30 DUP 10 < IF ." 0
20: 22 20 31 20 45 4c 53 45 20 32 20 45 4e 44 49 46 " 1 ELSE 2 ENDIF
30: 20 2e 52 20 3b 20 20 20 20 20 20 20 20 20 20 20 .R ;
40: 3a 20 53 45 54 20 20 20 20 20 20 20 20 20 20 20 : SET
50: 33 33 32 30 39 20 43 21 20 33 33 32 31 30 20 43 33209 C! 33210 C
60: 21 20 33 33 32 31 31 20 43 21 20 3b 20 20 20 20 ! 33211 C! ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 189 ###
00: 3a 20 54 49 4d 45 20 20 20 20 20 20 20 20 20 20 : TIME
10: 31 39 20 45 4d 49 54 20 33 33 32 31 31 20 43 40 19 EMIT 33211 C@
20: 20 44 55 50 20 31 32 20 3e 20 49 46 20 31 32 20 DUP 12 > IF 12
30: 2d 20 45 4e 44 49 46 20 20 20 20 20 20 20 20 20 - ENDIF
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 31 20 2e 52 20 2e 22 20 3a 22 20 33 33 32 31 30 1 .R ." :" 33210
60: 20 43 40 20 4c 30 20 2e 22 20 3a 22 20 33 33 32 C@ L0 ." :" 332
70: 30 39 20 43 40 20 4c 30 20 43 52 20 3b 20 20 20 09 C@ L0 CR ;
### Disk Sector 190 ###
00: 3a 20 42 41 55 44 20 20 20 20 20 20 20 20 20 20 : BAUD
10: 31 34 20 45 4d 49 54 20 32 37 20 45 4d 49 54 20 14 EMIT 27 EMIT
20: 38 32 20 45 4d 49 54 20 34 38 20 2b 20 45 4d 49 82 EMIT 48 + EMI
30: 54 20 31 35 20 45 4d 49 54 20 3b 20 20 20 20 20 T 15 EMIT ;
40: 3a 20 45 58 54 45 4e 44 20 20 20 20 20 20 20 20 : EXTEND
50: 4c 41 54 45 53 54 20 31 32 20 2b 4f 52 49 47 49 LATEST 12 +ORIGI
60: 4e 20 21 20 48 45 52 45 20 32 38 20 2b 4f 52 49 N ! HERE 28 +ORI
70: 47 49 4e 20 21 20 20 20 20 20 20 20 20 20 20 20 GIN !
### Disk Sector 191 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 48 45 52 45 20 20 20 33 30 20 2b 4f 52 49 47 49 HERE 30 +ORIGI
20: 4e 20 21 20 48 45 52 45 20 20 20 20 46 45 4e 43 N ! HERE FENC
30: 45 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 E !
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 27 20 46 4f 52 54 48 20 36 20 2b 20 33 32 20 2b ' FORTH 6 + 32 +
60: 4f 52 49 47 49 4e 20 21 20 3b 20 2d 2d 3e 20 20 ORIGIN ! ; -->
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20