Compucolor.org – Virtual Media

Listing of file='PETERS.BAS;01' on disk='vmedia/demos-sector.ccvf'

10 PLOT 6,29,12,3,64,0,2,32,95,251
20 READ A:PLOT A:IF A< 255THEN 20
30 DATA 136,138,162,34,38,100,68,65,17,17,17,17,17,17,17,17,17
40 DATA 136,136,136,136,136
50 DATA 170,170,170,34,38,100,85,17,17,25,25,152,136
60 DATA 170,170,42,42,42,42,34,40,132,68,72,130,34,2,16,16,16
70 DATA 16,16,16,16,17,17,17,17,25,153,136,136
75 DATA 170,170,170,34,38,100,85,17,17,25,25,152,136
80 DATA 138,170,42,34,162,162,136,25,17,17,17,17,1,32,32,32,32
90 DATA 32,32,32,32,32,170,137,154
92 DATA 160,160,170,34,34,65,64,64,16,16,16,16,16,16,16,16,16
93 DATA 16,16,16,16,16,16
95 DATA 25,138,162,162,162,162,162,145,145,17,17,81,84,68,6
100 DATA 255
110 PLOT 2,24,42,251
120 READ A:PLOT A:IF A< 255THEN 120
130 DATA 34,38,102,68,68,85,81,17,17,17,17,17,17,153,152,136
140 DATA 138,170,34,34,100,4,16,16,16,16,16,16,16,24,136
150 DATA 138,170,42,34,162,162,136,25,17,17,17,17,1,32,32,32,32
160 DATA 32,32,32,32,32,170,137,154
170 DATA 136,168,136,16,16,64,64,64,69,17,17,17,24,24,136,162
180 DATA 162,34,34,34,128,16,16,16,16,16,16,16,17,152,138
190 DATA 162,162,40,34,34,40,136,137,153,17,17,21,85,68,102,34
200 DATA 34,2,16,16,16,17,17,17,17,17,17,128,128,128,128,128
210 DATA 128,128,128,32,32,32,32,32,32,32,32,32,32,32,32,32,42
220 DATA 34,170,170,170,34,38,69,17,17,17,17,17,17,17,17,17
230 DATA 128,32,32,32,32,32,32,42,168,137,17,17,17,153
240 DATA 138,170,34,162,2,32,32,32,32,32,32,32,8,16,16,16,17
250 DATA 17,17,17,145,145,136,138,42,162,162
260 DATA 130,42,168,136,145,16,16,16,64,64,64,64,64,65,17,25
270 DATA 152,136
280 DATA 138,162,162,162,162,162,145,145,17,17,81,84,68,6
290 DATA 255