Compucolor.org – Virtual Media

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

### Disk Sector 112 ###
00: 28 20 53 54 52 49 4e 47 20 45 44 49 54 49 4e 47   ( STRING EDITING
10: 20 43 4f 4d 4d 41 4e 44 53 20 20 20 20 20 20 20    COMMANDS
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 52 32 34 20 29 20 20 20 20 20   R-79MAR24 )
40: 3a 20 31 4c 49 4e 45 20 20 20 28 20 53 43 41 4e   : 1LINE   ( SCAN
50: 20 4c 49 4e 45 20 57 49 54 48 20 43 55 52 53 4f    LINE WITH CURSO
60: 52 20 46 4f 52 20 4d 41 54 43 48 20 54 4f 20 50   R FOR MATCH TO P
70: 41 44 20 54 45 58 54 2c 20 2a 29 20 20 20 20 20   AD TEXT, *)
### Disk Sector 113 ###
00: 20 20 20 20 20 20 20 20 20 20 28 20 55 50 44 41             ( UPDA
10: 54 45 20 43 55 52 53 4f 52 2c 20 52 45 54 55 52   TE CURSOR, RETUR
20: 4e 20 42 4f 4f 4c 45 41 4e 20 2a 29 20 20 20 20   N BOOLEAN *)
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 23 4c 41 47 20 50 41 44 20          #LAG PAD
50: 43 4f 55 4e 54 20 4d 41 54 43 48 20 52 23 20 2b   COUNT MATCH R# +
60: 21 20 3b 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 114 ###
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: 3a 20 46 49 4e 44 20 28 20 53 54 52 49 4e 47 20   : FIND ( STRING
50: 41 54 20 50 41 44 20 4f 56 45 52 20 46 55 4c 4c   AT PAD OVER FULL
60: 20 53 43 52 45 45 4e 20 52 41 4e 47 45 2c 45 4c    SCREEN RANGE,EL
70: 53 45 20 45 52 52 4f 52 20 2a 29 20 20 20 20 20   SE ERROR *)
### Disk Sector 115 ###
00: 20 20 20 20 42 45 47 49 4e 20 33 46 46 20 52 23       BEGIN 3FF R#
10: 20 40 20 3c 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 49 46 20 54 4f 50 20 50           IF TOP P
50: 41 44 20 48 45 52 45 20 43 2f 4c 20 31 2b 20 43   AD HERE C/L 1+ C
60: 4d 4f 56 45 20 30 20 45 52 52 4f 52 20 45 4e 44   MOVE 0 ERROR END
70: 49 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20   IF
### Disk Sector 116 ###
00: 20 20 20 20 20 20 20 20 31 4c 49 4e 45 20 55 4e           1LINE UN
10: 54 49 4c 20 3b 20 20 20 20 20 20 20 20 20 20 20   TIL ;
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
### Disk Sector 117 ###
00: 3a 20 44 45 4c 45 54 45 20 20 20 20 20 20 20 20   : DELETE
10: 20 20 20 20 20 20 20 20 28 20 42 41 43 4b 57 41           ( BACKWA
20: 52 44 53 20 41 54 20 43 55 52 53 4f 52 20 42 59   RDS AT CURSOR BY
30: 20 43 4f 55 4e 54 2d 31 20 2a 29 20 20 20 20 20    COUNT-1 *)
40: 20 20 20 20 3e 52 20 23 4c 41 47 20 2b 20 46 4f       >R #LAG + FO
50: 52 54 48 20 52 20 2d 20 20 20 20 20 20 20 20 28   RTH R -        (
60: 20 53 41 56 45 20 42 4c 41 4e 4b 20 46 49 4c 4c    SAVE BLANK FILL
70: 20 4c 4f 43 41 54 49 4f 4e 20 29 20 20 20 20 20    LOCATION )
### Disk Sector 118 ###
00: 20 20 20 20 23 4c 41 47 20 52 20 4d 49 4e 55 53       #LAG R MINUS
10: 20 52 23 20 2b 21 20 20 20 20 20 20 20 20 20 20    R# +!
20: 20 20 20 20 20 20 20 20 20 20 28 20 42 41 43 4b             ( BACK
30: 55 50 20 43 55 52 53 4f 52 20 29 20 20 20 20 20   UP CURSOR )
40: 20 20 20 20 23 4c 45 41 44 20 2b 20 53 57 41 50       #LEAD + SWAP
50: 20 43 4d 4f 56 45 20 20 20 20 20 20 20 20 20 20    CMOVE
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 119 ###
00: 20 20 20 20 52 3e 20 42 4c 41 4e 4b 53 20 55 50       R> BLANKS UP
10: 44 41 54 45 20 3b 20 20 20 20 20 20 20 20 20 20   DATE ;
20: 20 20 28 20 46 49 4c 4c 20 46 52 4f 4d 20 45 4e     ( FILL FROM EN
30: 44 20 4f 46 20 54 45 58 54 20 29 20 20 20 20 20   D OF TEXT )
40: 2d 2d 3e 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