home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light
/
Light_Vol.1_June_1992_Datasphere_Publications_Disk_1_of_2_Side_B.d64
/
dosh
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
15KB
|
449 lines
1 a=a+1:ifa=1thenpoke53265,11:load"do.pic",8,1
2 ifa=2thenload"bit.c.l",8,1
3 ifa=3thensys1430:load"do.char",8,1
4 forw=1to3000:next:sys1024:poke53265,11
5 poke53280,11:poke56576,148:poke53272,2:poke53270,200:poke648,192
6 print"[147]":poke52487,255:poke53281,0:gosub443
7 gosub58:print"[147]"x$(1);"[194][159] dosh indexes menu [193]";x$(2);
8 print"[153][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
9 forbd=1to11:print"[209] [209]":next
10 print"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
11 printtb$"[146][158]@[154]shadow graphics 1992"
12 print"[159] 1. file from disk"
13 print"[159] 2. index update"
14 print"[159] 3. scratch old file"
15 print,"[176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]":print,"^[153]select number_"
16 print,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]":poke53265,27:poke53280,5
17 geto$:ifo$=""then17
18 o=val(o$):ifo=1thenme$="[156] file from disk [146]":goto22
19 ifo=2thenme$="[154] index update [146]":goto22
20 ifo=3thenme$="[150] scratch file [146]":goto22
21 ifo$<>""then17
22 print"[147][155]"x$(1);"[194] [153] f1=file :[158] f3=menu :";me$;"[155] [193]";x$(2)
23 forx=1to15:printtab(0)"[155]"lc$tab(20)lc$"[146][145]"
24 printtab(0)lk$tab(20)lk$"[146][145]":forw=1to20:next
25 print"[158]"mid$(str$(x),2)"[153]"tab(3)g$(x)tab(19)"[158]"x+15"[153]"g$(x+15):nextx
26 printtb$"[145][155][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]":printtb$"^ _"
27 printtb$"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]":printtb$"[154] select option [146]";
28 geta$:ifa$=""thengosub439
29 ifa$>""then31
30 printtb$"[159] select option [146]";:gosub439:goto26
31 ifa$<chr$(133)ora$>chr$(134)then26
32 ifa$=chr$(134)thenprinttb$,,"[150]exit to menu":goto7
33 ifa$=chr$(133)thengosub442:printtb$:input"[145][159] file number [146]";a
34 ifa<1ora>30then33
35 ifg$(a)=si$ando=1thenprinttb$,,"[150]empty file":gosub434:goto22
36 ifg$(a)=si$ando=3thenprinttb$,,"[150]empty file":gosub434:goto22
37 ifo=3andg$(a)<>=si$thenprinttb$,,"[150]o.k":gosub434:goto39
38 ifo=2andg$(a)<>si$thenprinttb$,,"[150]file exists":gosub434:goto22
39 ifo=1thennr=0:goto59
40 ifo=2thenbz=0:nr=0:iu=1:goto85
41 ifo=3then43
42 ifo<1oro>3then27
43 gosub439:printtb$" scratching file [146] ";:open2,8,15
44 print#2,"s:";g$(a):close2:g$(a)=si$:gosub432:goto51
45 printta$"[150]index file update number";a
46 printta$" max 16 characters [146][159]"
47 printta$"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
48 input"";g$(a)
49 l=len(g$(a)):ifl>16thenprint"[145] ":goto47
50 ifg$(a)=si$then47
51 printtb$"[145][150][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174] "
52 printtb$"^[155] writing index [150]_ ":printtb$"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189] ":iu=0
53 forj=1to30:ifg$(j)=""theng$(j)=si$
54 next
55 open2,8,2,"@0:"+e$(3)+",s,w":forj=1to30:print#2,g$(j):next:close2
56 ifo=3then7
57 ifo=2then85
58 open2,8,2,e$(3)+",s,r":forj=1to30:input#2,g$(j):next:close2:return
59 open2,8,2,g$(a)+",s,r"
60 input#2,bz:input#2,n:input#2,ba:input#2,nr
61 ifnr=0then63
62 fori=1tonr:input#2,ck$(i):input#2,dt$(i):input#2,a$(i):input#2,ba$(i):next
63 input#2,sn:input#2,se:input#2,tl$:input#2,le$:close2:goto85
64 open2,8,2,"@0:"+g$(a)+",s,w"
65 print#2,bz;r$;:print#2,n;r$;:print#2,ba;r$;:print#2,nr;r$;:ifnr=0then68
66 fori=1tonr:print#2,ck$(i)r$;:print#2,dt$(i)r$;:print#2,a$(i)r$;
67 print#2,ba$(i)r$;:next
68 print#2,sn;r$;:print#2,se;r$:print#2,tl$;r$;:print#2,le$;r$;
69 close2:goto85
70 print""
71 print"[155]"x$(1);"[194][150] set up new balance [146][155][193]";:printx$(2)
72 print" file name :-";g$(a)
73 print" enter start balance amount \";:gosub392:le$=chr$(160)
74 bz=val(b$):tl$=b$:print
75 ifb$=""then84
76 ifbz=0thena$="[145]":goto81
77 print" credit or debit (c/d)? ";
78 geta$:ifa$="c"then81
79 ifa$<>"d"then78
80 bz=-bz
81 printa$:print"[155] is this ok? ";
82 geta$:ifa$="y"thenba=bz:gosub440:goto64
83 ifa$<>"n"then82
84 gosub440:goto70
85 print"[147][155]"x$(1);"[194][153] dosh options menu [155][193]";x$(2)"[146]";
86 a$="enter":ifzq=1thena$="insert"
87 print"[153] 1 [146] [158]"a$" pay ins":print"[153] 2 [146] [158]"a$" pay outs"
88 ifnr<1orzq=1thenprint"[155] * [146] check statement":goto90
89 ifnr>0thenprint"[153] 3 [146] [158]check statement"
90 ifnr<1orzq=1thenprint"[155] * [146] edit pay ins/outs & balance":goto92
91 ifnr>0thenprint"[153] 4 [146] [158]edit pay ins/outs & balance"
92 ifbz=0orzq=1thenprint"[155] * [146] return to index menu":goto94
93 ifbz<>0thenprint"[153] 5 [146] [158]return to index menu"
94 ifiu=1then45
95 ifbz=0then70
96 geta$
97 k=val(a$):ifk<1ork>5then96
98 ifk=1then104
99 ifk=2then131
100 ifk=3andnr>0andzq=0then187
101 ifk=4andnr>0andzq=0then247
102 ifk=5andbz<>0andzq=0then7
103 goto96
104 ifzq=1then158
105 nr=nr+1
106 print""
107 print"[155]"x$(1);"[194][159] enter payment [155]:[158] enter \0 to end [146][155][193]";:printx$(2)
108 ifnr>=100thenprint"[158]statement is full":gosub433:gosub440:goto64
109 printta$" amount paid in: \";:gosub392
110 if(b$=""orb$="0")andc$=""thennr=nr-1:goto64
111 a$(nr)="+"+b$:ba=ba+val(a$(nr))
112 gosub420:ba$(nr)=ba$
113 gosub440:printta$"[155]input transaction description[158]"
114 print,"(8 chars max)"
115 printtb$" ";:gosub378
116 ck$(nr)=b$:p(nr)=0
117 gosub440:printta$"[155]date (dd[158]/[155]mm[158]/[155]yy): ";:gosub356
118 ifde=1thende=0:goto117
119 gosub440:printtb$"[145][145][159]file entry reads:-"
120 printtb$"[153]"dt$(nr)" "ck$(nr)"\"right$(a$(nr),8)" "ba$(nr)
121 geta$:ifa$=""thenprint"[158] is this correct? [146]":gosub438
122 ifa$="n"thengosub440:goto106
123 ifa$="y"then126
124 print"[158] is this correct? ":gosub438:ifa$=""then121
125 ifa$<>"n"ora$<>"y"then121
126 geta$:ifa$=""thenprint" more payins y/n? [146]":gosub438
127 ifa$="n"thengosub440:print"[158]saving new details":goto64
128 ifa$="y"thengosub440:goto105
129 print" more payins y/n? ":gosub438:ifa$=""then126
130 ifa$<>"n"ora$<>"y"then126
131 ifzq=1then173
132 nr=nr+1
133 print""
134 print"[155]"x$(1);"[194][150] enter pay out [155]:[158] enter \0 to end [146][155][193]";:printx$(2)
135 ifnr>=100thenprint"[158]statement is full":gosub433:gosub440:goto64
136 printta$"[150] amount paid out \";:gosub392
137 if(b$=""orb$="0")andc$=""thennr=nr-1:goto64
138 a$(nr)="-"+b$:ba=ba+val(a$(nr))
139 gosub420:ba$(nr)=ba$
140 gosub440:printta$"[155]input cheque number or description[158]"
141 print,"(8 chars max)"
142 printtb$" ";:gosub378
143 ck$(nr)=b$:p(nr)=0
144 gosub440:printta$"[155]date (dd[158]/[155]mm[158]/[155]yy): ";:gosub356
145 ifde=1thende=0:goto144
146 gosub440:printtb$"[145][145][159]file entry reads:-"
147 printtb$"[150]"dt$(nr)" "ck$(nr)"\"right$(a$(nr),8)" "ba$(nr)
148 geta$:ifa$=""thenprint"[158] is this correct? [146]":gosub438
149 ifa$="n"thengosub440:goto133
150 ifa$="y"then153
151 print"[158] is this correct? ":gosub438:ifa$=""then148
152 ifa$<>"n"ora$<>"y"then148
153 geta$:ifa$=""thenprint"more payouts y/n ?[146]":gosub438
154 ifa$="n"thengosub440:print"[158]saving new details":goto64
155 ifa$="y"thengosub440:goto132
156 print"more payouts y/n? ":gosub438:ifa$=""then153
157 ifa$<>"n"ora$<>"y"then153
158 printta$"[155]date (dd[158]/[155]mm[158]/[155]yy): ";:gosub356
159 ifde=1thende=0:goto158
160 gosub440:printtb$"[145][145][145][145][155]input transaction description[158]"
161 print,"(8 chars max)"
162 printtb$"[145][145] ";:gosub378
163 ck$(i)=b$:p(i)=0
164 printta$"[153] amount paid in: \";:gosub392
165 if(b$=""orb$="0")andc$=""then164
166 a$(i)="+"+b$:gosub233
167 printta$"file entry reads:- "
168 printta$""dt$(i)" "ck$(i)"\"right$(a$(i),8)" "ba$(i)
169 geta$:ifa$=""thenprintta$"[158] is this correct? (y/n)":gosub438
170 ifa$="n"thengosub440:goto158
171 ifa$="y"thenzq=0:se=0:gosub440:goto64
172 ifa$<>"n"ora$<>"y"then169
173 printta$"[155]date (dd[158]/[155]mm[158]/[155]xy): ";:gosub356:dt$(i)=dt$(p-1)
174 ifde=1thende=0:goto173
175 printta$"[155]input cheque number or description[158]"
176 printta$"[158] ";:gosub378
177 ck$(i)=b$:p(i)=0:gosub440
178 printta$"[150] amount paid out \";:gosub392
179 if(b$=""orb$="0")andc$=""then178
180 a$(i)="-"+b$:gosub233
181 gosub440:printta$"file entry reads:-"
182 printta$""dt$(i(" "ck$(i)"\"right$(a$(i(,8)" "ba$(i)
183 geta$:ifa$=""thenprintta$"[158] is this correct? [146]":gosub438
184 ifa$="n"thengosub440:goto173
185 ifa$="y"thenzq=0:se=0:gosub440:goto64
186 ifa$<>"n"ora$<>"y"then183
187 pn=int((nr-1)/10)+1
188 print"[147][155]";x$(1);"[194] [193]";
189 print"[194] [193]";x$(2)"[146]";
190 print"[158] [146]"
191 printta$"[145][153][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][178][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
192 printta$"^ _ _"
193 print"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][177][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]":print"",,"[158]";g$(a)
194 print"[158] check statement [146]"
195 print"[150] [146]"
196 print"","[157][150] : original balance \";tl$
197 print"[155] date trans payment balance "
198 printta$,,"[155] p=printer:[152]q=quit [146]"
199 j=int((nr-1)/10)*10+1
200 print"[150] page ";pn
201 print"[158]"
202 forpk=1to10:print" ":next
203 p=j:print"[158]";:gosub204:goto210
204 print"[158]"
205 fori=1top-j+1:print:next
206 ifleft$(a$(p),1)="+"thenprintdt$(p),ck$(p)"[153]"right$(a$(p),8)"[146] "ba$(p)
207 ifleft$(a$(p),1)="-"thenprintdt$(p),ck$(p)"[150]"right$(a$(p),8)"[146] "ba$(p)
208 return
209 gosub204
210 ifp<j+9thenprint"[158]";:gosub204
211 ifp=nrthen215
212 ifp<j+9thenp=p+1:goto209
213 ifp=j+9andp=nrthengosub204
214 ifp=j+9andp<nrthengosub204
215 ifj>1andj+9<nrthenprintta$"[158]+/- page on/back [146]";:goto218
216 ifj<>1thenprintta$"[150] - page backward [146]";:goto218
217 ifj+9<nrthenprintta$"[153] + page forward [146]";
218 nl=nr-se:geta$:ifa$=""then218
219 ifa$="+"andj+9<nrthenj=j+10:pn=pn+1:goto200
220 ifa$="-"andj>1thenj=j-10:pn=pn-1:goto200
221 ifa$="q"then85
222 ifa$="p"andnr>seandnl>1thenprinttb$"[155]there are"nl"transactions to print"
223 ifa$="p"andnr>seandnl>1thenprinttb$"print them (y/n)?":goto229
224 ifa$="p"andnr>seandnl=1thenprinttb$"[155]there is"nl"transaction to print"
225 ifa$="p"andnr>seandnl=1thenprinttb$"print it (y/n)?":goto229
226 ifa$="p"andnr<=sethenprinttb$"[155]no transactions left to print"
227 ifa$="p"andnr<=sethengosub434:gosub440
228 goto218
229 geta$:ifa$=""then229
230 ifa$="n"thengosub440:goto218
231 ifa$="y"thengosub440:goto237
232 ifa$<>"y"ora$<>"n"then22
233 ba=bz:forwo=itonr:ba$(wo)="":next:en=nr:nr=1
234 ba=ba+val(a$(nr)):gosub420:ba$(nr)=ba$:printta$"[158] working "
235 ifnr<enthennr=nr+1:printta$"[158] working [146]":goto234
236 ifnr=enthengosub440:return
237 ns=sn:ifns=1thenle$=tl$
238 open4,4:print#4
239 print#4,"statement number:";ns;"for ";g$(a)
240 print#4,"[192][192][192][192][192][192][192][192][192][192][192][192] previous balance: \"le$
241 print#4:print#4," date trans payment balance [146]"
242 forw=se+1tonr:ifw=nr+1then63999
243 ifleft$(a$(w),1)="+"thenprint#4,dt$(w)" "ck$(w)a$(w)" "ba$(w):next
244 ifleft$(a$(w),1)="-"thenprint#4,dt$(w)" "ck$(w)a$(w)" "ba$(w):next
245 print#4:print#4,"[192][192][192][192][192][192][192][192][192][192][192][192] latest balance: \"ba$(nr)
246 sn=ns+1:se=nr:le$=ba$(nr):close4:goto64
247 pn=int((nr-1)/10)+1
248 print"[147][153]"x$(1);"[194][155] [146][153][193]";
249 print"[194] [193]";x$(2)"[146]";
250 printta$"[145][158][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][178][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
251 print"^ _ _"
252 print"[171][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][219][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][179]"
253 print"^ _ _"
254 print"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][177][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]":print"",,"[155]";g$(a)
255 print"[155] edit statement [146]"
256 print"[152] [146]"
257 print"","[157][152] : original balance \";tl$
258 printta$,,"[155] select q to quit [146]"
259 print" crs u/d = select[146][153]_ and press return [146]"
260 print" delete / edit is on highlighted line":print,,"[157][163][163]"
261 print"insert is made above highlighted line":print,,"[157][157][157][157][163][163][163][163][163]"
262 print"[150] date trans payment balance "
263 j=int((nr-1)/10)*10+1
264 print"[152] page ";pn
265 print:forpk=1to10:print" ":next
266 print"[153]"
267 fori=jtoj+9
268 ifleft$(a$(i),1)="+"thenprint"[153]"dt$(i),ck$(i)right$(a$(i),8)"+ "ba$(i)
269 ifleft$(a$(i),1)="-"thenprint"[153]"dt$(i),ck$(i)right$(a$(i),8)"- "ba$(i)
270 next
271 ifj>1andj+9<nrthenprintta$"[158]+/- page on/back [146]";:goto274
272 ifj<>1thenprintta$"[150] - page backward [146]";
273 ifj+9<nrthenprintta$"[153] + page forward [146]";
274 p=j:print"";:gosub294:goto276
275 gosub294
276 geta$:ifa$=""then276
277 ifa$=""andp=nr then276
278 ifa$=""andp<j+9thenprint"[153]";:gosub294:p=p+1:print"";:goto275
279 ifa$="[145]"andp>jthenprint"[153]";:gosub294:p=p-1:print"";:goto275
280 ifa$="+"andj+9<nrthenj=j+10:pn=pn+1:goto264
281 ifa$="-"andj>1thenj=j-10:pn=pn-1:goto264
282 ifa$="q"andud=0then85
283 ifa$="q"andud=1thenud=0:printta$,,"[158]saving new details":goto64
284 ifa$=chr$(13)thenud=1:goto298
285 goto276
286 printtb$"[145][145][145][153] 1 [146] [159]date: "dt$(p)
287 print"[153] 2 [146] [159]description: "ck$(p)
288 print"[153] 3 [146] [159]amount: \"right$(a$(p),8)
289 a$=left$(a$(p),1)
290 ifa$="-"thencdt$="debit"
291 ifa$="+"thencdt$="credit"
292 print"[153] 4 [146] [159]credit/debit: "cdt$
293 return
294 print"":fori=1top-j+1:print:next
295 ifleft$(a$(p),1)="+"thenprintdt$(p),ck$(p)right$(a$(p),8)"+ "ba$(p)
296 ifleft$(a$(p),1)="-"thenprintdt$(p),ck$(p)right$(a$(p),8)"- "ba$(p)
297 return
298 b$="[155]":ifnr=100thenb$="[144]"
299 printta$""b$" i=insert an item[146][153]_[155] d=delete an item "
300 print"[155] e=edit an item [146][153]_[155] q=quit "
301 geta$:ifa$="q"then85
302 ifa$="i"andb$="[155]"then351
303 ifa$="d"then346
304 ifa$<>"e"then301
305 printta$"[145][153][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
306 printta$" "
307 printta$" ":gosub440:gosub286
308 print" select 1[146],2[146],3[146],4[146] or q=quit"
309 geta$:ifa$="q"then85
310 k=val(a$):ifk<1ork>4then309
311 onkgoto312,320,326,336
312 gosub440:dc=nr:nr=p:t$=dt$(p)
313 printta$"[159] date to change is :-[146] "dt$(p)
314 printta$"[158]enter new date:[155]";:gosub356
315 ifde=1thende=0:gosub440:goto313
316 print:print"[158]ok (y/n)?":nr=dc
317 geta$:ifa$="n"thendt$(p)=t$:gosub440:goto247
318 ifa$<>"y"then317
319 gosub440:goto247
320 gosub440:printtb$"[145][145][145][159] detail is [146]:- "ck$(p)
321 print"[158]enter new desc:[155] ";:gosub377
322 print:print"[158]ok (y/n)?"
323 geta$:ifa$="n"thengosub440:goto247
324 ifa$<>"y"then323
325 gosub440:ck$(p)=b$:goto247
326 gosub440:printtb$"[145][145][145][159] amount to change [146]:- \"right$(a$(p),8)
327 print"[158]new amount:[155]\";:gosub392
328 print:print"[158]ok (y/n)?"
329 geta$:ifa$="n"thengosub440:goto247
330 ifa$<>"y"then329
331 a$(p)=left$(a$(p),1)+b$
332 ba=bz:forwo=jtonr:ba$(wo)="":next:en=nr:nr=1
333 ba=ba+val(a$(nr)):gosub420:ba$(nr)=ba$:printta$,,"[158] working "
334 ifnr<enthennr=nr+1:printta$,,"[158] working [146]":goto333
335 ifnr=enthen247
336 gosub440:printtb$"[145][145][145][159] item is a "cd$
337 print"[158]credit/debit:enter c or d [155]";
338 geta$:ifa$="c"thenb$="+":goto341
339 ifa$<>"d"then338
340 b$="-"
341 printa$
342 print"[158]ok (y/n)?"
343 geta$:ifa$="n"thengosub440:goto247
344 ifa$<>"y"then343
345 a$(p)=b$+right$(a$(p),8):goto332
346 printta$,," are you spre y/n [146]":geta$:ifa$="n"then247
347 ifa$<>"y"then346
348 fori=p+1tonr
349 ck$(i-1)=ck$(i):dt$(i-1)=dt$(i):a$(i-1)=a$(i):ba$(i-1)=ba$(i):next
350 ck$(nr)="":a$(nr)="":dt$(nr)="":ba$(nr)="":nr=nr-1:goto332
351 nr=nr+1:fori=nrtopstep-1
352 ifi=pthen354
353 ck$(i)=ck$(i-1):dt$(i)=dt$(i-1):a$(i)=a$(i-1):ba$(i)=ba$(i-1):next
354 ifi=pthenzq=1
355 goto85
356 dt$(nd)=""
357 geta$:ifa$=""then357
358 ifa$=chr$(13)andlen(dt$(nd))=8andzq=0thendt$(nr)=dt$(nd):return
359 ifa$=chr$(13)andlen(dt$(nd))=8andzq=1thendt$(i)=dp$(nd):return
360 ifa$=chr$(20)andlen(dt$(nd))>0thende=1:return
361 iflen(dt$(nd))=8then357
362 ifa$="0"then364
363 ifval(a$)<1then357
364 iflen(dt$(nd))=0andval(a$)>3then357
365 ifdt$(nd)="3"andval(a$)>1then357
366 ifdt$(nd)="0"andval(a$)=0then357
367 iflen(dt$(nd))=3andval(a$)>1then357
368 ifmid$(dt$(nd),4,1)="1"andlen(dt$(nd))=4andval(a$)>2then357
369 ifmid$(dt$(nd),4,1)="0"andlen(dt$(nd))=4andval(a$)=0then357
370 iflen(dt$(nd))=6andval(a$)<8then357
371 iflen(dt$(nd))=1thena$=a$+"/"
372 iflen(dt$(nd))=4thena$=a$+"/"
373 dt$(nd)=dt$(nd)+a$:printa$;:goto357
374 l=1:iflen(dt$(nd))=3thenl=2
375 iflen(dt$(nd))=6thenl=2
376 dt$(nd)=left$(dt$(nd),len(dt$(nd))-l)
377 print"[157] [157]";:ifl=2thenprint"[157] [157]";:goto357
378 b$="":l=0:s=1
379 geta$:ifa$=""then379
380 ifa$=chr$(13)then390
381 ifa$=chr$(20)andl>0then389
382 ifl=8then379
383 ifa$=","ora$=":"then379
384 ifa$=" "ands=1then379
385 ifa$=" "ora$="!"then387
386 ifa$<"#"ora$>"_"then379
387 s=0:ifa$=" "thens=1
388 b$=b$+a$:l=l+1:printa$;:goto379
389 s=0:print"[157] [157]";:l=l-1:b$=left$(b$,l):goto379
390 iflen(b$)<9thenb$=b$+" ":goto390
391 return
392 b$="":c$="":l=0
393 geta$:ifa$=""then393
394 ifa$=chr$(13)andl=0thenb$="0.00":goto417
395 ifa$=chr$(13)thenb$=b$+".00":goto417
396 ifa$=chr$(20)andl>0then404
397 ifa$="."andl=0thena$="0.":l=1:goto405
398 ifa$="."then405
399 ifl=5then393
400 ifb$="0"then393
401 ifa$="0"then403
402 ifval(a$)=0then393
403 printa$;:b$=b$+a$:l=l+1:goto393
404 l=l-1:print"[157] [157]";:b$=left$(b$,l):goto393
405 l=l+1:b$=b$+a$:l1=0:c$="":printa$;
406 geta$:ifa$=""then406
407 ifval(b$)=0anda$=chr$(13)andc$=""then418
408 ifa$=chr$(13)andl1=2thenb$=b$+c$:goto417
409 ifa$=chr$(20)andl1>0then416
410 ifa$=chr$(20)then404
411 ifl1=2then406
412 ifa$="0"then414
413 ifval(a$)=0then406
414 printa$;:c$=c$+a$:l1=l1+1:goto406
415 ifl1=2thenb$=b$+c$:goto419
416 l1=l1-1:print"[157] [157]";:c$=left$(c$,l1):goto406
417 iflen(b$)<8thenb$=" "+b$:goto417
418 ifval(b$)=0thenb$=""
419 return
420 ba=ba*100+.5:ba=int(ba)/100
421 b$=str$(abs(ba*100)):b$=right$(b$,len(b$)-1)
422 iflen(b$)<3thenba$="0":goto424
423 ba$=left$(b$,len(b$)-2)
424 ba$=ba$+"."
425 iflen(b$)=1thenba$=ba$+"0"+b$:goto427
426 ba$=ba$+right$(b$,2)
427 iflen(ba$)<8thenba$=chr$(160)+ba$:goto427
428 ifb$="0"thenb$=" ":goto431
429 b$="[153] c"
430 ifba<>abs(ba)thenb$="[150] d"
431 ba$=ba$+b$:return
432 forw=1to2000:next
433 forw=1to1000:next
434 forw=1to500:next
435 forw=1to400:next
436 forw=1to300:next
437 forw=1to200:next
438 forw=1to100:next
439 forw=1to100:next:return
440 printta$" ":forwp=1to5
441 print" ":forw=1to50:next:next:return
442 printtb$" ":return
443 x$(1)="[213]>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>[201]":e$(3)="index":n=100:sn=1
444 x$(2)="[202]<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<[203]":r$=chr$(13)
445 dimck$(n+1),dt$(n+1),a$(n+1),p(n+1),g$(30),j(30),a(30),ba$(n+1)
446 tb$="":ta$=""
447 lc$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":lk$=" "
448 si$="[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]":return