Compucolor.org – Virtual Media

Listing of file='SCRN07.RND;01' on disk='vmedia/chip_46-sector.ccvf'

### Disk Sector 56 ###
00: 28 20 4c 49 4e 45 20 45 44 49 54 4f 52 20 20 20   ( LINE EDITOR
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 57 46                 WF
30: 52 2d 37 39 4d 41 59 30 33 20 29 20 20 20 20 20   R-79MAY03 )
40: 56 4f 43 41 42 55 4c 41 52 59 20 20 20 20 20 45   VOCABULARY     E
50: 44 49 54 4f 52 20 20 20 20 49 4d 4d 45 44 49 41   DITOR    IMMEDIA
60: 54 45 20 20 20 20 20 48 45 58 20 20 20 20 20 20   TE     HEX
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 57 ###
00: 3a 20 57 48 45 52 45 20 20 20 20 20 20 20 20 20   : WHERE
10: 20 20 20 20 28 20 50 52 49 4e 54 20 53 43 52 45       ( PRINT SCRE
20: 45 4e 20 23 20 41 4e 44 20 49 4d 41 47 45 20 4f   EN # AND IMAGE O
30: 46 20 45 52 52 4f 52 20 20 2a 29 20 20 20 20 20   F ERROR  *)
40: 20 20 20 20 44 55 50 20 20 20 42 2f 53 43 52 20       DUP   B/SCR
50: 20 20 2f 20 20 20 44 55 50 20 20 20 53 43 52 20     /   DUP   SCR
60: 20 21 20 20 2e 22 20 53 43 52 20 23 20 22 20 20    !  ." SCR # "
70: 44 45 43 49 4d 41 4c 20 20 20 2e 20 20 20 20 20   DECIMAL   .
### Disk Sector 58 ###
00: 20 20 20 20 53 57 41 50 20 20 43 2f 4c 20 20 2f       SWAP  C/L  /
10: 4d 4f 44 20 20 43 2f 4c 20 20 2a 20 20 52 4f 54   MOD  C/L  *  ROT
20: 20 20 42 4c 4f 43 4b 20 20 20 2b 20 20 43 52 20     BLOCK   +  CR
30: 20 20 43 2f 4c 20 20 54 59 50 45 20 20 20 20 20     C/L  TYPE
40: 20 20 20 20 43 52 20 48 45 52 45 20 43 40 20 2d       CR HERE C@ -
50: 20 53 50 41 43 45 53 20 35 45 20 45 4d 49 54 20    SPACES 5E EMIT
60: 5b 43 4f 4d 50 49 4c 45 5d 20 45 44 49 54 4f 52   [COMPILE] EDITOR
70: 20 20 51 55 49 54 20 20 3b 20 20 20 20 20 20 20     QUIT  ;
### Disk Sector 59 ###
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: 45 44 49 54 4f 52 20 20 44 45 46 49 4e 49 54 49   EDITOR  DEFINITI
50: 4f 4e 53 20 20 20 20 20 20 20 20 20 20 20 20 20   ONS
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 60 ###
00: 3a 20 23 4c 4f 43 41 54 45 20 20 20 20 20 20 20   : #LOCATE
10: 20 20 20 20 20 20 20 20 20 28 20 4c 45 41 56 45            ( LEAVE
20: 20 43 55 52 53 4f 52 20 4f 46 46 53 45 54 2d 32    CURSOR OFFSET-2
30: 2c 20 4c 49 4e 45 2d 31 20 2a 29 20 20 20 20 20   , LINE-1 *)
40: 20 20 20 20 20 20 20 20 20 52 23 20 40 20 43 2f            R# @ C/
50: 4c 20 2f 4d 4f 44 20 3b 20 20 20 20 20 20 20 20   L /MOD ;
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 61 ###
00: 3a 20 23 4c 45 41 44 20 20 20 20 20 20 20 20 20   : #LEAD
10: 20 20 20 20 28 20 4c 49 4e 45 20 41 44 44 52 45       ( LINE ADDRE
20: 53 53 2d 32 2c 20 4f 46 46 53 45 54 2d 31 20 54   SS-2, OFFSET-1 T
30: 4f 20 43 55 52 53 4f 52 20 2a 29 20 20 20 20 20   O CURSOR *)
40: 20 20 20 20 20 20 20 20 20 23 4c 4f 43 41 54 45            #LOCATE
50: 20 20 4c 49 4e 45 20 20 53 57 41 50 20 20 3b 20     LINE  SWAP  ;
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 62 ###
00: 3a 20 23 4c 41 47 20 20 20 20 20 20 20 20 20 20   : #LAG
10: 28 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53   ( CURSOR ADDRESS
20: 2d 32 2c 20 43 4f 55 4e 54 2d 31 20 41 46 54 45   -2, COUNT-1 AFTE
30: 52 20 43 55 52 53 4f 52 20 2a 29 20 20 20 20 20   R CURSOR *)
40: 20 20 20 20 20 20 20 20 20 23 4c 45 41 44 20 20            #LEAD
50: 44 55 50 20 20 3e 52 20 20 2b 20 20 43 2f 4c 20   DUP  >R  +  C/L
60: 20 52 3e 20 20 2d 20 20 3b 20 20 20 20 20 20 20    R>  -  ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 63 ###
00: 3a 20 2d 4d 4f 56 45 20 20 20 20 28 20 4d 4f 56   : -MOVE    ( MOV
10: 45 20 49 4e 20 42 4c 4f 43 4b 20 42 55 46 46 45   E IN BLOCK BUFFE
20: 52 20 41 44 44 52 20 46 52 4f 4d 2d 32 2c 20 4c   R ADDR FROM-2, L
30: 49 4e 45 20 54 4f 2d 31 20 2a 29 20 20 20 20 20   INE TO-1 *)
40: 20 20 20 20 20 20 20 20 20 4c 49 4e 45 20 20 43            LINE  C
50: 2f 4c 20 20 43 4d 4f 56 45 20 20 55 50 44 41 54   /L  CMOVE  UPDAT
60: 45 20 20 3b 20 20 2d 2d 3e 20 20 20 20 20 20 20   E  ;  -->
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20