ROM Computer Magazine Archive ROM MAGAZINE ISSUE 2 — OCTOBER/NOVEMBER 1983 / PAGE 25

Chart Maker
by Toung Tran

    This program below is a graphing program that uses Atari's special character set to make the graph around the bars in the chart. The program first asks the user to input how long, or number of time. Next it asks how big you want the unit to be per block. This program can also be used by changing the letters to horses or numbers and make a gambling game.

10 DIM F(11),COUNT(11)
15 SCREEN =PEEK(88)+256*PEEK(89)
20 FOR N=0 TO 11:F(W)=SCREEN+6+W*3+40*21:COUNT(W)=0:NEXT W
25 ? "}INPUT NUMBER OF TIME ";:INPUT NUMBER
30 ? " INPUT UNIT PER BLOCK ";:INPUT BLOCK:IF BLOCK<0 OR NUMBER<0 THEN 25
40 POKE 85,1:? ;"10QWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWE"
45 POKE 85,3:? ;"ASSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSD"
50 P=RND(0):FOR S=l TO 9
60 ? 10-S;:POKE 85,3:? ;"ASSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSD"
70 POKE 85,3:? ;"ASSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSD"
80 NEXT S
90 POKE 85,1:? ;"0ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXC"
100 ? " ABCDEFGHIJK"
105 FOR D=1 TO NUMBER
110 T=INT(RND(0)*11)
115 COUNT(T)=COUNT(T)+1
120 IF COUNT(T)>=BLOCK THEN COUNT(T)=0:F(T)=F(T)-40:GOTO 300
150 NEXT D
200 POKE 764,255
210 IF PEEK(764)=255 THEN 210
220 POKE 764,255:GOTO 20
300 IF F(T)<SCREEN+40*2 THEN 150
310 POKE F(T),128:GOTO 150