LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)4:CGN$=CGN$+CGK$:=BFF$=BFC$:BFIS=15:BFF$=BFF$+BFF$::BFF$=" "+BFF$,50)3CHA$=CGK$+CGK$+CGK$:CHA$,1)=CFF$:CHA$,9)=CFI$2CHD$=CGN$,1,54):CHD$,1)=CFF$:CHD$,54)=CFI$1,180,2421);01);: =0:=0:CGN$:=79:=0: ! 6  TEST2 I K0 GTO.2.GT1 I K0 GTO.2 I K0 *SOS.KERNEL ,V;' z) FLASHNAME.DAT Gw +TTTSORT.INV; .  +USER.MANUALG *! (XREF.SRC /:K 7 %SEG.T j7Ÿ/ XREF.XRC 5+REQUEST.INV L+ L+ *SOS.DRIVER C48Z'RUN.XRFF ))S"  SERIALNO.DAT   DISKNAME.DAT+,*SOS.INTERP 4ke! III.DAD.071527Bu' ,BASICGTO.INV ee+GTO.RUNTIME# S! S! HELLO / *HELLO.TEXT*P *MENU.MAKER }8>'READ.ME  >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LCGN$ =0:=0:CFL$:=24:=0:CFO$=20:=0:CGB$=3:=0:CGB$=5:=0:CGB$=22:=0:CGB$=22:=16:CHA$21);13);:H: JBDOS=1:BFIS=0201:61020%LBFIS=10:"56C";BBP$;:61028wNBFIS=17::::"45C";"D A Datasystems"::"45C";"Tools Times Three"::"45C";"(c) Copyright 1984";:61028P!RBDOS=0:BFIS=200-1:61020CTBFIS=14:::"49C";"PLEASE WAIT FOR INITIALIZATION";:200VXBFIS/2=BFIS/2):۵Z'\1+BFIS*1,1+BFIS We sat down to write the 'User Manual' for this package and found ourselves with a cover sheet and a copyright/disclaimer and one page in between. This is the one page. BASIC XRF is a single program, named XREF on your distribution disk w BASIC XRF - Business Basic Variable Cross-Referencer Placed into the Public Domain, January 1988 (Notes edited to reflect PD status) USAGE NOTES 9C";"PLEASE WAIT FOR INITIALIZATION";:200VXI/2=I/2):۵Z\1+I*1,1+I80-I*1,23-I^Q=0I/2=I/2):۵`Q=1I/2=I/2):۴b:J=10002::dJ=12000:: z: DUMMY061000:300,2MY,2OLL,ETCH:JQ=1:I=0201:61020)LI=10:"56C";exppgmname$;:61028tNI=17::::"45C";"D A Datasystems"::"45C";"Tools Times Three"::"45C";"(c) Copyright 1984";:61028PRQ=0:I=200-1:61020@TI=14:::"4*=0:=0:SIDELINE$:=79:=0:SIDELINE$(=0:=0:TOPLINE$:=24:=0:BOTLINE$=20:=0:MIDLINE$=3:=0:MIDLINE$=5:=0:MIDLINE$=22:=0:MIDLINE$=22:=16:VERT$! VPOS=5:HPOS=57:PRINT LVERT$+21);13);: RESTORE WRAP,SCRE$+CLOCKLINE$::CLOCKLINE$=" "+CLOCKLINE$,50)?VERT$=SIDE$+SIDE$+SIDE$:VERT$,1)=TOPBRK$:VERT$,9)=BOTBRK$CLVERT$=SIDELINE$,1,54):LVERT$,1)=TOPBRK$:LVERT$,54)=BOTBRK$ DRAW FRAME1,180,24%21);01);: WRAP & SCROLL OFFOTLEFT$:BOTLINE$,79)=BOTRITE$BMIDLINE$=TOPLINE$:MIDLINE$,1)=LEFTBRK$:MIDLINE$,79)=RITEBRK$#CURSLEFT$=08):CURSDOWN$=10)LSIDE$=LEFTRITE$+CURSLEFT$+CURSDOWN$:I=124:SIDELINE$=SIDELINE$+SIDE$:`CLOCKLINE$=CLOCK$:I=15:CLOCKLINE$=CLOCKLIN065,001,002,012,112)RCLOCK$=139):CLOCK$=LCLOCK$+RCLOCK$) 139,003,012,016,032,033,018,012,003 SET VARIABLES HEREUTOPLINE$=TOPLEFT$:I=177:TOPLINE$=TOPLINE$+TOPBOT$::TOPLINE$=TOPLINE$+TOPRITE$BBOTLINE$=TOPLINE$:BOTLINE$,1)=B034,034,098,002,002,098,034,034RITEBRK$=135)) 135,034,034,035,032,032,035,034,034 4TOPBRK$=136)) 136,000,000,127,000,000,099,034,034BOTBRK$=137)) 137,034,034,099,000,000,127,000,000LCLOCK$=138)) 138,112,076,066,GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|80-BFIS*1,23-BFIS$^BDOS=0BFIS/2=BFIS/2):۵$`BDOS=1BFIS/2=BFIS/2):۴b:BMAS=10002::dBMAS=12000::z:061000:300BKNS$^BDLS=0BKNS/2=BKNS/2):۵$`BDLS=1BKNS/2=BKNS/2):۴b:BLhich performs a single function - that of cataloging, sorting, and listing a cross reference of all variables used in any Apple /// Business Basic program. XREF reads the SAVEd program directly, requiring no EXECing to ASCII format or other flim-fl !RSTUVWXYZ[\]^_`abcdefghijklmnop%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`$eGA3/1.0EMOUTB QWKSORTA  716-648-2462 3792 Windover Drive - Hamburg, NY 14075 716-648-2462 716-648-2462 ublic Domain, Mr. Anderson no longer supports it, nor can he answer specific questions about it. D A DataSystems 3792 Windover Drive - Hamburg, NY 14075 pyright (c) 1984 by D A DataSystems. This PD disk is copyright 1988 by Washington Apple Pi for the manner in which this disk has been put together. Be sure to make a back-up copy before using. Because this program has been placed into the P5% improvement; the program file XREF should not be modified unless you are an owner of Basic GTO and are familiar with its formats. We have supplied the original source program on the distribution disk as XREF.SRC. BASIC XRF is co Apple RENUMBER.nnn modules which perform line-number cross-references as well as renumber,merge,append. Run the program RENUMBER.DOC for usage In order to optimize for speed we have run XREF through our Basic GTO partial compiler gaining 6e program will finally prompt you for an output destination for the cross-reference listing. This may be a file or listing device such as .PRINTER. For those of you who have an older Basic and may not have received it we have included thee.g. .PROFILE/BASIC/TEST/MYPGM (This file should not be "Locked"). XREF will then proceed to process through your program displaying the current line number being processed and a clock-line display to verify that something is happening. Thammery. BASIC XRF runs automatically at the prompt, or may be run using the Menu.Maker program by highlighting "RUN.XRF" and pressing return. The program will prompt you for the full pathname of the program to be cross-referenced, "$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <٠ŠҠî!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭any alterations.C PRINT" This file will be renamed to READ.ME after this use. ? PRINT" System will boot into BASIC XRF from now on.  PRINT ! RENAME"hello","read.me" & RENAME"will.be.hello","hello" 6:"------ prrn screen offB" screen will return when complete (20-30% speedup)A" remove repeating clockline display by altering lines" 6700 RETURN" 6750 RETURN>" Make a copy of this disk before making  Gi" the order of 85%... but it still takes roughly 1 minute per K ofFj" source file - e.g. 15 minutes to cross-reference a 15K program.kmBn" To accelerate BASIC XRF processing consider the following :3x" use cntl-5 (keypad) to tu read.me 28)d"Please note :eFf" This version of Basic XRF incorporates our high-speed assemblerEg" Sort routine and, additionally, has been compiled by Basic GTOFh" our program accelerator. The net performance improvement is onJ ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECé@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$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#H v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`X`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆ1 TEMP2 2  GETCH 5RETURN BG G DOJMP TEMP1 @TEMP2 AGETCH  RETURN GS GS DOJMP JMP TEMP1 RELOCST VAR VAR JMPADDR .RELOCST ]XCST JMPADDR DDR MOVE254 INIT INIT FINI FINI JMPADDR MOVE254 VE254 ZXWVUTS#"!  xtȩ ȩtHsH`*** G ***qoShBhC 5 5 CHBH`Hʊe9he: Hm:hJ`潠`*** GS ***NLKIHGEdhh 89H:iɂ8H:HLHMHH HH`9=i>i> ȥii8 LȩȩY98  HH``n#" B?L*** fini ***hsht9=i>i> ȱii8 L*** var *** ` a ɅL8A 8A 8Ae ) J Ɇ>e=e>ɂ`L*** init ***hhȱiȱi"$%&'GA3/1.06REMO, VAR `` 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*gto.tables%(350):"GTO.RUNTIME":INIT&#9,"SERIALNO.DAT":#9;BBA$:#9"BBD$="1.30":BBG$=BBA$:8-40:5gto.tables%(350):initBBJ$="NO "     .012345678:qrstuvwxyz{|}~ *F * TOOLS TIMES THREE - BASIC XRF *F * *F * *F * 10/10/84 rev 03/15/85 BASIC XRF&#9,"SERIALNO.DAT":#9;ssn$:#9(VERSION$="1.30":serialno$=ssn$:8-40testing$="NO "G ****************************************************************G * 2060R\BJO%=0BIB%-BHP% fbuff%(BJO%)=buff%(BHP%+BJO%)pzBIO%=BIB%-BJO%+1 BJA%=BJO% 2410: BHP%=0 2470,2000:BKAS=BJC%:2000:BKAS=BKAS+256*BJC%+BGO$="line "+BKAS):BHBS=5:6000:6750 BKES=0 200: |BHP%=1:l BHP%=BHP%+1:BJC%=buff%(BHP%)6BGO$="Scanning Program for Variables":BHBS=4:6000 BJES=0BJIS=20:6700  2000 BJC%=0BJES=1:2220 *BJM%=BJC%4BJM%+BHP%+1>=BIB%2130: >2240: HEH%=-1 BEF%=0 BIF%=-1 28)K"74c";"Your system can accomodate "+BHN%)+" variable references": 2580@openfi(@BIH$,@BIK%,@BIM%)3BBIM%<>0"InFile Open Error ";BIM%)::900 EBID%=1JBIO%=512:BJA%=0 T2410:r2000:200ic":BHBS=2:6000 BHFS=BHJS=(BHFS-20000)/6:BHJS>10000BHJS=10000 BHN%=BHJS8var.table$(BGK%),a.1st.ptr%(BGK%),a.curr.ptr%(BGK%)&#b.linenum(BHN%),b.next.ptr%(BHN%)(buff%(1024)nBHP%=-1:BIB%=511 BID%=0 BM$+BEP$:BFF$=BFC$:BFIS=15:BFF$=BFF$+BFF$::BFF$=" "+BFF$,50)BFM%=192:BFO%=149:BGA%=212 BGC%=213BGE%=26:BGG%=55: BGI%=-1:BGK%=BGE%*BGG%:BGM%=BGK%-100:aBGO$=" Program Variable Cross-Reference Lister for Apple /// Business Bas 6600H::BBM$;" completed ... do you wish to run the program again ? " 6400BEJ$="NO"950 fini:4 2470 :BDB$;3BBJ$="YES"fini::ەfini::".D1/MENU.MAKER" BDES=3dBEM$=138):BEP$=139):BFC$=BEwW(3,3),wW(3,4) BEC$= 1000: &1500: X2030: b2520:BdBEC$=620::"XREF started : ";BEC$:" complete: ";:Pf:BEF%;" unique variables encountered":BEH%;" variable references total": l3290: 2470:BCF$ 60000:BCI$,BCL$,"gto.runtime" BDES=3:',@::60086:%^wW(1,1),wW(1,2)wW(1,3),wW(1,4) hBDI$=BDL$mBDI$,1)="sn-"+BBG$nBDI$,68)="v-"+BBD$(oBDOS=(74-BBP$))/2:BDI$,BDOS)=BBP$r"74c";BDI$;%wwW(3,1),wW(3,2)(*+,-9DEFGHIJKLMNOP! 2œ40000-4BBM$="BASIC XRF":BBP$="B A S I C X R F" 6BCC$=:8BCF$="REQUEST.INV":BCI$="BASICGTO.INV"<BCL$="TTTSORT.INV" @=BCC$d i50000 n62000 }BDB$; 200-499:60000-61999:62100500 v 1.30 *F * *F * (c) Copyright 1984 D A Datasystems *F ****************************************************************A -------------ecode%<>0"InFile Open Error ";ecode%)::900Eone.open%=1Jcnt%=512:read.ptr%=0T2410: read first%r2000:2000: *** 1.1 |buff.ptr%=1: will be inc'd  removed *** 1.2l -------------- get_ch.buffted inits for each iterationbuff.ptr%=-1:buff.max%=511one.open%=0 b.idx%=-1var.count%=0vct.highest%=-1 28)M"74c";"Your system can accomodate "+b.max%)+" variable references": 2580"@openfi(@in$,@infile%,@ECODE%)7Bfx=10000b.max%=ffx( -------- dims ----------------Dvar.table$(vtc.max%),a.1st.ptr%(vtc.max%),a.curr.ptr%(vtc.max%)*#b.linenum(b.max%),b.next.ptr%(b.max%)(buff%(1024)(n ----------------------------------3 ----------- repea=" Program Variable Cross-Reference Lister for Apple /// Business Basic":wnum=2:6000 fff=ffx=(fff-20000)/6: leave room for 1000 vars+misc:if ffx>10000 then ffx=10000 *** 1.2ffx>10000f$,50),rem.ch%=192:perform.ch%=149:data.ch%=212IMAGE.CH%=213=HASH1.MAX%=26:HASH2.MAX%=55: *** 1.2= vtc%=-1:vtc.max%=HASH1.MAX%*HASH2.MAX%: *** 1.2=hashmax%=VTC.MAX%-100: *** 1.2`ww$2470:clear.view$;-testing$="YES":ۋ::".D1/MENU.MAKER" --------------- init wmain=3LCLOCK$=138):RCLOCK$=139):CLOCK$=LCLOCK$+RCLOCK$:CLOCKLINE$=CLOCK$:I=15:CLOCKLINE$=CLOCKLINE$+CLOCKLINE$::CLOCKLINE$=" "+CLOCKLINEvar.count%;" unique variables encountered":b.idx%;" variable references total":l3290: output2470: fini  end 6600L::pgmname$;" completed ... do you wish to run the program again ? " 6400yn$="NO"9504 WW(3,4)' --------- ENTER HERE ------------savetime$=1000: init&1500: repeat initsX2030: mainb2520: sortndsavetime$=620::"XREF started : ";savetime$:" complete: ";: *** 1.2Xf:------ INITS AFTER FLASH-ON@::60086: DRAW FRAME%^WW(1,1),WW(1,2)WW(1,3),WW(1,4)httl$=sp70$mttl$,1)="sn-"+serialno$nttl$,68)="v-"+version$0oq=(74-exppgmname$))/2:ttl$,q)=exppgmname$r"74c";ttl$;%wWW(3,1),WW(3,2)WW(3,3),lled from 61000A ***********************************************************" dims _______________________ INITS invoke1$60000: SET FRAME VALUESinvoke2$,invoke3$5wmain=3: main window number ____________________'$, ---name$Dd ------------ M A I N H E R E ------------------------------ i50000 n62000}CLEAR.VIEW$; 200-499:60000-61999:62100500A ***********************************************************8 ** I N I T I A L L I Z E - ca input etc ! 2œ4000084pgmname$="BASIC XRF":EXPPGMNAME$="B A S I C X R F".6ourvolname$=: *** 1.2 7=ourvolname$8invoke1$="REQUEST.INV":invoke2$="BASICGTO.INV"<invoke3$="TTTSORT.INV">SAVEPREFIX$=@=ourvoler A full trap allow HD 'boot'= 1.21 cleanup printout width, etc in 3530,3570,3580,3510, 1.30 add new asm sort back in... 25274 add 1504 to re-init vartables for re-runC change 2490 and add 2222 to handle close of----------------------------------------------0 1.2 incl logic to fix hashmax computes etc= use basic sort in place of asm, allow future toggle7 alter hash collision logic to skip 17 entries< add logic to trap table B full & alt.ptr%=buff.ptr%+1:ch%=buff%(buff.ptr%) -------------- scan_input5ww$="Scanning Program for Variables":wnum=4:6000 eoff=0clockfact=20:6700  2000 ch%=0EOFF=1:2220*line.len%=ch%;4line.len%+buff.ptr%+1>=buff.max%2130: *** 1.1>2240: process lines H2060R ------ move then read new\i%=0buff.max%-buff.ptr%!fbuff%(i%)=buff%(buff.ptr%+i%)pzcnt%=buff.max%-i%+1read.ptr%=i%2410: read to fill blockbuff.ptr%=0 2470`st}~0  ee( ΋8=儑ȥ>兑8((Ъ`1`Q`~|yo566`͏ n(̑т!J ͍` w. `}~ ` `  ̖`    `}~ k`͌͋ `}~  }~   ` L *mmee ΅`566 #8qqrr((С`uveeqr R0Lmymz 6/(0L( Lwx 6/0(0$L( kL-wx`Q`}~ `sqtrtJvsjiuuvwx k #8uuvv((˭yuzvsqtr8qqrr((qmyrmzwx kyz k********* BEGINNING OF SORT PGM **********h{h|hshthhh}h~./ |H{H`st A `  `1hhhhhh HH`0.,*(&#  Lhhhhhh HH`0.,*(&#  Lhhhhhhhh HH`86420.,*'$#" XL*<=>?@AB 2000 L 2290V ` j --------------- read_block6t Readnxt(%infile%,@buff%(read.ptr%),@cnt%,@ECODE%).~ ecode%<>0"Read error ";ecode%):900 EXPBL(@BUFF%(read.ptr%))  fini < one.open%closfi(%infile%,@ecode%):one0:2000:2290: ch%=34STOP.CHAR$=34):2730:2290: QUOTED literal1 ch%=perform.ch%stop.char$=":(":2730:2290+$ ch%=rem.ch%stop.char$="":2730:2290,. ch%=data.ch%stop.char$="":2730:2290.8 CH%=IMAGE.CH%STOP.CHAR$=":":2730:2290 BC%BKI$=":":2730:2290 B 2000 L 2290V ` j ,t Readnxt(%BIK%,@buff%(BJA%),@BIO%,@BIM%)*~ BIM%<>0"Read error ";BIM%):900 EXPBL(@bUFF%(BJA%))    ( BID%closfi(%BIK%,@BIM%):BID%=0:5 BIM%<>0"InFile Close 00:BJC%=0BKES=1:2390&BJC%<123BJC%>642880:2290:  BJC%=2552000:2000:2290& BJC%=34BKI$=34):2730:2290:% BJC%=BFO%BKI$=":(":2730:2290#$ BJC%=BFM%BKI$="":2730:2290#. BJC%=BGA%BKI$="":2730:2290$8 BJC%=BG ---------- process lines62000:LINE.NUM=CH%:2000:LINE.NUM=LINE.NUM+256*CH%.ww$="line "+line.num):wnum=5:6000:6750 eol=02000: get firstch%=0eol=1:23905ch%<123ch%>642880:2290: variable handler ch%=255200nmlkjihfca^UTSRQPOLIFCB?<96530.+  ~xutnigda^YXWTEB?<985&$ ~{vuspkj`I3/.-,*'  8@trtJvsjiuuvwx k #8uuvv((˭yuzvsqtr8qqrr((qmyrmzwx kyz k "%&$.(",BMP$)3030 ":;<=>?@",BMP$)3060 (BJC%<48)(BJC%>90)3060 BNE$=BNE$+BMP$:BNC%=BNC%+1 BJC%=40BNC%=BNC%-1:3060 2990 $ BNJ$=BNE$,1):BNM%=BNJ$)-36: BNM%<0BNM%=BNH%" BNE$,1)="("BNE$=BNE$+" )"    ( (BJC%>96)(BJC%<123)BJC%=BJC%-32 " ', (BJC%>40)(BJC%<91)BJC%=BJC%+326 @ J 2820:BMP$=BJC%):BNC%=1T ^ BNE$=BMP$:BNH%=BJC%-65:h r 2980: | 3100: 3240:    2000:2820:BMP$=BJC%)#1:2690x =162710 œ40000^ 6600:BGO$="Error opening : "+BMK$+" ...retry":BHBS=4:6000:6300:BMH$="GO"2590:ۭ:900 œ40000  BMN%=0 2000:BMP$=BJC%) BMN%=BMN%+1 BJC%=02800 BKI$,BMP$)2000:2800 2750GO$="Enter full path name of Program to be XREFfed : ":BHBS=4:6000:6500:BME$="":BGO$="":BHBS=6:6200:BIH$=BMH$2 &< ::"75c";"INPUT File = "+BIH$/F BGO$="Is this correct ?":BHBS=4:6000:6400P BEJ$="NO"2600 d œ2680 n BMK$=BIH$:#1,BMK$:S:BMAS>BKPS2555:ۻBMASvar.table$(BMAS)BMAS=BMAS+1o BLL$BKLS/2)):BLHS QRETURN {N sAFLAG /PTRAINT TAGFLAG . TAGSORTD TAGSORTDRETURN N  AFLAG LAG PTRAINT INT TAGFLAG GFLAG PTRADOL }TAGSORTA TAGSORTAMAINSORTMAINSORTsINSORTQWKSORTD QWKSORTDRETURN zvVRN ^Z AFLAG pLAG TAGFLAG kGFLAG PTRADOL DOL MAINSORTINSORTPTRADOL DOL MAINSORT#INSORTQWKSORTA QWKSORTARETURN *&N  AFLAG  LAG TAGFLAG GFLAG PTRADOL fbDOL  #8qqrr((С`uveeqr R0Lmymz 6/(0L( Lwx 6/0(0$L( kL-wx $& BEH%=BEH%+1:BEH%=BHN%11100:0 BNO%=BGG%*BNH%+BNM%:5 BNO%<1BNO%=1:7 BNO%>BGK%BNO%=17:: BNO%>BOA%BOA%=BNO% D var.table$(BNO%)=BNE$3220N var.table$(BNO%)=""3180$X BNO%=BNO%+17:BNO%>BGK%BNO%=17 b 3130l v var.table$(BNO%)=BNE${ BEF%=BEF%+1 $ BGI%=BGI%+1:BGI%=BGM%11200:0 a.1st.ptr%(BNO%)=BEH%:a.curr.ptr%(BNO%)=BEH%   ' b.next.ptr%(a.curr.ptr%(BNO%))=BEH% b.linenum(BEH%)=BKAS a.curr.ptr%(BNO%)=BEH%  T 6600:BGO$="EntdfCDCS:CDG$=CDCS):BFIS=09*CDCS-1:CDJS:CDG$=CDG$+CDJS):BFIS:CONTROL(%17,@CDG$)".CONSOLE" hBMASj 8lCDN$=128))n 128,000,000,126,002,002,098,034,034pCEA$=129))r 129,000,000,063,032,032,035,034,034tCED$=130))v 130,034,,70)CCA$=18):CCD$=17)|ĆCCGS:ww(CCGS,4)āCCKS=1CCGSāCCOS=14Ćww(CCKS,CCOS) ĂCCOS ĂCCKS 6 03,02,77,02 03,04,77,04 03,06,77,19 03,21,77,21 03,23,14,23 18,23,77,23?ſ`dBMAS=12terminating"r900PCBB$=12)CBE$=01):CBH$=04)BPM$=07)BDB$=28):CBK$=29)yCBN$=" "BDL$=CBN$,1ES=1:BEH%=BEH%-1:2220@E=255BBJ$="YES"900: JBDB$;rL(=25)(=32)(=37)"VERIFY THAT DISKETTE IS INSERTED & DRIVE DOOR CLOSED and/or VOLUME ON-LINE":6100:O#06T"Unexpected Error Number ";;" in Line Number ";^"program e References":11300+"+CAO$="Unique Variables":11300$, .,7):G8,"--------- WARNING maximum number of ";CAO$;" has been reached"F=," XRF will be completed for program contents to here.":>B,6300::::::BMH$="END"900:BJB'=3BBJ$="YES" j'10000o't'~'/'BGO$="Press ANY KEY to RESUME":BHBS=4:6000 'BPJ$;'BGO$="Press SPACE BAR to pause, Q to quit":BHBS=4:6000' 'œ10220'BFIS=120:: 'œ40000 'BHFS= '900:\+%f+CAO$="VariablGS=BJIS:CAKS=11;CAGS>100CAGS=CAGS/10):CAKS=CAKS/10:6715(@CAGS>50CAGS=CAGS/2):CAKS=CAKS/2ECAGS=CAGS+1Y^`CAGS<16700$mBHBS=6:BGO$=BFF$,1,CAGS):6000rCAGS=CAGS-CAKS''$'=32101008'=81=11310200":6200?2BEJ$=BMH$:BEJ$="no"BEJ$="NO"BEJ$="No"BEJ$="NO":6470?<BEJ$="YES"BEJ$="yes"BEJ$="Yes"BEJ$="YES":6470:6410F_dnBGO$="===> "+7)xBHBS=5:6000(BGO$=" ":BHBS=46:6000::BHBS=6:,046CAHBS=6:6200I"goGO",BMH$)BMH$="GO":6390:ۻ"endEND",BMH$)BMH$="END":6390 6310BHBS=6:BGO$=" ":6200&BGO$=" ":BHBS=5:6000:BHBS=6:6000 BHBS=5:BGO$=CAD$:6000BBGO$="Enter YES or NO ":BHBS=6:BME$="YES$;*SBME$<>""BPPS=1BME$)+1:8);: V" ";BMH$`BMH$=""BMH$=BME$21);13);1ww(BDES,1),ww(BDES,2)ww(BDES,3),ww(BDES,4)=BPBS:=BPFS 6500UBGO$="Type GO to continue or END to quit now ":BME$="":B:BGO$=7)+" ====> ":60001BHBS=6:BGO$=" Press ANY KEY to CONINUE":6000 BPJ$*BHBS=5:BGO$=" ":600038 9BPM$;:BPBS=:BPFS=1<ww(BHBS,1),ww(BHBS,2)ww(BHBS,3),ww(BHBS,4)B21);01); LBDB$;QBGO$;" ";BMEOJS=0 3550 #1;" " BFIS#1$prBPBS=:BPFS=1tww(BHBS,1),ww(BHBS,2)ww(BHBS,3),ww(BHBS,4)z21);01); BDB$; BGO$21);13);1ww(BDES,1),ww(BDES,2)ww(BDES,3),ww(BDES,4)=BPBS:=BPFS$BHBS=510) #1"17a";var.table$(BFIS);:#118) BOFS=a.1st.ptr%(BFIS)) #1"######";b.linenum(BOFS);:BOJS=1 BONS=BOFS BOFS=b.next.ptr%(BOFS) BONS=BOFS3600; BOFS#1"######";b.linenum(BOFS);:BOJS=BOJS+1:3600" BOJS=10#1:#118);:Ber destination for LISTING (eg .printer or file) : ":BHBS=4:60000 6500:BME$="":BGO$="":BHBS=6:6200:BOC$=BMH$  #1,BOC$> #1"80c";" Variable Cross-Reference for Program = "+BIH$ #1;" " BFIS=BGK%-BEF%-10BGK%: var.table$(BFIS)=""36034,098,002,002,126,000,000xCEG$=131))z 131,034,034,035,032,032,063,000,000|CEJ$=132))~ 132,034,034,034,034,034,034,034,034CEM$=133)) 133,000,000,127,000,000,127,000,000CEP$=134)) 134,034,034,098,002,002,098,034,034CFC$=135)) 135,034,034,035,032,032,035,034,034 4CFF$=136)) 136,000,000,127,000,000,099,034,034CFI$=137)) 137,034,034,099,000,000,127,000,000BEM$=138)) 138,112,076,066,065,001,002,012,112BEP$=139):BFC$=BEM$+BEP$ 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 r|>00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xr) 139,003,012,016,032,033,018,012,0039CFL$=CDN$:BFIS=177:CFL$=CFL$+CEM$::CFL$=CFL$+CEA$*CFO$=CFL$:CFO$,1)=CED$:CFO$,79)=CEG$*CGB$=CFL$:CGB$,1)=CEP$:CGB$,79)=CFC$CGE$=08):CGH$=10)4CGK$=CEJ$+CGE$+CGH$:BFIS=12ƭ 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` (2VTC.MAX%hashval%=17 b 3130l create new"v var.table$(hashval%)=this.var${ var.count%=var.count%+1 %+1:b.idx%=b.max%11100: *** 1.2F0 hashval%=HASH2.MAX%*HASH1%+HASH2%: *** 1.2@5 hashval%<1hashval%=1: *** 1.2@7 hashval%>VTC.MAX%hashval%=17: *** 1.21: hashval%>v40var.len%=var.len%-1:3060 2990 ? HASH2$=THIS.VAR$,1):hash2%=hash2$)-36: *** 1.2 hash2%<0hash2%=hash1%1 this.var$,1)="("this.var$=this.var$+" )" 4 ----------------- hash to table & update table;& b.idx%=b.idx & update tables 3240: update tables  * ---------------- collect rest of var 2000:2820:ch$=ch%) "%&$.(",ch$)3030 ":;<=>?@",ch$)3060 (ch%<48)(ch%>90)3060/ this.var$=this.var$+ch$:var.len%=var.len%+1& ch%=r case value#, (ch%>40)(ch%<91)ch%=ch%+326 :@ ---------------PROCESS VARIABLE HIT & load var tableJ 2820:ch$=ch%):var.len%=1T 1^ this.var$=ch$:hash1%=ch%-65: *** 1.2h r 2980: collect rest of var)| 3100: hash to tableR STOP.CHAR HIT skip.len%=0 2000:ch$=ch%) skip.len%=skip.len%+1 ch%=02800# stop.char$,ch$)2000:2800 2750  ) ---- xlate CH into upper case value$ (ch%>96)(ch%<123)ch%=ch%-32 )" ---- xlate CH into lowethis correct ?":wnum=4:6000:6400P yn$="NO"2600 d œ2680n f$=in$:#1,f$:#1:2690x =162710 œ40000[ 6600:ww$="Error opening : "+f$+" ...retry":wnum=4:6000:6300:win$="GO"2590:ۭ:900 œ40000 - SCAN THRU TIL END LINE O.1st.ptr%(I)=a.1st.ptr%(J):I=J:2552) var.table$(I)=XX$:a.1st.ptr%(I)=XX%:  s( ww$="Enter full path name of Program to be XREFfed : ":wnum=4:6000:6500:wout$="":ww$="":wnum=6:6200:in$=win$2 %< ::"75c";"INPUT File = "+in$.F ww$="Is L=1:M=N-11-1q XX$=var.table$(M+1):XX%=a.1st.ptr%(M+1):var.table$(M+1)=var.table$(1):a.1st.ptr%(M+1)=a.1st.ptr%(1):2550:: I=LA J=I+I:J>M2555:ۻJvar.table$(J)J=J+1Y XX$N/2)):L=SS/21-1/ XX$=var.table$(l):XX%=a.1st.ptr%(l):2550:.open%=0: *1.3> ecode%<>0"InFile Close Error ";ecode%):one.open%=0 sort@ ww$="Sorting Variable Names NOW... please wait":wnum=4:6000? GOTO 2540:REM unrem this for basic sort *** 1.38 var.table$(0)="ZZZZZ":fff=: γ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`%-var.count%-10vtc.MAX%: *** 1.2 var.table$(i)=""3610& #1"17a";var.table$(i);:#118) ptr=a.1st.ptr%(i)% #1"######";b.linenum(ptr);:k=1 old.ptr=ptr ptr=b.next.ptr%(ptr) old.ptr=ptr36003 ptr#1"######";b.linenum(ptr);:k=k+1:3600 k=10#1:#118);:k=0 3550 #1;" "i#1$6p__________ clear window #wnum and write ww$ to itrsvp=:shp=1tww(wnum,1),ww(wnum,2)ww(wnum,3),ww(wnum,4)z21);01);clear.view$;ww$ CONTROL norm.vid$=17)%|Ćwindow.count:ww(window.count,4)āi1=1window.count āJ1=14Ćww(i1,j1)ĂJ1ĂI1 6 CC RR CC RR 03,02,77,02 03,04,77,04 03,06,77,19 03,21,77,21 03,23,14,23 18,23,77,23?ſ` MAK01):REST.VIEW$=04)BELL$=07).CLEAR.VIEW$=28):CLEAR.TO.END.VIEW$=29)spaceline$=" "sp70$=spaceline$,1,70)"inv.vid$=18):ED & DRIVE DOOR CLOSED and/or VOLUME ON-LINE":6100:O#06T"Unexpected Error Number ";;" in Line Number ";^"program terminating"r9000 ____________ other specific error handlersP INIT MISC VARSHOM$=12)%SAVE.VIEW$=contents to here.":BB,6300::::::win$="END"900:eoff=1:b.idx%=b.idx%-1:2220)@___________ generic on error handler3E=255TESTING$="YES"900: *** 1.2Jclear.view$;rL(=25)(=32)(=37)"VERIFY THAT DISKETTE IS INSERTT\+ ------- table b full#f+x$="Variable References":11300+ ------- table a full +x$="Unique Variables":11300$, .,7):E8,"--------- WARNING maximum number of ";x$;" has been reached"F=," XRF will be completed for program sting$="YES" j'10000o't' SPACE BAR LOOP~'.'ww$="Press ANY KEY to RESUME":wnum=4:6000 'ANYKEY$:'ww$="Press SPACE BAR to pause, Q to quit":wnum=4:6000' 'œ10220'I=120:: 'œ40000 'FFF='900: STANDARD EXIT POINock=clock/2):clockstep=clockstep/2Eclock=clock+1Y#^ UPDATE CLOCKLINE IN WINDOW #5`CLOCK<16700*mwnum=6:ww$=CLOCKLINE$,1,CLOCK):6000rCLOCK=CLOCK-CLOCKSTEP ' ON KBD'$'=32101008'=81=11310200B'=3teia scale to 50 long clockline@0 get clock (=len of line) and clockstep (= decr val of len)54 ***********************************************6clock=clockfact:clockstep=1>;clock>100clock=clock/10):clockstep=clockstep/10:67155@clock>50cln$=win$:yn$="no"yn$="NO"yn$="No"yn$="NO":6470;<yn$="YES"yn$="yes"yn$="Yes"yn$="YES":6470:6410F_d arrow in 5nww$="===> "+7)xwnum=5:6000 clear all'ww$=" ":wnum=46:6000::wnum=6:4, xlate clockfact v"GO":6390:ۻ"endEND",win$)win$="END":6390 6310wnum=6:ww$=" ":6200%ww$=" ":wnum=5:6000:wnum=6:6000 ___________ get YES or NO wnum=5:ww$=arrow$:6000Bww$="Enter YES or NO ":wnum=6:wout$="YES":6200:2y=""win$=wout$21);13);5ww(wmain,1),ww(wmain,2)ww(wmain,3),ww(wmain,4)=svp:=shp ___________ get GO or END 6500Uww$="Type GO to continue or END to quit now ":wout$="":wnum=6:6200I"goGO",win$)win$=3<8__________ print ww$ then input win$ with wout$ as dflt 9bell$;:svp=:shp=1<ww(wnum,1),ww(wnum,2)ww(wnum,3),ww(wnum,4)B21);01);Lclear.view$;QWW$;" ";wout$;*Swout$<>""xi=1wout$)+1:8);: V" ";win$`win$21);13);5ww(wmain,1),ww(wmain,2)ww(wmain,3),ww(wmain,4)=svp:=shp#__________ any key to continue#wnum=5:ww$=7)+" ====> ":60000wnum=6:ww$=" Press ANY KEY to CONINUE":6000 anykey$)wnum=5:ww$=" ":6000GA3/1.01:7SYabRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠWAP /// SIG FILWRITE FILWRITEGETRFNM RTRFNM ERROR ^ROR DOARRAY OARRAY  ERROR ?BUFPNT NT DEVINFO DEVINFO MOVESTR FILREAD FILREAD BUF :4 GETRFNM BUFPNT OJNT ERROR ROR DOARRAY e=TPARMSERROR uROR BUFPNT BMOVESTR REQNUM UUM BLDSTRN DSTRN BUF pia RETURN RETADR  GETPARMSFREQNUM BUF "CONTROL CONTROL RETURN RETADR GETPARMS TPARMSERROR ROR STATUS STATUS BLDSTRN ,BUF |F GETPARMSca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFB>;:9853/&" NL64Ch5h6h3lh4m 0/L6H5H`g8640'%76,V^dKA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`gca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFBhhHHHH l5m6m6  ЙW5X6X6 ` 5`MD32KA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`g##6 >?Bi{Ci|) |=! "LL{@?>8(O\ F9 >{i 5|i6) 6|8 L5{ hhhh0 hWhXXL `L5DžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcE.FRAME.NEW dJ=12XfCC:BUFF$=CC):I=09*CC-1:CH:BUFF$=BUFF$+CH):I:CONTROL(%17,@BUFF$)".CONSOLE"hJj 8lTOPLEFT$=128))n 128,000,000,126,002,002,098,034,034pTOPRITE$=129))r 129,000,000,063,032,032,035,034,034tBOTLEFT$=BTVSPLH   5"ʘ HH` (# (=  0`)aI88  >!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 ,<,<.>.>/?/?d0hpP 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` @SATR130))v 130,034,034,098,002,002,126,000,000xBOTRITE$=131))z 131,034,034,035,032,032,063,000,000|LEFTRITE$=132))~ 132,034,034,034,034,034,034,034,034TOPBOT$=133)) 133,000,000,127,000,000,127,000,000LEFTBRK$=134)) 134, b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰ʩ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{)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Ր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}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?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w      ! ( 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 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`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ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ! ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭X ))hq mm0 stqs[L,j,XLl)`Z5L,lLp,VP VeLE,WWVfLEZZLpnl,Y0g,dP\,]0X]eLE\pqnp aLm bLm cZ )^ `ÍTȱÍU`n064e0[x R X([ `R )l) )g mmL)` mmL ),d-eYLfYuqgQ,V0L@VEPf>i\]M,j,qg$[H" (x^ÈȌm(`TȭU` n  q `ȩ`,S0L HH`Lfh,V W ,W0x_)_ qnZ[oprsXY\]mRl`)  __ ` ) (`^" ( ÙH 8fqhq:,V0-,X0x R) X)(LW h,TULarȥȑ`,S0LoEąĩEŅ o`n L# 8fqn,S0L lHkH`! (rs`^    ) . 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̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[hhhh) JJJ ܊HH`zxvtVSQPMED?<'%h!h"hhh%h&hhhhh#h$L4#(%ʊ +'*#/3ȱ2.ȑ"H!H`수"H!H`~xvua`_ZXUTOKI><1/h\h]hhhhhhhZh[LZȱȑ]H\H`수]H\H`^\TRQJID@>31&$HtL hhhh) JJJ ܊HH`zxvtVSQPMED?<'%h!h"hhh%h&hhhhh#h$L4#(%ʊ +'*#/hQhRhhhUhVhhhhhShTLf****** return,refnum,block(w),smparms,readparms SXUʊ [W6S_cȱb^eȭdꈘȑRHQH`수RHQH`mlkfda`[WUPLB@53)i ꊈ눌 حHH`{rpnlIFEB?32-*&$hOhPhhhRhSRUTQ舘PHOH` ȑPHOH`VTPNMLJF;9%# vFhhhihhhhhhhjhkL!jȱ ȭꈘȑiHhH`수iHhH`ljb`_VUPLJEA75*(L hhhhhhhhhhh5h665556666 5̛ ȏ 수쭘HH`ꈘȑ쭘HH`GA3/1.0N7:6R OPENFI NDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP3ȱ2.ȑ"H!H`수"H!H`~xvua`_ZXUTOKI><1/h\h]hhhhhhhZh[LZȱȑ]H\H`수]H\H`^\TRQJID@>31&$HtOPENFI OPENFI READNXT READNXT EXPBL EXPBL CLOSFI CLOSFI READANY READANY CMPBL CMPBL WRITANY WRITANY WRITENXT WRITENXTL<^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 MISMAT ,@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?eL,, 3,,0-./(,$)x*%)/+(```04@DRTVXZ\^`belv{!$'*-049?BIUcfkw &+8;@CJMPSV]bejApple Dot Matrix Printer Driverv7.DMP A Copyright (C) 1983 by Apple Computer Inc.147:=@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)(e Computer Inc. 1983M\^`belv{!$'*-049?BIUcfkw &+8;@CJMPSV]bej!Apple // Super Serial Card Drivert.SSCARD A "߄P(C) ApplI82-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#-" 2Z SHRH` (# ($GGjc`,'$ ( 2 *)6 """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer0 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 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; 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$ 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:"78C";"ANY KEY RETURNS TO THE MENU.">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 levvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix970:same240:160A=13610=THPOS:B$(I);A<8A>11380A-7480,500,530,560:=THPOS:B$(I); :380THPOS=4:I/2=I/2)I=I-1I=IBOTM THPPess any key to continue ------":any$ ":=8B,"80C";"-The selection of 'RUN.XRF' will start the program-"6INCR=1500:INCR-@".d1/Menu.Maker": ..... "READ.ME" ...=A$):A=21A=9oldprefix$=A=31130-A=27TVPOS=:1120:CESS3.INV"'<:=30::"WELCOME TO ACCESS ///":4F=3:=22:"WHICH SY"Returning you now to the Menu.Maker program."d".D1/MENU.MAKER"******** : œ15:""DATE IS: ";:"TIME IS ";L"PRESS IF OKAY, N)o TO CHANGE:";:OK$:"NO",OK$)"TIMESET"(#1,".RS232"%2A$=:="":"/APPLCOM/ACck$=".Co"console=1(console -ž#165 2#1;a$ 7#2;a$<50Aconsole=1:=23F0K"Would you like to print another file? ";b$5Pb$="Y"b$="y"b$="YES"b$="yes"b$="Yes"43Ub$="N"b$="n"b$="NO"b$="no"b$="No"903Z x=1100x9"Name the file you would like to print: ";inputfile$ #1,inputfile$ console=0;"Where would you like to print the file? ";outputfile$#2,Outputfile$check$=outputfile$,1,3)8#check$=".co"check$=".CO"cheÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5`ʝ`))ժu/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (BASIC XRF by Daryl Anderson el; 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ӭԭ` L``  `L` H , 8 V ТΕLϦI ] +)J* g I V 8fxLL) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{(Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,30C$="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"10 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::"a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!THE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. n for all to enjoy! $(/4:?IXad#ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{}".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.MAKER",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.open%=0: *1.3> ecode%<>0"InFile Close Error ";ecode%):one.open%=0 sort@ ww$="Sorting Variable Names NOW... please wait":wnum=4:6000? GOTO 2540:REM unrem this for basic sort *** 1.38 var.table$(0)="ZZZZZ":fff=: 2000 L 2290V ` j --------------- read_block6t Readnxt(%infile%,@buff%(read.ptr%),@cnt%,@ECODE%).~ ecode%<>0"Read error ";ecode%):900 EXPBL(@BUFF%(read.ptr%))  fini < one.open%closfi(%infile%,@ecode%):one0:2000:2290: ch%=34STOP.CHAR$=34):2730:2290: QUOTED literal1 ch%=perform.ch%stop.char$=":(":2730:2290+$ ch%=rem.ch%stop.char$="":2730:2290,. ch%=data.ch%stop.char$="":2730:2290.8 CH%=IMAGE.CH%STOP.CHAR$=":":2730:2290 B ---------- process lines62000:LINE.NUM=CH%:2000:LINE.NUM=LINE.NUM+256*CH%.ww$="line "+line.num):wnum=5:6000:6750 eol=02000: get firstch%=0eol=1:23905ch%<123ch%>642880:2290: variable handler ch%=25520030: *** 1.1>2240: process lines H2060R ------ move then read new\i%=0buff.max%-buff.ptr%!fbuff%(i%)=buff%(buff.ptr%+i%)pzcnt%=buff.max%-i%+1read.ptr%=i%2410: read to fill blockbuff.ptr%=0 2470.ptr%=buff.ptr%+1:ch%=buff%(buff.ptr%) -------------- scan_input5ww$="Scanning Program for Variables":wnum=4:6000 eoff=0clockfact=20:6700  2000 ch%=0EOFF=1:2220*line.len%=ch%;4line.len%+buff.ptr%+1>=buff.max%21ecode%<>0"InFile Open Error ";ecode%)::900Eone.open%=1Jcnt%=512:read.ptr%=0T2410: read first%r2000:2000: *** 1.1 |buff.ptr%=1: will be inc'd  removed *** 1.2l -------------- get_ch.buffted inits for each iterationbuff.ptr%=-1:buff.max%=511one.open%=0 b.idx%=-1var.count%=0vct.highest%=-1 28)M"74c";"Your system can accomodate "+b.max%)+" variable references": 2580"@openfi(@in$,@infile%,@ECODE%)7Bfx=10000b.max%=ffx( -------- dims ----------------Dvar.table$(vtc.max%),a.1st.ptr%(vtc.max%),a.curr.ptr%(vtc.max%)*#b.linenum(b.max%),b.next.ptr%(b.max%)(buff%(1024)(n ----------------------------------3 ----------- repea=" Program Variable Cross-Reference Lister for Apple /// Business Basic":wnum=2:6000 fff=ffx=(fff-20000)/6: leave room for 1000 vars+misc:if ffx>10000 then ffx=10000 *** 1.2ffx>10000f$,50),rem.ch%=192:perform.ch%=149:data.ch%=212IMAGE.CH%=213=HASH1.MAX%=26:HASH2.MAX%=55: *** 1.2= vtc%=-1:vtc.max%=HASH1.MAX%*HASH2.MAX%: *** 1.2=hashmax%=VTC.MAX%-100: *** 1.2`ww$2470:clear.view$;-testing$="YES":ۋ::".D1/MENU.MAKER" --------------- init wmain=3LCLOCK$=138):RCLOCK$=139):CLOCK$=LCLOCK$+RCLOCK$:CLOCKLINE$=CLOCK$:I=15:CLOCKLINE$=CLOCKLINE$+CLOCKLINE$::CLOCKLINE$=" "+CLOCKLINEvar.count%;" unique variables encountered":b.idx%;" variable references total":l3290: output2470: fini  end 6600L::pgmname$;" completed ... do you wish to run the program again ? " 6400yn$="NO"9504 EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320 *** 1.2 tagsorta(@var.table$(0),@a.1st.ptr%(0),%VTC.max%):: *** 1.29 N=VTC.MAX%):M=N:SS=N+((N/2)<>N/2)):L=SS/21-1/ XX$=var.table$(l):XX%=a.1st.ptr%(l):2550: