home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / em8sig.ba < prev    next >
Text File  |  2006-10-19  |  14KB  |  166 lines
  1. 0 GOTO17'EM8SIG.100ver3.0:copyrightMMMILLER:75665,312:5/09/87 CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 G$="":AO=1
  3. 2 A$=INPUT$(1,1):PRINTA$;:G$=G$+A$
  4. 3 IFINSTR(G$,D$)THEN4ELSEIFINSTR(G$,X$)THENAO=2ELSEIFINSTR(G$,K$)THENAO=3ELSEIFA$=S$ORA$=R$THEN1ELSE2
  5. 4 X$="xyx":K$="xyx":RETURN
  6. 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
  7. 8 C$="":N=0
  8. 9 A$=INPUT$(1,1):PRINT#3,A$;:PRINTA$;:C$=C$+A$:IFINSTR(C$,XR$)THENC$="":RETURNELSEIFA$=S$ORA$=R$THEN8ELSE9
  9. 11 A=0
  10. 12 IFEOF(XK)THENC$="":GOTO15
  11. 13 C$=INPUT$(1,XK):IFC$=V$THEN15ELSEPRINT#2,C$;:PRINTINPUT$(1,1);:A=A+1
  12. 14 IFC$=CHR$(10)THEN11ELSEIFY=1ANDXF=0THEN12ELSEIFA>64ANDC$=S$THENPRINT#2,B$;:GOTO11ELSEIFA>77THENPRINT#2,B$;:GOTO11ELSE12
  13. 15 IFY=1THEN16ELSEPRINT#2,AT$,TIME$;B$;"/EX":D$=DK$:GOSUB1
  14. 16 RETURN
  15. 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
  16. 18 ONKEYGOSUB109,115,114,170,65,61,150,45:GOSUB111:GOSUB110:GOSUB81:GOSUB110:GOSUB63:GOSUB110:GOSUB67
  17. 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
  18. 20 ONERRORGOTO41:XF=0:XK=3:E=6:OPENBB$FORINPUTAS3
  19. 21 Y=1:H=0:AG=0:ST=242:C$="":PRINT:PRINTP$;BK$;CD$;Q$:IFEOF(3)THENERROR80
  20. 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
  21. 23 FORX=1TOLEN(G$):IFMID$(G$,X,1)=";"THENY=Y+1:NEXTELSEAD$(Y)=AD$(Y)+MID$(G$,X,1):NEXT
  22. 24 IFHTHENDB$=DA$ELSEDB$=BI$
  23. 25 FORX=1TOY:IFVAL(AD$(X))>EORINSTR(G$,">")THEN28ELSEOPENBD$FORINPUTAS4
  24. 26 IFEOF(4)THENCLOSE4:ERROR81ELSELINEINPUT#4,G$:IFINSTR(G$,AD$(X))THENAD$(X)=MID$(G$,INSTR(G$,"[")+1)ELSE26
  25. 27 CLOSE4:NEXT:IFRA<>STTHENCALL(31989+ST)
  26. 28 C=0:LINEINPUT#3,AG$:C=INSTR(AG$,":"):IFCANDC<10THENAK$=MID$(AG$,C+1)ELSEAG=1:AK$=AT$
  27. 29 IFINSTR(E,AU$,A$)<1THEN43ELSEIFY>1ANDH<1THENGOSUB47
  28. 30 FORX=1TOY
  29. 31 PRINT#2,"R SNDMAL":D$="file":GOSUB1:IFH>0ORY>1THENPRINT#2,DB$:GOTO33ELSEPRINT#2,"tty:":D$="finished.":GOSUB1
  30. 32 GOSUB48:D$=",":PRINT#2,AT$S$S$S$TIME$",,,"B$;:GOSUB1:CALL21264:PRINT#2,CW$
  31. 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
  32. 34 IFHTHEN113ELSEIFC$=V$THEN21
  33. 35 IFADTHENU$=BB$:GOSUB135ELSECLOSE3
  34. 36 PRINT:PRINTP$;"Read ";BA$;Q$:PRINT#2,"G EPXINT":D$="EPX:":GOSUB1:D$="Date:":X$="ing":PRINT#2,"RET100A":GOSUB1:IFAO>1THEN43
  35. 37 DL$=BC$:DL=3:GOSUB175:PRINT#3,B$;"Rec'd: ";DAY$;S$;DATE$;" -";TIME$;B$;G$;:XR$="EPX:":GOSUB9
  36. 38 PRINT#3,B$;CQ$;DG$;TIME$:IFAETHEN43
  37. 40 PRINT#2,"DEL100F":D$="EPX:":GOSUB1:GOTO43
  38. 41 IFERR=52ANDERL=52THEN42ELSEIFERR=52THENAD=0:RESUME36ELSE42
  39. 42 IFERR=80ANDHTHENRESUME36ELSEAD=0:P=0:PRINT"Error ";ERR;"  line ";ERL:CALL21264:GOSUB80
  40. 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
  41. 44 LINEINPUT#1,G$:PRINTG$:IFINSTR(G$,"time")THENBQ$=RIGHT$(G$,12):PRINT#4,DATE$;S$;BX$;S$;TIME$;S$;BQ$ELSE44
  42. 45 CALL21179:GOSUB79:GOSUB78:CLOSE:CLEAR250:MAXFILES=1:MENU
  43. 46 PRINT#4,DATE$;S$;BX$;S$;TIME$;S$;S$;DD$:IFXATHEN116ELSEGOSUB78:GOTO500
  44. 47 PRINT#2,"FIL ";BI$:D$="ready":GOSUB1
  45. 48 GOSUB50:GOSUB11:RETURN
  46. 50 IFAG=1THENAH$=AG$:GOSUB5:RETURNELSERETURN
  47. 52 ONERRORGOTO41:CLS:FORN=0TO15:READM(N):NEXT:PRINTP$;BK$;CE$;S$;Q$:OPENBE$FORINPUTAS1:A$=PN$:CALL6+VARPTR(M(0)),0,VARPTR(A$)
  48. 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
  49. 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)
  50. 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
  51. 56 N=N+1:CALLVARPTR(M(0)),0,VARPTR(X)
  52. 57 IFX=0THEN59ELSEAQ$="":IFAQ$=""ANDN<500THEN56ELSECALL21179:PRINTP$;BK$;"NO CARRIER";Q$:N=0
  53. 58 N=N+1:CALL21264:IFINKEY$>""THENRESTORE60:GOTO18ELSEIFN<9THEN58ELSE55
  54. 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
  55. 60 DATA-4147,30574,201,-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688
  56. 61 DE$=DG$:P=1
  57. 62 GOSUB110:PRINT@121,P$;" Program will EXIT into ";DE$:PRINT@171," when finished ";Q$:FORN=0TO1:BEEP:CALL21264:NEXT:GOTO19
  58. 63 PRINT@123,P$;S$;CE$;" AND PASSWORD":PRINT@163," IN ";BE$;" AS ?";Q$:PRINT@225,CR$;PN$;S$;:PRINT@265,"";:INPUTPN$
  59. 64 RETURN
  60. 65 DE$=CS$+S$+DD$:P=2:GOTO62
  61. 67 ONERRORGOTO76:PRINT@62,"Time: ":PRINT@124,P$;S$;BA$;" time, or (N)ow:";Q$;:N=146:L=0:T$="":PRINT@225,CR$;"Now";
  62. 69 PRINT@N,CHR$(239):PRINT@67,TIME$:A$=INKEY$:IFA$=""THEN69ELSEPRINT@N,S$;
  63. 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$;
  64. 72 GOTO69
  65. 73 IFLEN(T$)<2THEN78
  66. 74 ONTIME$=T$GOSUB77:TIME$ON:I=0:PRINT@124,P$;"Auto-Email set for:   ";T$;Q$
  67. 75 PRINT@67,TIME$;:IFI=0THEN75ELSE78
  68. 76 BEEP:GOSUB80:PRINT@280,"? Illegal time ";T$;:RESUME67
  69. 77 I=1:TIME$OFF:RETURN
  70. 78 FORI=14000TO1000STEP-999:SOUNDI,3:NEXT:CLS:RETURN
  71. 79 YY$=RIGHT$(YR$,2):DATE$=LEFT$(DATE$,6)+YY$:RETURN
  72. 80 CLOSE3:DL$=BG$:DL=3:GOSUB175:PRINT#3,DATE$;S$;TIME$;S$;" Error";ERR;"  line";ERL:CLOSE3:RETURN
  73. 81 PRINT@225,CR$;"No";P$:PRINT@125," Review Options, (Y)es or (N)o ";Q$;:PA$=INKEY$:IFPA$=""THEN81ELSEIFINSTR("Yy",PA$)THEN82ELSERETURN
  74. 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
  75. 83 BH$=INKEY$:IFBH$=""THEN83ELSEB=ASC(BH$):IFB>48ANDB<55THENCLS:GOSUB89:EDIT92-97ELSEPRINTQ$:CLS
  76. 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
  77. 85 BH$=INKEY$:IFBH$=""THEN85ELSEB=ASC(BH$):IFB=49THEN170ELSEIFB>49ANDB<55THENCLS:GOSUB89:EDIT139-143ELSEPRINTQ$:CLS
  78. 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
  79. 87 BH$=INKEY$:IFBH$=""THEN87ELSEB=ASC(BH$):IFB>48ANDB<55THENCLS:GOSUB89:EDIT100-105ELSEPRINTQ$:CLS:RETURN
  80. 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
  81. 89 PRINT:PRINT:PRINTCT$;ZM$;Q$:RETURN
  82. 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"
  83. 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 "
  84. 92 BB$="A:MAIL.DO":CB$="OUT MSG(s)"
  85. 93 BC$="A:README.DO":CC$="IN MSG(s)"
  86. 94 BD$="B:PIN.DO":CD$="OUT ID(s)"
  87. 95 SA$="KILL":CH$="OUT "'KILL/KEEP
  88. 96 F$="KILL":CI$="IN "'KILL/KEEP
  89. 97  ZM$="PRESS<F8><F4> AFTER EDIT"
  90. 98 IFSA$=SD$THENAD=1
  91. 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
  92. 100 NA$="Marvin M Miller":CN$="NAME "
  93. 101 TZ$=" CST":CZ$="TIME ZONE "
  94. 102 YR$="1987":YN$="CURRENT YEAR"
  95. 103 BE$="A:ADRS.DO":CE$="PHONE #"
  96. 104 BF$="C:CISUSE.DO":CF$="USE LOG"
  97. 105 BG$="A:EM8ERR.DO":CG$="ERROR LOG"
  98. 106 GOSUB139
  99. 107 IFLEN(NA$)>15THENCLS:PRINT:PRINT:PRINTP$;NA$;" exceeds 15 characters":CALL21264:GOSUB89:EDIT100
  100. 108 PN$=CS$:XZ$=CHR$(16):XW$=CHR$(2):IFF$=SD$ORF$=DH$THENAE=0:RETURNELSEAE=1:RETURN
  101. 109 P=0:XA=0:XB=0:GOTO19
  102. 110 CLS:GOSUB112:PRINT@42,DG$;AS$;"& ";XH$;" (SIG)":PRINT@RA,AT$;:RETURN
  103. 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
  104. 112 LINE(2,2)-(237,61),1,B:RETURN
  105. 113 IFEOF(3)THEN35ELSELINEINPUT#3,C$:IFC$=V$THEN21ELSE113
  106. 114 P=2:XA=1:XB=0:GOTO19
  107. 115 P=2:XA=1:XB=1:GOTO19
  108. 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
  109. 117 GOSUB127:IFMMTHEN118ELSEONERRORGOTO122:GOSUB137:D$=XW$:GOSUB1:CALL21264:PRINT#2,XZ$;:D$=XW$:GOSUB1:IFC$=V$THENPRINT#2,XZ$;:GOTO117ELSECALL21274:GOSUB135
  110. 118 ONERRORGOTO123:CALL21274:XV$=XB$:GOSUB134:PRINT#2,"RM":GOSUB129:U$=XF$:N=5:OPENU$FORINPUTAS4:MM=0:GOSUB127:IFMMTHEN119ELSEGOSUB135:PRINT#2,AH$:GOSUB129
  111. 119 CALL21274:IFXBTHENXV$=XC$:GOSUB134:PRINT#2,"QSN":GOSUB129
  112. 121 CALL21274:GOSUB133:CLOSE4:DL$=BF$:DL=4:GOSUB175:IFXB=0THENPRINT#2,"LOG":GOTO44ELSEPRINT#2,"HI;L;LOG":GOTO44
  113. 122 PRINT#2,"/EX":PRINT#2,"A;Y;LOG":XP=1:GOTO42
  114. 123 IFERR=52ANDN=3THENRESUME118ELSEIFERR=52ANDN=5THENRESUME119ELSEIFERR=58ANDERL=133THENRESUME130ELSEIFERL=136THEN42ELSEIFERR=88THENPRINT#2,R$;:XP=0:GOTO42ELSECALL21264:CALL21264:PRINT#2,XZ$;:XP=0:GOTO42
  115. 126 D$="ready":GOSUB1:GOSUB11:D$=XE$:GOSUB1:RETURN
  116. 127 AH$="":LINEINPUT#4,AH$:IFAH$=CQ$THENAH$="":CLOSE4:MM=1:RETURNELSERETURN
  117. 129 XR$=XW$:GOSUB8:CALL21274:D$=XW$:PRINT#2,XZ$;:GOSUB1:RETURN
  118. 130 RETURN
  119. 133 PRINT#3,S$,TIME$:CLOSE3:RETURN
  120. 134 GOSUB133:DL$=XV$:DL=3:GOSUB175:PRINT#3,DAY$;S$;DATE$;S$;TIME$:RETURN
  121. 135 CLOSEXK:OPENU$FOROUTPUTASXK:PRINT#XK,CQ$:CLOSEXK:RETURN
  122. 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
  123. 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
  124. 138 PRINT#2,AH$:IFXITHEND$="Su":GOSUB1:GOSUB127:PRINT#2,AH$:GOSUB126:RETURNELSEGOSUB126:RETURN
  125. 139 XF$="C:CMDSIG.DO":XM$=" COMMAND"
  126. 140 XA$="A:OUTSIG.DO"'msgs out
  127. 141 XB$="A:NEWSIG.DO"'msgs in
  128. 142 XC$="C:HDRSIG.DO":XQ$="NEW HEADERS"
  129. 143 XJ$="NO":XK$="ACTIVATE "'YES/NO
  130. 144 IFXJ$="YES"THENP=2:XA=1:XB=1
  131. 145 J$(1)="M100SIG":J$(2)="TRS80PRO"
  132. 146 J$(3)="IBMNEW":J$(4)="IBMCOM"
  133. 147 J$(5)="CBMCOM":J$(6)="APPLE"
  134. 148 J$(7)="MACUS"
  135. 149 DD$=J$(1):DF$="<F5>/"+XH$:RETURN
  136. 150 V=0:T=0:FB$="]":MJ$="<CR> to RETURN to MAIN PROGRAM":GOSUB168
  137. 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
  138. 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
  139. 153 PRINT:PRINT:PRINT:D$="":PRINT" Are you adding to existing messages ?    (Y/N)?";:GOSUB112:D$=INPUT$(1):IFINSTR("Yy",D$)THENT=1
  140. 154 IFVTHENF$=BB$:S=0:GOTO155ELSEV=0:S=1:D$="":N=0:CLS:PRINT:INPUT"RE# OR L ";D$:F$=XA$:IFLEN(D$)=0THEN164
  141. 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$
  142. 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$
  143. 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
  144. 158 W=LEN(X$):IFU<>8THENX$=X$+A$ELSEIFW>1THENX$=LEFT$(X$,W-1):PRINT" ";CHR$(8);ELSEX$=""
  145. 159 IFW>115THENPRINT#1,X$;:X$="":GOTO157ELSE157
  146. 160 IFVTHEN161ELSEPRINT#1,".";B$;"/EX":INPUT"<S(P)(U)n>";D$:PRINT#1,D$:CLOSE1:T=1:GOTO151
  147. 161 IFS<>3THENPRINT#1,"":GOTO157ELSEPRINT#1,"":CLOSE1:T=1:GOTO151
  148. 162 IFTTHENPRINT#1,CHR$(130):RETURNELSERETURN
  149. 163 CLS:PRINT@125,MJ$:PRINT@40,"";:RETURN
  150. 164 GOTO17
  151. 165 S=S+1:PRINT#1,B$;:R=0:GOTO157
  152. 166 S=S+1:PRINT#1,".";B$;:R=0:GOTO157
  153. 167 BEEP:BEEP:PRINTB$;"CIS MSG LIMIT. YOU HAVE 150 SPACES LEFT":BEEP:BEEP:N=0:RETURN
  154. 168 X$="":K$="":G$="":D$="":RETURN
  155. 169 IFAO=1THENRETURNELSEPRINT#2,"Y":RETURN
  156. 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
  157. 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
  158. 172 PRINTTAB(6):GOSUB112:PRINTP$;CR$;DD$;CT$;SS$;"# ?";:PRINT@10,S$;XG$;XH$;SS$;:RETURN
  159. 173 IFLEN(D$)>6ORINSTR(D$,"@")THENRETURNELSEOPENBD$FORINPUTAS2
  160. 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
  161. 175 IFDL$="LPT:"THENOPENDL$FOROUTPUTASDL:RETURNELSEOPENDL$FORAPPENDASDL:RETURN
  162. 176 IFINSTR(D$,"@")THEN177ELSEPRINT#1,K$;D$:RETURN
  163. 177 I$=MID$(D$,(INSTR(D$,"@")+1)):PRINT#1,G$;:OPENBD$FORINPUTAS2:D$="":QA=0
  164. 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
  165. 500 CALL21586
  166.