Compucolor.org – Virtual Media

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

### Disk Sector 208 ###
00: 28 20 44 41 54 41 20 42 41 53 45 20 32 20 20 46   ( DATA BASE 2  F
10: 49 4c 45 20 44 45 56 45 4c 4f 50 4d 45 4d 54 20   ILE DEVELOPMEMT
20: 2d 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20   - 2
30: 20 20 20 20 57 4c 47 33 30 44 45 43 38 31 20 29       WLG30DEC81 )
40: 3a 20 54 46 49 45 4c 44 20 3c 42 55 49 4c 44 53   : TFIELD <BUILDS
50: 20 20 20 20 20 20 20 28 20 63 72 65 61 74 65 20          ( create
60: 61 20 74 65 78 74 20 66 69 65 6c 64 20 29 20 20   a text field )
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 209 ###
00: 20 20 20 20 20 20 20 20 4f 56 45 52 20 2c 20 44           OVER , D
10: 55 50 20 2c 20 2b 20 28 20 6c 65 61 76 65 73 20   UP , + ( leaves
20: 66 69 6c 65 20 63 6f 75 6e 74 20 66 6f 72 20 74   file count for t
30: 68 69 73 20 64 65 66 69 6e 69 74 69 6f 6e 20 29   his definition )
40: 20 20 20 20 20 20 20 20 44 4f 45 53 3e 20 32 40           DOES> 2@
50: 20 41 44 44 52 45 53 53 20 2b 20 53 57 41 50 20    ADDRESS + SWAP
60: 3b 20 28 20 6c 65 61 76 65 73 3a 20 61 64 64 72   ; ( leaves: addr
70: 2e 2c 20 63 6f 75 6e 74 20 29 20 20 20 20 20 20   ., count )
### Disk Sector 210 ###
00: 3a 20 44 46 49 45 4c 44 20 20 3c 42 55 49 4c 44   : DFIELD  <BUILD
10: 53 20 20 20 20 20 20 20 28 20 63 72 65 61 74 65   S       ( create
20: 20 61 20 64 61 74 61 20 66 69 65 6c 64 20 29 20    a data field )
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 4f 56 45 52 20 2c 20 2b           OVER , +
50: 20 20 20 20 20 20 20 28 20 6c 65 61 76 65 73 20          ( leaves
60: 66 69 6c 65 20 63 6f 75 6e 74 20 66 6f 72 20 74   file count for t
70: 68 69 73 20 64 65 66 69 6e 69 74 69 6f 6e 20 29   his definition )
### Disk Sector 211 ###
00: 20 20 20 20 20 20 20 20 44 4f 45 53 3e 20 40 20           DOES> @
10: 41 44 44 52 45 53 53 20 2b 20 3b 20 20 20 20 20   ADDRESS + ;
20: 20 20 28 20 6c 65 61 76 65 73 20 61 64 64 72 65     ( leaves addre
30: 73 73 20 29 20 20 20 20 20 20 20 20 20 20 20 20   ss )
40: 3a 20 46 49 4c 45 20 20 20 20 20 20 20 20 20 20   : FILE
50: 20 20 20 20 20 20 20 20 28 20 63 72 65 61 74 65           ( create
60: 20 61 20 6e 61 6d 65 64 20 73 74 6f 72 61 67 65    a named storage
70: 20 6c 6f 63 61 74 69 6f 6e 20 29 20 20 20 20 20    location )
### Disk Sector 212 ###
00: 20 20 20 20 20 20 20 20 3c 42 55 49 4c 44 53 20           <BUILDS
10: 2c 20 20 20 20 20 20 20 28 20 6f 72 69 67 69 6e   ,       ( origin
20: 20 62 6c 6f 63 6b 20 29 20 20 20 20 20 20 20 20    block )
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 31 2b 20 2c 20 20 20 20           1+ ,
50: 20 20 20 20 20 20 20 20 28 20 6e 75 6d 62 65 72           ( number
60: 20 6f 66 20 72 65 63 6f 72 64 73 20 69 6e 20 66    of records in f
70: 69 6c 65 20 29 20 20 20 20 20 20 20 20 20 20 20   ile )
### Disk Sector 213 ###
00: 20 20 20 20 20 20 20 20 44 55 50 20 42 2f 42 55           DUP B/BU
10: 46 20 4f 56 45 52 20 2f 20 2a 20 2c 20 20 28 20   F OVER / * ,  (
20: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20   number of bytes
30: 70 65 72 20 62 6c 6f 63 6b 20 29 20 20 20 20 20   per block )
40: 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20           ,
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20                 (
60: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20   number of bytes
70: 70 65 72 20 72 65 63 6f 72 64 20 29 20 20 20 20   per record )
### Disk Sector 214 ###
00: 20 20 20 20 20 20 20 20 44 4f 45 53 3e 20 4f 50           DOES> OP
10: 45 4e 20 21 20 3b 20 20 28 20 77 68 65 6e 20 66   EN ! ;  ( when f
20: 69 6c 65 6e 61 6d 65 20 69 73 20 75 73 65 64 2c   ilename is used,
30: 20 70 6f 69 6e 74 20 74 6f 20 29 20 20 20 20 20    point to )
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 28 20 69 74 73 20 64 65           ( its de
60: 73 63 72 69 70 74 6f 72 20 70 61 72 61 6d 65 74   scriptor paramet
70: 65 72 73 2e 20 20 20 20 20 20 29 20 2d 2d 3e 20   ers.      ) -->
### Disk Sector 215 ###
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