start tok64 d64-Y7mknA 2 POKE631,82:POKE632,85:POKE633,78:POKE634,54:POKE635,13:REM" run6 4 POKE198,5:OPEN15,9,15,"i0":END:" some turbo cart. break with {arrow left}e9" 6 CLOSE15:d=8:IF(st AND 191)=0 THENd=9 8 : 10 PRINT"{clear}{down} annual report ka43/61 20 PRINT" an hires demo 30 PRINT" by k]re aanestad 16-oct-92 50 {arrow left}e8:c$="80-screen.chr":{arrow left}x"norsk*",c$d 60 IF(st AND 191)<>0 AND d=9 THEN:{arrow left}e9:PRINT"{up*3}":{arrow left}e8:{arrow left}x,c$8 70 {arrow left}x"hires"b 80 : 90 DIM n(11):sc=112:b=172:READ yr$:PRINT CHR$(14) 100 max=0:FOR z=0 TO 11:READ n(z): IF n(z)> max THEN max=n(z) 110 NEXT:nom=sc/max:REM" 100%=sc dots 120 {arrow left}xb:{arrow left}xc:{arrow left}xs:{arrow left}xt,1,26,"{ct n}ANNUAL REPORT":{arrow left}xt,4,3,yr$+"{ct o}" 130 {arrow left}xt,4,54,"Production":{arrow left}xt,5,54,"Best month=100%" 140 FOR y=b-sc TO b:{arrow left}xp,33,y:{arrow left}xp,34,y:NEXT 150 {arrow left}xt,21,6,"0 {sh asterisk}":{arrow left}xt,14,4,"50% {sh asterisk}":{arrow left}xt,7,3,"100% {sh asterisk}" 160 {arrow left}xt,22,11,"Jan{space*2}Feb{space*2}Mar{space*2}Apr{space*2}May{space*2}Jun{space*2}Jul{space*2}Aug{space*2}Sep{space*2}Oct{space*2}Nov{space*2}Dec" 170 FOR z=0 TO 11:t=INT(b-n(z)*nom+.5):l=43+z*20:r=l+12 180 FOR y=b TO t STEP-1 190 FOR x=lTOr:{arrow left}xp,x,y:NEXT 200 NEXT:NEXT 210 : 220 {arrow left}xt,24,20,"Press {reverse on} F7 {reverse off} to quit and {reverse on} F5 {reverse off} for print out" 230 FOR x=1 TO 300:NEXT:REM" delay 240 GET a$:IF a$="" THEN:{arrow left}xt,24,20,"{f1*41}" 250 IF a$="{f7}" THEN:{arrow left}xr:END 260 IF a$<>"{f5}" THEN220 270 {arrow left}c0:OPEN 4,4:PRINT#4,CHR$(14):REM" only chr's when in {arrow left}c0 & hires 280 {arrow left}g13,224,23:{arrow left}g:PRINT#4,CHR$(15):CLOSE 4:GOTO220 290 : 300 DATA 1990,30,80,60,40,50,55,10,05,65,100,70,35 stop tok64 (bastext 1.0)