LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)O^X%4ZDISKNAME.DAT"HELLO.TEXT#!%HELLOMAKER |%SEG.T jŸ/ FLASHNAME.DATG!-READ.ME.FIRST  A3IBM.STUFF6u' *A3IBM.TEXT,-8%A3IBM$P-P--ASCII.CONVERT3 ! *SOS.INTERP >4ke!! *SOS.KERNEL r,V!!a*SOS.DRIVER >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L = wk_char; end; {YN_23} procedure READ_ASC (var fl: filetp; var f: fileblock); var i,j,k: integer; line_end: boolean; rec_lf: string [1]; *ok: boolean; begin *rec_lf := ' '; *rec_lf [1] := chbegin 0unitclear (1); 0gotoxy (0, 23); 0write (chr(30), chr (7), 'Please answer "Y" or "N."'); 0gotoxy (66, 23); 0write ('PRESS ANY KEY'); 0read (keyboard, wk_char); 0end; -{endif} *until success; *write (chr (30)); *unitclear (1); *YN_23 :-read (keyboard, wk_char); -if wk_char in ['Y','y','N','n'] then begin 0if wk_char > 'Y' then wk_char:= chr (ord (wk_char) - 32); 0success := true; 0end -else if default in ['Y','N'] then begin 0wk_char := default; 0success := true; 0end -else ); -success := false; -gotoxy (0, 23); -if length (s) > 66 then s := copy (s, 1, 66); -write (chr(30), s); -gotoxy (66, 23); -write ('(Y | N) --> '); -if default in ['Y','N'] then begin 0write (default); 0gotoxy (78,23); 0end; -{endif} "Y" or "N" response at screen bottom } *{Allow a default response or require a "Y" or "N" } var wk_char: char; *success: boolean; begin *if default > 'Y' then default:= chr (ord (default) - 32); *repeat -unitclear (1oxy (0,23); *if length (s) > 65 then s := copy (s, 1, 65); *write (chr(30), chr(7), s, ' Press any key.'); *read (keyboard, wk_char); *unitclear (1); *write (chr (30)); end; {ERR_23} function YN_23 (s:string; default: char): char; *{Prompt for *text_out: boolean; *retcode: integer; *outblock: ascblock; *outpath: string; *answer: char; * procedure ERR_23 (s:string); {Error msg and toot at screen bottom. AB 01/85} var wk_char: char; begin *unitclear (1); *got string; *recread: integer; *i,j: integer; *yyyymmdd: string [8]; *wk_string: string; *wk_255: string [255]; *out_root: string; *ok: boolean; *odometer: boolean; *text_in: boolean; tr255; :IBM: boolean; :SYS: buftype; :end; var *infile: filetp; *inblock: fileblock; *inpas: text; *outfile: text; *inpath: *fileblock = record :BUF: buftype; :LEN: integer; :PTR: integer; :EF: boolean; :REC: str255; :end; *filetp = file; *ascblock = record :BUF: buftype; :LEN: integer; :REFNO:integer; :REC: s{$list}  program A3IBM; {Exchange IBM and Apple /// text files AMB 08/05/86} {$list-} uses applestuff, genutil, plutil, sosio, chainstuff; {$list+} type *str255 = string [255]; *buftype = packed array [1..1024] of char; r (10); *line_end := false; *with F do begin *rec := ''; *repeat if ((ptr < 1) or (ptr > len)) then begin i := blockread (fl, buf, 2); 0if i = 0 then begin ef := true; 3line_end := true; ptr := 0; end else begin len := i * 512; 3ok := false; 3j := 0; 3repeat 6j := j + 1; 6if j > len 9then ok := true 6else if buf [j] = chr (00) 9then ok := true 6else if buf [j ('Convert from Apple to IBM format?', 'x'); )if answer = 'Y' then begin ,outblock.ibm := true; ,wk_string := 'Apple ///'; ,end )else begin ,answer := yn_23 ('Convert from IBM to Apple format?', 'x'); ,if answer = 'Y' then begin /outblock.ibm := fa integer; *wk_string: string; *wk2_strg: string; &begin &date (yyyymmdd); &today := concat (copy(yyyymmdd,5,4),copy(yyyymmdd,3,2)); &stdscreen &('A3IBM: Convert Between Apple /// and IBM Text Files (v.08/86)'); &repeat )answer := yn_23,ok := sos_create (outpath, 4, 0, 1, 0, retcode); ,ok := sos_open (outpath, 2, 4, sys, refno, retcode); )end; )end; &{endif} &odometer := true; &if outpath = '.CONSOLE' then odometer := false; end;{open_outfile} procedure initiation; &var i: end ,else begin /err_23 ('Please use full SOS pathname.'); /ok := false; /close (outfile); /end; ,{endif} ,end; ){end} &until ok; &if not text_out then begin )with outblock do begin ,close (outfile); ,ok := sos_destroy (outpath, retcode); } )text_out := false; )if not outblock.ibm then ,if pos ('.TEXT',outpath) = (length(outpath) - 4) /then text_out := true; /{endif} ){endif} )if not text_out then begin ,if outpath [1] = '/' then begin /end ,else if outpath [1] = '.' then begin /ot, '.PC'); )end; &{endif} &wk_string := concat ('Output ', wk_string, ' file'); &repeat )ok := true; )gotoxy (0, 10); )open (outfile, wk_string, 'REWRITE', outpath); )if outpath <= ' ' then begin ,close (infile); ,exit (program); ,end; ){endif)wk_string := 'IBM'; )if inpath = outpath then outpath := concat (out_root, '.A3'); )end &else begin )writeln ('For an Apple /// Pascal text file, use a ".TEXT" suffix'); )wk_string := 'Apple ///'; )if inpath = outpath then outpath := concat (out_rohar); *write (chr (28)); *if wk_char = chr (27) -then -else ok := sos_terminate; *{endif} end; {terminate} procedure open_outfile; var &wk_string: string; begin &outpath := out_root; &gotoxy (0, 8); &if outblock.ibm then begin SIO} var *wk_char: char; begin *write (chr (28)); *gotoxy (0, 12); *write (' Press RETURN To Terminate'); *gotoxy (0, 14); *write (' Press ESCAPE for the PASCAL System'); *read (keyboard, wk_c; 2end; /{endif} /len := len + 1; /buf [len] := chr (13); /if ibm then begin 2len := len + 1; 2buf [len] := chr (10); 2end; /{endif} /ok := sos_write (refno, buf, len, retcode); *end; {with F} end; {WRITE_ASC} procedure terminate; {needs SO-i := pos (rec_lf, rec); -if i > 0 then delete (rec, i, 1); -end; *{endif} *end; {with F} end; {READ_ASC} procedure WRITE_ASC (var f: ascblock); begin with F do begin /len := length (rec); /if len > 0 then begin 2moveleft (rec [1], buf, len)], j); 0rec [0] := chr (length (rec) + j); 0{$rangecheck+} 0ptr := ptr + j; 0if ptr <= len then line_end := true; 0ptr := ptr + 1; -until ((line_end) or (ptr > len)); until (line_end); *if length (rec) > 0 then begin d; {check for actual read} {endif} -if ptr > 0 then repeat 0j := scan (len + 1 - ptr, =chr(13), buf [ptr]); 0if (j + length (rec)) > 255 3then j := 255 - length (rec); 0{endif} 0{$rangecheck-} 0moveleft (buf [ptr], rec [length (rec) + 1] = chr (26) then begin 9buf [j] := chr (0); 9ok := true; 9end; 6{endif} 3until (ok); if eof (fl) then len := scan (len, =chr(00), buf [1]); 3ptr := 1; end; {block read} {endif} enlse; /wk_string := 'IBM'; /end; ,{endif} ,end; ){endif} &until (answer = 'Y'); &inpath := ''; &gotoxy (0, 3); &wk_string := concat ('Input ', wk_string, ' file'); &open (infile, wk_string, 'RESET', inpath); &if inpath <= ' ' then exit (program); &text_in := false; &if outblock.ibm )then &else if pos ('.TEXT', inpath) = (length(inpath) - 4) then begin )text_in := true; )close (infile); )reset (inpas, inpath); )end; &{endif} &inblock.ef := false; &i !"#$%&'()*+,-./01 record #:BUF: buftype; #:LEN: integer; #:PTR: integer; #:EF: boolean; #:REC: str255; #:end; #*filetp = file; #*ascblock = record #:BUF: buftype; #:LEN: integer; #:REFNO:integer; #:REC: str255; #:IBM: boolean; #:SYS: buftype; #:end{$list} # program A3IBM; {Exchange IBM and Apple /// text files AMB 08/05/86} {$list-} uses applestuff, genutil, plutil, sosio, chainstuff; {$list+} type #*str255 = string [255]; #*buftype = packed array [1..1024] of char; #*fileblock = ER = 'N'; (terminate; end. {A3IBM} tblock.buf, 1, retcode); .end; +{endif} +if text_out then begin .close (outfile, lock); .end +else begin + ok := sos_close (outblock.refno, retcode); .end; +{endif} +answer := yn_23 ('End of task. Convert another text file?','N'); (UNTIL ANSW5then writeln (outfile, outblock.rec) 5else write_asc (outblock); 2{endif} 2readasc (infile, inblock); /end; {while} .close (infile); .end; +{endif} +if outblock.ibm then begin .outblock.buf [1] := chr (26); .ok := sos_write (outblock.refno, ouas) .end +else begin .readasc (infile, inblock); .while (not inblock.ef) do begin; 1if odometer then begin 5inc (recread); 5gotoxy (28, 15); 5write (recread:5); 5end; 2{endif} 2outblock.rec := inblock.rec; 2if text_out (recread); 5gotoxy (28, 15); 5write (recread:5); 5end; 2{endif} 2readln (inpas, in_block.rec); 2outblock.rec := in_block.rec; 2if text_out 5then writeln (outfile, outblock.rec) 5else write_asc (outblock); 2{endif} .UNTIL eof(inpas); .close (inp REPEAT +initiation; +write (chr (6)); +gotoxy (0, 15); +for i := 1 to 5 do writeln (chr(30)); +write (chr (5)); +gotoxy (0, 15); +write ('Processing Record Number'); +recread := 0; +if text_in then begin; .REPEAT 2if odometer then begin 5inc ,get_prefix (wk_string); ,out_root := concat (wk_string, out_root); ,inpath := concat (wk_string, inpath); ,end; ){endif} )end; &{endif} &if length (out_root) > 75 then out_root := copy (out_root, 1, 75); &open_outfile; end;{initiation} begin py (wk_string, 1, i)); /delete (wk_string, 1, i); /i := pos ('.', wk_string); ,until (i = 0); ,delete (out_root, length(out_root), 1); ,end; ){endif} )end; &{endif} &if outroot [1] <> '.' then begin )if out_root [1] <> '/' then begin 1, i)); /delete (wk_string, 1, i); /i := pos ('/', wk_string); ,until (i = 0); ,end; ){endif} )i := pos ('.', wk_string); )if i = 0 then begin ,out_root := concat (out_root, wk_string); ,end )else begin ,repeat /out_root := concat (out_root, conblock.ptr := 0; &i := pos ('.', inpath); &if i = 0 then begin )out_root := inpath; )end &else begin )wk_string := inpath; )out_root := ''; )i := pos ('/', wk_string); )if i > 0 then begin ,repeat /out_root := concat (out_root, copy (wk_string, ; var #*infile: filetp; #*inblock: fileblock; #*inpas: text; #*outfile: text; #*inpath: string; #*recread: integer; #*i,j: integer; #*yyyymmdd: string [8]; #*wk_string: string; #*wk_255: string [255]; #*out_reft (rec [1], buf, len); #2end; #/{endif} #/len := len + 1; #/buf [len] := chr (13); #/if ibm then begin #2len := len + 1; #2buf [len] := chr (10); #2end; #/{endif} #/ok := sos_write (refno, buf, len, retcode); #*end; {with F} end; {WRITE_ASC} procedure tth (rec) > 0 then begin #-i := pos (rec_lf, rec); #-if i > 0 then delete (rec, i, 1); #-end; #*{endif} #*end; {with F} end; {READ_ASC} procedure WRITE_ASC (var f: ascblock); begin with F do begin #/len := length (rec); #/if len > 0 then begin #2movel} #0moveleft (buf [ptr], rec [length (rec) + 1], j); #0rec [0] := chr (length (rec) + j); #0{$rangecheck+} #0ptr := ptr + j; #0if ptr <= len then line_end := true; #0ptr := ptr + 1; #-until ((line_end) or (ptr > len)); until (line_end); #*if lengad} {endif} end; {check for actual read} {endif} #-if ptr > 0 then repeat #0j := scan (len + 1 - ptr, =chr(13), buf [ptr]); #0if (j + length (rec)) > 255 #3then j := 255 - length (rec); #0{endif} #0{$rangecheck- = chr (00) #9then ok := true #6else if buf [j] = chr (26) then begin #9buf [j] := chr (0); #9ok := true; #9end; #6{endif} #3until (ok); if eof (fl) then len := scan (len, =chr(00), buf [1]); #3ptr := 1; end; {block re ef := true; #3line_end := true; ptr := 0; end else begin len := i * 512; #3ok := false; #3j := 0; #3repeat #6j := j + 1; #6if j > len #9then ok := true #6else if buf [j] boolean; begin #*rec_lf := ' '; #*rec_lf [1] := chr (10); #*line_end := false; #*with F do begin #*rec := ''; #*repeat if ((ptr < 1) or (ptr > len)) then begin i := blockread (fl, buf, 2); #0if i = 0 then begin until success; #*write (chr (30)); #*unitclear (1); #*YN_23 := wk_char; end; {YN_23} procedure READ_ASC (var fl: filetp; var f: fileblock); var i,j,k: integer; line_end: boolean; rec_lf: string [1]; #*ok: begin #0wk_char := default; #0success := true; #0end #-else begin #0unitclear (1); #0gotoxy (0, 23); #0write (chr(30), chr (7), 'Please answer "Y" or "N."'); #0gotoxy (66, 23); #0write ('PRESS ANY KEY'); #0read (keyboard, wk_char); #0end; #-{endif} #*begin #0write (default); #0gotoxy (78,23); #0end; #-{endif} #-read (keyboard, wk_char); #-if wk_char in ['Y','y','N','n'] then begin #0if wk_char > 'Y' then wk_char:= chr (ord (wk_char) - 32); #0success := true; #0end #-else if default in ['Y','N'] thenY' then default:= chr (ord (default) - 32); #*repeat #-unitclear (1); #-success := false; #-gotoxy (0, 23); #-if length (s) > 66 then s := copy (s, 1, 66); #-write (chr(30), s); #-gotoxy (66, 23); #-write ('(Y | N) --> '); #-if default in ['Y','N'] then hr (30)); end; {ERR_23} function YN_23 (s:string; default: char): char; #*{Prompt for "Y" or "N" response at screen bottom } #*{Allow a default response or require a "Y" or "N" } var wk_char: char; #*success: boolean; begin #*if default > ' at screen bottom. AB 01/85} var wk_char: char; begin #*unitclear (1); #*gotoxy (0,23); #*if length (s) > 65 then s := copy (s, 1, 65); #*write (chr(30), chr(7), s, ' Press any key.'); #*read (keyboard, wk_char); #*unitclear (1); #*write (coot: string; #*ok: boolean; #*odometer: boolean; #*text_in: boolean; #*text_out: boolean; #*retcode: integer; #*outblock: ascblock; #*outpath: string; #*answer: char; #* procedure ERR_23 (s:string); {Error msg and tooterminate; {needs SOSIO} var #*wk_char: char; begin #*write (chr (28)); #*gotoxy (0, 12); #*write (' Press RETURN To Terminate'); #*gotoxy (0, 14); #*write (' Press ESCAPE for the PASCAL System'); #*read (keyboard, wk_char); #*write (chr (28)); #*if wk_char = chr (27) #-then #-else ok := sos_terminate; #*{endif} end; {terminate} procedure open_outfile; var #&wk_string: string; begin #&outpath := out_root; #&gotoxy (0, 8); #&if outblock.ibm then b0, 15); #+for i := 1 to 5 do writeln (chr(30)); #+write (chr (5)); #+gotoxy (0, 15); #+write ('Processing Record Number'); #+recread := 0; #+if text_in then begin; #.REPEAT #2if odometer then begin #5inc (recread); #5gotoxy (28, 15); #5write (recread:5); string, out_root); #,inpath := concat (wk_string, inpath); #,end; #){endif} #)end; #&{endif} #&if length (out_root) > 75 then out_root := copy (out_root, 1, 75); #&open_outfile; end;{initiation} begin REPEAT #+initiation; #+write (chr (6)); #+gotoxy (ing, 1, i); #/i := pos ('.', wk_string); #,until (i = 0); #,delete (out_root, length(out_root), 1); #,end; #){endif} #)end; #&{endif} #&if outroot [1] <> '.' then begin #)if out_root [1] <> '/' then begin #,get_prefix (wk_string); #,out_root := concat (wk_ := pos ('/', wk_string); #,until (i = 0); #,end; #){endif} #)i := pos ('.', wk_string); #)if i = 0 then begin #,out_root := concat (out_root, wk_string); #,end #)else begin #,repeat #/out_root := concat (out_root, copy (wk_string, 1, i)); #/delete (wk_strh); #&if i = 0 then begin #)out_root := inpath; #)end #&else begin #)wk_string := inpath; #)out_root := ''; #)i := pos ('/', wk_string); #)if i > 0 then begin #,repeat #/out_root := concat (out_root, copy (wk_string, 1, i)); #/delete (wk_string, 1, i); #/i #&text_in := false; #&if outblock.ibm #)then #&else if pos ('.TEXT', inpath) = (length(inpath) - 4) then begin #)text_in := true; #)close (infile); #)reset (inpas, inpath); #)end; #&{endif} #&inblock.ef := false; #&inblock.ptr := 0; #&i := pos ('.', inpatse; #/wk_string := 'IBM'; #/end; #,{endif} #,end; #){endif} #&until (answer = 'Y'); #&inpath := ''; #&gotoxy (0, 3); #&wk_string := concat ('Input ', wk_string, ' file'); #&open (infile, wk_string, 'RESET', inpath); #&if inpath <= ' ' then exit (program);('Convert from Apple to IBM format?', 'x'); #)if answer = 'Y' then begin #,outblock.ibm := true; #,wk_string := 'Apple ///'; #,end #)else begin #,answer := yn_23 ('Convert from IBM to Apple format?', 'x'); #,if answer = 'Y' then begin #/outblock.ibm := fal integer; #*wk_string: string; #*wk2_strg: string; #&begin #&date (yyyymmdd); #&today := concat (copy(yyyymmdd,5,4),copy(yyyymmdd,3,2)); #&stdscreen #&('A3IBM: Convert Between Apple /// and IBM Text Files (v.08/86)'); #&repeat #)answer := yn_23 #,ok := sos_create (outpath, 4, 0, 1, 0, retcode); #,ok := sos_open (outpath, 2, 4, sys, refno, retcode); #)end; #)end; #&{endif} #&odometer := true; #&if outpath = '.CONSOLE' then odometer := false; end;{open_outfile} procedure initiation; #&var i: in #/end #,else begin #/err_23 ('Please use full SOS pathname.'); #/ok := false; #/close (outfile); #/end; #,{endif} #,end; #){end} #&until ok; #&if not text_out then begin #)with outblock do begin #,close (outfile); #,ok := sos_destroy (outpath, retcode);endif} #)text_out := false; #)if not outblock.ibm then #,if pos ('.TEXT',outpath) = (length(outpath) - 4) #/then text_out := true; #/{endif} #){endif} #)if not text_out then begin #,if outpath [1] = '/' then begin #/end #,else if outpath [1] = '.' then begut_root, '.PC'); #)end; #&{endif} #&wk_string := concat ('Output ', wk_string, ' file'); #&repeat #)ok := true; #)gotoxy (0, 10); #)open (outfile, wk_string, 'REWRITE', outpath); #)if outpath <= ' ' then begin #,close (infile); #,exit (program); #,end; #){egin #)wk_string := 'IBM'; #)if inpath = outpath then outpath := concat (out_root, '.A3'); #)end #&else begin #)writeln ('For an Apple /// Pascal text file, use a ".TEXT" suffix'); #)wk_string := 'Apple ///'; #)if inpath = outpath then outpath := concat (o#5end; #2{endif} #2readln (inpas, in_block.rec); #2outblock.rec := in_block.rec; #2if text_out #5then writeln (outfile, outblock.rec) #5else write_asc (outblock); #2{endif} #.UNTIL eof(inpas); #.close (inpas) #.end #+else begin #.readasc (infile, inblock); #.while (not inblock.ef) do begin; #1if odometer then begin #5inc (recread); #5gotoxy (28, 15); #5write (recread:5); #5end; #2{endif} #2outblock.rec := inblock.rec; #2if text_out #5then writeln (outfile, outblock.rec) #5else write_asc (outblock); #2{endifmajor commercial programs. Both have the same problem -- special features and formatting commands are lost in the translation. I may get in over my head here. My word processing experience has been mostly limited to Apple Writer on my /// and file. The ASCII file is the word processing world's medium of exchange, much like DIF is in the world of spread sheets and data bases. Both are standardized file formats. Both are almost universally recognized as import/export formats by the ats. That program bridge is reading from and writing to "ASCII text files." In the word processor context, an "ASCII file" has one document line per file line. Each document line is terminated by a carriage return (CR) -- and a line feed in a MS-DOS e limited program bridges, and there just isn't much in the way of bridge programs between word processor document files. A word processor generally has one program bridge between its own unique file format and document files in other-package form programs in the context of data base and spread sheet conversions. Bridge programs and program bridges can usually get you from one data base or spread sheet to another, often across different computer systems. Word processors, however, haved products can handle the inter-machine problem, with varying ease. The A3-PC connection is just one of Scott's problems. Scott's biggest problem is conversion between word processor document file formats. I introduced program bridges and bridgee cleaned up version given back to them on their IBM data disk." Inter-machine file transfer is a character builder. I've mention (#3 in this series) some of the joys of transferring files between an Apple /// and an MS-DOS machine. Hardware bas2456789:;<enants want us to do is take a word processing document that they have created on an IBM PC using WordStar, Microsoft Word, or other popular word processing program, and to clean up the document and print it. They would then like to have th GETTING THERE FROM HERE Number 5: Converting Word Processor Files Scott Warner of Cupertino, CA (No, not THAT firm) has a problem. Scott is an island of sanity in a sea of Baby Blue. He says "What our toutfile, lock); #.end #+else begin #+ ok := sos_close (outblock.refno, retcode); #.end; #+{endif} #+answer := yn_23 ('End of task. Convert another text file?','N'); #(UNTIL ANSWER = 'N'; #(terminate; end. {A3IBM} } #2readasc (infile, inblock); #/end; {while} #.close (infile); #.end; #+{endif} #+if outblock.ibm then begin #.outblock.buf [1] := chr (26); #.ok := sos_write (outblock.refno, outblock.buf, 1, retcode); #.end; #+{endif} #+if text_out then begin #.close (Script on the university's VM/CMS IBM mainframe. I saw Word Juggler just long enough to write a review some years back. I do not word process on my office Piece of Chunk. The bulk of my Baby Blue experience has come recently. A colleague is building a book, with chapters written by folks who are all over the country. They send him disks. He runs to me for help in decoding various file formats he gets. I do very little conversion between word processor document files. That low level o̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭 double CR is sincere. A single CR may not be. Within a paragraph of text, it should be removed. The CR at the end of each line of a table, or of an interior address, or whatever, should stay. new line. You must edit out extraneous CR's from an "imported" ASCII file. That can be a bore. Can extraneous carriage returns be programmed out? Not generally. An ASCII text file gives little clue as to whether a carriage return is sincere. Afor bringing an ASCII text file into Apple Writer. Apple Writer can read an ASCII file, but it doesn't really import it. Remember that a text file has a carriage return (CR) at the end of each line. Apple Writer uses carriage returns only to force adStar doesn't export ASCII files. Even "printed" to disk, the WS file still looks like a WS file -- with high bits flagged and hard/soft carriage returns and other things your mother never wanted you to know about. The second bridge program was ther messy or expensive or illegal. I also had to write a couple bridge programs just to use an ASCII file as an intermediary. One helped a student with an article written with WordStar 3.2 that he needed to get to the university mainframe. Wor I told Goodwife Bloom to enter her newsletter in Apple Writer, and I'd convert the AW file into a format that could be processed by the Waterloo Script word processor on Tech's system. Writing AWSCRIPT was a major bother, but the alternatives were ei goodies available from Tech. However, she didn't have an account. No problem. She logged on to my account from home. That raised a domestic tranquility issue. I had to do useful work on the Tech computer, and I found "myself" already logged on. nia Art Education Association newsletter. She knew the marvels available from the Virginia Tech computing center. She saw no reason to pay a printer for mis-typing her deathless prose. She would present the printer with camera ready copy using thef activity generally makes it most cost effective to use an ASCII file as an intermediate and to manually re-enter the special commands into the importing program's document. I've violated that rule of thumb once. My wife was editor of the Virgissssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVPOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONV,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A, 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢЅ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺyH8iinn0 xj*% $\hxy56y6( Cx( >x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe XE )s LvɁ >H>H= Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ { &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0nihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56y^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`L656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLe8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽HHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|Hgȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eegggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h5H ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6Ht $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hL?e8V je?e>e8U>e5V?e665e=e@eeehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L dMeL` bՍe :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e?eJeKeLje֩ u>e?eՍ "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$`pd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6k;el)@7Me0u(> ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyo ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;eed?e,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eh`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT H v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`X`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt `` LLɠ8`ΛLL渠`0 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `Gƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8Hۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*JۦȱѶ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۠ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLL  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤Fi ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶   `x )HH8(=&(+ʈ&ਹ''&&hh(` * @ HH` 2``ӠР    0) ȑȱȱȱ008 8hhh H(`x )HH'Ƚ!88x , ,,(`," , *)` `߭lߩ * xLx @h hhh ,0)ߨ)Ah&'0HHHH xhhhh ,0)ߍLLhhh@)&&&(&('+*H)H(h)H@x )HH30.0\-JM-, J3,e$,d,,  * *l߅߅H ߅ \xi ߅LHHH *ح)0 D) HHHH,, ߩ0  xLߍ󠠩à٠΀ƉŠŠӠҠȠHHH *ح)0 D) HHHH,, ߘ)@ *)X  xI)}h)L, L )ڠ) w߭)Ů􅮈 ߠ'x)) J,QJ,SJ,U,P,W(`)(()  8)j`J j߅`0X ٠͠堘ӠȠŠ=`Insert volume: Τ in device: 蠠ɠ then press the ALPHA LOCK key twicex)_ @,P,R,T,V) )) `)8( ߠ',@ ߠ0  '葺 ݰL`5`i 祻(8`2ޝ51©ޅéąŅƍ >ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ RڰäJۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴 ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ; 窭 JJҘ)e}ҭ e8ЅЩѩӠEӅ ЭHH p0Hppxpppp( ̍pJJ ̍phh`HH p0Ex0pp(0 (p8**-p hhJJJJ 00) 0`ǀЀOHH p0%Px0pNp(PhhQL(p8**-phh SU  U.ST  UOSQ R ȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J ӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) 4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅ,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrGA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRDžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`r|>00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>88  >!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp<=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰BTVSPLH   5"ʘ HH` (# (=  0`)aIٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐrx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h A$g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B C }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~ /47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}J) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruzp Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/epɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥe륅eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"it is easy to use and a must for anyone planning to transfer files from the /// to an MS Dos machine. Also on Side Two: ASCII.Convert - a Dr.Bloom column on ASCII text files on the Apple /// and PC. t can be properly transfered to an MS-DOS machine. It is extremely easy to use, asking for pathnames of input and output files. The actual program is one side one. Source code is on side two. Unfortunately, there is no manual with this program. But WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: A3IBM by Bloom DISK ID#: 3UTL-35 BOOTABLE?: Bootable A3IBM is a Pascal-based program by Dr. Al Bloom that will automatically format any Apple /// ASCII (Text) file so that iTHE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &`LL) @ 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  }LO}~~Șݻ~`}}~L< vЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxixÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5`ʝ`))ժu/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" ( """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer147:=@CWZadkn9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwwwDINS^bkmoqy!$'*-036<?FKUn|  $)036=BEJQX]`ejorw "'.\pqnp aLm bLm cZ ) ` ) `x,X0R p)(`KO} #9<CHKjoz $*-fYuqgQ,V0L@VEPf>i\]M,j,qg$[HX ))hq mm0 stqs[L,j,XLl)`Z5L,lLp,VP VeLE,WWVfLEZZLpnl,Y0g,dP\,]0X]eLERl`)  __ ` ) (`^" ( Ù^ `ÍTȱÍU`n064e0[x R X([ `R )l) )g mmL)` mmL ),d-eYL 8fqn,S0L lHkH`! (rs`^" (x^ÈȌm(`TȭU` n  q `ȩ`,S0L HH`Lfh,V W ,W0x_)_ qnZ[oprsXY\]mKL `,S0LrEąĩEŅq,k0stH 8fqhq:,V0-,X0x R) X)(LW h,TULarȥȑ`,S0LoEąĩEŅ o`n L# HH` (# (ALS`,S$ ( M iR)QKL % "_TUkVW S`% (SLn Zx R)(L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I V 8fxL vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{(Z.AUDIO C(C) 1980 by Apple Computer Inc.D  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X [ \x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}%(-47=FMUX\_jmz'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1 ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ! LP \LD$7߭&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅ(fL%)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,ӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ ,$0F y  h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ` m j`Hآ Hӭԭˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#(J)=A$(I),1,31)!J/2<>J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY e /// and PC. Unfortunately, -: there is no manual with this program. But it is easy to use and a -: must for anyone planning to transfer files from the /// to an MS -: Dos machine. Also on Side Two: ASCII.Convert - a Dr.Bloom column -: on ASCII text files on the Applcally format any Apple /// ASCII (Text) file so that it can -: be properly transfered to an MS-DOS machine. It is extremely easy -: to use, asking for pathnames of input and output files. The actual -: program is one side one. Source code is on side two. WAP /// SIG PD Library July 1991 PDS NAME: A3IBM by Bloom DISK ID#: 3UTL-35 SUBJECT: Utilities BOOTABLE?: Bootable DISK SIZE: DS 5.25 OS: SOS DESCRIPTION: A3IBM is a Pascal-based program by Dr. Al Bloom that will -: automatiA3 TO IBM by BLOOM PD DISK 16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 leve 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"7M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21: /qs  ڹצNo errorPצNo filename storage spacePئBad unit numberתPצIllegal operationPئIllegal directory specתPئUnit no longer onlineתPצFile no longer in directoryPئIllegal pathnameתPئNo room on disketteתPצUnit not onlinePئ No such fileתPئDuplicate pathnameתPئFile already openתPצ File closedP~ئBad input formatתPfئWrong disk formatתPMצDiskette write-protectedP-"ybF  & ȡ,ٛ ٛٛ 4 D   ȡaٛړ ٛٛ ,ٛƀ/WW...ƀƀ., -٪PتP-VƀVƀš5ƀ́XƁXƀƁXƀƁƀƁƁX́ẂXʁWʁXȡ7ƁYʁWƁYV́VʁVšʁWƀʁVʁẂWB9ABCDEFPئ00תPTR ٪P-*..W.W.ȡW-WWɄOW,W/,/ȡ*-,000-0,,)///ƀW0/ 0/š0////.ƀ/.ƀP/.צ š̀ƀPƀ, RƀǢƀP[צ)̀ƀPƀ, Rƀ[ǢƀPrPō ؿɡ ڕ 0 צ012345678P/.צ á&g/JڪPƀ " " ÍPō٦תPئתP[צP š  11צ.š. 00/1ˡ1/0ˡ/á-.-ȡ!2---2IIIׯ2צII2esqׯ2Esqׯ2ESQׯ2INCׯ2Incׯ2ATCׯ2DEDׯ2DEdׯ2EDDׯ2EdDׯ6[2P Q[ǡ//š4[//P/Pצ á  ////.2/.P.ײ2--2á;[[Pצ Q2ǡP/.Von2Vanׯ2Macׯ2Mcׯ2צDe2Diׯ2צLa2Losׯ2deׯ2צdi2laׯ2צlos2צdella;2P QǡP/.צ á>Fצ,PōצInvalid error codePT ɡI@ɡ#--(SOS)-U-P!--צ(SOS)-U-Pצ(SOS) צError not in tableP  ////.2/.P2צInvalid sys buffer parmPئDuplicate volume errorתPئNot a block deviceתPئ Invalid levelתPצInvalid bit map addressPf@Z6jV@,t`E6&n[zǀɄצSystem call errorP Pj V ead after endfileתPئFile position out of rangeתPئIllegal accessתPئUser buffer too smallתPצ File busyPئVolume not SOS or Apple-2תPצInvalid length in parm listPئOut of memory for sys bufferתPئBuffer table fullתPצles openתPצInvalid file reference noPئPath not foundתPئVolume not foundתPئFile not foundתPئDuplicate file nameתPצOverrun on volumePئDirectory fullתPئIncompatible file formatתPئUnsupported storage typeתPئRdPצInvalid byte countPtצInvalid block noP\צ Disk switchedPG .!gO9/@Ʉצ Device errorP PL v@ڹצInvalid pathname syntaxPئToo many char files openתPئToo many block fi+ t^G P1  ?ڹצInvalid request codePצInvalid status or control codePצInvalid control parm listPئDevice not openתPצDevice not availablePצResource not availablePצDevice write protecteڡ ٛٛ hš ġؼ# T11 []<Mš @33 P</ NšNɡš ɡقPšPٕ1113335678Lj:Ǖ; @> ?=9ڪP0X),@ TT)T&ӥӦ)End of task. Convert another text file? )צ("Y", or "N" - default)@ӪP&K@@K yÝYÍNNáצT-p6U#P\ cessing Record Numberͩ_ --TT- -WPW ʀƀʀ ƀ̀ʀ̀ʀ̀ʀʀġʀʀ̀WצQUITצP̀WצABORT ʀá j:Pr . F` ( 8Th.2"̀ʀáWPʀˡʀ  invalid̀ʀƀERROR: ƀצPress RETURN to retryצEnter "QUIT" for no file' or "ABORT" to terminate this programWתP̀ʀXצEnter pathname of the .: N.. צ#̀צNo file}צREWRITE"̀_"̀ʀŦ.TEXTÄ;ẀƀPƀ.TEXTUƀPW"̀ʀpassed = "צ".צ Fix the calling program, please.צEXIT triggered by subroutine.̀ƀƀƀƀ ?̀ƀƀצ** ̀ʀƀʀ ƀš =/|P<< =0 /<<m 72468":.ڪP٪P צREWRITEצRESETצ,Procedure OPEN error: Invalid IO_METHOD parmצI/O method =ܛܛ|?06á7á =#/ܛܛ|>0;á-/<š = <<0:á5ɡ =<<>V0809Í>/<</' !0 ڦתP< 05˄0/0<á = P<<ܛ0M<š<<AAPA QAPܛ0ɡ? =07áP<š =;/'<š