Listing of file='BK4TH1.SCR;1F' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 248 ### 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 31 20 20 20 20 20 20 20 AKFORTH 1 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 46 4f 52 54 48 FORTH 50: 20 44 45 46 49 4e 49 54 49 4f 4e 53 20 44 45 43 DEFINITIONS DEC 60: 49 4d 41 4c 20 20 20 20 20 20 20 20 20 20 20 20 IMAL 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 249 ### 00: 30 20 56 41 52 49 41 42 4c 45 20 42 43 4f 55 4e 0 VARIABLE BCOUN 10: 54 20 20 20 30 20 56 41 52 49 41 42 4c 45 20 42 T 0 VARIABLE B 20: 45 53 54 20 20 20 30 20 56 41 52 49 41 42 4c 45 EST 0 VARIABLE 30: 20 53 43 4f 52 45 20 20 20 20 20 20 20 20 20 20 SCORE 40: 30 20 56 41 52 49 41 42 4c 45 20 58 50 4f 53 20 0 VARIABLE XPOS 50: 20 20 20 20 30 20 56 41 52 49 41 42 4c 45 20 59 0 VARIABLE Y 60: 50 4f 53 20 20 20 32 20 56 41 52 49 41 42 4c 45 POS 2 VARIABLE 70: 20 50 50 4f 53 20 20 20 20 20 20 20 20 20 20 20 PPOS ### Disk Sector 250 ### 00: 31 20 56 41 52 49 41 42 4c 45 20 59 44 49 52 20 1 VARIABLE YDIR 10: 20 20 20 20 31 20 56 41 52 49 41 42 4c 45 20 58 1 VARIABLE X 20: 44 49 52 20 20 32 33 20 56 41 52 49 41 42 4c 45 DIR 23 VARIABLE 30: 20 43 4f 4c 4f 52 20 20 20 20 20 20 20 20 20 20 COLOR 40: 43 4f 44 45 20 45 4d 49 54 20 48 20 50 4f 50 20 CODE EMIT H POP 50: 4c 20 41 20 4d 4f 56 20 35 31 20 43 41 4c 4c 20 L A MOV 51 CALL 60: 4e 45 58 54 20 4a 4d 50 20 43 3b 20 20 20 20 20 NEXT JMP C; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 251 ### 00: 3a 20 32 45 4d 49 54 20 20 45 4d 49 54 20 45 4d : 2EMIT EMIT EM 10: 49 54 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 IT ; 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 33 45 4d 49 54 20 20 45 4d 49 54 20 45 4d : 3EMIT EMIT EM 50: 49 54 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 IT EMIT ; 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 252 ### 00: 3a 20 43 4c 49 4e 45 20 20 30 20 33 20 33 45 4d : CLINE 0 3 3EM 10: 49 54 20 31 31 20 45 4d 49 54 20 3b 20 20 20 20 IT 11 EMIT ; 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 43 4f 4c 55 4d 4e 20 33 20 32 45 4d 49 54 : COLUMN 3 2EMIT 50: 20 32 20 45 4d 49 54 20 31 30 20 32 37 20 32 45 2 EMIT 10 27 2E 60: 4d 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 MIT 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 253 ### 00: 20 20 20 20 20 20 20 20 20 33 32 20 32 20 44 4f 32 2 DO 10: 20 39 36 20 45 4d 49 54 20 4c 4f 4f 50 20 31 31 96 EMIT LOOP 11 20: 20 32 37 20 32 45 4d 49 54 20 3b 20 20 20 20 20 27 2EMIT ; 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 42 4f 52 44 45 52 20 30 20 43 4f 4c 55 4d : BORDER 0 COLUM 50: 4e 20 36 33 20 43 4f 4c 55 4d 4e 20 32 20 30 20 N 63 COLUMN 2 0 60: 33 20 33 45 4d 49 54 20 36 34 20 30 20 44 4f 20 3 3EMIT 64 0 DO 70: 39 36 20 45 4d 49 54 20 4c 4f 4f 50 20 3b 20 20 96 EMIT LOOP ; ### Disk Sector 254 ### 00: 3a 20 42 52 49 43 4b 53 20 32 32 20 59 50 4f 53 : BRICKS 22 YPOS 10: 20 21 20 2d 31 20 59 44 49 52 20 21 20 37 20 31 ! -1 YDIR ! 7 1 20: 20 33 20 33 45 4d 49 54 20 31 36 20 37 20 44 4f 3 3EMIT 16 7 DO 30: 20 43 4f 4c 4f 52 20 40 20 20 20 20 20 20 20 20 COLOR @ 40: 20 20 20 20 20 20 20 20 20 44 55 50 20 44 55 50 DUP DUP 50: 20 32 31 20 3c 20 49 46 20 31 20 2d 20 45 4e 44 21 < IF 1 - END 60: 49 46 20 45 4d 49 54 20 31 20 2d 20 43 4f 4c 4f IF EMIT 1 - COLO 70: 52 20 21 20 30 20 31 20 20 20 20 20 20 20 20 20 R ! 0 1 ### Disk Sector 255 ### 00: 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 36 BEGIN 6 10: 33 20 31 20 44 4f 20 31 31 36 20 45 4d 49 54 20 3 1 DO 116 EMIT 20: 4c 4f 4f 50 20 32 35 20 31 30 20 31 33 20 33 45 LOOP 25 10 13 3E 30: 4d 49 54 20 30 3d 20 20 20 20 20 20 20 20 20 20 MIT 0= 40: 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 32 UNTIL 2 50: 20 2b 4c 4f 4f 50 20 33 31 30 20 42 43 4f 55 4e +LOOP 310 BCOUN 60: 54 20 21 20 32 33 20 43 4f 4c 4f 52 20 21 20 3b T ! 23 COLOR ! ; 70: 20 2d 2d 3e 20 20 20 20 20 20 20 20 20 20 20 20 -->