0 'VWGRPH.BA author unknown
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
10 CLS
15 MAXFILES=1:CLEAR256
20 DEFINTC-D
25 DIMC(26,50),D(5,26)
30 SC=48:GOSUB7000
35 INPUT"ENTER INPUT FILE NAME";CI$
100 CLS
105 PRINT@40,CHR$(27);"p";"CHOOSE FUNCTION";CHR$(27);"q";
110 PRINT@120,"1 - REVIEW CHARTS"
115 PRINT"2 - PRINT CHARTS"
120 PRINT"3 - RETURN TO MENU"
125 A$=INKEY$:IFA$=""THENGOTO125
130 IFA$="1"THENGOSUB3000:GOTO100
135 IFA$="2"THENGOSUB3100:GOTO100
140 IFA$="3"THENCLOSE:MENU
145 GOTO125
3000 OPEN CI$ FORINPUTAS1:Z=1
3005 CLS
3010 PRINT@40,"GRAPH ";Z
3015 IF EOF(1)THENCLOSE:CLS:RETURN
3020 GOSUB 4000
3025 GOSUB 4100
3030 PRINT@120,"ENTER N FOR NEXT CHART"
3035 PRINT@160,"ENTER A TO ABORT"
3040 Z=Z+1
3045 A$=INKEY$:IFA$=""THENGOTO3045
3050 IFA$="N"ORA$="n"THENGOTO3005
3055 IFA$="A"ORA$="a"THENCLOSE:MENU
3060 GOTO3045
3100 OPEN CI$ FORINPUTAS1
3101 PZ=1
3103 CLS:PRINT@125,"PRINTING CHART ";PZ;
3105 GOSUB4000:GOSUB4100
3110 GOSUB6200
3115 GOSUB4500
3120 LPRINTCHR$(12);
3125 IFEOF(1)THENCLOSE:RETURN
3130 PZ=PZ+1:GOTO3103
4000 FORY=1TO26
4005 FORX=1TO50
4010 IFEOF(1)THEN4050
4015 C(0,0)=ASC(INPUT$(1,1))
4020 IFC(0,0)=12THEN4050
4025 IFC(0,0)=13THENC(0,0)=ASC(INPUT$(1,1)):IFX<=50THENFORX=XTO50     :C(Y,X)=32:NEXTX:GOTO4040
4030 C(Y,X)=C(0,0)
4035 NEXTX
4040 NEXTY
4045 RETURN
4050 FORY=YTO26:FORX=1TO50:C(Y,X)=32:NEXTX:NEXTY
4055 RETURN
4100 LINE(171,2)-(239,40),1,B
4110 FOR Y=1TO26
4115 FOR X=1TO50
4120 IFC(Y,X)<>32THENPSET(X+179,Y+8)
4125 NEXTX:NEXTY
4130 RETURN
4500 FORX=50TO1STEP-1
4505 FORY=26TO1STEP-1:IFC(Y,X)=32THENNEXTY:LPRINTCHR$(13);         :GOTO4520
4507 MX=Y
4510 GOSUB5000
4515 GOSUB6000
4520 NEXTX
4525 RETURN
5000 FORZ=5TO0STEP-1
5010 FORY=1TO26
5015 T=C(Y,X)
5020 IFZ=5ANDT<128THEND(5,Y)=0:GOTO5050
5025 IFT<32THEND(Z,Y)=0:GOTO5050
5030 IFT<128THEND(Z,Y)=PEEK(30481+((5*(T-32))+Z)):GOTO5050
5035 IF(T>127ANDT<177)OR(T>224)THEND(Z,Y)=PEEK(30961+(6*(T-128))         +Z)ELSED(Z,Y)=E((T-177),Z)
5050 NEXTY:NEXTZ
5055 RETURN
6000 REM
6004 LPRINTCHR$(27);"Y";CHR$((((MX+2)*32)MOD256));CHR$(INT((         (MX+2)         *32)/256));
6005 FORV=1TO64:LPRINTCHR$(0);:NEXTV
6010 FORY=1TO26
6012 IF Y>MXTHENGOTO6061
6015 IF(D(5,Y)=0ANDD(4,Y)=0ANDD(3,Y)=0)THENFORV=1TO32:LPRINT         CHR$(0);:NEXTV:GOTO6055
6020 FORV=0TO7
6025 T=0
6030 IF(D(5,Y)AND2^V)<>0THENT=T+192
6035 IF(D(4,Y)AND2^V)<>0THENT=T+48
6040 IF(D(3,Y)AND2^V)<>0THENT=T+12
6045 LPRINTCHR$(T);CHR$(T);CHR$(T);CHR$(T);
6050 NEXTV
6055 NEXTY
6061 LPRINTCHR$(13);
6063 LPRINTCHR$(27);"Y";CHR$((((MX+2)*32)MOD256));CHR$(INT((         (MX+2)*32)/256));
6064 FORV=1TO64:LPRINTCHR$(0);:NEXTV
6070 FORY=1TO26
6071 IF Y>MXTHENGOTO6120
6075 IF(D(2,Y)=0ANDD(1,Y)=0ANDD(0,Y)=0)THENFORV=1TO32:LPRINTCHR$         (0);:NEXTV:GOTO6115
6080 FORV=0TO7
6085 T=0
6090 IF(D(2,Y)AND2^V)<>0THENT=T+192
6095 IF(D(1,Y)AND2^V)<>0THENT=T+48
6100 IF(D(0,Y)AND2^V)<>0THENT=T+12
6105 LPRINTCHR$(T);CHR$(T);CHR$(T);CHR$(T);
6110 NEXTV
6115 NEXTY
6120 LPRINTCHR$(13);
6125 RETURN
6200 LPRINTCHR$(27);"A";CHR$(6);CHR$(27);"2";:FOR X = 1 TO9         :LPRINTCHR$(10);:NEXTX:LPRINTCHR$(13);
6205 RETURN
7000 IFSC=0THENRETURN
7005 DIME(SC-1,5)
7010 FORX=0TOSC-1
7015 FORY=5TO0STEP-1
7020 READE(X,Y)
7025 NEXTY:NEXTX
7030 RETURN
7100 DATA 3,3,7,31,30,0,60,124,112,96,96,0,30,31,7,3,3,0,96,96,             112,124,60,0,0,32,144,144,144,96,0,3,4,4,4,2,0,96,144,             144,144,240
7105 DATA 0,0,0,0,0,7,0,16,144,144,144,240,0,4,4,4,4,7,0,96,144,             144,144,240,0,4,2,1,0,7,0,112,128,128,128,112,0,0,0,7,0,0
7110 DATA 0,16,48,127,48,16
7115 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,              0,0,0,0
7120 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,              0,0,0,0
7125 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,              0,0,0,0
7130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,              0,0,0,0
7135 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,              0,0,0,0
7140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,              0,0,0,0
7145 DATA 0,0,0,0,0,0