start tok64 d64-NGFubw
4 REM **********************************
5 REM * diagram till commodore-printer *
6 REM *       av birger gran           *
7 REM **********************************
10 DIMc(50):REM initiering
20 FORi=0TO9:FORj=1TO2:READr(j,i):NEXTj,i
30 DATA 146,32,146,180,146,180,146,180,146,181,146,161
40 DATA 18,182,18,167,18,167,18,167
50 pr$="":INPUT"{clear}printer inkopplad (j=ja)";pr$
55 INPUT"rubrik";ru$
60 i=0:REM inmatning
70 i=i+1:i$="":PRINT"tal ";i;:INPUTi$:IFi$=""THEN110
80 c(i)=VAL(i$):IFc(i)<0THENc(i)=0
90 IFc(i)>mxTHENmx=c(i)
100 GOTO70
110 n=i-1
120 fa=25/mx
130 IFpr$="j"THENOPEN4,4:CMD4
135 PRINTru$:PRINT
140 FORi=1TOn
150 c=(INT(c(i)*fa*10))/10
160 ci=INT(c)
170 cr=INT((c-ci)*10)
180 PRINTSPC(5-LEN(STR$(i)))iCHR$(170);
185 IF ci=0THEN220
190 FORj=1TOci
200 PRINTCHR$(18)CHR$(32);
210 NEXT j
220 PRINTCHR$(r(1,cr))CHR$(r(2,cr));
230 PRINTCHR$(146)CHR$(32)c(i)
240 NEXT i
250 IFpr$="j"THENPRINT#4:CLOSE4
260 END
stop tok64
(bastext 1.0)