8L2C)pJJJJ IH(ȱH:=IH[H`@H^H  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LSOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$e?INVOKE2gؾB3PRU1 <gؾ*HELLO.TEXTa!gg-READ.ME.FIRSTgؾ BLANKERSXؾؾLENFIX.TEXTag2g2ɦ-ɦ/ *MENU.MAKER O ؾ׾DISKNAME.DAT,ggFLASHNAME.DATGgw %SEG.T jgŸ/ B3INVOK IgؾB3MAINC1gؾIII.BSB.19ɦ ' *SOS.KERNEL ,Vg/!a*SOS.DRIVER 4#Dؾ!E2*SOS.INTERP e5]gɦ'Oɦ'HELLO g/ LENFIX ɦ-g7*LENFIX.INV >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? *PRO.KERNEL `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RI%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i   !"#$%&'()*+,-./0120 `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`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`XǠĠӠ!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈ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#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`ǽ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> ɩ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 Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈ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/)@߅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`$Jۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Rڰä,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 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Ȱ4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) abRcdTefVghXijSdfhj 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Ѥ  БĈ` 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žŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATR HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅8n13DL8H\0`(d  $,($  ,BSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTER A")Copyright (C) 1983 by Apple Computer Inc.>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"""""""> >>>xr356789:;<=>?@ABCDEFGHIJKLMGA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQST4nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! (xy```,.0L HH`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw;Profile 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`)aIAHOTW\_bx{'69@IPW]`cfjmpsx} #4:=Z_bpsv{ "%(+.2ADGJx{~;Console Driv*13579;=?ACFNWaehmpx "'+@\mrv{#&+25FKQT\adgjmry~8` L=?՝ԝϝН ` 1`*x (DEHG 1h H J IFD`* H FFLx (̠`x (̠` [   `L `` ``I FF x (̠%L#fowz8 (`…ʍ0Åˍ142;)5I)5i 4`)5;`xH)$ 45R8 h(`x ( 3  +J FF tѤ `U t`*8`AB*0 B 1x ` (`98  bLH8 xʍ6ʍ7hh)ɄJJRH88,< ʠʠ &,<0,80ʬ8ʠ6ʠ7( hL8 989::m8ʥi,;Ɂ)˭5i ɠ)54`x* ,< ʝ8 =i N% JL@ҭ"A N! xLC L 'Lp- >)AE)H ;LLW x0Lx:9,<0 `Ld L)(I bL)8 ʪi)I8R & h:1ߠ*x (,< K NL% AҩA N= ,>- JD)3E)X,qȑ ;?L x0LC L '5դԦ kˍ12/` N=    `H Wh (0­1í2L-. * <өхυ L"= N8` ȑ`! (`.-LLL$?`?` hh- (*J%/hh`դ8eԅԥi ՄԐhh, (MIPLIOKN`ȑȥ.- * ө<ѩ ϩ - (A=)X@ @ ' (  L "x) Q(`x)(` 2H1H` (& ( ( (##D0C 3 *̍m%%#$  " ` L ``(%, ( *x (I  ) (j` DÈDriver -- Copyright (C) 1983 by Apple Computer Inc.`.PROFILE&% `)ߍQI "L), (3C> SHJI̍ƅԥDžծ*x (3'͝ 9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu     ! ( 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 EJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  RY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<?BCNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BGKOʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')+; 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐ̑ 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h AL:g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B Crx x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( $fh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,}00L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hce<Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqé,i ==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: ,lXL (+@EIR[ty} NQDParallel Printer Driver -- Copyright (C) 1983 by Apple Computer Inc.v7 .PARALLEL A`@dCopyright (C) 1983 by Apple Computer Inc.2Z SHRH` (# ($GGjc`,'NPQRSTUVWVOLUME 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.5) =".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 `~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L``  `L` H , 8ԮmwӥmxԐ mi` HHGH`  &`LL) @L) L8``Lթ J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)Ӯfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix 0ޤՐڢ,P<0 )ߍL-  ``,t0L4 d0Cս30. , V  @„ȄL5`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJ<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer/((((PPPP @``` @@@@`xp.GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww """"""""33333333DDDD(```04@DRTVXZ\^`belv{!$'*-049?BIUcfkw &+8;@CJMPSV]bej9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver.X,,PM#-" I82-A/0M)-/M#-" &0x,) ++`x,`,'0LM ! (```*M#ȩ ȭ-ȩ`,'0LM @>L,, 3,,0-./(,$)x*%)/+$ ( 2 *)601 % (, :'`'LM :01 `,'0LM& (,'0LMIĥIC ,$P( n(.0- .-L 3L 3`,,P*M#-"x Z)(,,p` *+)+(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),a$,s-1)a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!ck 1 level; 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; ba=26:=21 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."041750M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 640,1650,1660,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":I),"PASTXT 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,1M/2)-1: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$(=THPOS:B$(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:=+IBOTCA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S ;JA=(66+LCA)A=(66+UCA)".D1/BLANKERS/HELLO": OA+B N=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l: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; 15color=color-15pencolor(%color) &50001ydist=ymax-y:ydist=y,xdistxmaxx<=0xdir=-xdiry=>ymaxy<=0ydir=-ydir185/ The apparent 'thickness' of the lines ." (after the se[]grafixmode(%1,%0): 500initgrafixfillport:grafixonxmax=279:ymax=191xdir=1:ydir=1:x=0:y=0change=0:color=15:190$color=color-1:Color=0Color=15530 now start main loop"xdir=1xdist=xmax-x:xdist=x"ydir=% +-----------------------------+% + Web by Ian Barland +% + +% + Copyright (c) 1987 by +% + ON THREE +% +-----------------------------+ :P"bgraf.inv"Z#i#a#lap=140#secs=.007*(20-lap)+.01 #i=04#hframe(%i) #hscroll#secs>0350#i"$lap &:9000&i=13:release:'"t'RELEASE:::".D1/Menu.Maker" HORSES+_"BGRAF.INV","HORSES.INV","READCRT.INV" n10000 x9000^ Time delay routine.htime=1332*secs rtime|*(# --- Now run the horse race! --- -#16);1); 2#hinit <#15); F#a=120 Z#i=04n#hframe(%i)4 Screen Blanker Program for use in Menu.Maker . Borrowed from Bob Consorti of On Three Fœ"MENU.MAKER",320_=".d1/Blankers"dNumProg%=5!nSwitch%=(1)*(NumProg%-1))+1(xProgName$="BAS.BLANK."+Switch%+64)ProgName$hؾ׾ X)BGRAF.INV(ؾ !L+X /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 ,r}qtrtlt3T3T{"zAxZx~3THeA\>LA]ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVPOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENPROGPREFIXAAAAAAPOHOMA s;aBaMssssssicsrbtavalaoasasjiCh8nii:jhhjssh)WT1vsss ssi:j smb:jhae`m`s6s,s2sڐ3 s&s;v|}|sSssssssssssTyy:MTssssssssssssȓ!ssۇ3*ｻｽ hfQp nsnѧs|cshsssss|sssOa[assssss'sdfghijklmnopqrstuvwxyz{|}~PｿｽｽｽSOS NTRPPOgLcYe /// disks, including the contents of this one - the long-lost (and previously unknown) version 1.3 of Business Basic. There was NO documention EXCEPT that the stranger left the source code to version 1.3! We've included a few of those files on this disk WASHINGTON APPLE PI PUBLIC DOMAIN LIBRARY PDS DISK : Business Basic 1.3 DISK # : 3BSB-19 BOOTABLE? Yes One evening in early 1995, ///er Tom Linders received a visitor. A mysterious visitor in a blue car. Left with Tom were a number of Appl. We hope you enjoy the disk! nown) final version of Business Basic for the /// - version 1.3! The last "official" version we knew of was 1.23 along with a 1.23ax version from On Three. No documentation, but some special files have been included that might supply some info`b WELCOME! WAP /// SIG Public Domain Library Disk Category/Number : Business Basic/3BSB-19 Disk Format: Self-booting (Side One only) This disk contains the long-lost (and long-unkSUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRINDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVCONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARET0 ccccc`,@cc Hd dʸcH Edh(cL ccک,ccLdYd`dkdHELLO d TdLzdUdYVddWddYd`EAdP ȈP/P`U_eP`eLd e!Ls j _`LK$L% LA]gHhHhH , - a j$% _`g5h6h6hhhhh8g5h6h `6 '\L` c ؤ`Lؤ  c.CONSOLEZZ RcQcccdcd  (`H shLs cc . s e Xb()' XbKHLI CjL j89弅:彬: `H hɝɞɜ)`cc  .芅 e ()'` e'()HKIL XbLgLA]) kihHH  `89::  b!)` Ja` Ja` }sL Ya#`LՌ,H }s h ؤL䃩,Lؤ8f`  KL CjL jOPPKLLg KL` Ѽ =ȄL_ȱi8eiiji!Q)L_QQQ`L5_ 6 :0.`9::hhgg.%g& $gegަhH逪hhʰ` ʥ Z aLT ʥIJJABB=>>;<<?@@R DhhjQ):,$f 0$ p $ 0~!L_!sm?iٰcL`Q )!a{)Qi ڐ߽Q) L`i) L`ɢ ɣɍж$HQ L`hʥ0QQȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L^ʅ轫QQ dͼcL d sc# 3lcHcchc) ^ âLh ^Lg jhP ^Q _`-Qggeg5hih 6i6 '\Q" \$%QQQg a `L] Q Q`L2`8髪 Q8iTjH]fHhH_HcH uhch_hhhfhi0hhhB B A` H d P Vmh֥'( Փ)&񦕤LNKM$La  l 3l l6V6م5 56ɀ56H lhɀ֠X)& VmL '~ 3lL 8_^_ __hg^`8 `gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ [L}\ i6g55``BY BSAMHH LPL(\)&P j9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` \?@@bgchch ^ \b \b^b^L[b8g+H__^P3P.zdP{dydLLz$%LP Li 6eydLLL]$%Ld LiȞcFccccccc.ccccccccc ɴcˮc`Lz  Apple Business BASIC v1.3 - Copyright Apple Computer, 1980-83 E BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:cc@͚HPP { BY#IJJABB 9::)ѭ Z OZ ` eօ婶FILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CAL_eP`e^eLz(Q(QUP`P./PPP d`UPUPP`_eP`e^e^e^e^e`P j _`(% -, aLs j {ghhh$PL\h 3lȱȱ%$LWH mmh 4~  l#W", omȱ28eLeji`L3l omȱ"Ɂɂ ȱ :, 8iSjj ȱiTjj8逪XW0 f0WHW$ 0X: h mm f0 omLf) omWA 0 L` mmLeW;8<< ` СLr HI Zs shmHmHlHHɦ# ZshmHmHlHH , hHL_t  ,, tshRSSSLui ui,L$0 |Lt wijk6kxyy wxy6yH8iinn0 xj*% $\hcɭ_ >S?SLcd`jk8L|LLRL,Li LnLx vr$PLZLLsș Ȅ ( Kqƚƚ` s Zs),;,=,#,(,,ѼLLA]LA] (lmm$P$`LHƽ قƼh`$ lȱlLێL{ɝɍLaɖsh E0`H ty ))EL5q  8 $0!PizEn{ T Ti hLqLs wLar !L 7}$ 0`QɀX 6Ls.+"2i ALP s vr$PL;si,L-hLqs Lsɘ9e:: }Lgi , \p Zs$8$0p`PLA]Յ H s vr ɀ ȱV Hih0 & ?<I?iE W Lq s )?SJ)S  ' Lsi imLQqL LLA]+pL]```?EXTRA IGNORED?REENTER $0pL!`L#XW ҫ k*iXX X a[LA]Xii7 { n k$ H|WlXmXm sLpXXW zzEn{i Zx |H$ kh8 )KLen l nnV j$D$ P 膼Lo$0",i I P X> XXXL?] f`LA] l Jj axhZkKhLhhhe9e:: mLg @jei `Ls Cj:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ p j ,i p j` jLi j,h`L}aLb$%/%5$ &5 &5e$$5e%%$&%$e$% LjLs ʥhehL`,  ` CeFL s ` ~iLg \hhh5h689H: H:HLHKHH6H5HHH` 1i` ,i` p j ,i p i` j CjK$L%8eȢ 9:: f`.ghh ` ` a[ɾ,LA]h逅$L# lKL 4~ l $hLgLsLb \h5逢)&a RHRHLgLj8:9: قSTT`)ɀLK$La8gLOPPKLMNhhc 3lXL]L]-L(cPLA]OPMNKLhhLg` jL3T*i kXX XLfy a['_ch_chbi^g [ihh \ p j gih p b %q qn %jjwg56Ly { a q h| XHWHHH d iLOPP$pX0S&ȱhȱKȱLe潥ɂxy56y6( w( w\Ly|F )XHABB8 Ђ__^hHI8e^ Ђ@1 @+?%GHHHIJJih BABGHh`$  u Дs IJJ^__Lpveȱeȱe XE )s LvɁ >H>H= ȱI8gJJ hhge giu +-EL&) x ! |  .' "5 1 e p) eiIii i)L)` i 0 0 0 `Hhth`^Qb ^^ Dbb D`}i~ei^~0] e De^`}`566 Hɀjhji` HihJi(`  :q$LW ɺ b$P i pi$ȱL jɻƟ j 柰ީ Lihh sLg  s ! b   s "!!!" ؤ ؤ 䃥! 䃩 ؤ ؤ 䃥" 䃩 ؤ!Lfa8Lؤ@](IڢʥnH iHɁy {5 hɁ͠ Vt~w/z*|cYX ~uƀ1r ziP _| K|iɈ z }i8Huiiu Ax  {h z` {] z ]Lz {oȘ戅 ziȅ Uxdo`Abijyj00ڊIi i/ȄȪ)Qe.șQI)ЪQ0.ȩ+f.8f-QEQ/8 i:QQQQQQ`y`'d H| {ZuLx {z% }uH |h{ :|H yiLZxf d$h0Lfy ef q80fL}COt#t$X VmLKjk8 | D~LVm |-$nșQnȩ0iLq "~ ze~ | ~ | ze ze 5x |ei0 i8fe.șQ0șQmymlylkyk >yiLyn)FjjjLyiɠ |nnI*imLxjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef zf zf o0`L ` H$ge zh 80 }LU}H H|h y|zEn{ W|m5 |l5k5n %j5i5` W|m l)m _|m`znth` W|ht`i  Wy )y`i n*` h|jkjI*mlinLxFn`nEz0ʢiH Axnihoi8傐ILn|`7 z!L|iD8$n gxi` H|z{ {L{ zL{ W|8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvLV{@jjj)(L{LA]~jklmLx5665m5l5k5n j5i`d,]WXX566Рy UxΠy {y =>hgh<<;[a{gggegȱgehh L ,LA]  8` ҋ^b,\(eb cc`ebcA[8饰 a{8`8\e@@He? \@@?hbbb0 ea ȑbc8L @@h5h656H W|mHlHkHjHiHl5 8eeghh^__`6` we5566ɂ66` s , `  6Lseff 6.!'$ iߪ$ 0 H8eAi\h$ P8 (L0$ 0p ;<<ccb? @c@ube.a{b륐@ 6 2`  kH) +jhJJJJ +jL 0:i`LA] &HHHHHH s &hL5qhhh6h6h555_ȱ5VHHHH L/5H6H6HH 5^6_6_hhXhXhWLk Џ`556 @Lfyu  @u h Z`&m&l&k&j`L% 5xL}$0pL +xQLAi `u LxLni u Lxui0 ,,% п ۓlm0}5}} kk} kklm ێLΓ[ 80@8 !i tutt tj hn` t` ц0xQN0xQ 0xQ$n-xQwQxQ`i` np`5665i`$0BP?iH Zi hLzt h mlmkljkij8ihn`L!$0DpA - !nHi80 d^d]d8U]d5V^d665[d\d d d[d\d\dJi ]d\d_d[d d85壍]d[d6复^d\d d ) qUUHVH ȗU7WUV8XVV8 ȗWb7ȥXɂ逅c7 5ef fbe  7U8VLh88h7UVUO / +'L U)łiV VLܗ L> 8U 7ȱ7 UU ЯUVULU7V8 e L LO U qUU qUH85h688V77U U ꗠ5qUWȥ6qUX7qWWȥ8qWW ܗ٥IiV) V ܗLKU7V8)GGwL e00`zQ 0r)`rqqL $uyG-++ $n-G` kiekiiIif`ri8r` e0#zQ 0zQi)zQ`zQ` ؤA dc\# dc\ʐ ؤ 3lL ؤ ؤ ccc(c`ccG(sȢ8傅䂐$u 0 GL$uAG)EGȩ+$i-Gȥf8 i y L]H 0Gh 0GG5H6H6yLle w LGȥ GƁ8 LLii0$iti8ti Y8偅w恤wvwuJ-$n0+G0xQ`yiɀjjn*8miɝ d LՌ &q$uL$)JJ8偅8傪 m Lf$i0Ł!y0GLiL~䁰< 0$H ,GhGթ $u$n 0GЫ-Gv)' $G uJ-$n0+G $G0)G 瞥vphh` Ljk ,hh`Sj9-k LՌ9j ekekk|z)ekk |j[ ٚ  L`j 9kkj"j"kеAX"+-&$.ECR/#Z*! DBA0 k$JJJJ) ݙxQ՟j ؞Lݠ Ÿ,-uukv kv@vvyL-Lj ؞ ݠ ŸA80멀uukeqqtt$uA)*w{t L3 $uЫkЦuuj ؞ysLi,kl$uhuuj ؞ XkkNuuj ؞k 4%v. #  `u tAvʘtDթ ؞q(~th`pvquts~y fp$pp8j/;XAx=|8ez{{ قghh "o `L x  wwghhoؠKkqvj ݠL`$uZuukvN kGv@  vvyLL3TL%LxG %$p0`pog lkڥrok8o,koL\jAaCcoJ lko 5 lkk lLo L L{ HG56H6Lxh  (`|||}z,A[ :808Ш`,֞@`y Gy`LHq1$u;' L u pL󝥆L3l`|H}HzH{HHH ɶ# mhH s  :q ws,; Ls  :q$ $xrL цiLpnH D~hɀ8(*iQ.-:/ xQxQhhh{hzh}h| u p 0|8pJ ܚ J_mݚmݚJ_AgBhBh [^A_B_B` ^"( 6M &F566 w}z{6{Lʜ #z{{"} GLsLA] jHHH i j ٥z{{ Cj}hhh ;в| |膆  ,PH uhA?B@7B@87F8f7877878L?]7 8*JA5gB6B68 h圍h?H@H@HI?J@J@ '\h@h@h?gAhBhBJJ8 J圍J7ך8ؚBԚLz`ܚݚBٚܚ ݚL?]`Ib^JcJcmš pAЖǚɚÚ Ě8 DDFŚ ƚ8 DiFEC CD)˚Dm˚D̚CBȚLAޚ皍՚ښIȌ 8   8 JJ` !(Q)QP8 ei UŦL3TUU HHHHL 'hh ێLL iL 'hlhkhn jhimhHS8 Ls`L1CUDVDVU Lŧ 0 7U L|`L?] d E Lt p pdeqde8 )  sLřU` hh P LsL  6 (Lߘ[ Pީ  @Y%(&:$L3T Zs |iHn %jHkHlHK Zs * lHmH5 Zs ۇiH &HH楩e ) ,LsLG eՅ7Pi8U #   785U6VLÔU7e778ҥU^V_bcF_hcCgDhebbc [^__`U8傅UV` qUȱU` LA] qUUƜ0ƛ ȗWqeWȱWqei W` q8UUWȥVUX`UeUV` ܗcc ZdH )hLLz`  4^8fl)I)I Y ĩ`op >L2 uqL  4l)v }rHqhLێCLzkZd dZd od @qr` . 㥢 Lz` H 5 h8L  kLxvZd d vkZdk Ld s ʊ0  ekZd`LՌ HIJh*Zd) H dh[dL ъ) Zd)LjLW= ɀ6"2豼P : ,H jhWPiZdiP[dL :q $xWH hW 5PƝ洝 PJJJJL곭P鴰㴙)Qi死PpPoPn +xQeQPP ێ D~ȹQQ/Qʈ000QPP PP. PP( PP7 `st?9@'Qst5 (wx! (s8wtx (uuL4TYP= PRO= UNK P)P'Q(8Q)AQPP VCQP D~ȹQ DQuu`AM'Q TYPE BLKS NAME MODIFIED TIME CREATED TIME EOF sP)P)*+(QP)P5QP mPmPﴙ)Qi<P) 0:i% cqr  dqrqLױ ĩ`Lb򚮦Pxd gL@ \od 3 Zdk 3lkZd 'Q lLb@Lխ 3lLluvodmdsndttdwudx`F &QlQqru HH`3@3u+LՌeddd` `LzupHoHp  ױ N(hi]dhi^d dLTd qrL$op ĩ`[d\ds]dt^dkZd`Y LA]YLA]k\dd]d ^d`opqrst [d[d` d TdXMLz$0{Q{Q^dzQ]d5[d\d `pdzQpd8zQ` ZdH[dH s Zd\d[d]dh[dhZdLd,kd k\dd]d^dLd LdxQ=89zQ>:>:i{Q:{Qi{Q|Qi|QL`8(zQzQ(`dded  s q ml0` \ldL` 'ax[dQ\d^d]d :|Q|Q{Qi{QȐȰzQe9{Qe: J 2IHJh*=>> 95:6:6xQ L) )Lϫ`L?] d  `F dL]xQ, d TdLխ|Q7]d^d5[d\d 5m56m6 66 Lcccc LLzLbcQ L^H h'QQO s ɋ 0 fdcd ҰfdddgdedhdLLsfdgdhdc\dd]d^didjdLd d |]d^dx[dQ\d 95:6:6 \d[d d ) d <,8 p  :qi$ $x656$0 p W|n %jjF$0k0 liʽe`Lϧ, l)% `eLϧk` s  LՌʊ0 5 \`Zd ) \ld )ldL5qZdcɴcH )hLz 5v1 \ `kʈ,`HȘe`{ai|a|h j L8LQdʆ `! `Ȣ`  ੐ ĩ`$ L-u u`I Il8)id`  6 p &$ a `$% iLg֢   sLj$%`8f Y ` ; ` s ĩ` TLDLbopL> u0xH ҫ$0_ 6h8fH`aai shH2 ۇh uJJJJf k ĩ` Ǭ t os TL< LLϧ &WXX` ҫ$` 8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @  uA?B@B @=g>h>h \=i>j>k `=g8i>hj>h ki=5j>6k6> '\)@7ld0u(> ƬƫHH $hohp` ĩbd0P`ȹP`[d[d dL.xdN d d Td#X ldodF=xd7Ncd vLgx]dd^d_d d Td T L\dZd`Lzo`n}pm aa`dyopdɄ a`" lJJJJxd s ҰL0Ls LϫN g@u\dkod tld )llmdsndt mdndtldCndmdȌ\d]dZd[d d Td"ndmdȘ LLLz ɭbd^d m_d8 n bdvkZdlWW W` .Lx , s q  mqlr ױl)# Nu 0 d TdLLz ĩ``Lx ,Nku X ul)F ĩZdH`Zd[d dld cNld dNhHZd ɭhZdl)Nl $lEN)`L5q . 㥦 5 a ɃNWNBAD PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBkZdo $']dd^d[dP\d d TdL8`LLխPPP) 국PJnP 국PJJJJ 굩/)Q,Q`H D~hmPQ'Q(QQ(Q`0'Q`PP 굩:)QPL굆 ێ D~ Q'Q`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: Zs&\'\[jif`_`OZ84wA]zwwxTdʥێ7}g9fk@j<3210/.-*'%$`H 78 h LAb| Enter the BASIC program name: FILE NOT FOUND ERROR NOT BASIC PROGRAM UNABLE TO OPEN FILE PROGRAM TOO LARGE FILE NOT UPDATED  Done .CONSOLE56!STLUL\ L jLbL`8amQ   `mr r m`qA3/1.1N LENFIX  BASIC program and must be less than":"64K bytes in length."2 <lenfixFP"MENU.MAKER"1Z ADJUSTED A TAD BY DAVE OTTALINI, MARCH 1995 "LENFIX.INV":"76C";"LENFIX"::" This program and its Invokable Module is designed to allow BASIC programs":"created with Apple Business BASIC v1.3 (or later) to be usable with earlier"l("versions of BASIC. The program must be aHER 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: FLASh Hh`LՌ)i   HH `TH..TH..TH..THATS ALL, FOLKS!BUSINESS BASIC 1.3 - THE LONG-LOST VERSION c=e)*f):d=e)*g)Fe=0grafixonPe=1:f=279:g=191Za=a+c-a):b=b+d-b)dpencolor(%1)*16)nmoveto(%c,%d)xlineto(%a,%b)moveto(%f-c,%d)lineto(%f-a,%b)moveto(%c,%g-d)lineto(%a,%g-b)moveto(%f-c,%g-d)lin ****************************** œ"bgraf.inv"initgrafix:grafixmode(%1,%1) fillport #1000 (grafixon)moveto(%0,%0)*lineto(%279,%0)+lineto(%279,%191),lineto(%0,%191)-lineto(%0,%0)2a=e)*f):b=e)*g)<$ * Random Designs *$ * by Somvang Hansana *$ * -------------------------- *$ * Handsome shapes which look *$ * best on a color monitor. *$ * Copyright (c) 1986 by *$ * ON THREE *$%=1maxloops%angle%=03602pc%=16*1):pencolor(%pc%)moveto(%a,%b)-x%=99*angle%))+a:y%=90*angle%))+blineto(%x%,%y%) angle% loopnum% ::FILLPORT:GRAFIXON:100"LRELEASE:::".D1/MENU.MAKER"< WHEEL MODULE 12/25/92 DGO  œ"BGRAF.INV"initgrafix:initgrafix:grafixmode(%1,%1) (grafixon-fillcolor(%0) 2fillportda=140:b=100:z=0 n1100!xmaxloops%=z:z=z+1:z>31000loopnum.'6,19c3,1bc1,1bc0,03e0,01e0,00e0,01c0,03c0,0fc0,0cc0,0cc0,00e0x 0060,00f0,00f0,00f0,0060,00e0,01f0,01f0,01f0,01f0,01f8,00fc,00f6,00f2,00f0,00f8,00c8,00cc,00cc,00ce,00c6,00c6,00e7"bgraf.inv"'a=1670-26#'moveto(%0,%a):lineto(%279,%a)$'a,%23)yy=yy-26:yy=9yy=191"220:".D1/MENU.MAKER" 500x 0180,03c0,03c0,03c0,0180,0380,07c0,0fc0,1fe0,1fe0,0ff0,07b0,07d8,07cc,07c4,06c0,06c0,0ec0,1cc0,38c0,70c0,30c0,10e0x 00c0,01e0,01e0,01e0,00c0,01c0,07e0,0ff0,1ff8,1bcc,1bcTHE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. eto(%f-a,%g-b)(c-a)/2+e)50d-b+e)5090:::".D1/MENU.MAKER" 1000Portion of Source Code B3MAINC : Portion of Source Code INVOKE : Portion of Source Code B3PRU1 : Portion of Source Code CATALOG : Portion of Source Code Dave Ottalini June, 1995 5 R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"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::" kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kLGA3/1.01/LINr GRAFIXMO EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320)``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @```=+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN GPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTAT #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G\x{~'+.149?CGIKMOQSUWY[]**`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~ ϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` *j8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ! LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>J  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0)njnjnjfjfjfj+mӥmԐ8L( Ӣ ,$0F y բӅLx  mӥmԐL] h `  )`%)eڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ)L y L 0yʽz0 y L7  Lh `*f*&*)` ` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍ V ТΕLϦI ] +)J* g I V 8fxL@ ] I)!) g 80 J8}YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC _acegikmoqsuwy{}%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QTS CMP #'.' BEQ CKRTS CKRT1 CLC CKRTS RTS ; FNDLIN searches the program text for the line whose number is passed ; in LINNUM. There are only two possible returns: ; 1) Carry Set. ; LOWTR points to the link byte in the line that was searched for. IS LDA #0 STA TXTPTRB LDA #BUF-1 STA TXTPTR INY RTS GNPR2 JMP NPR2 CKSEP: JSR ISLETC ;IS IT A LETTER IN BETWEEN BCS CKRTS CMP #'9'+1 ;IF NOT A DIGIT OR A SPECIAL, ITS A SEPERATOR. BCS CKRT1 CMP #'0' ;A DIGIT? BCS CKREND OF THE LIST? BNE GNPR2 ;NO, KEEP GOING LDX TEMP ;MAKE SURE TO GET THE RIGHT CHAR LDA BUF,X ;YES, STUFF THIS CHARACTER AND #$7F JMP STUFIT * LINE IS FINISHED CRUNCHING CRNCHED LDY BUFPTR STA BUF-3,Y STA BUF-2,Y ;I DON'T KNOW WHY, BUT IT NEEDS TH) ADC FAC STA FAC BCC *+4 INC FAC+1 ;NEVER CROSSES BANK BOUNDARY. LDY #0 LDX COUNT INX ;ADVANCE TOKEN COUNT CPX #SCRATK+1 ;PAST THE STATEMENTS? BNE FND2 LDX #$FF ;SET ESCAPE MODE STX COUNT+1 LDX #$80 FND2 STX COUNT LDA (FAC),Y ;ARE WE AT THE STY BUFPTR ;SAVE BACK INX JMP GCLOOP * THIS WORD DIDN'T MATCH. TRY THE NEXT ONE NOMTCH DEY BEQ FNDNXT DEY FNDNXT INY ;FIND THE NEXT RESERVED WORD LDA (FAC),Y BPL FNDNXT ;WORD ENDS ON A NEGATIVE CHARACTER SEC TYA ;ADD LENGTH OF THIS WORD TO (FACUT LINE STA ENDCHR ;THIS IS WHAT THE UN-CRUNCHED AREA MAY END ON LDY BUFPTR ;GET WHERE TO STUFF CHARS DEY DOQ2 INY INX LDA BUF,X STA BUF-3,Y ;MOVE CHAR STY BUFPTR BEQ CRNCHED ;END OF THE LINE CMP ENDCHR ;END CHAR REACHED? BNE DOQ2 ;NO, LOOP INY 7 ON- DONT CRUNCH UNTIL A : ROR DORES ;SET BIT 7 OF DORES SEC ROR DORES ;DORES: BIT 6 OFF-- DON'T CRUNCH UNTIL A COMMA, ELSE UNTIL ':' GCLOOP JMP CLOOP REMIT LDA #0 ;A 'REM' ENDS AT THE END OF THE LINE ONLY DOQUOT DEX ;START WITH CORRECT CHAR FROM INP ITDIR CMP #OPENTK ;OPEN DOES IT BACKWARDS. BNE ITDIR1 ROR INTFLG ;SET HIGH BIT BMI GCLOOP ;ALWAYS ITDIR1 CMP #INVOKTK BEQ ITDIR15 CMP #LDTKN BCC GCLOOP CMP #RENMTK ;IS IT RENAME? BNE ITDIR2 ;NO ITDIR15 SEC DFB 44 ITDIR2 CMP #DSKCOMS+1 ;DORES: BITREMTK? BEQ REMIT ;IF SO, REM-ARKABLE CMP #DATATK BEQ ITDIR15 CMP #$22 BEQ DOQUOT CMP #IMAGETK+2 BCS GCLOOP LDY LOWTR+1 ;ARE WE IN IMMEDIATE MODE? INY BEQ ITDIR ;YES, DON'T CRUNCH CMP #DSKCOMS+1 ;IF IN DEFERRED MODE... BCC GCLOOP ;CRUNCH NORMAL;ESCAPE TOKEN? BNE NESC ; THERE IS NO ESCAPE!!!!!! LDA COUNT ;IF SO, STUFF BOTH BYTES STA BUF-3,Y INY LDA #0 ;DON'T WANT TO MATCH REMTK OR STUFF NESC STY BUFPTR ;SAVE BACK THE POINTER NXCHR INX ;GET NEXT CHAR IN THE LINE CMP #REMTK ;DID WE STUFF A DEX ;DON'T GO BEYOND RESERVED WORD IN PROGRAM LDA COUNT+1 ;IS IT AN ESCAPE TOKEN? BMI STUFIT ;YES, STUFF THE $FF LDA COUNT ;NO, JUST STUFF A NORMAL TOKEN STUFIT LDY BUFPTR ;GET INDEX WHERE TO PUT THIS BYTE STA BUF-3,Y INY ;ADVANCE POINTER CMP #$FF iBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad# A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itVYcjuy~':{(Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( ; 2) Carry Clear. ; Line not found. LOWTR points to the first line in the program with ; a line number greater than the one sought after. FNDLIN: LDA TXTTAB LDX TXTTAB+1 ;LOAD X,A WITH TXTTAB LDY TXTTABB ;Y WITH BANK #. FNDLNC0 STY LOWTRB FNDLNC1 STX LOWTR+1 FNDLNC STA LOWTR LDY #0 ;POINT TO LINK. LDA (LOWTR),Y ;SEE IF LINK IS 0 BEQ FLINRT LDY #2 TAX LDA LINNUM+1 ;COMP HIGH ORDERS OF LINE NUMBERS. CMP (LOWTR),Y BCC FLNRTS ;NO SUCH LINE NUMBER. BNE AFFRTS ;CHECK NEXT LINE. LDA LINNUMe pointers INVTAB and PROCTAB. * OFFSST EQU FORPNT PROCPNT EQU INPPTR SWPPNT EQU LOWDS TEMPTR EQU HEADER POINT1 EQU INDEX1 POINT1B EQU POINT1+SYSPAG POINT2 EQU INDEX2 POINT2B EQU POINT2+SYSPAG PROCPNTB EQU PROCPNT+SYSPAG OFFSSTB EQU OFFSST+SYSPAG SWPPNTB SBTL "INVOKE * * INVOKE, PERFORM, EXFN * * INVOKE is responsible for LOADing, Relocating, and Linking the * Pascal Assembler created Object files. Upon calling DOINVO, * it is assumed that there exists free memory (all in one bank), * between th ERRORS SO FAR. RTS C STA TXTPTR+1 ;SETUP TEXT POINTER. TYA SBC #0 STA TXTPTRB LDY #0 TYA STA (TXTPTR),Y ;STUFF A ZERO AT BEGINNING OF PROGRAM. CLEARONS JSR OFFKBD LDY #EOFSIZ LDA #0 STA KEYSTROK CLEOFS: STA EOFPTRS-1,Y DEY BNE CLEOFS STY ERRFLG STY ERRPOSB ;NONT PAST EOL ENTRY. LDA #0 STA VRBSTK+1 ;PUT EOL PRECIDENCE ON THE STACK; STA NOUNPT ;FORMULA EVALUATOR STACK NOW RESET. STA SUBFLG ;ALLOW SUBSCRIPTS. STKRTS: RTS STXTPT: SEC LDA TXTTAB SBC #1 STA TXTPTR LDA TXTTAB+1 SBC #0 LDY TXTTABB JSR FIXSB the bottom of the stack so there ; be a non-FOR entry at the bottom STKINI PLA ;SETUP RETURN ADDRESS. TAY PLA LDX #STKEND ;HAVE STACK POINT TO RETURN ADDRESS. STX REMSTK TXS PHA TYA PHA LDA #2 STA VRBPT ;INITIALIZE VERB POINTER TO POITORE DATA. ; ; Procedure: STKINI ; Function: Resets the stack pointer ; On Exit: GOSUB and FOR entries eliminated ; String temporaries are freed up ; SUBFLG is reset ; CONTinuing is Prohibited ; A dummy entry is left atTREND STY STREND+1 ;ARRAYS. STX STRENDB LDA #0 STA KEYSAVE ;ZERO OUT KBD VARIABLE. STA ERRNUM ;ZERO OUT ERR VARIABLE. STA ERRLIN ;ZERO OUT ERRLIN VARIABLE. STA ERRLIN+1 STA EOFSV FLOAD: LDA #0 ;GET ALL AVAIL MEM BACK JSR EXPAND JSR RESTOR ;RESS THE STACK. CLEARC: JSR CLSALL CLEARL LDA MEMSIZ LDX MEMSIZB LDY MEMSIZ+1 ;FREE UP STRING SPACE. STA FRETOP STY FRETOP+1 STX FRETOPB LDA ARYTAB LDY ARYTAB+1 ;LIBERATE THE LDX ARYTABB STA VARTAB STY VARTAB+1 ;VARIABLES AND STX VARTABB STA SE CLEAR COMMAND. CLEAR: BNE STKRTS ;SYNTAX ERROR IF NO TERMINATOR. ; CLEARC IS SUBROUTINE WHICH INITIALIZES THE VARIABLE AND ; ARRAY SPACE BY RESETING ARYTAB (END OF SIMPLE VARIABLE) ; AND STREND (END OF ARRAY STORAGE). IT FALLS INTO ; 'STKINI' WHICH RESETFLNRTS ;MAKE SURE THERE IS A TERMINATOR. SCRTCH: JSR CLSALL ;CLOSE FILES BEFORE CLEARING FCB (P1INIT). JSR P1INIT ;AND CLEAN UP EVERYTHING RUNC: JSR STXTPT LDA #0 ;SET ZERO FLAG STA CURLIN+1 ;SO DOESN'T THINK IN IMMEDIATE MODE ; THIS CODE IS FOR THNC1 PHA TXA SBC #MAXPG-MINPG TAX PLA INC LOWTRB BNE FNDLNC1 ;ALWAYS BCS FNDLNC ;ALWAYS BRANCHES. FLINRT: CLC ;C MAY BE HIGH. FLNRTS: RTS ;RETURN TO CALLER. ; ; The NEW command clears the program text as well as variable space. SCRATH: BNE DEY CMP (LOWTR),Y ;COMPARE LOW ORDERS. BCC FLNRTS ;NO SUCH NUMBER. BEQ FLNRTS ;RETURN WITH CARRY SET. AFFRTS: TXA CLC ADC LOWTR ;COMPUTE NEXT RELATIVE LINE POSITION BCC FNDLNC ;BRANCH IF DONE LDX LOWTR+1 ;INC LOWTR+1 INX CPX #MAXPG BCC FNDLEQU SWPPNT+SYSPAG * Equates are done this way so that conflicts can be resolved * by just changing an Equate. INERROM JMP OMERR DOINVO EQU * ;FREE MEMORY NOW FROM LDA #0 ;INVTAB TO PROCTAB. STA HEADERB STA SWPPNTB LDA INVTAB ;INVPNT INITIALLY SET TO #$6 ;EXTERNAL DEFINITION? BEQ DOPA11 CMP #$2 ;EXTERNAL REFERENCES? BEQ DOPA12 JMP INVERROR ;ONLY THOSE THINGS LEAGAL. DOPA13 LDY #12 LDA (PROCPNT),Y ;FIND # OF REFERENCES. STA TEMP AND #$F8 ;COMPUTE # OF 8 WORD BLOCKS USED. CMP TEMP BEQ *+8 ;REALEAR 256. PLA STA POINT2 LDA INVPNT STA PROCPNT ;POINTER TO LINKER INFO. LDA INVPNT+1 STA PROCPNT+1 LDY #8 LDA (PROCPNT),Y ;GET THE TYPE OF ENTRY. DOPAS1 BEQ DOPAS2 ;END OF TABLE. CMP #$B ;PROCEDURE? BEQ DOPA11 CMP #$C ;FUNCTION? BEQ DOPA11 CMPNT2 STA PROCPNT LDA POINT2+1 STA PROCPNT+1 ;MOVE ON TO NEXT PROCEDURE. JMP DOAPROC DOLIB EQU * ;LINKER INFO NOW STARTS AT INVPNT. PLA ;GET BACK OLD PROCPNT. STA POINT2+1 ;POINTER TO TABLE OF ADDRESSES. DEC POINT2+1 ;SO (POINT2),Y WILL WORK WITH Y NMAKES LINE AT DOARE2 SAME AS "ADC HIGHTR" STA SWPPNT+1 ;FOR PROCEDURE RELATIVE RELOCATION! LDA #>HIGHTR STA SWPPNT JSR DOAREL JSR MAKESUR0 ;NO INTERPRETER RELATIVE. DEC KIMY ;DONE WITH ONE PROCEDURE. BEQ DOLIB ;DONE WITH REGULAR RELOCATION. LDA POI SBC #$80 STA HIGHTR+1 STA (POINT2),Y JSR MAKESUR0 ;NEXT WORD MUST BE ZERO. LDA #>POINT1 ;SEGMENT POINTER STA SWPPNT ;THIS MAKES LINE AT DOARE2 SAME AS "ADC POINT1". LDA #INVPNT STA SBFPTR LDA POINT1+1 SBC INVPNT+1 STA INBYTES+1 LDA #POINT1 STA SBFPTR LDA #INVPNT ;READ IN JUST ONE BLOCK. STA SBFPTR ;STARTING LOCATION FOR READ. LDA #EVALRET BNE PERFERR LDA NAMPNT SEC SBC #8 STA NAMPNT JSR CHRGOT ;END OF EXPRESSION? BEQ *+5 ;IF NOT, THEN BACK UP TXTPTR ONE. JMP DECTPT ;BACK UP THE TXTPTR, TO CONTINUE EXPRESSION. RTS PERFERR PLA JSR GIVAYF ;SLAP VALUE INTO FAC. JMP RESTNAM PERFEX1 EQU * LDA #$C STA PROCFLG LDA NAMPNT CLC ADC #8 JMP PERFEXF EXFN EQU * JSR PERFEX1 PLA ;PULL OF RESULT. STA FACMO PLA STA FACMOH PLA STA FACSGN ORA #$80 STA FACHO PLA STA FACEXP BNE *+6 ;NO, SKIP TO DO IT PHA ;OTHERWISE PUSH 4 DUMMY PHA ;BYTES TO ALLOW ROOM FOR PHA ;THE RETURNED VALUE PHA JMP JUMPDO ;Go call the Mach. lang. routine EXFNS EQU * ;EXFN%. code starts here JSR PERFEX1 PLA TAY ;GET RETURNED VALUE. CMP NPARAMS BEQ PTMOK ;Parameter types OK JMP TMERR ;Otherwise, TYPE MISMATCH ERROR PTMOK DEY LDA (PROCPNT),Y STA JMPER+2 ;ADDRESS OF ENTRY. DEY LDA (PROCPNT),Y STA JMPER+1 LDA PROCFLG ;GET TYPE OF ROUTINE CMP #$C ;IS IT AN EXFN. (OR EXFN%.)? JMP PERFE4 PERFE6 JSR CHRGET PERFE5 LDA #>NAMBUF ;POINTER TO PROCEDURE NAME. CLC ADC NAMPNT STA POINT2 LDA # STRING LENGTH SEC SBC SAVLEN ; ??? BEQ UEXACT ;JUST FITS SEND IT BCS USFITS ;YES LDX REP ;GET ;RETURN SPEC OR NONE! ULITOUT BVS UDOXIT ;STRING SPEC ; LOWTR POINTS TO LITERAL ; REP IS NUMBER OF TIMES TO SEND * UREPEAT LDY #0 LDX SAVLEN ;GET LIT LENGTH UOUTLP LDA (LOWTR),Y JSR OUTDO INY DEX BNE UOUTLP ;DO NEXT ONE DEC REP ;ANOTHER TIME? BNE EDITING STY NMASK ; NO DIGITS DEY ;Y=FF STY DPTNDX ;NO DPT STY TENZNDX ; NO 10**0 DIGIT STY MSKNDX ;INIT AT FF JSR UGETDL ; GET NEXT REP & DELIM BPL UNUMTYP ;GO DO NUM TYPES STA SPECTYP ;SET TYPE BIT SPECTYP ;LIT/STR ? BVS UCHEKCM ;ALL DONE IF STRING! LDA DELIM CMP #'/' ; CR OUT? BEQ UCRLIT CMP #'X' ; SPACE OUT? BEQ USPLIT CMP #'X'+$20 BEQ USPLIT LDA SPCNDX SEC ;PLUS 1 ADC SPCPTR LDY SPCPTR+1 LDX SPCPTRB BCC *+6 INY JSR FIXYX STA LOWTR STY LOWTR+1 STX LOWTRB LDX #0-1 UQSCAN R ;ALL OTHER BAD LDA #$B0 ;ALLOW FLOAT SIGNS UENOFLT AND FLTMSK BNE USTERR ;BAD COMBO!! JSR UCHEKCM ;ENDED NOW? JSR UDIGEND ;YES, ANY DIGITS? ; DIGEND DOESN'T RETURN UENDERR JSR IGOTCH ;GET LAST CHR BEQ USTERR BNE UNXTGET ;DO NEXT ONE UCKDEND JSR IGO BEQ UEEE INY CPY REP BNE USTERR ;OTHERS ARE SYNTAX UEEE ORA EMASK STA EMASK LDA DELIM UEEELP JSR UATOMSK DEC REP ;COUNT DOWN BNE UEEELP ;DO IT Y TIMES LDA #$F0 ;NO FLOATS LDX DIGB4DPT BEQ UENOFLT DEX BEQ UENOFLT CPX #2 ;SIZE =3? BNE USTER BEQ UCKEXP ;NOT SIGN DEY ;Y=1 CPY REP BNE USTERR ;SYNTAX BIT EMASK ;SIGN BEFORE? BNE USTERR ;TWO IS NO NO ORA EMASK STA EMASK LDA DELIM ;GET SIGN JSR UATOMSK JSR UCKDEND UCKEXP CMP #$08 ;EEEE ? BNE USTERR ;NAUGHTY NAUGHTY! INY ;Y=3 CPY REP TAIL SIGN? BIT EMASK ;DPT BEFORE? BNE UNSERR ;YES, TWO IS NO NO DEY ;Y=1! CPY REP BNE UNSERR ;N. IS ALSO ORA EMASK STA EMASK ;SET DPT FOUND LDA DELIM JSR UATOMSK LDA MSKNDX STA DPTNDX JMP UXMORE ;YES IF RETURNED USGNCK BIT UDOLLR ;SIGN AGAIN?LDA FILLTABL-ZTYP,X USETCMA ORA CMATBL-ZTYP,X ; ADD FILLER STA CMAFILL ;SET THEM ALL UXNMASK STX NMASK ;SET DIGIT CLASS UXMORE JSR UCKDEND ;ANY MORE ? JMP UTRYDIG ;YES IF HERE UBLDMK JSR UDOMASK ;PUT DIGITS IN MASK CMP #$04 ;THE DPT? (.) BNE USGNCK ;NO;NO, EQ OR GT LDX NMASK ;GET HIGHER CLASS LDA #$04 ;TEST BIT FOR DPT BIT EMASK ;DPT BEFORE? BEQ UB4DPT ;NO SET FILL LDX #ZTYP ;Z ONLY AFTER DPT BNE UXNMASK ; AND SET CLASS UB4DPT LDA CMAFILL ;FILLING WITH ASTERISKS? AND #$7F CMP #'*' BEQ USETCMA ;NOT DIGIT ! TAX ;TYPE TO X BMI UNSERR ;NO MIX ADEE APPLS N' ORANGES LDA #$80 ORA EMASK ;REMEMBER THEM STA EMASK ;FOR SYNTAX CK LDA REP ;GET REP CLC ADC DIGCTR ;ADD IN DIGITS FROM STA DIGCTR ;DIGIT LISTS CPX NMASK ;LOWER CLASS DIGIT? BCS *+4 FLTMSK INC MSKNDX ;RESERVE SPC JMP UXSIN ;ALL DONE UNSERR JMP USNERR ;SYNTAX IT USETSIN LDA DELIM ; GET SIGN JSR UATOMSK ; PUT +/- INTO MASK UXSIN JSR UENDERR ; ERR IF ENDED! UTRYDL2 JSR UDOLAR ;TRY $ AGAIN UTRYDIG CMP #ZTYP ;DIG R 41,42 44 BCC UBLDMKN? BEQ UTRYDL2 ;NO ORA EMASK STA EMASK ; SET SIGN BITS CPY REP ;TWO SIGNS BNE UCK1SIN ;NO LDA FLTMSK BNE UNSERR ;MA BUDDY AGAIN BEQ UFLTSIN UCK1SIN DEY ;Y=1 CPY REP ;1 SIGN ? BNE UNSERR LDA FLTMSK BEQ USETSIN UFLTSIN LDA #$40 ORA FLTMSK STA+/-- ? LDA #$20 BCC *+4 ;NOT $ AFTER SIGN ASL A ASL A ; CREATE $80 ORA FLTMSK STA FLTMSK INC MSKNDX ;RESERVE SPC JMP UXDLR USTDLR LDA DELIM ; $ TO MASK,MASKNDX JSR UATOMSK UXDLR JMP UENDERR ;NEXT DELIM UDOLLR JSR UDOLAR ;$ BIT UDOLLR ;EITHER SIG+3 RTS BIT EMASK BNE UNSERR ORA EMASK STA EMASK ;SET $ BIT ON CPY REP ;REP =2 BNE UCK1DL LDA FLTMSK BNE UNSERR ;MA SN BUDDY BEQ UDLFLT ;FLOAT NOW UCK1DL DEY CPY REP BNE UNSERR ;ERROR LDA FLTMSK ;** PREV? BEQ USTDLR ;NO UDLFLT CMP #$40 ;PREV + CMP #$02 ; IS IT * ? BNE UDOLLR CPY REP ;** OR 2*? BNE UNSERR ;BAD STUFF LDA #$10 ; ** BIT ON STA FLTMSK ;SAY FLOATING LDA DELIM ; GET AN * STA CMAFILL ;* FILLER JSR UENDERR ;EXIT IF END ELSE GETDL JMP UDOLLR UDOLAR CMP #$10 ;$ OR $$ ? BEQ *UCRLIT LDA #$0A ;A LF. STA LITRLCH+1 LDY #2 LDA #$0D ;A CR!! BNE *+6 USPLIT LDA #' ' ;A SPACE LDY #1 STA LITRLCH LDX #=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN, simply press the OPEN APPLE Key + the letter "B". Any keypress will take you back to Menu.Maker. Here's what you'll find on Side One: LENFIX : Adjusts older versions of BB to work with 1.3 LENFIX.INV ON SIDE TWO: B3INVOK : so you can see what they looked like. They are all text files. ALSO on this disk, we've included (On Side One only) a new update to Menu.Maker - v. 6.5 - that now includes the ability to call up some screen blankers when you wish. From the MM Menuchhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀