Compucolor.org – Virtual Media

Listing of file='PLT64.C;01' on disk='vmedia/chip_9-sector.ccvf'

### Disk Sector 221 ###
00: 2f 2a 20 14 50 4c 54 36 34 20 56 30 31 2e 30 30   /* .PLT64 V01.00
10: 12 20 2d 20 36 34 58 36 34 20 50 4c 4f 54 20 4c   . - 64X64 PLOT L
20: 49 42 52 41 52 59 20 49 4e 20 38 20 43 4f 4c 4f   IBRARY IN 8 COLO
30: 52 53 0d 0a 0d 0a 50 4c 4f 54 20 49 4e 54 20 59   RS....PLOT INT Y
40: 2c 58 2c 43 20 5b 0d 0a 43 48 41 52 20 56 28 30   ,X,C [..CHAR V(0
50: 29 0d 0a 49 46 28 58 3c 30 29 52 45 54 55 52 4e   )..IF(X<0)RETURN
60: 20 31 0d 0a 49 46 28 58 3e 36 33 29 52 45 54 55    1..IF(X>63)RETU
70: 52 4e 20 31 0d 0a 49 46 28 59 3c 30 29 52 45 54   RN 1..IF(Y<0)RET
### Disk Sector 222 ###
00: 55 52 4e 20 31 0d 0a 49 46 28 59 3e 36 33 29 52   URN 1..IF(Y>63)R
10: 45 54 55 52 4e 20 31 0d 0a 43 3d 43 25 38 0d 0a   ETURN 1..C=C%8..
20: 56 3d 32 38 36 37 33 2b 28 28 59 2f 32 29 2a 36   V=28673+((Y/2)*6
30: 34 2b 58 29 2a 32 0d 0a 49 46 28 59 25 32 29 56   4+X)*2..IF(Y%2)V
40: 28 30 29 3d 28 56 28 30 29 2b 31 32 38 29 25 38   (0)=(V(0)+128)%8
50: 2b 31 32 38 2b 43 2a 38 0d 0a 45 4c 53 45 20 56   +128+C*8..ELSE V
60: 28 30 29 3d 28 56 28 30 29 2b 31 32 38 29 2f 38   (0)=(V(0)+128)/8
70: 2a 38 2b 31 32 38 2b 43 0d 0a 5d 0d 0a 43 4c 45   *8+128+C..]..CLE
### Disk Sector 223 ###
00: 41 4e 20 5b 0d 0a 4d 43 28 36 2c 31 29 0d 0a 4d   AN [..MC(6,1)..M
10: 43 28 31 32 38 2c 31 29 0d 0a 4d 43 28 31 32 2c   C(128,1)..MC(12,
20: 31 29 0d 0a 4d 43 28 32 37 2c 31 29 0d 0a 4d 43   1)..MC(27,1)..MC
30: 28 27 59 27 2c 31 29 0d 0a 4d 43 28 35 31 2c 31   ('Y',1)..MC(51,1
40: 29 0d 0a 4d 43 28 36 2c 31 29 0d 0a 4d 43 28 32   )..MC(6,1)..MC(2
50: 2c 31 29 0d 0a 5d 0d 0a 00 00 00 00 00 00 00 00   ,1)..]..........
60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................