0 GOTO17'EM8SIG.100ver3.0:copyrightMMMILLER:75665,312:5/09/87 CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
1 G$="":AO=1
2 A$=INPUT$(1,1):PRINTA$;:G$=G$+A$
3 IFINSTR(G$,D$)THEN4ELSEIFINSTR(G$,X$)THENAO=2ELSEIFINSTR(G$,K$)THENAO=3ELSEIFA$=S$ORA$=R$THEN1ELSE2
4 X$="xyx":K$="xyx":RETURN
5 A=0:FORJ=1TOLEN(AH$):PRINT#2,MID$(AH$,J,1);:PRINTINPUT$(1,1);:A=A+1:IFA>115ANDMID$(AH$,J,1)=S$THENPRINT#2,R$;:A=0:NEXTELSENEXT:RETURN
8 C$="":N=0
9 A$=INPUT$(1,1):PRINT#3,A$;:PRINTA$;:C$=C$+A$:IFINSTR(C$,XR$)THENC$="":RETURNELSEIFA$=S$ORA$=R$THEN8ELSE9
11 A=0
12 IFEOF(XK)THENC$="":GOTO15
13 C$=INPUT$(1,XK):IFC$=V$THEN15ELSEPRINT#2,C$;:PRINTINPUT$(1,1);:A=A+1
14 IFC$=CHR$(10)THEN11ELSEIFY=1ANDXF=0THEN12ELSEIFA>64ANDC$=S$THENPRINT#2,B$;:GOTO11ELSEIFA>77THENPRINT#2,B$;:GOTO11ELSE12
15 IFY=1THEN16ELSEPRINT#2,AT$,TIME$;B$;"/EX":D$=DK$:GOSUB1
16 RETURN
17 CLEAR850:CLS:MAXFILES=4:DEFINTA-Z:DIMM(15):DIMAD$(25):ONERRORGOTO41:A$="7I1E"+CHR$(0):V=VARPTR(A$):CALL6118,0,PEEK(V+1)+PEEK(V+2)*256:CALL21179:POKE63019,20:GOSUB90:GOSUB79
18 ONKEYGOSUB109,115,114,170,65,61,150,45:GOSUB111:GOSUB110:GOSUB81:GOSUB110:GOSUB63:GOSUB110:GOSUB67
19 GOSUB52:BX$=TIME$:AX=0:OPEN"MDM:7I1E"FORINPUTAS1:OPEN"MDM:7I1E"FOROUTPUTAS2:KEYOFF:AX=1:CLS:PRINTBX$:AU$=SC$:D$="OK":X$="!":K$="area":PRINT#2,XZ$:GOSUB1:IFAO=3THENERROR99ELSEIFAO>1THENPRINT#2,CO$;"PRO":K$="area":GOSUB1:IFAO=3THENERROR98
20 ONERRORGOTO41:XF=0:XK=3:E=6:OPENBB$FORINPUTAS3
21 Y=1:H=0:AG=0:ST=242:C$="":PRINT:PRINTP$;BK$;CD$;Q$:IFEOF(3)THENERROR80
22 LINEINPUT#3,G$:A$=CHR$(51):IFG$=CQ$THENAD=0:CLOSE3:GOTO36ELSEH=INSTR(G$,"#"):C=INSTR(G$,":"):IFHTHENDA$=MID$(G$,H+1,C-H-1):G$=MID$(G$,C+1)ELSEIFCTHENG$=MID$(G$,C+1)ELSE22
23 FORX=1TOLEN(G$):IFMID$(G$,X,1)=";"THENY=Y+1:NEXTELSEAD$(Y)=AD$(Y)+MID$(G$,X,1):NEXT
24 IFHTHENDB$=DA$ELSEDB$=BI$
25 FORX=1TOY:IFVAL(AD$(X))>EORINSTR(G$,">")THEN28ELSEOPENBD$FORINPUTAS4
26 IFEOF(4)THENCLOSE4:ERROR81ELSELINEINPUT#4,G$:IFINSTR(G$,AD$(X))THENAD$(X)=MID$(G$,INSTR(G$,"[")+1)ELSE26
27 CLOSE4:NEXT:IFRA<>STTHENCALL(31989+ST)
28 C=0:LINEINPUT#3,AG$:C=INSTR(AG$,":"):IFCANDC<10THENAK$=MID$(AG$,C+1)ELSEAG=1:AK$=AT$
29 IFINSTR(E,AU$,A$)<1THEN43ELSEIFY>1ANDH<1THENGOSUB47
30 FORX=1TOY
31 PRINT#2,"R SNDMAL":D$="file":GOSUB1:IFH>0ORY>1THENPRINT#2,DB$:GOTO33ELSEPRINT#2,"tty:":D$="finished.":GOSUB1
32 GOSUB48:D$=",":PRINT#2,AT$S$S$S$TIME$",,,"B$;:GOSUB1:CALL21264:PRINT#2,CW$
33 D$="ID":X$="fou":GOSUB1:IFAO>1THENERROR85ELSEPRINT#2,AD$(X):D$="max":X$="NCF":K$="aga":GOSUB1:IFAO>1THENERROR84ELSEPRINT#2,AK$:GOSUB1:PRINT#2,NA$:D$=DK$:X$="rect":GOSUB1:GOSUB169:AD$(X)="":NEXT:IFY>1ANDH<1THENPRINT#2,"DEL ";DB$:GOSUB1
34 IFHTHEN113ELSEIFC$=V$THEN21
35 IFADTHENU$=BB$:GOSUB135ELSECLOSE3
36 PRINT:PRINTP$;"Read ";BA$;Q$:PRINT#2,"G EPXINT":D$="EPX:":GOSUB1:D$="Date:":X$="ing":PRINT#2,"RET100A":GOSUB1:IFAO>1THEN43
37 DL$=BC$:DL=3:GOSUB175:PRINT#3,B$;"Rec'd: ";DAY$;S$;DATE$;" -";TIME$;B$;G$;:XR$="EPX:":GOSUB9
38 PRINT#3,B$;CQ$;DG$;TIME$:IFAETHEN43
40 PRINT#2,"DEL100F":D$="EPX:":GOSUB1:GOTO43
41 IFERR=52ANDERL=52THEN42ELSEIFERR=52THENAD=0:RESUME36ELSE42
42 IFERR=80ANDHTHENRESUME36ELSEAD=0:P=0:PRINT"Error ";ERR;"  line ";ERL:CALL21264:GOSUB80
43 CLOSE4:DL$=BF$:DL=4:GOSUB175:IFXPTHEN44ELSEIFAXTHENIFP=1THENDD$=CS$:GOTO46ELSEIFP=2THENPRINT#2,"GO ";DD$:GOTO46ELSEIFERL=136THENX$="TOP":GOSUB1:PRINT#2,"LOG"ELSECALL21264:PRINT#2,XZ$;"LOG"ELSE45
44 LINEINPUT#1,G$:PRINTG$:IFINSTR(G$,"time")THENBQ$=RIGHT$(G$,12):PRINT#4,DATE$;S$;BX$;S$;TIME$;S$;BQ$ELSE44
45 CALL21179:GOSUB79:GOSUB78:CLOSE:CLEAR250:MAXFILES=1:MENU
46 PRINT#4,DATE$;S$;BX$;S$;TIME$;S$;S$;DD$:IFXATHEN116ELSEGOSUB78:GOTO500
47 PRINT#2,"FIL ";BI$:D$="ready":GOSUB1
48 GOSUB50:GOSUB11:RETURN
50 IFAG=1THENAH$=AG$:GOSUB5:RETURNELSERETURN
52 ONERRORGOTO41:CLS:FORN=0TO15:READM(N):NEXT:PRINTP$;BK$;CE$;S$;Q$:OPENBE$FORINPUTAS1:A$=PN$:CALL6+VARPTR(M(0)),0,VARPTR(A$)
53 IFEOF(1)THENERROR83ELSELINEINPUT#1,I$:I=INSTR(I$,":"):AQ$=LEFT$(I$,I):CALL6+VARPTR(M(0)),0,VARPTR(AQ$):IFINSTR(AQ$,A$)=0THEN53ELSEJ=INSTR(I,I$,"<"):IFJ=0THEN53
54 PRINTLEFT$(I$,J)">";:PRINT:CLOSE:A$=MID$(I$,I+1,J-I-1)+CHR$(0):ID=INSTR(I$,"U"):JD=INSTR(I$,"?P"):ID$=MID$(I$,ID+1,JD-ID-3)
55 ONERRORGOTO42:Z=Z+1:IFZ>20THENERROR82ELSEPRINT"Calling "LEFT$(I$,I);:V=VARPTR(A$):CALL21293,0,PEEK(V+1)+PEEK(V+2)*256:CALL21172:PRINT:N=0:X=0
56 N=N+1:CALLVARPTR(M(0)),0,VARPTR(X)
57 IFX=0THEN59ELSEAQ$="":IFAQ$=""ANDN<500THEN56ELSECALL21179:PRINTP$;BK$;"NO CARRIER";Q$:N=0
58 N=N+1:CALL21264:IFINKEY$>""THENRESTORE60:GOTO18ELSEIFN<9THEN58ELSE55
59 PRINT"CONNECT":FORN=1TO9:BEEP:NEXT:CALL21264:A$=MID$(I$,J)+CHR$(0):V=VARPTR(A$):CALL21392,60,PEEK(V+1)+PEEK(V+2)*256:RETURN
60 DATA-4147,30574,201,-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688
61 DE$=DG$:P=1
62 GOSUB110:PRINT@121,P$;" Program will EXIT into ";DE$:PRINT@171," when finished ";Q$:FORN=0TO1:BEEP:CALL21264:NEXT:GOTO19
63 PRINT@123,P$;S$;CE$;" AND PASSWORD":PRINT@163," IN ";BE$;" AS ?";Q$:PRINT@225,CR$;PN$;S$;:PRINT@265,"";:INPUTPN$
64 RETURN
65 DE$=CS$+S$+DD$:P=2:GOTO62
67 ONERRORGOTO76:PRINT@62,"Time: ":PRINT@124,P$;S$;BA$;" time, or (N)ow:";Q$;:N=146:L=0:T$="":PRINT@225,CR$;"Now";
69 PRINT@N,CHR$(239):PRINT@67,TIME$:A$=INKEY$:IFA$=""THEN69ELSEPRINT@N,S$;
70 C=ASC(A$):IFC=13THEN73ELSEIFC<>8ANDC<>29ANDC<>127THENL=L+1:T$=T$+A$:PRINT@N,A$;:N=N+1ELSEIFL>0THENL=L-1:T$=LEFT$(T$,L):N=N-1:PRINT@N,S$;
72 GOTO69
73 IFLEN(T$)<2THEN78
74 ONTIME$=T$GOSUB77:TIME$ON:I=0:PRINT@124,P$;"Auto-Email set for:   ";T$;Q$
75 PRINT@67,TIME$;:IFI=0THEN75ELSE78
76 BEEP:GOSUB80:PRINT@280,"? Illegal time ";T$;:RESUME67
77 I=1:TIME$OFF:RETURN
78 FORI=14000TO1000STEP-999:SOUNDI,3:NEXT:CLS:RETURN
79 YY$=RIGHT$(YR$,2):DATE$=LEFT$(DATE$,6)+YY$:RETURN
80 CLOSE3:DL$=BG$:DL=3:GOSUB175:PRINT#3,DATE$;S$;TIME$;S$;" Error";ERR;"  line";ERL:CLOSE3:RETURN
81 PRINT@225,CR$;"No";P$:PRINT@125," Review Options, (Y)es or (N)o ";Q$;:PA$=INKEY$:IFPA$=""THEN81ELSEIFINSTR("Yy",PA$)THEN82ELSERETURN
82 N=1:CLS:Y$=" is now ":W$=" is in ":PRINT:PRINT:PRINT" 1 ";CB$;CT$;W$;BB$:PRINT" 2  ";CC$;CT$;W$;BC$:PRINT" 3 ";CD$;CT$;W$;BD$:PRINT" 4 ";CB$;CT$;Y$;SA$:PRINT" 5 ";CS$;S$;AS$;XL$;Y$;F$:GOSUB88
83 BH$=INKEY$:IFBH$=""THEN83ELSEB=ASC(BH$):IFB>48ANDB<55THENCLS:GOSUB89:EDIT92-97ELSEPRINTQ$:CLS
84 N=2:PRINT:PRINT" 1 ";DF$;CT$;Y$;DD$:PRINT" 2 ";XH$;XM$;W$;XF$:PRINT" 3 ";CB$;CT$;W$;XA$:PRINT" 4 ";CC$;CT$;W$;XB$:PRINT" 5 ";XQ$;CT$;W$;XC$:PRINT" 6 ";XK$;XG$;XH$;S$;"in ";DD$;S$;S$;XJ$:GOSUB88
85 BH$=INKEY$:IFBH$=""THEN85ELSEB=ASC(BH$):IFB=49THEN170ELSEIFB>49ANDB<55THENCLS:GOSUB89:EDIT139-143ELSEPRINTQ$:CLS
86 N=3:PRINT:PRINT" 1 ";CN$;CT$;Y$;NA$:PRINT" 2 ";CZ$;CT$;Y$;TZ$:PRINT" 3 ";YN$;CT$;Y$;YR$:PRINT" 4 ";CG$;CT$;W$;BG$:PRINT" 5 ";CS$;S$;CE$;CT$;W$;BE$:PRINT" 6 ";CS$;S$;CF$;CT$;W$;BF$:GOSUB88
87 BH$=INKEY$:IFBH$=""THEN87ELSEB=ASC(BH$):IFB>48ANDB<55THENCLS:GOSUB89:EDIT100-105ELSEPRINTQ$:CLS:RETURN
88 PRINTTAB(6);:GOSUB112:PRINTP$;CR$;CK$;CT$;CJ$;:IFN=1THENPRINT@12,S$;AS$;BA$;S$:RETURNELSEIFN=2THENPRINT@13,S$;XG$;XH$;:RETURNELSEIFN=3THENPRINT@14," GENERAL ":RETURN
89 PRINT:PRINT:PRINTCT$;ZM$;Q$:RETURN
90 V$=CHR$(130):R$=CHR$(13):BI$="FORM.LTR":B$=R$+CHR$(10):X$="xyx":K$="xyx":DK$="OK":E$=CHR$(27):S$=" ":DG$="CompuServe ":BA$="EMAIL":AT$="EM8SIG.100(ver3.0)":SD$="KILL":DH$="SAVE":XL$="FILE"
91 CS$="CIS":CT$=CHR$(9):CR$=" <CR>= ":CJ$="CHANGE # ? ":H$="   All Rights Reserved":CK$="KEEP":CL$=CHR$(3):CO$=CHR$(15):CQ$="Sent ":AS$="EasyPlex ":XG$="Auto-":XH$="Forum":SS$=" Choice "
92 BB$="A:MAIL.DO":CB$="OUT MSG(s)"
93 BC$="A:README.DO":CC$="IN MSG(s)"
94 BD$="B:PIN.DO":CD$="OUT ID(s)"
95 SA$="KILL":CH$="OUT "'KILL/KEEP
96 F$="KILL":CI$="IN "'KILL/KEEP
97  ZM$="PRESS<F8><F4> AFTER EDIT"
98 IFSA$=SD$THENAD=1
99 CW$=CHR$(26):P$=E$+"p":Q$=E$+"q":SC$="75665,312":BK$=" Please wait; finding ":BA=16ANDINP(187):IFBATHENBEEP:PRINT:PRINT:PRINT"CHANGE Ans/Orig SWITCH POSITION":GOTO99
100 NA$="Marvin M Miller":CN$="NAME "
101 TZ$=" CST":CZ$="TIME ZONE "
102 YR$="1987":YN$="CURRENT YEAR"
103 BE$="A:ADRS.DO":CE$="PHONE #"
104 BF$="C:CISUSE.DO":CF$="USE LOG"
105 BG$="A:EM8ERR.DO":CG$="ERROR LOG"
106 GOSUB139
107 IFLEN(NA$)>15THENCLS:PRINT:PRINT:PRINTP$;NA$;" exceeds 15 characters":CALL21264:GOSUB89:EDIT100
108 PN$=CS$:XZ$=CHR$(16):XW$=CHR$(2):IFF$=SD$ORF$=DH$THENAE=0:RETURNELSEAE=1:RETURN
109 P=0:XA=0:XB=0:GOTO19
110 CLS:GOSUB112:PRINT@42,DG$;AS$;"& ";XH$;" (SIG)":PRINT@RA,AT$;:RETURN
111 CLS:GOSUB112:RA=242:PRINT@54,DG$;:PRINT@85,XG$;AS$;S$;S$;S$;XG$;XH$;:PRINT@170,AT$;:PRINT@RA,SC$;CT$;H$;:POKE-86,0:KEYON:LINE(2,2)-(237,61),1,BF:CLS:RETURN
112 LINE(2,2)-(237,61),1,B:RETURN
113 IFEOF(3)THEN35ELSELINEINPUT#3,C$:IFC$=V$THEN21ELSE113
114 P=2:XA=1:XB=0:GOTO19
115 P=2:XA=1:XB=1:GOTO19
116 ONERRORGOTO123:CLOSE3,4:Y=1:XF=1:XK=4:XD$="Function:":XE$="Stor":D$="Welc":X$="vail":K$="usy":GOSUB1:GOSUB136:U$=XA$:N=3:OPENU$FORINPUTAS4:MM=0
117 GOSUB127:IFMMTHEN118ELSEONERRORGOTO122:GOSUB137:D$=XW$:GOSUB1:CALL21264:PRINT#2,XZ$;:D$=XW$:GOSUB1:IFC$=V$THENPRINT#2,XZ$;:GOTO117ELSECALL21274:GOSUB135
118 ONERRORGOTO123:CALL21274:XV$=XB$:GOSUB134:PRINT#2,"RM":GOSUB129:U$=XF$:N=5:OPENU$FORINPUTAS4:MM=0:GOSUB127:IFMMTHEN119ELSEGOSUB135:PRINT#2,AH$:GOSUB129
119 CALL21274:IFXBTHENXV$=XC$:GOSUB134:PRINT#2,"QSN":GOSUB129
121 CALL21274:GOSUB133:CLOSE4:DL$=BF$:DL=4:GOSUB175:IFXB=0THENPRINT#2,"LOG":GOTO44ELSEPRINT#2,"HI;L;LOG":GOTO44
122 PRINT#2,"/EX":PRINT#2,"A;Y;LOG":XP=1:GOTO42
123 IFERR=52ANDN=3THENRESUME118ELSEIFERR=52ANDN=5THENRESUME119ELSEIFERR=58ANDERL=133THENRESUME130ELSEIFERL=136THEN42ELSEIFERR=88THENPRINT#2,R$;:XP=0:GOTO42ELSECALL21264:CALL21264:PRINT#2,XZ$;:XP=0:GOTO42
126 D$="ready":GOSUB1:GOSUB11:D$=XE$:GOSUB1:RETURN
127 AH$="":LINEINPUT#4,AH$:IFAH$=CQ$THENAH$="":CLOSE4:MM=1:RETURNELSERETURN
129 XR$=XW$:GOSUB8:CALL21274:D$=XW$:PRINT#2,XZ$;:GOSUB1:RETURN
130 RETURN
133 PRINT#3,S$,TIME$:CLOSE3:RETURN
134 GOSUB133:DL$=XV$:DL=3:GOSUB175:PRINT#3,DAY$;S$;DATE$;S$;TIME$:RETURN
135 CLOSEXK:OPENU$FOROUTPUTASXK:PRINT#XK,CQ$:CLOSEXK:RETURN
136 IFAO>1THENERROR88ELSEPRINT#2,XZ$;:D$=XD$:X$="oice":GOSUB1:PRINT#2,"OP;FIL;SM N;RE L;UM N;S":GOSUB1:PRINT#2,"OP;PC;S":D$="New":GOSUB1:PRINT#2,"^B":D$=XW$:GOSUB1:RETURN
137 XI=0:XI$=LEFT$(AH$,1):IFXI$="L"ORXI$="l"THENXI=1:D$="To":PRINT#2,"L":GOSUB1:GOSUB127:GOSUB138:RETURNELSEIFXI$="R"ORXI$="r"THENGOSUB138:RETURNELSERETURN
138 PRINT#2,AH$:IFXITHEND$="Su":GOSUB1:GOSUB127:PRINT#2,AH$:GOSUB126:RETURNELSEGOSUB126:RETURN
139 XF$="C:CMDSIG.DO":XM$=" COMMAND"
140 XA$="A:OUTSIG.DO"'msgs out
141 XB$="A:NEWSIG.DO"'msgs in
142 XC$="C:HDRSIG.DO":XQ$="NEW HEADERS"
143 XJ$="NO":XK$="ACTIVATE "'YES/NO
144 IFXJ$="YES"THENP=2:XA=1:XB=1
145 J$(1)="M100SIG":J$(2)="TRS80PRO"
146 J$(3)="IBMNEW":J$(4)="IBMCOM"
147 J$(5)="CBMCOM":J$(6)="APPLE"
148 J$(7)="MACUS"
149 DD$=J$(1):DF$="<F5>/"+XH$:RETURN
150 V=0:T=0:FB$="]":MJ$="<CR> to RETURN to MAIN PROGRAM":GOSUB168
151 D$="":IFTTHENGOSUB163:PRINT"  More same type messages (Y/N)?";:GOSUB112:GOSUB90:D$=INPUT$(1):IFD$=R$THEN164ELSEIFINSTR("Yy",D$)THENGOSUB168:GOTO154ELSET=0:V=0:GOSUB168
152 GOSUB163:PRINT" Write E(mail) or S(ig) messages?";:GOSUB112:D$=INPUT$(1):IFD$=R$THEN164ELSEIFINSTR("Ee",D$)THENV=1:PRINTS$;BA$ELSEPRINTS$;XH$:V=0
153 PRINT:PRINT:PRINT:D$="":PRINT" Are you adding to existing messages ?    (Y/N)?";:GOSUB112:D$=INPUT$(1):IFINSTR("Yy",D$)THENT=1
154 IFVTHENF$=BB$:S=0:GOTO155ELSEV=0:S=1:D$="":N=0:CLS:PRINT:INPUT"RE# OR L ";D$:F$=XA$:IFLEN(D$)=0THEN164
155 DL$=F$:DL=1:GOSUB175:GOSUB162:IFINSTR(D$,"R")ORINSTR(D$,"r")THENPRINT#1,D$:CLS:PRINTD$:GOTO157ELSECLS:G$="To:":IFVTHENK$=G$ELSEK$="L"+B$:PRINT@26,FB$
156 PRINT@0,G$;:LINEINPUT"";D$:IFLEN(D$)=0THEN164ELSEGOSUB173:GOSUB176:PRINT@66,FB$:G$="Sb:":PRINT@40,G$;:LINEINPUT"";D$:IFV<>1THENPRINT#1,D$ELSEIFLEN(D$)=0THENPRINT#1,""ELSEPRINT#1,G$;D$
157 A$=INPUT$(1):U=ASC(A$):N=N+1:IFV=0ANDN>1600THENGOSUB167ELSEIFU<>13THENS=0:PRINTA$;ELSES=S+1:A$=B$:PRINTA$;:PRINT#1,X$;:X$="":IFS>1THENPRINT#1,X$;:GOTO160
158 W=LEN(X$):IFU<>8THENX$=X$+A$ELSEIFW>1THENX$=LEFT$(X$,W-1):PRINT" ";CHR$(8);ELSEX$=""
159 IFW>115THENPRINT#1,X$;:X$="":GOTO157ELSE157
160 IFVTHEN161ELSEPRINT#1,".";B$;"/EX":INPUT"<S(P)(U)n>";D$:PRINT#1,D$:CLOSE1:T=1:GOTO151
161 IFS<>3THENPRINT#1,"":GOTO157ELSEPRINT#1,"":CLOSE1:T=1:GOTO151
162 IFTTHENPRINT#1,CHR$(130):RETURNELSERETURN
163 CLS:PRINT@125,MJ$:PRINT@40,"";:RETURN
164 GOTO17
165 S=S+1:PRINT#1,B$;:R=0:GOTO157
166 S=S+1:PRINT#1,".";B$;:R=0:GOTO157
167 BEEP:BEEP:PRINTB$;"CIS MSG LIMIT. YOU HAVE 150 SPACES LEFT":BEEP:BEEP:N=0:RETURN
168 X$="":K$="":G$="":D$="":RETURN
169 IFAO=1THENRETURNELSEPRINT#2,"Y":RETURN
170 CLS:N=2:PRINTQ$:PRINT:PRINT" 1 ";J$(1);CT$;" 2 ";J$(2):PRINT" 3 ";J$(3);CT$;" 4 ";J$(4):PRINT" 5 ";J$(5);CT$;" 6 ";J$(6):PRINT" 7 ";J$(7);CT$;" 8 CHANGE SELECTIONS":PRINT:GOSUB172
171 BH$=INKEY$:IFBH$=""THEN171ELSEB=ASC(BH$):IFB=13THENPRINTQ$:CLS:GOTO84ELSEIFB<49ORB>56THEN171ELSEIFB=56THENCLS:GOSUB89:EDIT145-148ELSEB=B-48:DD$=J$(B):PRINTQ$:CLS:GOTO84
172 PRINTTAB(6):GOSUB112:PRINTP$;CR$;DD$;CT$;SS$;"# ?";:PRINT@10,S$;XG$;XH$;SS$;:RETURN
173 IFLEN(D$)>6ORINSTR(D$,"@")THENRETURNELSEOPENBD$FORINPUTAS2
174 IFEOF(2)THENERROR81ELSELINEINPUT#2,IN$:IFV=1ANDINSTR(IN$,D$)THEND$=MID$(IN$,(INSTR(IN$,"[")+1)):CLOSE2:RETURNELSEIFINSTR(IN$,D$)THEND$=MID$(IN$,(INSTR(IN$,"]")+1)):CLOSE2:RETURNELSE174
175 IFDL$="LPT:"THENOPENDL$FOROUTPUTASDL:RETURNELSEOPENDL$FORAPPENDASDL:RETURN
176 IFINSTR(D$,"@")THEN177ELSEPRINT#1,K$;D$:RETURN
177 I$=MID$(D$,(INSTR(D$,"@")+1)):PRINT#1,G$;:OPENBD$FORINPUTAS2:D$="":QA=0
178 IFEOF(2)THENCLOSE2:I$="":PRINT#1,B$;:RETURNELSELINEINPUT#2,IN$:IFINSTR(IN$,I$)THEND$=MID$(IN$,(INSTR(IN$,"[")+1)):IFQATHENPRINT#1,";";D$;:GOTO178ELSEPRINT#1,D$;:QA=1:GOTO178ELSE178
500 CALL21586