Compucolor.org – Virtual Media

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

### Disk Sector 280 ###
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 35 20 20 20 20 20 20 20   AKFORTH 5
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 281 ###
00: 3a 20 45 58 49 54 20 20 20 20 20 20 20 33 31 20   : EXIT       31
10: 32 37 20 31 32 20 33 45 4d 49 54 20 3b 20 20 20   27 12 3EMIT ;
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 53 50 45 45 44 20 20 20 20 20 20 59 50 4f   : SPEED      YPO
50: 53 20 40 20 31 36 20 3e 20 32 20 2b 20 3b 20 3a   S @ 16 > 2 + ; :
60: 20 44 45 4c 41 59 20 35 20 30 20 44 4f 20 4e 4f    DELAY 5 0 DO NO
70: 4f 50 20 4c 4f 4f 50 20 3b 20 20 20 20 20 20 20   OP LOOP ;
### Disk Sector 282 ###
00: 3a 20 47 41 4d 45 20 20 20 20 20 20 20 49 4e 49   : GAME       INI
10: 54 20 50 53 45 54 20 32 30 20 30 20 28 20 4e 55   T PSET 20 0 ( NU
20: 4d 42 45 52 20 4f 46 20 42 41 4c 4c 53 20 29 20   MBER OF BALLS )
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 44 4f 20                DO
50: 38 30 20 30 20 44 4f 20 50 41 44 44 4c 45 20 4c   80 0 DO PADDLE L
60: 4f 4f 50 20 30 20 36 30 20 33 20 33 45 4d 49 54   OOP 0 60 3 3EMIT
70: 20 49 20 31 2b 20 2e 20 20 20 20 20 20 20 20 20    I 1+ .
### Disk Sector 283 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 52                2 R
10: 41 4e 44 4f 4d 20 31 20 3d 20 49 46 20 31 20 45   ANDOM 1 = IF 1 E
20: 4c 53 45 20 2d 31 20 54 48 45 4e 20 58 44 49 52   LSE -1 THEN XDIR
30: 20 21 20 2d 31 20 59 44 49 52 20 21 20 20 20 20    ! -1 YDIR !
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 36 31 20                61
50: 52 41 4e 44 4f 4d 20 31 2b 20 58 50 4f 53 20 21   RANDOM 1+ XPOS !
60: 20 32 32 20 59 50 4f 53 20 21 20 20 20 20 20 20    22 YPOS !
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 284 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47                BEG
10: 49 4e 20 53 50 45 45 44 20 30 20 44 4f 20 50 41   IN SPEED 0 DO PA
20: 44 44 4c 45 20 44 45 4c 41 59 20 4c 4f 4f 50 20   DDLE DELAY LOOP
30: 42 41 4c 4c 20 47 41 4d 45 43 48 4b 20 20 20 20   BALL GAMECHK
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54                UNT
50: 49 4c 20 4c 4f 4f 50 20 3b 20 20 20 20 20 20 20   IL LOOP ;
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 285 ###
00: 3a 20 59 2f 4e 20 20 20 20 20 20 20 20 42 45 47   : Y/N        BEG
10: 49 4e 20 4b 45 59 20 44 55 50 20 44 55 50 20 38   IN KEY DUP DUP 8
20: 39 20 3d 20 53 57 41 50 20 37 38 20 3d 20 4f 52   9 = SWAP 78 = OR
30: 20 44 55 50 20 20 20 20 20 20 20 20 20 20 20 20    DUP
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20                IF
50: 4e 4f 4f 50 20 45 4c 53 45 20 53 57 41 50 20 44   NOOP ELSE SWAP D
60: 52 4f 50 20 45 4e 44 49 46 20 55 4e 54 49 4c 20   ROP ENDIF UNTIL
70: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ;
### Disk Sector 286 ###
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 42 52 45 41 4b 46 4f 52 54 48 20 42 45 47   : BREAKFORTH BEG
50: 49 4e 20 47 41 4d 45 20 53 43 4f 52 45 20 40 20   IN GAME SCORE @
60: 42 45 53 54 20 40 20 4d 41 58 20 42 45 53 54 20   BEST @ MAX BEST
70: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   !
### Disk Sector 287 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 36 20 32                6 2
10: 32 20 33 20 33 45 4d 49 54 20 2e 22 20 52 55 4e   2 3 3EMIT ." RUN
20: 20 47 41 4d 45 20 41 47 41 49 4e 20 3f 20 22 20    GAME AGAIN ? "
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 59 2f 4e                Y/N
50: 20 37 38 20 3d 20 55 4e 54 49 4c 20 31 32 20 45    78 = UNTIL 12 E
60: 4d 49 54 20 57 41 52 4d 20 3b 20 3b 53 20 20 20   MIT WARM ; ;S
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20