Compucolor.org – Virtual Media

Listing of file='BK4TH3.SCR;21' on disk='vmedia/chip_121-sector.ccvf'

### Disk Sector 264 ###
00: 28 20 43 4f 4d 50 55 43 4f 4c 4f 52 20 42 52 45   ( COMPUCOLOR BRE
10: 41 4b 46 4f 52 54 48 20 33 20 20 20 20 20 20 20   AKFORTH 3
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 4c                BIL
30: 4c 20 52 48 4f 44 45 53 20 31 32 2f 38 31 20 29   L RHODES 12/81 )
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 265 ###
00: 3a 20 50 41 44 44 4c 45 20 33 33 32 35 32 20 43   : PADDLE 33252 C
10: 40 20 44 55 50 20 32 30 20 3d 20 49 46 20 2d 31   @ DUP 20 = IF -1
20: 20 45 4c 53 45 20 30 20 45 4e 44 49 46 20 20 20    ELSE 0 ENDIF
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 53 57 41 50 20 32 32            SWAP 22
50: 20 3d 20 49 46 20 31 20 45 4c 53 45 20 30 20 45    = IF 1 ELSE 0 E
60: 4e 44 49 46 20 2b 20 44 55 50 20 30 3d 20 30 3d   NDIF + DUP 0= 0=
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 266 ###
00: 20 20 20 20 20 20 20 20 20 49 46 20 50 43 4c 52            IF PCLR
10: 20 45 4e 44 49 46 20 50 50 4f 53 20 40 20 2b 20    ENDIF PPOS @ +
20: 32 20 4d 41 58 20 35 37 20 4d 49 4e 20 50 50 4f   2 MAX 57 MIN PPO
30: 53 20 21 20 50 53 45 54 20 3b 20 20 20 20 20 20   S ! PSET ;
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 267 ###
00: 3a 20 58 43 48 4b 20 20 20 58 50 4f 53 20 40 20   : XCHK   XPOS @
10: 44 55 50 20 31 20 3d 20 53 57 41 50 20 36 32 20   DUP 1 = SWAP 62
20: 3d 20 4f 52 20 49 46 20 58 44 49 52 20 40 20 4d   = OR IF XDIR @ M
30: 49 4e 55 53 20 58 44 49 52 20 21 20 20 20 20 20   INUS XDIR !
40: 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 58            ENDIF X
50: 44 49 52 20 40 20 58 50 4f 53 20 2b 21 20 58 50   DIR @ XPOS +! XP
60: 4f 53 20 40 20 44 55 50 20 30 3d 20 49 46 20 31   OS @ DUP 0= IF 1
70: 20 58 50 4f 53 20 21 20 20 20 20 20 20 20 20 20    XPOS !
### Disk Sector 268 ###
00: 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 36            ENDIF 6
10: 33 20 3d 20 49 46 20 36 32 20 58 50 4f 53 20 21   3 = IF 62 XPOS !
20: 20 45 4e 44 49 46 20 3b 20 20 20 20 20 20 20 20    ENDIF ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 59 43 48 4b 20 20 20 59 50 4f 53 20 40 20   : YCHK   YPOS @
50: 33 20 3d 20 49 46 20 31 20 59 44 49 52 20 21 20   3 = IF 1 YDIR !
60: 45 4e 44 49 46 20 59 44 49 52 20 40 20 59 50 4f   ENDIF YDIR @ YPO
70: 53 20 2b 21 20 3b 20 20 20 20 20 20 20 20 20 20   S +! ;
### Disk Sector 269 ###
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 54 52 41 4e 20 20 20 32 20 2d 20 44 55 50   : TRAN   2 - DUP
50: 20 2d 31 20 3e 20 49 46 20 31 2b 20 45 4e 44 49    -1 > IF 1+ ENDI
60: 46 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   F ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 270 ###
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 50 43 48 4b 20 20 20 30 20 59 50 4f 53 20   : PCHK   0 YPOS
50: 40 20 32 39 20 3c 20 30 3d 20 49 46 20 58 50 4f   @ 29 < 0= IF XPO
60: 53 20 40 20 50 50 4f 53 20 40 20 2d 20 44 55 50   S @ PPOS @ - DUP
70: 20 30 20 3c 20 30 3d 20 4f 56 45 52 20 34 20 20    0 < 0= OVER 4
### Disk Sector 271 ###
00: 20 20 20 20 20 20 20 20 20 3c 20 41 4e 44 20 49            < AND I
10: 46 20 2d 31 20 59 44 49 52 20 21 20 54 52 41 4e   F -1 YDIR ! TRAN
20: 20 58 44 49 52 20 21 20 32 39 20 59 50 4f 53 20    XDIR ! 29 YPOS
30: 21 20 42 4f 50 20 20 20 20 20 20 20 20 20 20 20   ! BOP
40: 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 52            ELSE DR
50: 4f 50 20 59 50 4f 53 20 40 20 33 31 20 3d 20 49   OP YPOS @ 31 = I
60: 46 20 31 2b 20 45 4e 44 49 46 20 45 4e 44 49 46   F 1+ ENDIF ENDIF
70: 20 45 4e 44 49 46 20 3b 20 2d 2d 3e 20 20 20 20    ENDIF ; -->