Compucolor.org – Virtual Media

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

### Disk Sector 256 ###
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 32 20 20 20 20 20 20 20   AKFORTH 2
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 257 ###
00: 3a 20 49 4e 49 54 20 36 20 42 41 55 44 20 31 32   : INIT 6 BAUD 12
10: 20 31 39 20 31 34 20 33 45 4d 49 54 20 30 20 43    19 14 3EMIT 0 C
20: 4c 49 4e 45 20 32 32 20 53 50 41 43 45 53 20 20   LINE 22 SPACES
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 2e 22 20 43 4f 4d 50 55 43          ." COMPUC
50: 4f 4c 4f 52 20 42 52 45 41 4b 46 4f 52 54 48 20   OLOR BREAKFORTH
60: 22 20 31 35 20 32 32 20 32 45 4d 49 54 20 33 20   " 15 22 2EMIT 3
70: 43 4c 49 4e 45 20 35 20 53 50 41 43 45 53 20 20   CLINE 5 SPACES
### Disk Sector 258 ###
00: 20 20 20 20 20 20 20 2e 22 20 42 59 20 42 49 4c          ." BY BIL
10: 4c 20 52 48 4f 44 45 53 20 42 41 53 45 44 20 4f   L RHODES BASED O
20: 4e 20 4d 49 4c 4c 45 52 20 42 52 45 41 4b 46 4f   N MILLER BREAKFO
30: 52 54 48 20 2d 20 42 59 54 45 20 39 2f 38 30 22   RTH - BYTE 9/80"
40: 20 20 20 20 20 20 20 31 30 20 43 4c 49 4e 45 20          10 CLINE
50: 32 20 53 50 41 43 45 53 20 2e 22 20 55 53 45 20   2 SPACES ." USE
60: 12 28 34 2d 36 29 16 20 54 4f 20 4d 4f 56 45 20   .(4-6). TO MOVE
70: 50 41 44 44 4c 45 12 22 20 20 20 20 20 20 20 20   PADDLE."
### Disk Sector 259 ###
00: 20 20 20 20 20 20 20 32 30 20 53 50 41 43 45 53          20 SPACES
10: 20 2e 22 20 32 30 20 16 42 41 4c 4c 53 20 41 56    ." 20 .BALLS AV
20: 41 49 4c 41 42 4c 45 20 12 22 20 31 34 20 43 4c   AILABLE ." 14 CL
30: 49 4e 45 20 20 20 20 20 20 20 20 20 20 20 20 20   INE
40: 20 20 20 20 20 20 20 31 38 20 53 50 41 43 45 53          18 SPACES
50: 20 2e 22 20 13 20 55 53 45 20 15 20 53 4f 55 4e    ." . USE . SOUN
60: 44 57 41 52 45 20 13 20 46 4f 52 20 53 4f 55 4e   DWARE . FOR SOUN
70: 44 20 12 22 20 31 38 20 43 4c 49 4e 45 20 20 20   D ." 18 CLINE
### Disk Sector 260 ###
00: 20 20 20 20 20 20 20 32 31 20 53 50 41 43 45 53          21 SPACES
10: 20 2e 22 20 48 49 54 20 41 4e 59 20 4b 45 59 20    ." HIT ANY KEY
20: 54 4f 20 53 54 41 52 54 20 22 20 4b 45 59 20 31   TO START " KEY 1
30: 32 20 31 35 20 32 45 4d 49 54 20 20 20 20 20 20   2 15 2EMIT
40: 20 20 20 20 20 20 20 42 4f 52 44 45 52 20 31 37          BORDER 17
50: 20 45 4d 49 54 20 42 52 49 43 4b 53 20 30 20 43    EMIT BRICKS 0 C
60: 4c 49 4e 45 20 30 20 53 43 4f 52 45 20 21 20 31   LINE 0 SCORE ! 1
70: 39 20 45 4d 49 54 20 20 20 20 20 20 20 20 20 20   9 EMIT
### Disk Sector 261 ###
00: 20 20 20 20 20 20 20 2e 22 20 43 4f 4d 50 55 43          ." COMPUC
10: 4f 4c 4f 52 20 42 52 45 41 4b 46 4f 52 54 48 20   OLOR BREAKFORTH
20: 20 20 20 20 20 53 43 4f 52 45 20 3a 20 30 20 20        SCORE : 0
30: 20 20 20 42 45 53 54 3a 20 22 20 20 20 20 20 20      BEST: "
40: 20 20 20 20 20 20 20 42 45 53 54 20 3f 20 30 20          BEST ? 0
50: 35 33 20 33 20 33 45 4d 49 54 20 2e 22 20 42 41   53 3 3EMIT ." BA
60: 4c 4c 3a 20 22 20 3b 20 20 20 20 20 20 20 20 20   LL: " ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 262 ###
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 49 4e 49 54 20 50 50 4f 53 20 40 20 32   : PINIT PPOS @ 2
50: 20 2a 20 33 32 35 31 32 20 2b 20 44 55 50 20 31    * 32512 + DUP 1
60: 30 20 2b 20 53 57 41 50 20 3b 20 20 20 20 20 20   0 + SWAP ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 263 ###
00: 3a 20 50 53 45 54 20 20 50 49 4e 49 54 20 44 4f   : PSET  PINIT DO
10: 20 39 36 20 49 20 43 21 20 33 20 49 20 31 2b 20    96 I C! 3 I 1+
20: 43 21 20 32 20 2b 4c 4f 4f 50 20 3b 20 20 20 20   C! 2 +LOOP ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 50 43 4c 52 20 20 50 49 4e 49 54 20 44 4f   : PCLR  PINIT DO
50: 20 33 32 20 49 20 43 21 20 32 20 2b 4c 4f 4f 50    32 I C! 2 +LOOP
60: 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20    ;
70: 20 20 20 20 20 2d 2d 3e 20 20 20 20 20 20 20 20        -->