LBSOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUNDINVALID KERNEL FILExةw,@  4  J  ȱ⩤i8#) ) 8Le Text File Copy UtilityB Written by J.C. Anderson-SOURCEWARE-Littleton, CO-March 1983  80C::count=01000:=-1#(20;"TEXT FILE COPY UTILITY"; 21000<::1,780,24A.F"Place original diskette in drive (.d2)."\UTILS.3||UTILS.4||FLASHNAME.DATGG6w %SEG.T jj Ÿ/ 4 ZDISKNAME.DATh::*SOS.INTERP q4ke|! *SOS.KERNEL ,V|!a+UPSHIFT.INV|!$UTILS.1||UTILS.2||III.BSB.110602Au' *HELLO.TEXT;F5OHELLO =6/ *MENU.MAKER ? } >+READCRT.INVJ|!t,RESTART.CODE|2!x*SOS.DRIVER Mm#im#iЛ#Lȱ  6L憦  Lsmm l y` @8(Je稽 ʈG:"Enter name of input file (";34);"quit";34);" to end) and press RETURN: ";:"";A$HA$=""7);:651IA$,1)="Q"A$,1)="q":::".d1/hello"JA$,".d2/")65KA$=".d2/"+A$ Rœ2000+U#1,A$:1)<>8NotTextfile=1:2000 Z ?";34);" for catalog of disk.)" 21000<1,780,24A:œ7);:25`G:"Enter full pathname of input file (be certain to use a small 'd' for driver number: ";A$ HA$=""651IA$,1)="Q"A$,1)="q":::".d1/hello"rJA$,1)="?":=2 Text File Dump Utility B Written by J.C. Anderson-SOURCEWARE-Littleton, CO-March 1984  80C*::count=0:defaultprinter$=".printer" 1000#(20;"TEXT FILE DUMP UTILITY";\-16);"(Enter ";34);"quit";34);" to end, ";34);"$="y"answer$="Y"60507):=-2:6000::B$:147key to restart.":key$:::#2:B$:10Vv=277)::=10:"Write protect error. Press any key to restart.":key$::10Tx=357)::=10:"File is write protected. Replace anyway (y/n) ? ";answer$%zanswer$="n"answer$="N":25#answer"N":25#answer$="y"answer$="Y"50507):=-2:5000 ::147t7)::=10:"Volume not found. Insert destination diskette in (.d1) and press RETURN ... ";:ret$:::145p\r=347)::=10:"Disk full error. Press any al program diskette in drive (.d1)", "80c";"Press any key to continue ..." key$ :195=325060=346000=276000V=337)::=10:"File exists. Do you wish to write over it (y/n) ? ";answer$%answer$="n"answer$=to return to Program Selection Menu"A$A$="C"A$="c"2060A$=13)65"A$=27)::".d1/automenu"7):=-1:2033 :: ".d2"/:"Press RETURN to continue ... ";:ret$ 25R :7):=10:"80c";"Please insert origin):"'";A$;"' not found."m=32:7):"Volume not found. Insert original diskette in (.d2) and press RETURN ... ";:ret$:657"Press..."::" RETURN to enter new filename"*:" [C] for catalog of diskette"9:" ESCAPE "================================================================================": Error handling routineE(NotTextfile):7):"File is not a TEXT file.":NotTextfile=02=16:7):"'";A$;"' is not a TEXT file.")=30:7MPLETE":=-1:1000::165C#1;T$:#2;T$:count=count+1:count=10count=0:".";:160:ۺ160:0"Do you wish to copy another file (y/n)? ";A$A$="Y"A$="y"10A$="N"A$="n"1957):175 œ3000".d1/hello"W:100%iB$,".")B$=".d1/"+B$:file=1s:x1000:=-1!20;"FILE COPY IN PROGRESS"=-1:10001,580,24: œ5000fileB$,:150 œ6000B$ #2,B$=10:"Copying ";Ež#1::1000:=-1:20;"FILE COPY CO::_1d"Place destination diskette in drive (.d1)."]e:"Enter name of output file (";34);"quit";34);" to end) and press RETURN: ";:"";B$fB$=""=-3:1001gB$,1)="Q"B$,1)="q":::".d1/hello"%hB$,".d1/")=-3:29);:"Enter drive name (ie. ";34);".d2";34)") : ";:"";drive$:drive$=""7);:74:2060KA$,1)="/"volume=1:82VLA$,4)<>".d1/"A$,4)<>".d2/"A$,4)<>".d3/"A$,4)<>".d4/"7);:65VMA$,4)<>".d1/"A$,4)<>".d2/"A$,4)307);::5000[14);:=12:=1:"80c";"ERROR. Device not configured. Press any key.":15);7);key$::5000OX::=1:=30::"Press any k0\=6:"Print to (press RETURN to accept) : ";defaultprinter$;:=-defaultprinter$):"";*X1=15:X2=0:prompt$="":4000:device$=Y$8device$=""device$=defaultprinter$:default=1:5050,device$,1)<>"."7);:30);:5000#2,device$ 070(X3".d1"drive$<>".d2"drive$<>".d3"drive$<>".d4"drive$<>".profile"7);:2055 :: drive$0:"Press any key to continue ... ";:key$ volume=0:25R :7):=10:"80c RETURN to enter new filename"*:" [C] for catalog of diskette"9:" ESCAPE to return to Program Selection Menu"A$A$="C"A$="c"2060A$=13)65"A$=27)::".d1/automenu"7):=-1:2033Hvolume:=10::7):34);A$;34);" is not a TEXT file."0=30:7):34);A$;34);" not found."#=29:7):"Bad pathname."d=32:7):"Volume not found. Insert diskette. Press any key to continue ... ";:key$:657"Press..."::" 7):175 œ3000".d1/hello"X"================================================================================";: Error handling routineE(NotTextfile):7):"File is not a TEXT file.":NotTextfile=09=16;T$:#2;T$;:hp=:vp=/screenlines>187000:lines=0:=hp:=vp,screenlines>60#1;12);:lines=0screenwait=1delay:1604=6:"Do you wish to dump another file (y/n) ?";A$A$="Y"A$="y"10A$="N"A$="n"195/speed:delay=speed*100s:1,380,24:#2,device$ž#17000:::170 8000Wscreen=8:"80c";"Text being printed.";:"80c";"(Press any key to abort)";#1;T$:lines=lines+1T$)>79lines=lines+1*T$)<>255#252ganswer$="P"answer$="p"5000:screen=0:105h7);:101ijœ7);:107fkscreen=5:30);:"Enter display speed [1 (slow) through 10 (fast)] : ";speed$:speed=speed$),lscreenspeed<1speed>107);:107+mscreenspeed=10>".d3/"A$,4)<>".d4/"7);:65Ndrive$=A$,3) Rœ2000+U#1,A$:1)<>8NotTextfile=1:2000_bœ7);:1002d=4:"Send output to [S]creen or [P]rinter ? " eanswer$?fanswer$="S"answer$="s"device$=".console":screen=1:10 lines=0 Program "Textfilemaker"'"80c";"WELCOME TO TEXTFILEMAKER"8"80c";"PLACE DISK TO RECEIVE TEXTFILE IN DRIVE 2"0(#1,".d2/textfile": open the text file J2"Enter text, line-by-line, following the ";34);"-";34);" p Keywords: EPSON PRINTER BASIC SETUP This Apple /// Business Basic program allows "menu" selection/setup of EPSON printer functions including font style, margins and perforation skip. Written for FX series, but most functions applicable forRESTART RESTART  eGA3/1.01:7SY RESTART lines=lines+1%Z#1;S$: Write line into the file&d70: Go back and get another linenx".d1/hello"rompt."?7:"Press RETURN at any ";34);"-";34);" prompt to end."><"File is saved with the name ";34);"TEXTFILE";34);"."A1,880,24: F"-";S$: Get a line of text-PS$)=0lines:".d2/textfile":120RS$)=0lines:120U MX series with Graftrax Plus. Can be easily modified for any printer that you might have. ----Jeff Anderson 6 ***********************************************6 * *6 * EPSON Printer Control *6 * Apple /// Printer Control Program *6 * 9d****************************************************nx MAILBASE BY! PETE CANTELE< PLEASE FEEL FREE TO MAKE A SUGGESTION , CORRECTIONS,7 COMMENTS, ETC. ON THIS PROGRAM":setup$(3,1)=27)+"E":setup$(3,2)=27)+"F"Psetup$(4,0)="Double Strike Mode":setup$(4,1)=27)+"G":setup$(4,2)=27)+"H"Isetup$(5,0)="Italic Mode":setup$(5,1)=27)+"4":setup$(5,2)=27)+"5"Osetup$(6,0)="Skip Perforation":setup$(6,1)=27)+"N":sargin":ptrinfo$(2)="right margin"5setup$(0,0)="Reset Printer":setup$(0,1)=27)+"@"Esetup$(1,0)="Compressed Mode":setup$(1,1)=15):setup$(1,2)=18)Gsetup$(2,0)="Double Width Mode":setup$(2,1)=14):setup$(2,2)=20)Ksetup$(3,0)="Emphased ModeJuly"`month$(8)="August"jmonth$(9)="September"tmonth$(10)="October"~month$(11)="November"month$(12)="December"Csetup$(50,2),flag(10),ptrinfo$(2),value(2):i=09:flag(i)=0:`ptr$="--->":ptrinfo$(0)="lines to skip":ptrinfo$(1)="left m$+"_":line2$=line1$+"_"3printer$=".printer": ** Printer driver name **=24:=2::rule$;:month$(12)month$(1)="January"$month$(2)="February".month$(3)="March"8month$(4)="April"Bmonth$(5)="May"Lmonth$(6)="June"Vmonth$(7)="tion=function$))Jfunction<0function>197);:280Tfunction=20function=9 h2000r160 |:: ::Orule$="":length=178:rule$=rule$+" "::rule1$=rule$+" ":rule2$=rule1$+" "Oline$="":length=178:line$=line$+"_"::line1$=line::" ";setup$(i,0):P=P+1&=18:=30:"Enter selection ... ";)"function$:function$=""7);:280,function$=27):20o6function$)>175function=function$)-165:function$=function):(function<12function>19)7);:280@funcess ESCAPE to cancel"; :=6:=1P=6 i=09G(i=6i=7)flag(i)VALUE(i-6)>0=P:=20:"(";value(i-6);")";M(i=8flag(i))flag(i)value(i-6)<>80=P:=20:"(";value(i-6);")";flag(i)=P:=26:ptr$;4=P:=30::" ";i;" ";10*selection<1selection>37);:110selection160,380,390::line2$;z:" Select ";34);"number";34);" to set function, ";34);127);"-number";34);" to reset function ":=22:=1:line2$;1=23:=1::"80c";"PrF30)"2) Exit to BASIC" P30)"3) Terminate Program"/Z=16:=28:"Enter selection by number ...";d=23:=1:"80c";line$; n130x5000:110A:selection$=ŝ):check=selection$):selection=selection$)$check<48check>577);:1*****************************C **--> NOTE: Enter your printer driver name in line 1020 <--**%:1000: Define system variables=1:=1::,"80c";"EPSON Printer Control Program"(:"80c";rule$;: 2:::<30)"1) Printer setup" "#$%&no *6 * by J.C. Anderson -- SOURCEWARE *6 * Littleton, Colorado *6 * 1 March 1985 *6 * *6 ******************. I COULD ALWAYS STAND SOME IMPROVEMENT.< THE IDEA BEHIND THIS METHOD OF A "MAILING LIST" PRO-< GRAM IS FOR THE SMALL LIST MAKER; LISTS FOR CLUBS,= CHURCH GROUPS, ETC. IF THE LISTS NEED TO BE ENLARGED JUST DIMENSION')*+,-./012345678$(RT)="":A$(RT)="":C1$(RT)="":C2$(RT)="":C3$(RT)="":P$(RT)="":O1$(RT)="":O2$(RT)=""V"ENTER LAST NAME";N1$(RT) `N1$(RT)="**"N1$(RT)=""&j"ENTER FIRST NAME & M.I.";N2$(RT)t"ENTER ADDRESS";A$(RT)J~"ENTER CITY";C1$(RT):"ENTER STATE";C2$(R #6,prnt$2200:2230 1750 4000"R=1Y:Z3%2320,1890,2270:R-$ * * * ADD NAMES TO THE LIST * * * .1750E8:"TYPE '**' OR FOR 'LAST NAME' AFTER LAST DATA ENTRY."BRT=0::R=Y+1300kL"#";R:N1$(RT)="":N22O$=O1$(R)O$=O2$(R)Z3%2320,1890,2270:ۂRR:7 * * * LIST ALL NAMES WITH THE SAME ZIP CODE * * *2200:2230$"WHAT ZIP CODE DO YOU WANT";C3$3R=1Y:C3$=C3$(R)Z3%2320,1890,2270:R:ۂR$ * * * LIST ALL NAMES * * *\2200:2230AfR=1Y:(O1$(R)=K$)(O2$(R)=K$)Z3%2320,1890,2260:R:ۂRp=z * * * LIST ALL NAMES WITH THE SAME CITY & OPTION * * *2200:2230:"WHAT IS THE CITY";C1$:"WHAT IS THE OPTION CODE";O$ R=1Y:C1$=C1$(R)940:ۂR LIST ALL NAMES IN ON E CITY * * * 2200 2230:1750 *"WHAT IS THE CITY NAME";C1$44R=1Y:C1$<>C1$(R)R:Z3%2320,1890,2270:R>=H * * * LIST ALL NAMES WITH THE SAME OPTION CODE * * *,R"WHAT IS THE KEYWORD (OPTION CODE)";K$":770 FLAG=-1DZ4$,1)="Y"Z4$,1)="y"#6,prnt$:765:ۈ#6,".console":765FLAG=-1710" HIT WHEN READY . . .";ZZ$:A=1LA:#6;N1$(R);" ";N2$(R):#6;A$(R):#6;C1$(R);", ";C2$(R);", ";C3$(R):#6;:#6;:#6;:A1  * * *RST NAME > ";N2$V"DO YOU WANT MAILING LABELS:";Z4$:Z4$="Y"Z4$="y""HOW MANY LABELS";LA:۾2200 FLAG=0 R=1YN1$<>N1$(R)710N2$=""740(N2$,N2$))=N2$(R),N2$))750RFLAG=-1770""NAME NOT FOUND ON LIST600,780,840,890,960,1010,1200,1570,1670,1750,1960,1810+: * * * DISPLAY MENU AGAIN? * * *$D:Z4$="":"Press RETURN";::Z4$ N:370.X * * * SEARCH FOR ONE NAME * * * b"NAME TO BE SEARCHED:"gLA=1l"LAST NAME > ";N1$v"FI7);"12 DELETE A NAME FROM LIST"7);"13 END PROGRAM"CA=0:"TYPE IN YOUR SELECTION PLEASE . . .(0 FOR MENU). . ";A$ a=a$):a=0370(A<0)+(A>13)520;& * * * 1 2 3 4 5 6 7 8 9 10 11B0A1060,8);"6 LIST ALL NAMES WITH THE SAME ZIP CODE"(8);"7 LIST ALL NAMES IN LIST""8);"8 MAKE CORRECTIONS"+8);"9 SAVE CURRENT FILE TO DISK"'7);"10 INPUT FILE FROM DISK"07);"11 TOTAL NUMBER OF NAMES ON LIST"*|'8);"1 ADD NAMES TO THE LIST"%8);"2 SEARCH FOR ONE NAME"08);"3 LIST ALL NAMES WITHIN ONE CITY";8);"4 LIST ALL NAMES WITH THE SAME OPTION CODE"?8);"5 LIST ALL NAMES WITH THE SAME CITY AND OPTION "7with only'Y .CONSOLE and .PRINTER configured.IZ Remember to change line 1090 when you change dimension statements. '^N1$(300),N2$(300),A$(300),C1$(300)8hC2$(300),C3$(300),O$(300),O1$(300),O2$(300),P$(300)(r:"80C";"M A I L I N G L I S T" THEM SO.";# LINE 335 CONTAINS PRINTER DRIVER (set for .PRINTER)$ CHANGE AS NEEDED.;,**************************************************** J:Oprnt$=".printer":#1,prnt$GT Set for a 128K Apple /// --- may set up to 400 for 128K T):"ENTER ZIP CODE";C3$(RT)"ENTER PHONE #";P$(RT)"ENTER OPTION #1";O1$(RT)"ENTER OPTION #2";O2$(RT)_:20);"SORTING . . ."::2390:R:" THE MAXIMUM NUMBER OF RECORDS HAS BEEN REACHED!":( * * * MAKE CORRECTIONS * * * "LAST NAME";N1$"FIRST NAME";N2$ R=1100N1$="**"N1$=N1$(R)1260:1270)N2$,N2$))=N2$(R),N2$))1290R'" SORRY, NAME NOT ON LIST.":: 7);"N1: ";N1$(R)7);"N2: ";N2$(R)8);"A: ";A$(R)(7);ORT) ";Z4$:Z4$="0"2230:ۉ#2:#2,Z4$:- * * * PRINT#6; SUBROUTINE * * *G#6;N2$(R);" ";N1$(R):#6;A$(R):#6;C1$(R);", ";C2$(R);", "C3$(R)&Z1$="Y"Z1$="y"#6;P$(R):#6;4Z2$="Y"Z2$="y"#6;O1$(R);" ";O2$(R):#6; $="":"WHAT IS THE DESTINATION OF THE LIST, CRT, FILE, OR":"PRINTER? (TYPE IN C, F, OR P) (OR A TO ABORT) ";Z3$:Z3$=""2230:Z3$=Z3$,1):Z3$="A"580:Z3%=" CcFfPp",Z3$)/2):Z3%=02230eZ3$="F"Z3$="f""TYPE IN FILE NAME. (TYPE '0' TO AB * * * CRT, FILE, PRINTER, ETC. * * * fZ1$="":"DO YOU WANT THE LIST WITH THE OPTION CODES? (Y/N) ";Z1$:Z1$=""2200:Z1$=Z1$,1)))aZ2$="":"DO YOU WANT THE LIST WITH THE PHONE NUMBERS? (Y/N) ";Z2$:Z2$=""2210:Z2$=Z2$,1)ɶZ3"":P$(Y)="" >Y=Y-1:'H * * * THIS IS THE END * * *R.\ * * * ERROR HANDLING ROUTINE * * *8f" AN ERROR HAS OCCURED. ONE MOMENT PLEASE . . ."p" ERROR = ";z:6 * * * STANDARD INPUT QUESTIONS: * * * 5 R1+1):N2$(R1)=N2$(R1+1):A$(R1)=A$(R1+1)9 C1$(R1)=C1$(R1+1):C2$(R1)=C2$(R1+1):C3$(R1)=C3$(R1+1)7P$(R1)=P$(R1+1):O1$(R1)=O1$(R1+1):O2$(R1)=O2$(R1+1) R1:"IT IS DONE."4*N1$(Y)="":N2$(Y)="":A$(Y)="":C1$(Y)="":C2$(Y)=""*4C3$(Y)="":O1$(Y)="":O2$(Y)=1$(R)N2$,N2$))=N2$(R),N2$))2030'R:"SORRY, NAME IS NOT ON LIST.":6 * * * HERE IS WHERE WE KILL THE RECORD * * *[N1$(R)="":N2$(R)="":A$(R)="":C1$(R)="":C2$(R)="":C3$(R)="":P$(R)="":O1$(B)="":O2$(R)="" R1=RY7N1$(R1)=N1$(";C3$(R)(Z2$="Y"Z2$="y"#2;P$(R):ۇ#2;""6Z1$="Y"Z1$="y"#2;O1$(R);" ";O2$(R):ۇ#2;"" #2;"":, * * * RECORD EXPUNGE ROUTINE * * *2"LAST NAME OF FILE TO BE DELETED . . .";N1$"FIRST NAME . . .";N2$ R=1Y6N1$=N * * *":" W A R N I N G !"(&:" SAVE ALL CORRECTED FILES!"0:" ";$:"DO YOU WISH TO QUIT NOW: ";Q1$$DQ$=Q1$,1):Q$<>"Y"Q$<>"y"IN b2310l#2;N2$(R);" ";N1$(R) v#2;A$(R)&#2;C1$(R);", ";C2$(R);", R:" LIST LOADED!":* * * * TOTAL NO. OF NAMES * * * <Y=0:E=1100: GOSUB HERE IF YOU WANT TO RETURN.%(N1$(E)="")(N1$(E)="**")1790 Y=Y+1E*"THERE ARE ";Y;" NAMES ON THE LIST."! * * * END PROGRAM hRr:" LIST SAVED . . .":|, * * * INPUT A FILE FROM DISK * * *9"TYPE IN THE NAME OF THE SOURCE LIST. >";NA$:#1,NA$" LIST LOADING . . ." #1;Y R=1YD#1;N1$(R),N2$(R),A$(R),C1$(R),C2$(R),C3$(R),O1$(R),O2$(R),P$(R)0)"NEW PHONE NUMBER . . .";P$(R):1290" * * * SAVE FILE * * *0,"PLEASE ENTER THE PATHNAME. > ";NA$:#2,NA$6:" SAVING LIST . . .": @1750 J#2;Y TR=1YD^#2;N1$(R),N2$(R),A$(R),C1$(R),C2$(R),C3$(R),O1$(R),O2$(R),P$(R)NAME . . .";N2$(R):1290$"NEW ADDRESS . . .";A$(R):1290""NEW CITY . . .";C1$(R):1290#"NEW STATE . . .";C2$(R):1290&"NEW ZIP CODE . . .";C3$(R):1290-"NEW OPTION CODE #1 . . .";O1$(R):1290-"NEW OPTION CODE #2 . . .";O2$(R):1290:ۻQ$="N2"1480!Q$="A"1490:ۻQ$="C1"1500"Q$="C2"1510:ۻQ$="C3"1520"Q$="O1"1530:ۻQ$="O2"1540Q$="P"1550:ۻQ$="E"*" INVALID ENTRY. TRY AGAIN.":1400-"INPUT NEW LAST NAME . . .";N1$(R):1290."INPUT NEW FIRST "C1: ";C1$(R)27);"C2: ";C2$(R)<7);"C3: ";C3$(R)F8);"P: ";P$(R)P7);"O1: ";O1$(R)Z7);"O2: ";O2$(R)d+n"WHICH FIELD DO YOU WISH TO CHANGE?"Ax" . . .N1,N2,A,C1,C2,C3,P,O1,O2, OR E ( TO END CHANGES)";Q$"Q$="N1"147#6;:+ * * * CRT PRINT SUBROUTINE * * * N2$(R);" ";N1$(R)  A$(R)%$ C1$(R);", ";C2$(R);", ";C3$(R) . Z2$="Y"Z2$="y"P$(R):.8 Z1$="Y"Z1$="y"O1$(R);" ";O2$(R):B :0L * * * ALPHABETIZE THE DATABASE * * *4V Y=0R2=1:2430:ہR2=1Y:N1$(RT)>N1$(R2)R2+` N1$(RT)=N1$(R2)N2$(RT)>N2$(R2)R2j R3=Y+1R2+1-1t N1$(R3)=N1$(R3-1):N2$(R3)=N2$(R3-1):A$(R3)=A$(R3-1):C1$(R3)=C1$(R3-1):C2$(R3)=C2$(R3-1):C3$(R3)=C3$(R3-1):O1$(R3)=O1$(R3-1):O2$(R3)=O2$(R3-1):>@ABCDEFiVOLUME 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 HER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".d1/Menu.Maker"5 WAP /// SIG HELLO PROGRAM. UPDATED 4/12/89 DGO :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$U-Z#2,".D1/FLASHNAME.DAT":#2;FLASH$:#2%dFLASH=110: FLASEAD.ME.FIRST" file on side two from more information. Enjoy! at, a disk full of programs designed to help you do any number of things from within Business Basic. For the Basic Programmer, you can LIST any of these files from within Business Basic to learn their secrets. Please see the "R:<0 WELCOME! WAP /// SIG Public Domain Library Disk Category/Number: Business Basic/3BSB-11 Disk Format: Self-booting Business Basic Basic Utilities is just th /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030. TO HAVE PRINTER ON FOR THIS BUFFER DEMO. #1,".printer"7);"start" i=112](#1;"This is line number ";i;" printed on the printer for a buffer ed I/O text."2#<7);"loop execution complete"F#1P$(R3)=P$(R3-1):R3~ N1$(R2)=N1$(RT):N2$(R2)=N2$(RT):A$(R2)=A$(RT):C1$(R2)=C1$(RT):C2$(R2)=C2$(RT):C3$(R2)=C3$(RT):O1$(R2)=O1$(RT):O2$(R2)=O2$(RT):P$(R2)=P$(RT):Y=Y+1::r=y+1:(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),THE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. el; 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 lev 1600 &:WW=1:0 :SEG=1;".D1/S EG.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:"M$="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:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=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; 3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|>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 ,<,<.>.>/?/?d0hp00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrHNOPQRSTUVWXYZ[\]^_`abcdefREADC READC  #.-2hhhhHH`$.CONSOLE24320/JIKLGApple 1.1R READC GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< DL8H\0`(d  $,($  ,BSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTER A")Copyright (C) 1983 by Apple Computer Inc. HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅8n13}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( efh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqéL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L #1:CY` 9C<m><=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>8?>p<<AAA@@8A@q==C)CB)B Crx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h A`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &xix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL `ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mww HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4www """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwww     ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x ?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  KORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BG̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')L: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)`  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::"    ) . 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ԭ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"10BASIC UTILITIES ction)=1< function>9setup$(function-11,2);:flag(function-11)=0A*function=9setup$(function,1):::::::flag(function)=0$4function=0i=09:flag(i)=0:>#1H J =19:"80c";"Device not available. Press any key.":6);15);tuvwxyz" $(function>5function<9)40001:=12:=24:"READY PRINTER AND PRESS RETURN"ret$:ret$=27):20ret$<>13)7);:2000 œ3000 #1,printer$:#1E(function=>0function<9)setup$(function,1);:flag(funetup$(6,2)=27)+" O"Rsetup$(7,0)="Set Left Margin":setup$(7,1)=27)+"l":setup$(7,2)=27)+"l"+0)Tsetup$(8,0)="Set Right margin":setup$(8,1)=27)+"Q":setup$(8,2)=27)+"Q"+80)Msetup$(9,0)="Test Printer Setup":setup$(9,1)="abcdefghijklmnopqrsI82-A/0M)-/M#-" &0x,) ++`x,`,'0LM ! (```*M#ȩ ȭ-ȩ`,'0LM @>L,, 3,,0-./(,$)x*%)/+(```04@DRTVXZ01 % (, :'`'LM :01 `,'0LM& (,'0LMIĥIC ,$P( n(.0- .-L 3L 3`,,P*M#-"x Z)(,,p` *+)+X,,PM#-" 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"gkla$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!7); key$ :2010::line2$;::rule2$:=22:line2$;1=23:=1::"80c";"Press RETURN to cancel";;=8:=5:"Enter ";ptrinfo$(function-6);": ";:"";value$value$="":20value$=""7);:4040value$)>37);SOS NTRPRHeLZĠР쁭堠堠ՠ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$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[prstuvwxyz{|}~ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠdHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p $ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eii 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ֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^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  `89VVE$ 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ȪL<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlX &{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 feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `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 ) i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ {ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz |gȑ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 hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!+|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɇoȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  e` ě 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|HHHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8pJ LUL-LG -$p0`pog $mkڥrok8o,koLdjAaCcoJ mko 5 $mkk mLw L L HG56H6LExh  (`|||}z,A[ :808Ш`,ޞ@`y Gy`LHq,;' L Pu  pLLwl`|H}HzH{HHH ɶ# xhH s  ~q s,; Ls  ~q$ hxrL iLpnH ~hɀ8(*iR.-:/ RRhhh{hzh}h| Pu p 0|8cJcm J_mm嚍J_AgBhBh \^A_B_B` ^"( zM jF566 x}z{6{LҜ #z{{"} GLsL<^ jHHH i dj ٥z{{ j}hhh ;в| |膆  RRRRH uhA?B@7B@87F8f7877878L:^7 8*JA5gB6B68 悅h圍h?H@H@HI?J@J@ "]h@h@h?gAhBhBJJ8 悅J圍J7ߚ8BܚLs`䚌B L:^`Ib^J sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` !7Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1 V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 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 1$u tAvʘtDթ q(~th`pvquts~y fp$pp8j/;XAx=|8ez{{ ghh "o `L x  wwghhoؠKkqvj L`$uZuukvN kGv@  vvyLj L ʟ,-uukv kv@vvyL5Lj ʟA80멀uukeqqtt$uA)*t L; $uЫkЦuuj ysLq,kl$uhuuj XkkNuuj k 4%v. #  kddʪdd LLsLcdS L_H hRSO s ɋ 0 GeDe ˰GeEeHeFeIeLLsGeHeIeD=ee>e?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;ee :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,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 RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh H PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5 ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`FХ+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 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ 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>  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()=`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{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑ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/)@߅4ڠ) w߭)Ů􅮈 ߠ'x)) J,QJ,SJ,U,P,W(`)(()  8)j`J j߅`0X ٠͠堘ӠȠŠ堠󠠩à٠΀ƉŠŠӠҠȠHHH *ح)0 D) HHHH,, ߘ)@ *)X  xI)}h)L, L ) 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%H H @`)h8`  HШБˆeЅАѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  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`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`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騩  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` B CAPS UTILS.3v|' '(SCROLLER Z|$!(SEARCH.DOCUMENT |$!.SEARCH.UTILITY  |$!1-TEXTFILE.COPY B |&!2-TEXTFILE.DUMP  Q|'!"-TEXTFILEMAKER  |#!0UTILS.2v|'  '(AUTOMENU H|!!/.BASIC.BOOTPROG |"!1+CATALOG.RUN |"!-COMPARE.DOCUMNT3|"! /COMPARE.UTILITY $|"!"*MANUALMENU UTILS.1v|'  'EPSON.DOCUMENTy|8!%,EPSON.SELECT ! |9!+FILE.READER R | ! /HEX.DEC.CONVERT | !3(MORTGAGE  | !e Computer Inc. 1983M\^`belv{!$'*-049?BIUcfkw &+8;@CJMPSV]bej!Apple // Super Serial Card Drivert.SSCARD A "߄P(C) ApplCAPS CAPS  hhh5h6HH6 5{a 5(`:A3/1.1w|'!(UTILS.4v|' '(MAILBASE (!|(! SOSBUFFER.DEMO 9|(!,EPSON.DOCUMENTy|(|1EPSON.SELECT  |(|1"15C";"SILENTYPE"; FLAG=1 CHOICE=1:FLAG=18 A$:A$<>8)A$<>21)A$<>13)A$<>27)2580 A$=27)3080( A$=13)27002 =4:=((CHOICE-1)*15)+1< CHOICE2480,2510,2530,2550!F A$=8)DTRACT=-1:DTRACT=1P CHOICE=CHOICE+D"t A$:A$<>" "2420:ۮ:2350~ 1,1680,24 =2:=1:5 "To what device would you like to print this?": =4:=1  "15C";"SCREEN";  FLAG=1 "15C";"PARALLEL"; FLAG=1 "15C";"PRINTER"; FLAG=1 0,24:FLAG=0M. =2:=1::"40R";"WHAT IS THE NAME OF YOUR TEXT FILE?";::" ";PROGRAM$8 PROGRAM$="END"3080 B œ3230L PROGRAM$, V PROGRAM$` j :=5:=1:,k "I can't seem to find that TEXT file.'")l " Press the SPACE bar to try again CE+DTRACTCHOICE<1CHOICE=5CHOICE>5CHOICE=1=7:=((CHOICE-1)*15)+1(:CHOICE2060,2090,2110,2130,2150: 2180  œ3210` CHOICE=1=".D1":ۻCHOICE=2=".D2":ۻCHOICE=3=".D3":ۻCHOICE=4=".D4":ۡ=".PROFILE" $ 1,138OFILE";pFLAG=1z=9:=0:CHOICE=18A$:A$<>8)A$<>21)A$<>13)A$<>27)2180A$=13)2310A$=27)3080 FLAG=1=7:=((CHOICE-1)*15)+1$CHOICE2060,2090,2110,2130,2150!A$=8)DTRACT=-1:DTRACT=1CHOICE=CHOIO ACCEPT YOUR CHOICE"::=5:=0:"WHERE IS THE TEXT FILE YOU WANT TO READ ?":: "15C";"DISK 1"; FLAG=1*"15C";"DISK 2";4FLAG=1>"15C";"DISK 3";HFLAG=1R"15C";"DISK 4";\FLAG=1f"15C";"PR9:=10:=5:"Would you like to read back any files?";1A$:A$<>"Y"A$<>"N"A$<>"y"A$<>"n"1980A$="N"A$="n":):PROGRAM$="":DESTINATION$=".CONSOLE" ::1)^=12:=1::"79C";"USE THE ARROW KEYS TO SELECT, THE RETURN KEY T=hour-12:id$="pm":5060<hour=12id$="pm":ۻhour=00hour=12:id$="am":id$="am"!regtime$=hour)+ҟ,3,6)+id$=hour))<270);regtime$;" ";:69);regtime$;" ";rgin=VALUE:setup$(function,1)=setup$(function,1)+rmargin):(rmargin=80rmargin=0)7);:4040value(function-6)=value":=24:=2:today$=Ѡ,2)))+" "+month$(Ҡ,4,2)))+" "+Р,2)3);today$;hour=П,2))*hour=>13hour:4040value=value$)kfunction=6lineskip=value:setup$(function,1)=setup$(function,1)+lineskip):lineskip=07);:4040hfunction=7lmargin=VALUE:setup$(function,1)=setup$(function,1)+lmargin):lmargin=07);:4040vfunction=8rmaTRACTZ CHOICE<1CHOICE=4d CHOICE>4CHOICE=1n =4:=((CHOICE-1)*15)+1#x :CHOICE2480,2510,2530,2550: 2580 CHOICE=1DESTINATION$=".CONSOLE":ۻCHOICE=2DESTINATION$=".PARALLEL":ۻCHOICE=3DESTINATION$=".PRINTER":DESTINATION$=".SILENTYPE" FLAG=0 œ3240 #2,DESTINATION$  1,2080,24 =2:=1  =0:"39C";"DO IT";  FLAG=1 =40:"39C";"CANCEL" FLAG=1 FLAG=1:CHOICE=1-" A$:A$<>8)A$<>21)A$<>13)2850, A$=13)2940"{:&"HOW MUCH IS THE MORTGAGE ";:P:E=P%"WHAT IS THE INTEREST RATE ";:II<1190 I=I/100k"# OF YEARS TO PAY:":" ENTER I.E. .5 FOR HALF A YEAR;":" HOW MANY YEARS ";:L D=L:h:"DO YOU WANT:16);0) :870 !œ1240(A=02B=0<C=0FD=0PE=0 ZF=19dK=0 nMC=13s/x"****************************************"/y"** -Mortgage Calculation- **"/z"****************************************git&2mult&=mult&*sixteen&7i<"Dec value: ";cum&A10d:^blank$=" ":Taylor Pohlman":=20:"Typographical Errors Corrected by Mike Kramer":0,580,24 œ10=1 sixteen&=16 :"Hex value: ";a$a$=""100 cum&=0 mult&=1i=a$)1-1#val&=a$,i,1)))(digit&=mult&*val&-cum&=cum&+di- *** HEX.DEC Conversion ***5 by Taylor Pohlman ... Softalk January 1982 2 Significantly modified by Mike Kramer *200::::=1:blank$:blank$:blank$=1:blank$:=1:=31:"HEX-DEC Conversion":=27:"Written by ou tell jokes for a living? Press the SPACE bar." A$:A$<>" "3250:ۺ2440"N"A$<>"n"A$<>"y"3180v A$="N"A$="n":: 2000m ::=12:=1:"79C";"TRIED TO FOOL ME, HUH? YOU DON'T HAVE THAT DEVICE ON LINE! Press the SPACE bar." A$:A$<>" "3220: :2430a ::=3:=1:"You don't have that device. Y":1 B$:B$<>"Y"B$<>"N"B$<>"n"B$<>"y"3100& B$="N"B$="n"3080;0 :=22:=0::"79C";"PRESS ANY KEY TO HALT LISTING":: 1,180,21D #2,DESTINATION$:#2 N 3090X +b :=22:=0::"79C";"ANOTHER.....?":1l A$:A$<>"Y"A$<>,180,21 3090 #1,PROGRAM$ #2,DESTINATION$ #2 ž#13080 #1;A$ A$)<23050$ A$,1)=10)A$=A$,A$)-1) A$. DESTINATION$=".CONSOLE"TME=1125:TME 3010  :3170. #2::=22:=0::"79C";"CONTINUE...?6 =2:CHOICE2790,2820!@ A$=8)DTRACT=-1:DTRACT=1J CHOICE=CHOICE+DTRACTT CHOICE<1CHOICE=2^ CHOICE>2CHOICE=1h =2::CHOICE2790,2820: r 2850| CHOICE=2::3080= ::=22:=0::"79C";"PRESS ANY KEY TO HALT LISTING": 1 A DETAIL & A SUMMARY LIST,":" OR JUST A SUMMARY LIST?":" ENTER D OR S ";:J$J$="S"J$="s"280 :Q"Per.";8)"Payment";24);"Interest";40);"Prin.Red.";56);"Prin.Balance"0,380,24),P1=P*(I/12)/(1-(1/(1+(I/;" ";program$(item)3ritem=10=20:"<";item;">";" ";program$(item)3sitem>10=43:"<";item;">";" ";program$(item)x =19:=206:"uit to BASIC erminate for Reboot": 2000'hp=18:2500:hp=41:2600:hp=64:2500=22:=20:me: ";directory$(0),16);:63);"BASIC Program Menu";:1000:$K Insert desired text in line 80 P=20:" " d2100:=oprograms=0=21:"No BASIC files":=22:"on disk.":130(pitem=1programs:item=11=8:=433qitem<10=21:"<";item;">" * 7 *********************************************** œ5000=".d1"::"restart.code",::=10:"Creating menu. Please wait."  80C ( 32C -program$(20),directory$(60)03000::14);S<"Apple /// Volu * {See instructions --J * by J.C. Anderson -- SOURCEWARE * lines 8000 - 8115}8 * Littleton, Colorado * 8 * 10 March 1984 * : * 7 *********************************************** 6 * *8 * "Auto Menu" * 7 * Apple /// Business Basic Menu Maker * K * KEYPRESS$<>32)1000:2:16);0):=10:=10:"* * * THE END * * *"Time=11000:Time::::2:=10:" *** NUMBERS ONLY PLEASE ! ***"TIME=11000:TIMEied by Stan Guidero"-::"This program lets you see payments"+"principal and interest for your home""mortgage")=21:" { Press ESCAPE to quit }"1=22:"{ Press the SPACE BAR to continue...}"KEYPRESS$5KEYPRESS$=27)1040: "$";R2;" WENT TO PAY THE INTEREST."*)4"$";R3;" WENT TO PAY THE PRINCIPAL.">2H"HIT RETURN TO CONTINUE. ESCAPE TO QUIT";:K$MK$=27)1040R\#f:=5:" Home Mortgage"&p:" Donated by Kevin Armstrong"#z" Modif :1040vMC=14760MC<12700 MC=0 R1=0 R2=0 R3=0 R4=0 MC=MC+1 R1=R1+P1 R2=R2+P2 R3=R3+P3 R4=PMC<12860+"IN THE ";M/12;" YEAR OF YOUR LOAN.":' "$";R1;" WAS YOUR ANNUAL PAYMENT."(&:"Total years paid ";D%:"Total months paid ";A*:"Your monthly payment ";:435;P18:I<1I=I*100:"The interest rate is ";I;" %":5"WANT TO DO ANOTHER":" ANSWER Y OR N ";:X$0X$="Y"X$="y"30"** I'M COMPUTING AS FAST AS I CAN !! **":::K=1M'J$="D"J$="d"MC<12MC=14:580::16);0)  7#.2#):"Origional loan amount ";:435;E):"Total interest paid ";:435;C/:B=B+P:"Total payments made ";:435;B12))^(L*12)))6P1=P1*100+.5)/100@M=1L*12 JP2=P*I/12TP2=P2*100+.5)/100 ^P3=P1-P2hP=(P-P3)*100+.5)/100rJ$="S"J$="s"400w 7#.2#,7X|M;5);:375;P1,P2,P3,P580A=M+0:B=P1+B:C=P2+CTJ$="S"J$="s"K=0:=10:30);:=20 œ70005"Enter selection by number ... ";:"";S$:S=S$) 15);S$="T"S$="t"restartS$="Q"S$="q"::S<=programsS>=12307);:=-1:180 :=10"Please wait ..."œ6000:=".d1"program$(s)W"________________________________________________________________________________";30;"______________________________________________";;430;" _____________________________________________";H vp=7:count=114 =vp: Littleton, CO */ * 12 September 1983 * 0 * * . **************************************** :: œ100S(=23:"Insert BASIC program disk in built-in drive. Press RETURN. . ****************************************. * *. * BUSINESS BASIC General Boot Disk *. * *. * J.C. Anderson *. * SOURCEWARE - *4 *********************************************R *4 * This program will put up to 20 Basic pro- *5 * grams into the menu, in the order that * 4 * they appear on disk. Once 20 programs *4 * have been read, the rest are ignored. *4 * your *4 * Basic programs should have a means to *4 * end the program, which causes a statement *4 * such as "RUN .d1/HELLO" to be executed. *4 * This will then re-create the menu. *4 * *4h * directory contents of the diskette, and *4m * create a menu, from which all Basic pro- *4r * grams on the diskette can be selected. *4w * *4| * For most efficient operation, any of4O * Put this program on any bootable diskette *4T * containing Apple /// Business Basic pro- *4Y * gram files, with the name "HELLO". It *4^ * will then be run automatically after the *4c * system is booted. It will then read thepress RETURN to continue." key$=132307);:=-1:6040X::7);:180b 4@ *********************************************4E * Instructions *4J * *und."A"Insert diskette in drive .d1 and press RETURN to continue." key$=13:57);:=-1:5040#p::7);::=10:"ERROR. ";z=32"Volume not found."#=30=31"File not found."A"Insert diskette in drive .d1 and :programs=203170 X 3140 b #1:: i=115]program$(programs),i,1)=" "program$(programs)=program$(programs),1,i-1):i=15:4010#::7);::=10:"ERROR. ";=32"Volume not found."#=30=31"File not fo=0:line=00 #1,".d1" : ž#13170D #1;directory$(line)+N directory$(line),3,5)<>"BASIC"3155P (directory$(line),"HELLO")directory$(line),"MENU"))=0programs=programs+1:program$(programs)=directory$(line),16,15):4000"S line=line+1=hp:"|" vp=vp+1  ( vp=8:count=110- =vp:=hp:"|" 2 vp=vp+17 < ) ***********************************) * Read Directory *) *********************************** / i=120:program$(i)=""::programs ";5); 2ret$7ret$=27)4);:::#8ret$<>13)7);4);::30 94); <=".d1" F"hello"d n:count=1100::7);:30s/x *****************************************/} * Save as "HELLO" program on a bootable */, COMPARE PROGRAMS FOR DIFFERENCESK { Written for the Apple ][ by G. Boody & David W. Walker }(92 { Updated for the Apple /// by Frank W. Moore }< x2000& GETS STATEMENT FROM THE OLD FILEos$="":#1;osprogram, but can't remember what you did!! Keywords: BUSINESS BASIC PROGRAM UTILITY This simple Business Basic program will compare two Business Basic programs that have been converted to text files for changes between the programs. Useful if you have done a bunch of upgrades to a LE$:5-------------ERRORS HANDLING ROUTINE------------:" ": CONTROL GS=16"SORRY - THIS PROGRAM CAN ONLY RUN BASIC PROGRAMS AND THIS ONE ISN'T!!"L=32"SORRY - VOLUME NOT FOUND. MAKE SURE YOUR FILE NAME IS CORRECT."D:?N ----------------------RUN A FILE-------------------------X: b:6))lFI$=N$(3+(((V-(P+1))*4)+(H/19)+1)))1v"RUNNING "FI$" - PLEASE WAIT FOR LOADING." N=215M$=FI$,N,1):M$=" "680NEWFILE$=NEWFILE$+M$N NEWFI:M$=27)30M$=13)V=:H=:590M$=10)=+1M$=11)=-1M$=21)=+19 =1520M$=8)=-1958=58VP=(N-5)/4).&(N-5)/4<>(N-5)/4)VP=VP+(P+1):VP=VP+P0>VP=VP:O THE LEFT OF THE RUNFILE AND PRESS "T:G^P=8: THE BASIC CURSOR POSITION IS AT THE TOP LEFT OF THE FILENAMESh: r=P:=1 |5)M$ 430:390:M------------------------------------MOVE THE CURSOR---------------------20);"FILES LISTED ON THE DISK ";I=4N-1491);N$(I);20);N$(I+1);39);N$(I+2);58);N$(I+3)",10);A$(N)6=21J@"FREE MEMORY = ";;28);"HIT TO RESTART"64);"DATE = ";QJ=23:"78C";"MOVE THE CURSOR T/ S P E C I A L C A T A L O G $ P R O G R A M R U N "U"****************************************************************************": #1;A$(N)A$(N),2,1)="B"200N$(N)=A$(N),15,15) N=N+1170#1 N=N-1))KDN$="Q"DN$="q"PDN<1DN>460ZDN=1=".D1"dDN=2=".D2"nDN=3=".D3"xDN=4=".D4"} ž#1220 #1,N=1U"****************************************************************************":U" A P P L E / /  CATALOG AND RUN@ BY PAT N. THURLEY OF THE BRITISH APPLE SYSTEMS USERS GROUP* PUBLISHED IN HARDCORE, DECEMBER 1983 :: (œ7002A$(100),N$(100)<=12RF"WHICH DISK DRIVE DO YOU WANT TO CATALOG (1/2/3/4 OR Q(UIT ):":DN$:DN=DN$ * diskette containing the three SOS */ * files SOS.KERNEL, SOS.INTERP (Basic) */ * and SOS.DRIVER */ *****************************************$:& GETS STATEMENT FROM THE NEW FILEns$="":#2;ns$:, PRINTS A STATEMENTS6#3#@#3;i$;j$,1,70):j$)<71330 BI=J$))):I$=" ",14+I),DX=71J$)66-I:#3;I$;J$,X,66-I):J T#1,o$:#2,n$:ž#1810 Yž#2:860 25)"<9> Terminate program": Optional-change line 200 accordingly25)"<0> Quit to BASIC" 2000=25%"Please enter your selection...")S$:S$)>57S$)<48220:S=S$)S=9restart:ۻS=0::S<=QQS>=1230 rt desired heading in line 607<30;"---> APPLE /// MISCELLANEOUS UTILITIES <---" F1000$K Insert desired text in line 803P:=25:"The following programs are available:" d2000n oX=1QQ%p25)"<";X;">";" ";menuname$(X)qXI General Hello Program Apple /// Business Basic- J.C. Anderson--Denver, CO--October 1982:".d1/restart.code"  80C ( 32C-QQ".name=1QQ:menuname$(name):'0name=1QQ:directoryname$(name):21000:=-1'7 Inse340#3;40-XX$)/2);XX$:n$=""900 :"Enter todays date? ";dt$A*:"Enter output driver name (.printer is the default)? ";dr$4dr$=""dr$=".printer" >#3,dr$ \#3:#3fxx$="COMPARISON OF":2200p#3:XX$=O$:2200z#3:XX$=N$:2200#3:XX$=DT$:2200:#3, first LOAD the program and execute:"D" OUTREC=0:OPEN#1,/disk/textname/:OUTPUT#1:LIST 10,:CLOSE:END""( " then execute this program again."/ :"Enter the name of the OLD version? ";o$o$=""900/:"Enter the name of the NEW version? ";n$$=" PROGRAM COMPARER ":40-TI$)/2)::TI$ :::G" This program will compare two versions of a program and produce"*"a list of differences between them."C" Both programs must be text files. To convert a program to a"5"text fileOS$)=NS$)i$="CHANGED ":ۺ965+J$=OS$:310:i$="TO ":J$=NS$:320 LEAVE PROGRAM-:=12:=30:"MORE TO COMPARE? (Y/N)":G$G$="Y"G$="y"10"G$<>"N"G$<>"n"7);:920: INITIALIZATION ROUTINE :::3TI$=OS$:310:210:410 NEW LINE ADDED)i$="ADDED ":J$=NS$:310:260:410  END OF FILE ROUTINE*eof1sw=1:eof2sw=19504260)Hi$="ADDED ":J$=NS$:310:260:810\eof2sw=1:eof1sw=1950)zi$="DELETED ":J$=OS$:310:210:860)^210:260OS$=NS$350/ LINE NUMBERS SAME BUT LINES ARE DIFFERENT)OS$)=NS$)i$="CHANGED ":ۺ6000J$=OS$:310:i$="TO ":J$=NS$:320:350/X OLD LINE NUMBER LESS THAN NEW LINE NUMBER)bOS$)".CONS œ10004=".d1": **** Set to your volume PREFIX$ **** >"upshift.inv": **** Found on Compuserve, UPSHIF.INV ****800J%device$<>".CONSOLE":=12:=28:"LOAD PAPER. PRESS RETURN":char$:?( **** First, check for 2nd string if not se Keywords: SEARCH TEXT FILE BASIC This BUSINESS BASIC program utility will search a TEXT file (PASCAL ascii file) for occurences of text strings. Excellant utility for debugging BUSINESS BASIC programs printed off as text files. 1902,::" **** STANDBY: HERE'S THE PROMPT! ****"1X=11000:X 6::: 7SEEK=0 <9) P:DEMO=1*ZA$:A$="<>"ROUNDS=ROUNDS+1:80_ROUNDS>=5SEEK=1:CHOICE=4dDEMO" . ";A$2nSEEK=1(CHOICE=DEMO-K1CHOICE=DEMO+K2)300xSEEK=0TIME=1300:TIMESEEK=0TIME=1300:TIMEDEMO=DEMO+ THIS PROGRAM SCROLLS FOR YOU AND CAN BE USED# IN MANY APPLICATIONS. TRY IT!# THIS IS ADAPTED FROM THE% APPLE /// DEMO DISK.#' USE "RENUMBER" TO PLUG IT IN. ( <>"*NUMDEMOS=5:K1=2:K2=NUMDEMOS-K1220,560,18_"Re directory in line 300%-' Program 1,Program 2,Program 3,Program 4), Program1,Program2,Program3,Program4W"================================================================================"=25,"____________________________________OLE"=12:=20:"Printing ";file$;"...."P=ver.position%%R#2;line$,80):line$)<=8094)T#2;line$,81,80):line$)<=16094*V#2;line$,161,80):line$)<=24094X#2;line$,241,20)^ver.position%=d:n=23:29);::"RUN COMPthat can be searched, edited with }I {your word processor, then EXECuted back into a program. }  { }I {NOTE!: FOR PROPER OPERATION, YOU WILL NEED TO EDIT LINES 37, 110,}I {150, 870, 1000, 1210 AND 1220 INTO THEIR CORRECT LINE LENGTrching is as follows: }IT {From the BUSINESS BASIC command mode, LOAD your program. }1^ {Type this line to save off your program: }Ih {OUTREC=0:OPEN#1,(some file name):OUTPUT#1:LIST:CLOSE }I {This will save you a text file strings, the }I" {program will check for the FIRST string, then see if the SECOND }I, {string occurs, too. If not, the line is not printed. } 6 { }I@ {Note: The best way to print out a BUSINESS BASIC program for }!J {seachoice search for two strings at the same time. If }I {you enter a string in the FIRST string request, and none in the }I {SECOND string request, the program will search for the FIRST }I {text string occurences only. If you define both many }I {times you have repeated a phase (e.g., all the times you used }I {'Therefore' in your text). You may print the findings to the }I {.CONSOLE, or any printer or file properly configured and named. }  { }I {You have a have found this program very use for }I {BUSINESS BASIC program converted to text files to search for }I {things like THEN GOTO's, variables and unreference line #'s. }I {It can also be used for checking letter text to see how ithin that}I {file. It uses the UPSHIF.INV invokable module (found on }I {Compuserve, and renamed in this program as "upshift.inv") so the }I {the text string search is done without regard for the case of the}I {alpha characters. Iion%=zero%:eighteen%=18:count%=zero%Pfile$=null$:line$=null$:first$=null$:second$=null$:device$=null$:char$=null$Ix {This is a handy little program that will search a BASIC Text file}I {(or PASCAL ascii file) for occurences of text strings w:L=32=30=22::"VOLUME/FILE NOT FOUND. PRESS RETURN"::char$:900*=22::"ERR # ";;" IN LINE # ";::& **** INITIALIZE VARIABLES ****null$="":zero%=0:one%=1:char$=null$:u.line$=null$:u.first$=null$:u.second$=null$:ver.positNSOLE'): ";device$Ekdevice$=""device$=".CONSOLE":u.first$=first$:u.second$=second$4mline.ref=one%:caps(@u.first$):caps(@u.second$)p200:=12:=25 "MORE TEXT TO CHECK? (Y/N)" char$$"YyNn",char$)810,810,940,9407);:915ROGRAM"+H=10:=27:"Enter Name of File: ";file$Mfile$=""900Ocaps(@file$)2R=12:=21:"Enter First String value: ";first$Wfirst$=""9004\=14:=20:"Enter Second String value: ";second$Df=16:=2:"Enter Output Device. ('RETURN'='.CO)4051=21:=16:"5#";line.ref:line.ref=line.ref+one%*6ver.position%>=eighteen%150::235@J280 **** KBD check ****()=27:::110: 400$ **** Main Program Section **** 1210&*:=3:=30:"STRING CHECK P=21:"Reading Line #:";/=22:=1:"Searching ";file$;" for String";:second$=""" ";first$:"s ";first$;" and ";second$!:"Press 'ESCAPE' to End";:count%=one%eighteen%+"#1;line$:u.line$=line$:caps(@u.line$),u.line$,u.first$LETED. PRESS RETURN"::char$x:=23:29);::"Press any key to continue.."::char$* **** Search for Matching String ****#1,file$#2,device$file$<>".CONSOLE"37 400ž#1:110:ver.position%=one%H. }I {THESE LINES MUST BE RECONNECTED TO THEIR CORRECT LENGTH, AS }I {COMPUSERVE DOES NOT ALLOW LINES LONGER THAN 80 CHARACTER } {TO BE UPLOADED. -- FWM }