1 GOTO308
2 POKE&HB11,66:C=5:CLS:H=16:EXEC&HB00:LOCATESQ,0
3 I$=INKEY$:IFI$=""THEN3
4 C=ASC(I$):IFC=30THENR=-1ELSEIFC=31THENR=1ELSEIFC=16THENR=-3ELSEIFC=17ORC=32THENR=3ELSEIFC=94THENR=-32768ELSEIFC=96THENR=32767ELSEIFC=35THEN15ELSEIFC=39THEN17ELSE6
5 GOTO14
6 IFC=28THENI=1ELSEIFC=29THENI=-1ELSEIFC=4THENI=10ELSEIFC=19THENI=-10ELSEIFC=1THENQ=0:GOTO20ELSEGOTO8
7 GOTO19
8 IFC>96ANDC<126THENC=C-32
10 IFC<65ORC>90THEN3
11 IFC>85THENC=C+1
12 POKE&HB11,C:C=C-64
13 ONC%GOTO135,2,51,82,69,57,47,38,128,105,78,125,37,3,3,140,45,3,114,59,104,3,54,48,3,3,36
14 H=15:EXEC&HB00:GOTO2
15 GOSUB18:IFR=0THENR=R-P
16 GOTO14
17 GOSUB18:R=R+P:GOTO14
18 P=PEEK(&HA77):R=INT((A-1)/P)*P+1-A:RETURN
19 Q=Q+I:IFQ<0THENQ=0
20 IFQ>235THENQ=235
21 LOCATESQ,0:GOTO3
22 I=PEEK(&HA4A):IFI THENERROR17ELSERETURN
23 POKE&HA47,I:H=57:EXEC&HB00:RETURN
24 CLOSE:OPEN"O",#2,"COM0:"+B$:WIDTH"COM0:",132:RETURN
36 CLS:GOSUB213:CLS:END
37 GOSUB234:S=T-F+1:GOSUB280:GOTO2
38 GOSUB217:O$="Commands:":GOSUB257:IFI$="Y"THENLPRINTO$:LPRINT
39 CLS:PRINTO$
40 FORI=1TO27:IFRIGHT$(C$(I),1)="�"THEN44
41 O$=LEFT$(C$(I),1)+" = "+C$(I)
42 IFI$="Y"THENLPRINTO$
43 PRINT:PRINTO$;:GOSUB214
44 NEXT:GOSUB254:GOTO2
45 LOCATE0,0:PRINT"�"C$(C)"="CHR$(5);
46 P=&HA6F:O$=STR$(PEEK(P)):I$=O$:PRINTO$;:LINEINPUT" :",I$:GOSUB227:GOSUB287:GOTO2
47 LOCATE0,0:PRINTCHR$(5)"�"C$(C);:LINEINPUT":",I$:GOSUB242:H=15:EXEC&HB00:GOTO2
48 GOSUB234:PRINT"�-Sure?(y)es (n)o";:GOSUB208
49 IFI$="Y"THENH=32:EXEC&HB00:R=FL-2:GOSUB282
50 GOTO2
51 GOSUB248:POKE&HA5D,0:H=42:EXEC&HB00
52 IFPEEK(&HA5C)=1THENCLS:GOSUB258
53 R=IL:GOSUB282:GOTO2
54 GOSUB248:GOSUB198:PRINT"�-Space ---":POKE&HA5D,1:H=42:EXEC&HB00
55 R=IL:IFIL>=FL%THENR=IL-TL+FL-1
56 GOSUB282:GOTO2
57 GOSUB217:LINEINPUT"�-Text :",I$:GOSUB203:GOSUB286
58 GOSUB259:GOTO58
59 GOSUB217:PRINT"�-Find Text";:LINEINPUT":";I$:GOSUB203
60 S$=I$:LINEINPUT"�-New Text:",I$:GOSUB203:O$=I$:I$=S$
61 S$=I$:GOSUB198:PRINT"�-(1) single":PRINT"�-(2) all":GOSUB208:SWAPI$,S$
62 GOSUB198:PRINT"�-Space ---":GOSUB286:IFS$<>"2"THEN66
63 S=0:POKE&HA5B,1:H=43:EXEC&HB00
64 IFPEEK(&HA5C)<>0THENCLS:GOSUB258
65 GOSUB198:PRINT"�-Line ="S:W=222:GOSUB205:GOTO2
66 GOSUB259:IFS$="T"THENPOKE&HA5B,0:H=45:EXEC&HB00
67 IFPEEK(&HA5C)<>0THENGOSUB258:GOTO2
68 GOTO66
69 H=28:EXEC&HB00:IFPEEK(&HA6E)=4THEN71
70 GOSUB258:GOTO2
71 H=22:EXEC&HB00:CLS:GOSUB216
72 LINEINPUTI$:V=CSRLIN:H=7:EXEC&HB00:LOCATES0,0
73 ONPEEK(&HA6E)GOTO74,74,76,76,77
74 IFPEEK(&HA82)<>1THEN72
75 H=21:EXEC&HB00:GOTO2
76 LOCATE0,0:SCROLL9,0:PRINT"�-Memory"STR$(PEEK(&HA79))"% full!":GOSUB281:GOSUB216:LOCATE0,V:GOTO74
77 GOSUB258:GOTO75
78 H=28:EXEC&HB00:IFPEEK(&HA6E)=4THEN80
79 GOSUB258:GOTO2
80 POKE&HB11,75:CLS:H=23:EXEC&HB00:LOCATE0,1:LOCATESQ,0
81 LINEINPUTI$:H=25:EXEC&HB00:R=A-1:GOSUB282:GOTO2
82 GOSUB234:GOSUB198:PRINT"�- i = internal-":PRINT"�- e = external-":PRINT"�-     Printer ?";:GOSUB208:O$=I$
83 GOSUB198:PRINT"�-linenumbers?":GOSUB207:L=0:IFI$="Y"THENL=1
84 IFO$<>"E"THEN88
85 S$="Page number":GOSUB198:PRINT"�-with "S$"?":GOSUB207:IFI$<>"J"THENPA=-9999:GOTO87
86 I$="":GOSUB198:PRINT"�-"S$;:LINEINPUT" : ",I$:GOSUB228:LL=0:UL=&H3FFF:GOSUB274:PA=I:IFLEN(I$)=0THENPA=1
87 P=&HA8C:V=5:GOSUB271:GOSUB24:O$="E"
88 POKE&HA5E,0:I=FL:R=FL-A:J=1:K=1
89 GOSUB198:PRINT"�-space ---":S=T-F+1:IFS=0THEN2
90 H=15:EXEC&HB00:GOTO92
91 GOSUB232:H=27:EXEC&HB00
92 H=26:EXEC&HB00:GET%0,I$:I$=LEFT$(I$,PEEK(&HA75)):S$="":IFL=0THEN96
93 S$=STR$(I):S$=RIGHT$(S$,LEN(S$)-1):IFI<100THENS$="0"+S$:IFI<10THENS$="0"+S$
94 S$=RIGHT$(S$,3):IFO$="E"THENS$=S$+":  "ELSES$=S$+"�"
96 IFO$<>"E"THENLPRINTS$+I$:K=K+1:GOTO100
97 IFJ=1THENP=PEEK(&HA88):GOSUB264
98 PRINT#2,SPC(PEEK(&HA89));S$+I$:K=K+1
99 IFJ=PEEK(&HA77)THENP=PEEK(&HA8A):GOSUB264:K=1:J=0:PA=PA+1
100 IFPEEK(&HA51)<>0THEN102
101 J=J+1:I=I+1:IFI<=TL%THEN91
102 IF O$<>"E"THENGOSUB226
103 GOTO2
104 GOSUB217:PRINT"�-Time  = "TIME$:GOSUB200:PRINT"�-Date = "DA$:W=444:GOSUB205:GOTO2
105 LL=0:UL=255:I$="�-Top Margin":P=&HA88:GOSUB262
106 I$="�-Left Margin":P=&HA89:GOSUB262
107 LL=24:I$="�-Page Length":P=&HA77:GOSUB262
108 LL=0:I$="�-Bottom Margin":P=&HA8A:GOSUB262
109 LL=1:I$="�-Line Number":P=&HA8B:GOSUB262
110 I$="�-Page Number Col":P=&HA83:GOSUB262
111 I$="�-Section Symbol":P=&HA62:V=1:GOSUB267
112 I$="�-Printer BLPSC":P=&HA8C:V=5:GOSUB267:GOTO2
114 GOSUB234
115 GOSUB157:GOSUB153:GOSUB168:IFP=0THEN118
116 O$=I$:GOSUB198:PRINT"�-"I$" exists,":PRINT"�-overwrite file ?":GOSUB212:IFI$="Y"THENI$=O$:GOSUB197:GOTO118
117 GOTO115
118 IFS(0)>=24THENGOSUB198:PRINT"�-Too Many Files !":GOSUB281:GOTO2
119 V=S(0)+1:B(V)=B(0):S=T-F+1:N=INT(S/254):IFN*254<S%THENN=N+1
120 N=N+4:FORI=1TOV:J=I-1:P=I
121 D=INT((((B(I)*B(I))-(E(J)*E(J)))/L+(B(I)-E(J)-133))/30)+2:IFN<=D%THEN123
122 NEXT:CLS:PRINT"�-Tape Full !":GOSUB281:GOTO2
123 FORI=S(0)+1TOP%STEP-1:J=I-1:F$(I)=F$(J):D$(I)=D$(J):S(I)=S(J):B(I)=B(J):E(I)=E(J):NEXT:S(0)=S(0)+1
124 GOSUB170:GOSUB150:GOTO2
125 GOSUB156:GOSUB153:GOSUB168
126 IFP=0THENGOSUB256:GOTO2
127 GOSUB182:GOTO2
128 GOSUB217:GOSUB257:LOCATE0,1:GOSUB153
129 DA$=D$(0):GOSUB202:CLS:SCROLL9,0:PRINTF$(0)TAB(9)DA$TAB(17)S$:GOSUB214:IFI$<>"J"THEN131
130 LPRINTF$(0)TAB(9)DA$"   "S$:LPRINT
131 FORI=1TOS(0):S$=STR$(S(I)):IFS(I)>9THENS$=RIGHT$(S$,2)
132 DA$=D$(I):GOSUB202:PRINT:PRINTF$(I)TAB(9)DA$" "S$"%";:GOSUB214
133 IFI$="Y"THENLPRINTF$(I)TAB(9)DA$" "S$"% �"
134 NEXT:GOSUB254:GOTO2
135 GOSUB156:GOSUB153:GOSUB168
136 IFP=0THENGOSUB256:GOTO2
137 O$=F$(P):GOSUB197
138 GOSUB198:PRINT"�-Cancel  ="O$
139 GOSUB150:GOTO2
140 S$="A":GOSUB149:GOSUB198:PRINT"�-tape position ---":WIND:WIND&H7FFF:B(0)=TAPCNT
141 L=11000:IFB(0)<4500THENL=9000
142 VS=1:I$=DATE$:GOSUB160:D$(0)=I$:S(0)=0:E(0)=400:S$="B":GOSUB143:S$="A":GOSUB143:GOTO2
143 GOSUB149
144 GOSUB198:PRINT"�-Page = "S$:PRINT"�-Name  :";
145 IFS$="A"THEN147
146 LINEINPUT" ",I$:GOSUB228:GOSUB160:F$(0)=I$:IFLEN(I$)=0THEN144
147 LOCATE8,2:GOSUB199:PRINT"= "F$(0)
148 GOSUB150:RETURN
149 GOSUB217:PRINT"�-With side margin  "S$:PRINT"�-facing up":GOSUB224:RETURN
150 GOSUB199:PRINT"�-write file ---";:WIND:CLOSE:OPEN"O",#1,"CAS0:INDEX-SYS"
151 PRINT#1,VS;L;S$F$(0)D$(0)S(0)B(0)E(0)
152 FORI=1TOS(0):PRINT#1,F$(I)D$(I)S(I)B(I)E(I):NEXT:CLOSE:RETURN
153 GOSUB199:PRINT"�-read file ---":WIND:CLOSE:OPEN"I",#2,"CAS0:INDEX-SYS"
154 INPUT#2,VS,L,S$,F$(0),D$(0),S(0),B(0),E(0)
155 FORI=1TOS(0):INPUT#2,F$(I),D$(I),S(I),B(I),E(I):NEXT:CLOSE:RETURN
156 GOSUB217
157 GOSUB198:LINEINPUT"�-Filename :",I$:GOSUB228:GOSUB160
158 IFLEN(I$)=0THEN157
159 LOCATE11,1:GOSUB199:PRINT"="I$:RETURN
160 O$="":FORI=1TOLEN(I$)
161 V=ASC(MID$(I$,I,1))
162 IFV=46THEN167
163 IFV>96ANDV<123THENV=V-32
164 IFV<48OR(V>57ANDV<65)ORV>90THEN166
165 O$=O$+CHR$(V):IFLEN(O$)=8THEN167
166 NEXT
167 I$=O$:RETURN
168 P=0:FORI=1TOS(0):IFI$=F$(I)THENP=I:RETURN
169 NEXT:RETURN
170 GOSUB200:GOSUB198:PRINT"�-saved   "I$:PRINT"�-"TIME$"  "DA$;
171 WINDE(P-1):B(P)=E(P-1):F$(P)=I$:I$=DATE$:GOSUB160:D$(P)=I$:I$=F$(P)
172 CLOSE:OPEN"O",#1,"CAS0:"+I$+"-TXT"
173 S=T-F+1:PRINT#1,I$TIME$DATE$S
174 H=46:EXEC&HB00:FORI=&HA60 TO&HAAF:O=PEEK(I)
175 IFI=&HA65 THENO=PEEK(&HA55)
176 IFI=&HA66 THENO=PEEK(&HA56)
177 PRINT#1,O;:NEXT
178 GOSUB222:I=0
179 H=47:EXEC&HB00:IFPEEK(&HA5F)=0THENGET%0,I$:PRINT#1,I$:I=I+1:GOSUB193:GOTO179
180 CLOSE:S(P)=PEEK(&HA79):E(P)=TAPCNT:IFP>S(0)THENS(0)=P
181 SCROLL9,0:LOCATE16,0:SCROLL9,0:PRINT"    ":RETURN
182 LOCATE0,2:GOSUB199:PRINT"�-search     "I$:WINDB(P)
183 CLOSE:OPEN"I",#1,"CAS0:"+LEFT$(I$,8)+"-TXT"
184 INPUT#1,I$:GOSUB198:PRINT"�-invite      "I$
185 INPUT#1,I$:PRINT"�-"I$"  ";
186 INPUT#1,DA$:GOSUB201:PRINTDA$;
187 INPUT#1,S
188 O=&HA60:FORI=1TO80:INPUT#1,V:POKEO,V:O=O+1:NEXT
189 O=INT(S/254):IFO*254<S%THENO=O+1
190 GOSUB222
191 FORI=1TOO:INPUT#1,I$:PUT%I,I$:GOSUB193:NEXT
192 CLOSE:GOSUB288:GOSUB223:RETURN
193 V=INT(((S-(I*254))/S)*100+-5):IFV<0THENV=0
194 IFV=100THENGOSUB222:RETURN
195 O$=STR$(V):IFV<10THENO$=" "+O$
196 O$=" "+O$:LOCATE15,0:SCROLL9,0:PRINTO$:RETURN
197 FORI=P%TOS(0)-1:J=I+1:F$(I)=F$(J):D$(I)=D$(J):S(I)=S(J):B(I)=B(J):E(I)=E(J):NEXTI:S(0)=S(0)-1:RETURN
198 LOCATE0,1
199 SCROLL9,0:PRINTCHR$(26);:RETURN
200 DA$=DATE$
201 DA$=MID$(DA$,4,3)+LEFT$(DA$,3)+RIGHT$(DA$,2):RETURN
202 DA$=MID$(DA$,3,2)+LEFT$(DA$,2)+RIGHT$(DA$,2):RETURN
203 GOSUB228:IFRIGHT$(I$,1)="�"THENI$=LEFT$(I$,LEN(I$)-1)
204 RETURN
205 W$="":FORK=1TOW:W$=INKEY$:IFW$<>""THENRETURN
206 NEXT:RETURN
207 PRINT"�-(y)es":PRINT"�-(n)o";
208 I$=""
209 I$=INKEY$:IFI$=""THEN209
210 I=ASC(I$):IFI>96ANDI<123THENI=I-32:I$=CHR$(I)
211 GOSUB230:RETURN
212 PRINT"�-(y)es  (n)o";:GOTO208
213 GOSUB200:SCROLL9,0:PRINTCHR$(23)"SIDHA-Writer 0-6G�-�":PRINT"(C)Copyright 1983 by":PRINT"SIDHA GmbH,  Germany":PRINTTIME$"    "DA$;:W=345:GOSUB205:RETURN
214 GOSUB232:IFI$<>"J"THENW=345:GOSUB205
215 RETURN
216 H=18:EXEC&HB00:LOCATES0,0:LOCATE0,1:SCROLL9,0:RETURN
217 CLS:SCROLL9,0:PRINT"�"C$(C):RETURN
218 PRINT"�-old = "O$
219 I$="":INPUT"�-new : ",I$:GOSUB228
220 IFI$=""THENI$=O$
221 RETURN
222 SCROLL9,0:LOCATE16,0:SCROLL9,0:PRINT"100%":RETURN
223 H=9:EXEC&HB00:Q=0:A=1:RETURN
224 PRINT"�-and press RETURN";
225 GOSUB208:IFASC(I$)<>13THEN225ELSERETURN
226 LPRINT:LPRINT:LPRINT:LPRINT:LPRINT:RETURN
227 IFI$=""THEN2
228 IFLEFT$(I$,1)="�"THEN2ELSERETURN
230 IFASC(I$)=11THEN2ELSERETURN
232 W$=INKEY$:IFW$=""THENRETURN
233 W=ASC(W$):IFW=11ORW=13THEN2ELSERETURN
234 GOSUB217
235 GOSUB283
236 GOSUB198:PRINT"�-by (�)Line";:LINEINPUT": ",I$:R=-A+1:GOSUB242:IFP>0THEN236
237 GOSUB284:LOCATE14,1:GOSUB199:PRINT"=";FL
238 LOCATE0,2:GOSUB199:PRINT"�-of (�)Line";:LINEINPUT": ",I$:R=-A+O:GOSUB242:IFP>0THEN238
239 GOSUB285:LOCATE14,2:GOSUB199:PRINT"=";TL
240 IFFL>TL%THEN238ELSERETURN
242 GOSUB228:IFI$=""THEN245
243 LL=&HC000:UL=&H3FFF:GOSUB274:R=I
244 I$=LEFT$(I$,1):IFI$<>"+"ANDI$<>"-"THENR=R-A
245 P=0:V=R+A:IFV=0THENP=1:RETURN
246 IFV<1ORV>O%THENP=2
247 RETURN
248 GOSUB234
249 GOSUB198:PRINT"�-after(�)Line";:LINEINPUT": ",I$:R=-A+O:GOSUB242:IFP=2THEN249
250 Q=P:H=31:EXEC&HB00:Q=0:I=R:IL=S:IFP=1THENIL=0
251 IF(IL>=FL)AND(IL<TL)THEN249
252 LOCATE14,1:GOSUB199:PRINT"="IL:RETURN
254 IFI$="Y"THENGOTO226ELSERETURN
256 CLS:GOSUB199:PRINT"�-not found !":GOSUB281:RETURN
257 GOSUB198:PRINT"�-printout ?":GOSUB207:GOSUB230:RETURN
258 LOCATE0,0:SCROLL9,0:PRINT"�-Text too long!    ":GOSUB281:RETURN
259 CLS:H=36:EXEC&HB00:H=16:EXEC&HB00:IFPEEK(&HA5F)<>0THENGOSUB256:GOTO2
260 Q=Q-10:IFQ<0THENQ=0
261 LOCATESQ,0:B$=I$:GOSUB208:S$=I$:I$=B$:RETURN
262 GOSUB217:PRINTI$:O$=STR$(PEEK(P)):GOSUB218
263 GOSUB274:POKEP,I:RETURN
264 FORN=1TOP:IFK=PEEK(&HA8B)ANDPA>=0THENPA$=STR$(PA):PA$=RIGHT$(PA$,LEN(PA$)-1):PRINT#2,SPC(PEEK(&HA83)-1);PA$:GOTO266
265 PRINT#2,""
266 K=K+1:NEXT:RETURN
267 GOSUB217:PRINTI$:GOSUB270:GOSUB218:IFV>1THENGOSUB160:V=5
268 FORJ=1TOV:I=32:IFJ<=LEN(I$)THENI=ASC(MID$(I$,J,1))
269 POKE(P+J-1),I:NEXT:RETURN
270 O$="":FORJ=0TOV-1:O$=O$+CHR$(PEEK(P+J)):NEXT:RETURN
271 GOSUB270:B$=O$:IFB$<>""THENB$="("+B$+")":RETURN
272 P=&HA91:V=5:GOSUB271:RETURN
273 GOSUB25:GOSUB198:PRINT"�-Connecting devs ":GOSUB224:GOSUB277:RETURN
274 IFVAL(I$)<LL%THENI=LL:RETURN
275 IFVAL(I$)>UL%THENI=UL:RETURN
276 I=VAL(I$):RETURN
277 GOSUB217:PRINT"�-Start   = "TIME$:RETURN
278 CLOSE:LOCATE0,2:SCROLL9,0:PRINT"�-End     = "TIME$
279 GOSUB280:RETURN
280 PRINT"�-Bytes   ="S;:W=444:GOSUB205:RETURN
281 SOUND36,1:SOUND10,1:SOUND12,1:SOUND41,1:W=123:GOSUB205:RETURN
282 GOSUB223:H=15:EXEC&HB00:RETURN
283 R=&H7FFF:H=30:EXEC&HB00:O=S:RETURN
284 H=30:EXEC&HB00:FL=S:F=R:RETURN
285 Q=0:H=31:EXEC&HB00:TL=S:T=R:RETURN
286 GOSUB283:R=0:GOSUB284:R=-A+O:GOSUB285:RETURN
287 LL=20:UL=132:GOSUB263:GOSUB223:RETURN
288 R=&H8000:V=VARPTR(R):P=&HA84:GOSUB299
289 H=0:V=VARPTR(H):P=&HCAE:GOSUB299
290 A=1:V=VARPTR(A):P=&HA86:GOSUB299:R=0:H=15:EXEC&HB00
291 Q=0:V=VARPTR(Q):P=&HCA2:GOSUB299
292 F=1:V=VARPTR(F):P=&HCA4:GOSUB299
293 T=1:V=VARPTR(T):P=&HCA6:GOSUB299
294 I=1:V=VARPTR(I):P=&HCA8:GOSUB299
295 S=0:V=VARPTR(S):P=&HCA0:GOSUB299
296 I$="A":V=VARPTR(I$):P=&HCAA:GOSUB299
297 O$="A":V=VARPTR(O$):P=&HCAC:GOTO299
299 O=INT(V/256):POKEP,O:POKE(P+1),V-(O*256):RETURN
300 IFERR=53THEN303ELSEONERRORGOTO0
303 CLOSE:GOSUB198:PRINT"�-transmission errors!"
306 GOSUB288:GOSUB223:GOSUB281:PRINT"�-try again?     ":GOSUB212
307 IFI$="Y"THENRESUME13ELSERESUME2
308 CLS:PRINTCHR$(23):TITLE"Writer":EXEC&HD00:IFPEEK(&HC11)>127THENMEMSET&H1000
309 WIDTH255,4:PRINTCHR$(23):CLEAR768,12446:DEFFIL254,0:DEFINTA-X:POKE&H169,4:GOSUB213
310 DEFFNH(H)=PEEK(H)*256+PEEK(H+1):GOSUB288:H=21:EXEC&HB00:ONERRORGOTO300
313 DIMC$(27),F$(24),D$(24),S(24),B(24),E(24):FORI=1TO27:READC$(I):NEXT:CLS:GOTO2
314 DATA A-Cancel,B-Command-Mode,C-Copy,D-Print,E-Input-Mode,F-Find,G-Goto-Line,H-Help,I-Contents,J-Justify,K-Edit-Mode,L-Load,M-Bytes,N�,O�,P-Prepare,Q-Landscape,R�,S-Save,T-Replace,U-Time,]�,V-Move,W-Remove,X�,Y�,Z-End