Listato per il basic del Commodore 64 che consente di creare degli istogrammi con la stampante MPS801.
100 data 240,152,148,148,244,140,252
110 fori=1to7
120 read q:a$=a$+chr$(q)
130 next i
140 data 255,128,128,128,255,128,255
150 fori=1to7
160 read q:b$=b$+chr$(q)
170 next i
180 data 128,128,128,128,128,128,128
190 fori=1to7
200 read q:c$=c$+chr$(q)
210 next i
220 data 255,129,129,129,128,128,128
230 fori=1to7
240 read q:d$=d$+chr$(q)
250 next i
260 print chr$(147):poke 646,1:poke53280,0:poke53281,0
270 print"Numero di elementi da confrontare"
280 input "Variabile";n
290 input "Estensione";e
300 dim p(e,n)
310 fori=0toe:p(i,0)=3:next
320 fori=1ton
330 readv
340 p((e+1)-v,i)=2:v=v-1
350 for c=(e+1)-v to e
360 p(c,i)=1
370 next c:next i
380 open2,4
390 fori=0toe
400 forc=0ton
410 x=p(i,c)
420 if x=3 then print#2,chr$(8)d$;chr$(8) c$;
430 if x=1 then print#2,chr$(8)b$;chr$(8) c$;
440 if x=2 then print#2,chr$(8)a$;chr$(8) c$;
450 if x=0 then print#2,chr$(8)c$;c$;
460 next c
470 print#2,chr$(8)
480 next i
490 data 16,2
Torna indietro
