Listing of file='BK4TH4.SCR;22' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 272 ### 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 34 20 20 20 20 20 20 20 AKFORTH 4 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 273 ### 00: 3a 20 58 59 43 55 52 20 20 20 20 20 32 20 2a 20 : XYCUR 2 * 10: 53 57 41 50 20 31 32 38 20 2a 20 32 38 36 37 32 SWAP 128 * 28672 20: 20 2b 20 2b 20 3b 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 44 53 45 54 20 20 20 20 20 20 58 59 43 55 : DSET XYCU 50: 52 20 44 55 50 20 31 2b 20 35 20 53 57 41 50 20 R DUP 1+ 5 SWAP 60: 43 21 20 31 30 30 20 53 57 41 50 20 43 21 20 3b C! 100 SWAP C! ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 274 ### 00: 3a 20 44 43 4c 52 20 20 20 20 20 20 58 59 43 55 : DCLR XYCU 10: 52 20 44 55 50 20 31 2b 20 35 20 53 57 41 50 20 R DUP 1+ 5 SWAP 20: 43 21 20 33 32 20 53 57 41 50 20 43 21 20 3b 20 C! 32 SWAP C! ; 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 275 ### 00: 3a 20 43 4c 52 20 20 20 20 20 20 20 59 50 4f 53 : CLR YPOS 10: 20 40 20 58 50 4f 53 20 40 20 44 55 50 20 32 20 @ XPOS @ DUP 2 20: 4d 4f 44 20 30 3d 20 49 46 20 31 20 2d 20 45 4c MOD 0= IF 1 - EL 30: 53 45 20 31 2b 20 45 4e 44 49 46 20 20 20 20 20 SE 1+ ENDIF 40: 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 52 DCLR 50: 20 2d 31 20 42 43 4f 55 4e 54 20 2b 21 20 42 4f -1 BCOUNT +! BO 60: 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 P 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 276 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 59 50 4f 53 YPOS 10: 20 40 20 31 37 20 2d 20 41 42 53 20 32 20 2a 20 @ 17 - ABS 2 * 20: 53 43 4f 52 45 20 2b 21 20 30 20 33 36 20 33 20 SCORE +! 0 36 3 30: 33 45 4d 49 54 20 53 43 4f 52 45 20 3f 20 20 20 3EMIT SCORE ? 40: 20 20 20 20 20 20 20 20 20 20 20 20 30 20 36 34 0 64 50: 20 33 20 33 45 4d 49 54 20 59 44 49 52 20 40 20 3 3EMIT YDIR @ 60: 4d 49 4e 55 53 20 59 44 49 52 20 21 20 3b 20 20 MINUS YDIR ! ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 277 ### 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 44 43 48 4b 20 20 20 20 20 20 58 59 43 55 : DCHK XYCU 50: 52 20 43 40 20 31 31 36 20 3d 20 3b 20 20 20 20 R C@ 116 = ; 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 278 ### 00: 3a 20 42 41 4c 4c 43 48 4b 20 20 20 58 43 48 4b : BALLCHK XCHK 10: 20 59 43 48 4b 20 50 43 48 4b 20 59 50 4f 53 20 YCHK PCHK YPOS 20: 40 20 58 50 4f 53 20 40 20 44 43 48 4b 20 49 46 @ XPOS @ DCHK IF 30: 20 43 4c 52 20 45 4e 44 49 46 20 3b 20 20 20 20 CLR ENDIF ; 40: 3a 20 42 41 4c 4c 20 20 20 20 20 20 59 50 4f 53 : BALL YPOS 50: 20 40 20 58 50 4f 53 20 40 20 44 43 4c 52 20 42 @ XPOS @ DCLR B 60: 41 4c 4c 43 48 4b 20 44 55 50 20 30 3d 20 20 20 ALLCHK DUP 0= 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 279 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 59 IF Y 10: 50 4f 53 20 40 20 58 50 4f 53 20 40 20 44 53 45 POS @ XPOS @ DSE 20: 54 20 54 48 45 4e 20 50 53 45 54 20 3b 20 20 20 T THEN PSET ; 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 47 41 4d 45 43 48 4b 20 20 20 42 43 4f 55 : GAMECHK BCOU 50: 4e 54 20 40 20 30 3d 20 49 46 20 42 52 49 43 4b NT @ 0= IF BRICK 60: 53 20 31 30 30 30 20 53 43 4f 52 45 20 2b 21 20 S 1000 SCORE +! 70: 45 4e 44 49 46 20 3b 20 2d 2d 3e 20 20 20 20 20 ENDIF ; -->