8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭 Ӹ!-READ.ME.FIRSTbO;-NEWS.VIEWS.85("Ӹ!.MENU.MAKER.6.17$Ӹ! 'MM.TEXTӸ!!*SEG.G.TEXT Ӹ!*SEG.T.TEXT Ӹ!)PRINT.ALL L SEG.F.TEXT4Z*MENU.MAKER (-TRAIL.SPECIAL&)DISKNAME.DAT%Ӹ!*FLASHNAME.DATJӸ!++SIG.HOTLINEӸ!/COMPUSERVE.TALK YӸ!0III.BSB.02!Ӹ ' *SOS.INTERP 4keӸ !! %SEG.T <jӸ !.*SOS.KERNEL @,VӸ !!aHELLO kӸ !/ *HELLO.TEXTmӸ !O;*SOS.DRIVER p? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8Rŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠ  !"#$%&'()*+,-./0123456789:$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[ji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89:: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs AL<^ȱ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ֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | 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 feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$oȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  +|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɥ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 hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788vvyLj L ʟ,-uukv kv@vvyL5Lj ʟA80멀uukeqqtt$uA)*t L; $uЫkЦuuj ysLq,kl$uhuuj XkkNuuj k 4%v. #  1$u tAvʘtDթ q(~th`pvquts~y fp$pp8j/;XAx=|8ez{{ ghh "o `L x  wwghhoؠKkqvj L`$uZuukvN kGv@  pJ LUL-LG -$p0`pog $mkڥrok8o,koLdjAaCcoJ mko 5 $mkk mLw L L HG56H6LExh  (`|||}z,A[ :808Ш`,ޞ@`y Gy`LHq,;' L Pu  pLLwl`|H}HzH{HHH ɶ# xhH s  ~q s,; Ls  ~q$ hxrL iLpnH ~hɀ8(*iR.-:/ RRhhh{hzh}h| Pu p 0|8cJcm J_mm嚍J_AgBhBh \^A_B_B` ^"( zM jF566 x}z{6{LҜ #z{{"} GLsL<^ jHHH i dj ٥z{{ j}hhh ;в| |膆  RRRRH uhA?B@7B@87F8f7877878L:^7 8*JA5gB6B68 悅h圍h?H@H@HI?J@J@ "]h@h@h?gAhBhBJJ8 悅J圍J7ߚ8BܚLs`䚌B L:^`Ib^J sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` !7Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1 V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z`u vphh` Ljk ,hh`Sj9-k L9j ekekk|z)ekk |j[ ٢  L`j 9kkj"j"kеAX"+-&$.ECR/#Z*! DBA0 k$JJJJ) ݙRթR`yiɀjjn*8miɝ d L .q$uL$)JJ8偅8傪 u Tf$i0Ł!y0GLqL~䁰< 0$H ,GhGթ $u$n 0GЫ-Gv)' $G uJ-$n0+G $G0)R?eR>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;eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n";=>79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"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::"h`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh H PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?e,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i ?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghij0 `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` @SATRSOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|able disk space as well. We've included some special articles and FOTO files too just for fun. We hope you enjoy it! ** FLASH: NOW UPDATED TO V. 6.1 WITH THANKS TO C.M. DAVIDSON ** ut together especially for our first meeting of 1992 (April 18). We're proud to announce the new 6.0 version of Menu.Maker! You'll find that MM is now a modular design that gives us much greater flexibily in developing disks and saves valuln0 WELCOME! WAP /// SIG Public Domain Library Disk Category/Number :Business Basic/3BSB.02 Disk Format: Self-booting This /// SIG PD disk was p /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030HER 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: FLAS  )* 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ʆSTL8HSITQQSTGA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< oqrstuvwxyz{|}~ґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰BTVSPLH   5"ʘ HH` (# (=  0`)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 ,<,<.>.>/?/?d0hp00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xr #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L Lwww """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwww     ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x ?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  KORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BG̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')L: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐ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é/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/epɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥe륅eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I`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莟mwwJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}0 =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 disks7FA=324000: back out one directory level -IA=(81+UCA)A=(IC 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:160 +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$="BAS6,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=1:CT>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),1OLUME 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$(/ WAP /// SIG MENU.MAKER PROGRAM (v. 6.1) =".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 V April 18, 1992    ) . 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 ~ 81+LCA):::: RebootN=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=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:=+IBOTM/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 Ӗž#2390 ^1000c: h#2;a$ma$rY=1150:Y0wB=B+1: Count the number of lines printed xB=15B=30355yB=60#3;12)zB=60B=1 {#3;a$|360B<=20#3;13)::410#3;12):Z=11000:ZI I=3d: PRINTER V. 1.0 ::=2::"PRINT.ALL v. 1.0":3=4:"Directory Name(s) or return to quit: ";n$N$)=0::"MENU.MAKER"430 X>0260I=11000:I:200: ,I=1X 14000 6#2,F$(I)@#3,".PRINTER" JELSE s=s-1 5050 GOTO 5030 5060 PREFIX$=a$ 5070 GOTO 240 5080 END 5090 REM MENU.MAKER 6.10 5100 Thanks to C.M.Davidson for his help! lp! 12) 4400 FOR X=1 TO 200:NEXT X 4500 CT=CT-1:IF CT<1 THEN GOTO 240 5000 l=LEN(PREFIX$)::REM Routine to back up one directory level. 5010 a$=LEFT$(PREFIX$,l-1) 5020 s=LEN(a$) 5030 a$=LEFT$(a$,s-1) 5040 IF RIGHT$(a$,1)="/" THEN GOTO 5060:TEXT:CLEAR:GOTO 210 3000 a$="{,|,~,}; selects; back 1 level; selects; back 1 level; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE N,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=21 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES "JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$=B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(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+1I>X200300S=1:D=1:B=1570D$=""500 Y=X:S=ED$(D)=D$:640 X=Y440D=D+1:S=E:440D=D-1:X=0F$(X):X=0 J=1D D$=D$(J)790&J0 :œ6303DE=S+1:N$,S,1)=" "N$,S,1)=","S=S+1:580%Nf printing and (if you have one) limited single color printing capabilities. You can change to another disk prefix, exit to basic or reboot quickly and easily. BY THE MODULES First of all, when you CATALOG your disk, you'll notice that the Menu.Mresents a better, more professional look when reading text files. It gives you a better on-screen idea of what's happening and attempts to have a friendlier face while doing its chores. The graphics module is expanded and provides support for two styles oho still struggles with programming.The program has been designed to make it easier to use on a hard disk. And it comes in a modular form with segments now named using the familier 3EZ Pieces/Appleworks file format. The 6.1 version of Menu.Maker p subdirectory. You can still change disks or return to the root directory, go to Basic or quit completely as you desire. The Program: As with any Business Basic program, it has its limitations, not the least of which is a /// SIG Co-Chairman wrade The 6.1 version adds an additional major feature to the program: With help from our Canadian friend C.M. Davidson, it's now possible to back out of any subdirectory (CAT file). To do this, you simply press the bar while you are in a Basic Menu program that allows users to easily work their way through many of our Public Domain disks. With it, users can read ASCII text files on screen, print them if desired, load and print graphics or change fonts depending on the program. 6.1 Upg WAP /// SIG PUBLIC DOMAIN LIBRARY 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 3BSB-02:MENU.MAKER 6.1 Menu.Maker is the /// SIG's 2010C$="N"C$="n"200;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": 20002,280,21 DF$(I)=D$+"/DISKNAME.DAT"F$(I)=D$+"/FLASHNAME.DAT"410:ۺ310 PRINTER v 1.0 p$ 900A$="PRINTING"+F$(I):$=01:=0::"80C";A$;::12)F=23:=0::"79C";"PRESS ANY KEY TO HALT PRINTING"::2,280,21 2000*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"#1,D$::"Processing directory ";34);D$;34);", please wait."; ž#1880*#1;A$:A$)<48104A$,3,4)<>"TEXT"810>X=X+1:".";HE=15:F$=A$,16,15)RF$,E,1)=" "E=E-1:850\F$(X)=D$+"/"+F$,E)f810p:  Pausež#1740#1;A$:A$)<4710A$,3,4)="TEXT"X=X+1710 :X>YN=P::7);"There are no text files in the ";34);D$;34);" directory." ::I=P::7);"Unable to locate and open ";34);D$;34);" directory." ::IT$=N$,E,1):T$=" "T$=","610XE=E+1:E>N$)610:590bD$=N$,S,E-S)l:v:E>S+1600:D$="": œ770P=3:"Looking for ";34);D$;34);" directory." #1,D$=P3:"Reading from ";34);D$;34);" directory." aker file itself is much smaller now. That's because the Text, Graphics and Font sections of the program have been pulled out and are now separate files called SEG.T, SEG.G and SEG.F respectively. They are NOT stand-alone programs. On disks that don't have fotofiles, we WON'T include the SEG.G file or associated SCR.PRT.INV or BGRAF.INV files. That way, we save space and can include more information. SEG.T will remain on at least one side of all new PD offerings, since we usually always include, whether you want it boxed or not and (if you have a color printer using an Epson emulation mode) what color it should be printed in. You may choose to have the FOTOfile printed centered or to the left. If you say yes to "Should it be rotated?"e on disk is in NORMAL mode. If you decide to print it, use the See and Print Inversed selection. By selecting choices 2 or 3 to print the graphic, you will be given additional choices to make. These have to do with the way the graphic is printedt of your eyes. Or, if you do it afterwards, the FOTOfile will be inversed and then be presented all at once. The only problem? It IS slow. By the way, if you choose to Look at a FOTOfile and it is INVERSED on screen, that means the original filns the XFROPTION procedure will INVERSE INVERT the file in combination with PERFORM FILLPORT. IF you PERFORM Grafixson (that is, turn on the screen to see the graphic) before these procedures, the FOTOfile will magically INVERSE from top to bottom in fron The answer to INVERSING a FOTOfile turned out to be fairly easy once I played about with the procedure. Basically, all you have to do is : ) PERFORM XFROPTION (%6) ) PERFORM FILLPORT after you have loaded the FOTOfile (PERFORM GLOAD.x). The (%6) mean NORMAL mode. I found the answer using an advanced procedure offered by the BGRAF.INV graphics invokable called XFROPTION. Designed for use with black and white graphics, XFROPTION specifies what happens when one color is plotted over another. at they would be printed properly with the SCR.PRT.INV invokable module. But the FOTO doesn't always look that great on screen in INVERSE mode. So, I searched for a way to INVERSE the FOTOfiles as presented on screen. That way they would appear iTO. In Normal mode, the background is clear and the FOTO is properly outlined. Since I've been doing a lot of "Floppy Coloring Books" of late with graphics that are scanned using a Quickie Scanner, I wanted the pictures to be in INVERSE mode so thhe SCR.PRT.INV screen print module, I discovered that the FOTOfile must be presented in INVERSE mode on screen in order to print properly (that is in normal mode). A FOTOfile that is printed in INVERSE results in a printed background and outline of the FO SEG.G module and given a new menu with four choices: * SEE THE FOTO ON SCREEN * SEE THE FOTO AND PRINT IT * SEE THE FOTO AND PRINT IT IN INVERSE MODE * RETURN TO MENU.MAKER In using tgram can look for the proper pathname. THE GRAPHICS MODULE The SEG.G file is one I've spent a considerable time working on and think you'll find it to be the most interesting. When you choose a FOTOfile from Menu.Maker, you are transfered to theMenu.Maker. Look through the text versions of the programs on this disk and you'll note we've hard-coded in .D1 as the disk the programs should go back to when CHAINing. This is easily changed by you if you want this on a hard disk so that the pro Menu.Maker is able to access these modules by CHAINing to them. That way, all the variables set when you originally booted Menu.Maker are not destroyed (primarily the prefixes and DIMed arrays). When the module is finished, it returns control back to text files to explain what's on a given disk. The module that allows you to change fonts, SEG.F will also only be included on disks where changing fonts is necessary. When that happens, we'll also include the required DOWNLOAD.INV invokable module. you'll get a large picture printed at 90 degrees. Otherwise, you'll get a smaller picture front on. Choose yes or no to the box. For color, choose Black if you don't have a color printer. Otherwise, you can choose from colors ranging from red to blue or yellow. Once the picture is done printing, the printer will do a form feed and you'll be back to the Graphics Menu. If you have a color printer, it will be reset to Black. From the menu, you can print another copy of the graphic or return to Mtribute some of your own programs to another in our series of "Contributions Disks". Join the TCS and just enjoy talking with other /// SIG members. As you can see, there's lots of thinkgs that can be done if you're willing to spend just a little bhurch to donate it to. Help them set it up and support it afterwards. Volunteer to help copy Apple /// disks (see John Ruffatto about that). Volunteer to transcribe some old articles from back issues of defunct Apple /// magazines for new PD disks. Cont really doesn't take much time. Set yourself a goal of writing one article every other month for the Journal. Sign up to be a Hotline Volunteer. Volunteer to take one of the donated Apple ///s, put it back into working order and find a charity/school/cchance to think about what you like about the SIG, how you would like to see some improvement and how you can get involved. I know that last one may be the hardest part of all. But it really isn't. You can get "involved" in any number of ways thaaul Campbell make the trek from Detroit. That's dedication! And of course, if we didn't have the support of all the members of the /// SIG, our efforts on behalf of SARA would frankly not be worth the trouble. Please take a moment when you get a just for the meeting. You'll see a slightly different version in the WAP Journal in June, which will have a report on the meeting. I want to personally thank you for coming and taking part. Martin Davidson came all the way from Ontario, Canada. P ON THE TRAIL OF THE APPLE /// By David Ottalini Apple /// SIG Co-Chairman April 18, 1992 Special Edition WELCOME TO THE /// SIG MEETING! This is a special edition of my "On The Trail of the Apple ///" column appearing on this special disk orm feed. At the end of the file, it will do another form feed for you and then return you to Menu.Maker's main screen. FONT MODULE This little program basically remains unchanged from its original version in earlier Menu.Maker programs. well. When printing, the screen now displays the first 18 lines so you can see what it is. And there's a special surprise. We've added a timer display at the bottom. By the way, the program prints 60 lines per page, and then does a fo use. Unlike previous versions of MM, the text does not scroll but is presented on the screen 18 lines at a time from top to bottom. You can still pause at any time and choose to return to Menu.Maker. You also still have the option to print the file asprinter. But if you simply replace the included SOS.Driver file with one of your own that have your printer driver and the Graphics driver, it should work fine. TEXT MODULE The text module has been cleaned up a bit to make it faster and easier tenu.Maker. By the way, aborting a print once it's started is pretty much impossible. Finally, note that I've been working with Seikosha and Panasonic Serial printers that have EPSON emulation. I frankly havn't tested this module using a parallel it of time. Please call me at 301-681-6136 if you have any questions. I enjoy the /// for many reasons. But its the people who I've met over the years who have really made the diffence. Thanks again for coming! If there's enough interest we will definately schedule another meeting in the (near?) future. SARA LIVES! Our old Apple /// friend Tim Harrington (responsible for many of the Desktop Manager modules and other ON THREE Software) now works at Apple and commented on Comps that a search should take 15 seconds at most, but the worst time that I got for finding the last file on a 16 Meg partition with 129 DIRECTORIES of files was less than 6 seconds... pretty impressive! DETROIT UPDATE Paul continues his wories Disk #4 arrived, was loaded, and worked perfectly. It includes; Find Files, Area Code+Zone, List files, and Disk Eraser. Find Files is the most valuable new DA for me, I now have over 2,800 files on my main drve. The documentation for Find Files say drive and some software a few weeks back, and got a package in the mail the very next week! The drive itself was not in the package (Bob likes to test the drives for about a week before shipping), but it should be well worth the short wait. Super Accessall Bob for some help. He noted recently on the WAP TCS that: I am grateful that On Three remains in business, and also that (Bob Consorti) continues to make himself available for questions concerning our SARA. I sent an order to On Three for an 800K CPS- all near Edwards Air Force Base where the Shuttle lands on occasion). The order number is 1-805-822-8580 and the address is 1174 Hickory Ave. Zip code is 93561. And there's more. Detroit ///er Paul Campbell has had more than one occassion to crn from Selector and test it. By the way, On Three (that is, Bob Consorti's parents) has moved once again. The company is now in a little town called Tehachapi, California not too far from where your's truly grew up (in Lancaster and Quartz Hill get some time. I have the ultimate Apple /// development environment now. I use my souped-up 10 mhz GS to assemble directly to a partition on a shared hard disk that I access from the ///. After assembling it just takes a fraction of a second to hit retuol and planning which grad school to go apply to - Stanford is high on my list so I might be coming back to the west coast next year. Funny you should ask about new products. I've actually gone back into the old GoBack project every other weekend when I heir "Installation Scripts" to install drivers is all that much easier or quicker. ON THREE Out of the Tim Harrington conversation above, On Three's Bob Consorti also chimed in with an update on how he's doing: I'm still in Chicago going to schothe System Configuration Program to get by. No, we don't double click on things and drag files (or "folders") around, but I feel like I can do what's needed quickly enough to suit me! Besides, I don't really feel that the gs System Tools, with t DIDN'T expect the average business user to set up their SOS.DRIVER file. The Apple dealer was supposed to do that for them at the time of purchase or as needed later. Unfortunately, over time and with the loss of support, we all had to learn how to use ogress still turn. MAUGer Loren Damewood reminded Tim, however that: That's still better than having to flip switches to input octal code. I still have to use a Honeywell 316 at work sometimes . . . ;-) Actually, Apple my cube for a while. People from all over would stop by and play with it. We got a big chuckle out of the System Utilities. I can't believe they expected the average user to be able to add and modify device drivers like that! Oh well, the wheels of pruServe recently that: You know what I found stuck in the corner of our lab the other day? You guessed it, an Apple ///. I fired it up just for yucks, and it worked great. I even found an old Profile with various /// programs on it. I had it set up inork to get every business in Detroit to switch from their Messy-Dos computers to our Apple ///s. But success is breeding problems: I have 7 people waiting for Apple ///'s. I have a couple here in the midst of repair and Tom Manion is sending a couple more. The bookstore that purchased a /// is finally going to put it to use. Most of the employees were intimidated for a long time, but now that they know it is easier than the cash register, they are bugging me to get things rolling again. I re-wrote the mknow you are primarily interested in the Journal articles and the PD library. That's why we've concentrated on them. But there can be so much more IF we can get the hands to help and volunteer. Dave Ottalini /// SIG CO-Chairman just as well with my //GS! FINALLY Thanks again for coming to the SIG Meeting. I hope you found it worth your time and effort. Jim Jutzin and I are very open to your comments and suggestions about ways to help you get more out of your ///. We quality and the fact it's much faster than my 9 pin printer. The KX-2123 has a "Quiet" mode should you desire it, three different paper paths and ability to handle a cut sheet feeder. It also prints Apple /// graphics very well, thank you. And it works do was switch to 2400 baud and set the top of page command. Once I'd installed the Serial port (which required taking the printer partially apart), the printer automatically recognized it (you can switch back to parallel anytime.) I love the text wever due to the additional features and color capabilty of the printer. The operating manual is fairly easy to understand. But you have to study it a bit to get the hang of programming the many available features. The only thing I really had to want to waste a slot with a parallel card). The Panasonic runs in both Epson and IBM emulation modes and that's the key. The Epson mode is essentially the same as what I was running with the Seikosha. There are some control code differences hoTheir sale price equalled or bettered anything I could find in Computer Shopper. And on top of that, I found a coupon in the paper for a free color upgrade kit ($49.00!). That savings went into the purchase of a serial port for the printer (since I don't24 pin printer. Everything I've read about 24 pin printers and the /// suggested there would be few problems in making the switch. My experiences with the Panasonic KX-P2123 proved that to be true. First off, I got a great deal through Staples. E PRINTOUTS TO SHOW YOU WHAT THIS PRINTER CAN DO! I finally decided to upgrade my printer from the 9 pin Seikosha that had faithfully served me for so long. Since laser printers (and even Deskjets) are still too pricey, I decided to go with a sk offerings and Membership form in his "Annie's Letter." Being the nice person that I am, I said sure. Koji says of WAP "It's big news to Japanese Apple users and many users will join your group." 24 PIN PRINTERS ** SPECIAL MEETING NOTE: I'LL HAVE SOMard drive, and other people in the office are considering buying an Apple ///. AN UPDATE FROM JAPAN That our new friend Koji Annoura has become a member of WAP! He recently messaged me on Compuserve to ask permission to reprint the club's PD dip, and word processing. I'll let everyone know how it works out. BTW; The SARA used as the ONLY computer for that law firm in Detroit has been keeping busy. An attorney from another firm has been using the system as well with her own subdirectory on the hms sold, the total sales amount, the total sales amount plus tax, and then the total tax with the last sales day at the top of the screen. All this takes 3 seconds. One of the new ///'s will be used to run a church, that includes book keeping, membershiacros to make operations more simple. One feature that they really like is the day-end totals. The cashier presses "solid-apple t", and SARA gets the sales history database, sorts the file, then puts the report on the screen with the total number of iteWAP /// SIG SPECIAL MEETING PD DISK is valid? Does this happen when you output to another drive? If so, I'd suspect a buggy download. I just tried DISKMAP output to a ProFile sub-directory and to my DC3A drive with no problems. Your problem doesn't seem to be inherent with DISKMAP. Does any COMPUSERVE TALK/AUGUST 1987 #: 134659 S7/Apple /// Products 20-Aug-87 22:51:13 Sb: Bug? Fm: Al Bloom 76656,1514 To: Jim Wilson 72157,3450 (X) Jim -- I/O Error 4 is "illegal directory spec" for whatever it's worth. Are you sure your output pathname9pm PST BUSINESS GRAPHICS John Lomartire 203-226-4198 arey McGleish 313-332-8836 Evenings BOS3/Selector Dave Ottalini 301-681-6136 9-10:30pm BUSINESS GRAPHICS John Lomartire 203-226-4198 136 9-10:30pm DA DATASYSTEM PROGRAMS Robert Howe 916-626-8198 7-cGleish 313-332-8836 Evenings PFS Dave/Joan Jernigan 703-822-5137 Before 9pm Eric Sheard 201-782-6492 VISICALC/ADVANCED VISICALC John Lomartire 203-226-4198 Eric Sheard 201-782-6492 CATALYST J. CcGleish 313-332-8836 Evenings APPLEWRITER Dave/Joan Jernigan 703-822-5137 Before 9pm Eric Sheard 201-782-6492 PASCAL Dr. Al Bloom 703-951-2025 BUSINESS BASIC John Lomartire 203-226-4198 J. Carey Mes Suthard 703-998-7705 3 EASY PIECES Joseph Brown 301-270-2251 Robert Howe 916-626-8198 7-9pm PST Dave/Joan Jernigan 703-822-5137 Before 9pm WORD JUGGLER Tom Linders 408-741-1001 J. Carey M Apple /// Hotline List GENERAL (Apple ///) Dr. Al Bloom 703-951-2025 Jim Jutzin 703-790-1509 John Lomartire 203-226-4198 David Ottalini 301-681-5782 9-10:30pm Paul Campbell 313-255-6497 JamWELCOME TO THE WAP /// SIG MEETING IN BETHESDA. WE HOPE YOU ENJOY IT !! one else out there have an A143 for a double check? #: 134660 S8/Apple /// Community 20-Aug-87 22:52:52 Sb: #///HELP/// Fm: Al Bloom 76656,1514 To: Frank Tomecek 75006,3002 (X) Frank -- You've been getting some good general advice. Let me be a bit s"MT" is an old commercial comm program that supports only ASCII transfers, but could be used to access Compuserve, as it does support auto-logons, etc. My copy is virginal, complete with manuals, etc. By the way, I assume you know that if you can actuan transfer files to/from another computer directly, I recommend "CM" highly. If all you want to do is transfer files between two machines, and I assume we're talking ASCII files here, I would be happy to sell you my copy of "MICRO Terminal" for $10. //HELP/// Fm: Michael Corbin 73047,3040 To: Frank Tomecek 75006,3002 (X) Lavona is certainly a key contact for anyone who owns or uses a ///, Frank. With the newly available "Communications Manager" at $50 (a whale of a deal!), if you plan to do more thking the time to check it out for me tho. Now if a 3 Magazine would just magically appear in my mailbox tomorrow............. Thanks again Jim Wilson *** There is a reply: 135032 #: 134894 S8/Apple /// Community 22-Aug-87 10:51:53 Sb: #/ 70077,2327 (X) Al, Ed, Yeah, thats the problem, I'm the 'bug'. After 5 years you'd think I'd know enough to give a disk file a name, I guess I'm just spoiled by programs that do all the thinking for you if you make a dumb mistake. Thanks for ta, printer, RS232), you only need to specify a device name. Hope this helps you out. Regards.......Ed *** There is a reply: 134844 #: 134844 S7/Apple /// Products 22-Aug-87 01:26:32 Sb: #134738-#Bug? Fm: Jim Wilson 72157,3450 To: Ed Goodingdisk.map.prt. When I directed the printout to .d3, I got IO ERROR #4, just like you did. Generally, whenever you elect to "print" to a block device (disk), you must specify a file name with the device name. When you print to a character device (console A143's, and I think I figured out what you are doing wrong. I believe that you failed to specify a file name when you directed your printout to your A143. I disk mapped one A143 to another with no problems, as long as I specified a file name, eg. .d3/tally END automatically closes all files. == Carlo == #: 134738 S7/Apple /// Products 21-Aug-87 09:10:24 Sb: #Bug? Fm: Ed Gooding 70077,2327 To: Jim Wilson 72157,3450 (X) Jim: I finally got around to experimenting with your problem since I have two aware that BYE in BB 1.23 exits to the Catalyst menu. I use it only after I have finished running, editing, debugging etc. a program and want to exit Basic. Just not to leave files open after running a program however, is what I use close:end for. Inciden The more you tell us the better our answers. -- Al *** There is a reply: 135013 #: 134722 S7/Apple /// Products 21-Aug-87 02:56:41 Sb: #134581-Catalyst Problems? Fm: Carlo Infante 70167,2327 To: Ed Gooding 70077,2327 (X) Thanks Ed, I'm wellmainframe or PC that has KERMIT, TAU offers a KERMIT /// as PD-ware for error-free file transfer. If the other computer has Xmodem, ON THREE's Communications Manager seems to be the product of choice ($52.95). Again, what specifically are you trying to do?43-8877) sells it for $51.95. There are de-trashing utilities for PFS and Mail List Manager files. If you'd be specific, somebody on this board will likely get you a good answer fast. -- On file transfer, what is the "other" computer? If you're going to a pecific. What kind of file did you scrap, and what do you mean by scrap? If you inadvertently deleted one of your favorite files, LAZARUS does a fine job of raising it from the dead if you have not already overwritten the space on the disk. ON THREE (800-4ally put the two computers side-by-side, you don't need any modems. You can connect 'em directly via RS232C serial ports using a modem eliminator cable. You only need modems if there is also a telephone line in between them. --Michael Corbin [73047,3040]-- #: 134996 S7/Apple /// Products 22-Aug-87 19:58:56 Sb: #DISKMAP Fm: John Lomartire 72307,1000 To: ALL I have downloaded DISKMAP and like it very much. However, it requires that Pascal be booted, then Diskmap can be X(ecutriter) - Before putting this under Catalyst, be sure to read the file IMPORTANT.NOTE which details some changes in the standard installation. It is only half true that one cannot access Apple Speller from within this version, if you have not upgraded to 51-- System Utilities 1.2, which came with the ///+ machine, can handle slightly larger driver files in the System Configuration Program, but doesn't allow you to modify device type (see note above). (Bart Cable) ANSWERS - Apple Writer V.4 (Super Apple Won-PASCAL program; -- The Catalyst .QUARKCOM driver (for .UNUSED slots) is initially set up with 4 character device slots & two block device slots (.UNUSED 1-4, & 5-6, respectively). System Utilities 1.1 allows you to change the "device type" characters; re part of the first six. You'll have to keep formatted disks in the drives to prevent them being considered-off line; -- MicroSci drivers CAN be dynamically loaded by CATALYST. Thus, you can choos to load an active .X3 or .X4 driver from CATALYST for a n, PASCAL "tests" the additional devices to see if they are on-line. It will lock them out of the system if they are not on line. This is why you should put your non-standard block drivers, e.g. MicroSci driver, at the end of the SOS.DRIVER file so they a if there is room. PASCAL simply ignores drivers it has no room for, so put the least important drivers at the beginning of SOS.DRIVER (e.g., .ATTACH, .CATALYST, .AUDIO); -- If more than 6 block device drivers (MicroSci, Profile, I.C.E., Corvus, RAM disk)h standard drivers like .CONSOLE, .PRINTER, .GRAFIX, .RS232, .D1 to .D4, etc. On the second pass it fills the remaining slots with other drivers; -- Drivers are assigned in REVERSE order - The first ones listed in System Configuration are the last loaded,lots each. This is one of the reasons you will find some interpreters, in particular Business BASIC, allow you to have more drivers on line than System Utilities can list; -- On loading, PASCAL makes two passes through the drivers, first filling slots wit SOME ARTICLES FROM APPLE NEWS AND VIEWS/SEPTEMBER 1985 By Joe Dombrowolski - Notes on the /// PASCAL operating system & CATALYST: -- SOS allows up to 24 driver slots to be used. PASCAL allows a maximum of 17. The .CONSOLE & .RS232 drivers use two stem Utilities diskette then copy disk_map over to it as SYSTEM.STARTUP. Regards.......Ed : construct a disk containing SOS.KERNEL, SOS.DRIVER (yours with your disk drives configured), SOS.INTERP (Pascal), SYSTEM.LIBRARY from your Pascal system, and disk_map named SYSTEM.STARTUP. Probably the easiest way to accomplish this is to copy your Sysed. I would like to know how to make the disk containing DISKMAP self-booting. *** There is a reply: 135035 #: 135035 S7/Apple /// Products 22-Aug-87 22:57:43 Sb: #134996-DISKMAP Fm: Ed Gooding 70077,2327 To: John Lomartire 72307,1000 John2k. One cannot access the Speller from AW4 in its default setting which allows a RAM file length of 6 banks (192K). If you reduce the memory size (Option J of Control-O menu) to 2 or 3 banks (64 - 96K) you can access the Speller. Activation of the 512K upgrade does not permit calling the Speller from AW4. AW4 has a screen up to 255 characters wide which can be scrolled horizontally as well as vertically. This permits handling spreadsheet printouts. The underline token, normally , can be changed. Also ifM 8-bit oerating systems which are tailored to Apple /// disk formats and which can communicate with almost every existing Apple /// peripheral device including your current printers, monitors and storage devices; a completely self-contained 8086-based co-tem for the Apple ///. After converting the CO-16 software to Apple /// format, the net system is one that is capable of running all three Operating Systems, coined "The /// Times 3 System." It allows complete implementation of the MS-DOS 16-bit and CP/processors. D.A. Datasystems have combined the Hallock Systems Company (HSC) CO-16 "attached Resource Processor," which provides the MSDOS/8086 capabilities when linked to a CPM/Z80 system, the Personal Computer Products Inc (PCPI) "applicard" CPM/Z80 sysS for the /// - migrate your /// back into the micro mainstream from $700; think about getting involved in the dynamic new applications & languages associated with the 16-bit chips inclding Artificial Intelligence, "C" & Ada languages, and high-speed math xpenses & repairs; QUEUING.MODEL is a single server queuing model that reports the amount of time an employee is busy (expressed in %) including waiting & service time. Suitable for determining how many people can be served in a given time period. - MS-DOs, taking into consideration the monthly expenses; RENTAL.INCOME a rental property expense report for 25 apartments (can be expanded) with monthly & yearly totals with monthly & yearly averages. Reports losses, gains & has provisions for rental incomes, eeces' sample disk is far superior (and even that is NOT as good as Harold Evans' "AppleWorks & 3EZP Datadisk"). A few of the more complicated spreadsheets include: BREAK.ANALYSIS a template calculates the break even point for 1 to 5 different product type-818-901-8828, list $29.95) are 54 ready to use Business, Home and Personal DataBase (37) & Spreadsheet (17) templates for AppleWorks & /// E-Z Pieces. Most spreadsheet templates & ALL data base templates are simplistic and NOT worth the money! /// E-Z Pi $25 each or $40 for the pair). Contact Steve C. Robertson at P.O. Box 6434, Kent, WA 98064-6434 (1-206-852-1215) (The /// Newsletter 07/26/85 issue) USER REVIEWS - HabaTemplates from HSI (Haba Systems, Inc. 15154 Stagg Street, Van Nuys, CA 91405-1025, 1retail $200); and FONT GENERATOR /// an easy to use font creation program that allows a user to set up screen fonts, even tesst them under different gray shade or color combination (sale price $40 for the program disk; two font disks are also available fore stand. SOFTWARE - Apollo Software has two products out: MACSTUFF a PASCAL module that reportedly allows a user to set up PASCAL programs with pull down windows, menu bars and alert boxes very similiar to those on the Macintosh. (sale priced at $100, // owners & users in the DC area intersted enough to start attending meetings. Other plans include developing an Apple /// bibliography for their public domain library (currently over 300 articles) and increasing communicatons between /// groups...United w - David Ottalini has written than Washington Apple Pi's /// SIG co-chairmen, Bill Rosenmund & Jerry Chandler are trying to revitalize the SIG. They're pushing membership, attempting to get some tutorials & other activities going so they can get all the / the token is immediately preceeded by a , underlining starts at the left margin regardless of the justification. You can draw a line from margin to margin with ].RJ] ] (] = return). (NJ Apple /// User's Group) USERS' GROUPS - More good newsprocessor hardware unit with 768K memory and optional 8087 high-speed math chip along with a Z80B-based co-processor card with 64K memory; a support package that includes an no additional charge - RamDisk software to allow you to use the huge memory resources of this system as super high speed silicon-disks (typical costs for these systems are $1,000 each). MSDOS - up to 640K, CP/M -768K, SOS - 750K; a "bundled" package of Commercial software; and MS-DOS & CP/M utilities and specially configured system-to-I'm happy to announce this month a major upgrade to our /// SIG's Menu.Maker program. Menu.Maker is our Basic Menu program that allows users to work their way through many of our Public Domain disks. With it, users can read ASCII text files on screen, loTo do this, you simply press the bar while you are in a subdirectory. You can still change disks or return to the root directory, go to Basic or quit completely as you desire. MENU.MAKER 6.0 By David Ottalini WAP /// SIG Co-Chairman UPGRADE NOTICE: SEPTEMBER, 1992 : MENU.MAKER 6.1 RELEASED This new version of MM adds an additional major feature to the program: With help from our Canadian friend C.M. Davidson, its now possible to back out of any subdirectory (CAT file). the club library you MUST be a Member. membership agreement have an EM; and Complimentary issues (one time receipt ONLY) have a C. REMEMBER - If you want FULL privleges, i.e. a year's membership, copies of all Newsletters, catalogs, & Resourse sheets published during that year, and access to paid their $5 annual fee have an expiration date; Initial Subscribers, those receiving ONLY the newsletter & post paying quarterly have an IS (this type subscription will terminate with the December issue); Other /// Users Groups which we have an exchange the products they offer). PARTING SHOTS Fill out & return those application forms so I can plan our budget...why not make a few comments, suggestions, provide an article or a review, etc. Subscription code: Members, those with full privleges and havingrives should be avaiable NOW. Want the FULL story? Write or for a quicker answer, call D.A. Datasystems, (1-716-648-2462) 3792 Windover Drive, Hamburg, NY 14075 (if you send along a dollar Daryl will send along a catalog disk with full descriptions of allograms MUST be converted to a /// format (something which cannot be done with copy-protected programs); however, a SOS Ramdisk & an Optional Controller Card allowing you to use PC type 5.25" disk drives (320-360K) as well as 3.5", 8", and PC AT (1.2 Meg) dip is available as an optional extra and performs numeric operations 100-200 times faster! Problems and imminent solutions - Apple drives cannot read data stored on diskettes by the disk controllers commonly used throughout the MS-DOS and CP/M worlds. Prsystem file transfer programs, ANSI standard console drive, partial IBM PC emulator program. The 8086 is the "big brother" of the 8088 which runs in the IBM PC, runs 80% faster than the PC and nearly as fast (94%) as the AT. The 8087 Numeric Processor chad and print graphics and change fonts. As with any Business Basic program, it has its limitations, not the least of which is a /// SIG Co-Chairman who still struggles with programming. But after a lot of effort (and even some thought), an upgraded version of the program will now be available on our new PD disks. The program has been designed to make it easier to use on a hard disk. And it comes in a modular form with modules now named using the familier 3EZ Pieces/Appleworks file format. is plotted over another. The answer to INVERSING a FOTOfile turned out to be fairly easy once I played about with the procedure. Basically, all you have to do is : ) PERFORM XFROPTION (%6) ) PERFORM FILLPORT after you have loaded the FOTOfileen. That way they would appear in NORMAL mode. I found the answer using an advanced procedure offered by the BGRAF.INV graphics invokable called XFROPTION. Designed for use with black and white graphics, XFROPTION specifies what happens when one colorctures to be in INVERSE mode so that they would be printed properly with the SCR.PRT.INV invokable module. But the FOTO doesn't always look that great on screen in INVERSE mode. So, I searched for a way to INVERSE the FOTOfiles as presented on scrd background and outline of the FOTO. In Normal mode, the background is clear and the FOTO is properly outlined. Since I've been doing a lot of "Floppy Coloring Books" of late with graphics that are scanned using a Quickie Scanner, I wanted the pi TO MENU.MAKER In using the SCR.PRT.INV screen print module, I discovered that the FOTOfile must be presented in INVERSE mode on screen in order to print properly (that is in normal mode). A FOTOfile that is printed in INVERSE results in a printeu.Maker, you are transfered to the SEG.G module and given a new menu with four choices: * SEE THE FOTO ON SCREEN * SEE THE FOTO AND PRINT IT * SEE THE FOTO AND PRINT IT IN INVERSE MODE * RETURNhis on a hard disk so that the program can look for the proper pathname. THE GRAPHICS MODULE The SEG.G file is one I've spent a considerable time working on and think you'll find it to be the most interesting. When you choose a FOTOfile from Menished, it returns control back to Menu.Maker. Look through the text versions of the programs on this disk and you'll note we've hard-coded in .D1 as the disk the programs should go back to when CHAINing. This is easily changed by you if you want tWNLOAD.INV invokable module. Menu.Maker is able to access these modules by CHAINing to them. That way, all the variables set when you originally booted Menu.Maker are not destroyed (primarily the prefixes and DIMed arrays). When the module is fins, since we usually always include text files to explain what's on a given disk. The module that allows you to change fonts, SEG.F will also only be included on disks where changing fonts is necessary. When that happens, we'll also include the required DO On disks that don't have fotofiles, we WON'T include the SEG.G file or associated SCR.PRT.INV or BGRAF.INV files. That way, we save space and can include more information. It's likely that SEG.T will remain on at least one side of all new PD offeringe that the Menu.Maker file itself is much smaller now. That's because the Text, Graphics and Font sections of the program have been pulled out and are now separate files called SEG.T, SEG.G and SEG.F respectively. They are NOT stand-alone programs. provides support for two styles of printing and (if you have one) limited single color printing capabilities. You can also now change to another disk prefix quickly and easily. BY THE MODULES First of all, when you CATALOG your disk, you'll notic The 6.0 version of Menu.Maker presents a better, more professional look when reading text files. It gives you a better on-screen idea of what's happening and attempts to have a friendlier face while doing its chores. The graphics module is expanded and e (PERFORM GLOAD.x). The (%6) means the XFROPTION procedure will INVERSE INVERT the file in combination with PERFORM FILLPORT. IF you PERFORM Grafixson (that is, turn on the screen to see the graphic) before these procedures, the FOTOfile will magically INVERSE from top to bottom in front of your eyes. Or, if you do it afterwards, the FOTOfile will be inversed and then be presented all at once. The only problem? It IS slow. By the way, if you choose to Look at a FOTOfile and it is INVERSED on ss disk-based, it will always be slow. It takes time to read and load files. That's why you CAN speed things up considerably by placing all the files on a hardisk and making sure the prefixs are set accordingly in the programs. I hope you enjoy itfor ways to read 3EZ Pieces text files. It can be done from Pascal and from Applesoft Basic. There's no reason we can't do it too. Help! I also plan to use Daryl Anderson's BASIC GTO to try and speed the program up a bit more. But so long as it'ess I've gone through and inserved a RETURN at the end of each line, the program will litterally load and scroll each string of text (actually each paragraph is a better way to describe it.) It can be very disconcerting. I also continue to search nu.Maker? I'd enjoy your comments and suggestions. I want to continue working on the Text module. I'm still unhappy with the way text is displayed on the screen in the sense that when you INPUT a string from the specified file, it can be very long. Unlon in earlier Menu.Maker programs. It will download into memory any fontfile you desire so long as you have the DOWNLOAD.INV invokable module available on the disk for which you've set the prefix. IMPROVEMENTS What else can be done to improve Me lines per page, and then does a form feed. At the end of the file, it will do another form feed for you and then return you to Menu.Maker's main screen. FONT MODULE This little program basically remains unchanged from its original versive the option to print the file as well. When printing, the screen now displays the first 18 lines so you can see what it is. And there's a special surprise. We've added a timer display at the bottom. By the way, the program prints 60bit to make it faster and easier to use. Unlike previous versions of MM, the text does not scroll but is presented on the screen 18 lines at a time from top to bottom. You can still pause at any time and choose to return to Menu.Maker. You also still hasted this module using a parallel printer. But if you simply replace the included SOS.Driver file with one of your own that have your printer driver and the Graphics driver, it should work fine. TEXT MODULE The text module has been cleaned up a copy of the graphic or return to Menu.Maker. By the way, aborting a print once it's started is pretty much impossible. Finally, note that I've been working with Seikosha and Panasonic Serial printers that have EPSON emulation. I frankly havn't tem colors ranging from red to blue or yellow. Once the picture is done printing, the printer will do a form feed and you'll be back to the Graphics Menu. If you have a color printer, it will be reset to Black. From the menu, you can print another say yes to "Should it be rotated?" you'll get a large picture printed at 90 degrees. Otherwise, you'll get a smaller picture front on. Choose yes or no to the box. For color, choose Black if you don't have a color printer. Otherwise, you can choose froith the way the graphic is printed, whether you want it boxed or not and (if you have a color printer using an Epson emulation mode) what color it should be printed in. You may choose to have the FOTOfile printed centered or to the left. If you creen, that means the original file on disk is in NORMAL mode. If you decide to print it, use the See and Print Inversed selection. By selecting choices 2 or 3 to print the graphic, you will be given additional choices to make. These have to do w as much as I have programming it for you. Again, your comments/suggestions/programmed improvements are very welcome. David Ottalini WAP /// SIG 10 REM WAP /// SIG MENU.MAKER PROGRAM (v. 6.1) 20 PREFIX$=".D1" 30 GOTO 210:REM Coldstart 40 GOTO 320:REM Warmstart 42 FOR X=1 TO 1000:REM TEXT SLOW-DOWN LOOP 44 NEXT X 46 RETURN 49 REM CHANGE DISK SUBROUTINE TURN 700 VPOS=5:IF THPOS=4 THEN I=1:ELSE I=2 710 RETURN 720 IF I>2 THEN VPOS= VPOS-1:I=I-2:RETURN 730 IF IBOTM<3 THEN RETURN 740 IF THPOS=44 THEN I=INT(IBOTM/2)*2:VPOS= VPOS+INT(IBOTM/2)-1:RETURN 750 VPOS= VPOS+INT(IBOTM/2-.5):I=IBOTM:IF INVERSE:HPOS=THPOS:PRINT B$(I); 630 NORMAL:GOTO 520:REM 500 640 THPOS=4:IF I/2=INT(I/2) THEN I=I-1 650 RETURN 660 IF I=IBOTM THEN RETURN 670 THPOS=44:IF I/2<>INT(I/2) THEN I=I+1 680 RETURN 690 IF I11 THEN 540 610 ON A-7 GOSUB 640,660,690,720 620OS=21:GOTO 1600 530 VPOS=Q:WW=0 540 A= KBD:IF A=21 THEN A=9 550 oldprefix$= PREFIX$ 560 IF A=3 THEN 1410:REM Control C "aborts" program to Basic 570 IF A=13 THEN 770:REM Return Selects a file 580 IF A=27 THEN CLEAR:GOTO 50:REM Escape t 470 A$="FOTO 0":GOSUB 150 480 IF NOT INSTR(A$(L),"BLOCKS") THEN 510 490 HPOS=27:VPOS=19:PRINT"FREE MEMORY AVAILABLE: "; FRE 500 HPOS=7:VPOS=20:PRINT USING"80C";A$(L); 510 TEXT:VPOS=5:THPOS=4:I=1:IBOTM=J-1:GOTO 620 520 Q= VPOS:HPOS=26:VP VPOS=3:HPOS=14:PRINT"This /// SIG Disk is \^ 19";LEFT$(DATE$,2)", Washington Apple `, Ltd." 420 VPOS=4:B$(1)="":B$(2)="" 430 A$="BASIC 0":GOSUB 150 440 A$="TEXT 0":GOSUB 150 450 A$="CAT 0":GOSUB 150 460 A$="FONT 0":GOSUB 150 asic; +Q Quits." 370 PRINT CHR$(12);:INVERSE:PRINT USING"80C";a$;:NORMAL 375 OPEN#9 AS INPUT,"DISKNAME.DAT":INPUT#9;DISKNAME$:CLOSE#9 380 d$=DISKNAME$ 390 VPOS=23:HPOS=0:INVERSE:PRINT USING"80C";d$;:NORMAL:PRINT CHR$(12) 400 GOSUB 201 410 O 300 280 I=0 290 I=I+1:INPUT#1;A$(I):GOTO 290 300 OFF EOF#1 310 L=I-1 320 j=1:same=0 330 HOME:SEG=0 340 ON ERR GOTO 2030 350 IF CT>1 THEN GOTO 3000 360 a$="{,|,~,}; selects; to new disk; INT(J/2) THEN HPOS=4:VPOS= VPOS+1:ELSE HPOS=44 190 PRINT B$(J);:J=J+1 200 NEXT I:RETURN 201 WINDOW 1,1 TO 80,22:RETURN 202 WINDOW 2,2 TO 80,21:RETURN 204 WINDOW 2,23 TO 80,23:RETURN 210 DIM A$(1000VERSE:PRINT USING"80C";b$;:NORMAL:PRINT CHR$(12) 110 VPOS=12:HPOS=20:INPUT"MAKE A NEW MENU FOR DISK: ";N$ 120 IF LEN(N$)<2 THEN GOTO 110 130 PREFIX$=N$ 140 TEXT:GOTO 210 150 FOR I=1 TO L 160 IF NOT(INSTR(A$(I),A$)) THEN 200 170 B$(50 OFF KBD 51 ON ERR GOSUB 202:GOTO 2200 60 HOME 70 a$=" YOU MAY SELECT YOUR DISK BY VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)" 80 PRINT CHR$(12);:INVERSE:PRINT USING"80C";a$;:NORMAL 90 b$="CHANGING DISKS" 100 VPOS=23:HPOS=0:INI/2=INT(I/2) THEN I=I-1 760 RETURN 770 ON ERR GOTO 2120 771 B=INSTR(MID$(B$(I),16)," ")-1 780 IF INSTR(B$(I),"BASIC 0") THEN 850 790 IF INSTR(B$(I),"TEXT 0") THEN 890 800 IF INSTR(B$(I),"CAT 0") THEN 1140 810 IF INSTR(B$(I),"FONT 0") THEN 1850 820 IF INSTR(B$(I),"FOTO 0") THEN 1930 830 IF INSTR(B$(I),"PASTXT 0") THEN 2070 840 GOTO 540 850 HOME 860 A$="RUNNING "+MID$(B$(I),16,B) 870 PRINT USING"79C";A$;:HPOS=0 880 RUN MID$(B$(I),16,B) 890 TEXT:HOME:SEG=10 GET A$ 280 IF A$="1" THEN HOME:GOTO 80 290 IF A$="2" THEN GOTO 330 300 IF A$="3" THEN Z=1:GOTO 330 310 IF A$="4" THEN HOME:TEXT:PERFORM RELEASE:CHAIN".D1/MENU.MAKER",220 320 GOTO 270 330 HOME 350 VPOS=0:HPOS=0:INVERSE:PRINT USING"7:PRINT"PRESS '1' TO SEE THE GRAPHIC ONLY" 240 VPOS=10:HPOS=20:PRINT"PRESS '2' TO SEE AND PRINT THE GRAPHIC" 250 VPOS=12:HPOS=20:PRINT"PRESS '3' TO SEE AND PRINT THE GRAPHIC INVERSED" 260 VPOS=14:HPOS=20:PRINT"PRESS '4' TO RETURN TO MENU.MAKER" 27LPORT 160 PERFORM GRAFIXON 170 C=C+1 180 GET B$ 190 REM 200 OFF ERR:OFF KBD:TEXT:HOME 210 VPOS=0:HPOS=0:INVERSE:PRINT USING"79C";D$;:NORMAL 220 VPOS=23:HPOS=0:INVERSE:PRINT USING"79C";"MENU.MAKER GRAPHICS":NORMAL 230 VPOS=8:HPOS=20 E THE GRAPHIC 90 IF C>1 THEN GOTO 160 100 VPOS=10:HPOS=40:PRINT"" 110 PERFORM GLOAD.D$ 120 PERFORM XFROPTION(%6) 130 PERFORM MOVETO(%1,%190):PRINT#5D$ 140 PERFORM MOVETO(%1,%180):PRINT#5"ANY KEY QUITS TO GRAPHICS MENU" 150 PERFORM FIL 10 REM MENU.MAKER GRAPHICS MODULE (COLOR SUPPORT) 20 INVOKE".D1/BGRAF.INV",".D1/SCR.PRT.INV":PERFORM INITGRAFIX 30 OPEN#5,".GRAFIX" 40 D$=MID$(B$(I),16,B) 50 name$=CHR$(34)+D$+CHR$(34) 60 BD=0:C=1:N=0:Z=0 70 GOTO 200 80 REM INVERS." 2110 GET G$:TEXT:HOME:GOTO 320 2120 REM: Error Routine 2200 GOSUB 202:HOME 2210 VPOS=11:PRINT USING"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)" 2220 FOR X=1 TO 1000:NEXT X 2230 HOME 2240 OFF ERR: 380 2060 REM CATCH PASCAL TEXT FILES 2070 GOSUB 202 2080 OFF KBD:HOME 2090 VPOS=08:PRINT USING"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES." 2100 VPOS=10:PRINT USING"78C";"ANY KEY RETURNS TO THE MENU790 ON KBD GOTO 1830 1800 IF WW=1 THEN 530 1810 HPOS=26:VPOS=21 1820 GOTO 1600 1830 OFF KBD:WW=1:RETURN 1840 REM 1850 SEG=1 1851 CHAIN"SEG.F" 1930 SEG=1 1931 CHAIN"SEG.G" 2030 OFF ERR 2040 diskname$= PREFIX$ 2050 GOTO$(TIME$,2))=>13 THEN PRINT VAL(LEFT$(TIME$,2))-12;RIGHT$(TIM E$,6);:GOTO 1780 1770 IF VAL(LEFT$(TIME$,2))=0 THEN PRINT"12";RIGHT$(TIME$,6);:ELSE PRINT TIME$; 1780 IF VAL(LEFT$(TIME$,2))=>12 THEN PRINT" PM-":ELSE PRINT" AM-" 1ST":GOTO 1750 1710 M$="SEPTEMBER":GOTO 1750 1720 M$="OCTOBER":GOTO 1750 1730 M$="NOVEMBER":GOTO 1750 1740 M$="DECEMBER":GOTO 1750 1750 PRINT TAB(26);"-";M$;" ";VAL(RIGHT$(DATE$,2));", ";"19";LEFT$(DATE$,2);" "; 1760 IF VAL(LEFT,1680,1690,1700,1710,1720,1730,1740 1630 M$="JANUARY":GOTO 1750 1640 M$="FEBRUARY":GOTO 1750 1650 M$="MARCH":GOTO 1750 1660 M$="APRIL":GOTO 1750 1670 M$="MAY":GOTO 1750 1680 M$="JUNE":GOTO 1750 1690 M$="JULY":GOTO 1750 1700 M$="AUGU 900 CHAIN"SEG.T" 1140 PREFIX$= PREFIX$+MID$(B$(I),16,B) 1145 CT=CT+1 1150 GOTO 240 1410 CLOSE 1420 TEXT:VPOS=24:HPOS=0:END 1600 REM ..... "DATE.TIME.LINE" .... 1610 M=VAL(MID$(DATE$,4,2)) 1620 ON M GOTO 1630,1640,1650,1660,16709C";D$;:NORMAL 360 VPOS=23:HPOS=0:INVERSE:PRINT USING"79C";"PRINT GRAPHICS":NORMAL 370 ON ERR GOTO 200 380 VPOS=8:PRINT"Picture at left margin or centered? ('C','L', or 'Escape')" 390 GET B$ 400 IF B$="L" OR B$="l" THEN CNDS=128:VPOS=8:HPOS=60:PRINT"LEFT ":GOTO 430 410 IF B$="C" OR B$="c" THEN CNDS=0:VPOS=8:H 10 REM MENU.MAKER TEXT MODULE 20 GOTO 890 42 FOR X=1 TO 1000:REM TEXT SLOW-DOWN LOOP 44 NEXT X 46 RETURN 201 WINDOW 1,1 TO 80,22:RETURN 202 WINDOW 2,2 TO 80,21:RETURN 204 WINDOW 2,23 TO 80,23:RETURN 890 TEXT:HOME 900 A$="N M$="Yellow" 960 IF M$="05" THEN M$="Orange" 970 IF M$="06" THEN M$="Green" 980 RETURN 1000 REM MENU.MAKER GRAPHICS MODULE (v 6.0) "+N$ 830 OPEN#8,".PRINTER" 840 PRINT#8;COLOR$ 860 RETURN 900 REM COLORS 901 M$="0"+N$ 910 IF M$="00" THEN M$="Black" 920 IF M$="01" THEN M$="Red" 930 IF M$="02" THEN M$="Blue" 940 IF M$="03" THEN M$="Violet" 950 IF M$="04" THE FOR X=1 TO 2000:NEXT X 690 N$="0" 691 GOSUB 800 700 PRINT#8;CHR$(12):CLOSE#8 710 HOME:GOTO 40 720 PERFORM XFROPTION(%6) 730 PERFORM FILLPORT 740 VPOS=12:HPOS=40:PRINT"" 750 RETURN 800 REM CHANGE COLOR 820 COLOR$=CHR$(27)+"r 655 650 PERFORM MOVETO(%0,%0):PERFORM LINETO(%0,%191):PERFORM LINETO(%559,%191): PERFORM LINETO(%559,%0):PERFORM LINETO(%0,%0):BD=0 655 IF N=1 THEN PERFORM MOVETO(%1,%190):PRINT#5;D$ 660 PERFORM GRAFIXON 670 PERFORM PSCREEN(%CNDS) 680 " 615 IF N$="0" THEN GOTO 620 617 GOSUB 800:CLOSE#8 620 FOR X=1 TO 600:NEXT 630 PERFORM GLOAD.D$ 640 IF Z=1 THEN GOSUB 720 649 IF BD=0 THEN GOTO(B$)=27 THEN CHAIN"MENU.MAKER",220 600 VPOS=16:PRINT"Color? (0=Black;1=Red;2=Blue;3=Violet;4=Yellow;5=Orange;6= Green) " 601 GET N$ 602 IF N$>"6" THEN GOTO 600 603 GOSUB 900 605 VPOS=16:HPOS=70:PRINT M$" ":BD=1:GOTO 600 560 IF B$="N" OR B$="n" THEN VPOS=14:HPOS=44:PRINT"NO ":BD=0:GOTO 600 570 IF ASCER",220 530 VPOS=14:PRINT"Add a border? ('Y', 'N', or 'ESCAPE')" 540 GET B$ 550 IF B$="Y" OR B$="y" THEN VPOS=14:HPOS=44:PRINT"YES ":N=1:GOTO 530 510 IF B$="N" OR B$="n" THEN VPOS=12:HPOS=44:PRINT"NO ":N=0:GOTO 530 520 IF ASC(B$)=27 THEN CHAIN"MENU.MAK"NO ":CNDS=CNDS+17:GOTO 480 480 VPOS=12:PRINT"Include the name? ('Y', 'N', or 'ESCAPE')" 490 GET B$ 500 IF B$="Y" OR B$="y" THEN VPOS=12:HPOS=44:PRINT"YES SCAPE')" 440 GET B$ 450 IF ASC(B$)=27 THEN CHAIN"MENU.MAKER,220" 460 IF B$="Y" OR B$="y" THEN VPOS=10:HPOS=44:PRINT"YES ":CNDS=CNDS+57:GOTO 480 470 IF B$="N" OR B$="n" THEN VPOS=10:HPOS=44:PRINTPOS=60:PRINT"CENTERED ":GOTO 430 420 IF ASC(B$)=27 THEN CHAIN"MENU.MAKER",220 430 VPOS=10:PRINT"Rotate picture? ('Y', 'N', or 'ELISTING "+MID$(B$(I),16,B) 910 VPOS=01:HPOS=0:INVERSE:PRINT USING"80C";A$;:NORMAL:PRINT CHR$(12) 920 VPOS=23:HPOS=0:INVERSE:PRINT USING"79C";"PRESS ANY KEY TO HALT LISTING":NORMAL:GOSUB 202 930 ON KBD GOTO 1020 940 OPEN#2,MID$(B$(I),16,BKER",350 10 REM MENU.MAKER FONT MODULE 1860 INVOKE"Download.Inv" 1870 C$=MID$(B$(I),16,B) 1880 array$="C%" 1890 name$=CHR$(34)+C$+CHR$(34) 1900 PERFORM getfont(@name$,@array$) 1910 PERFORM loadfont(@array$) 1920 J=1:SAME=0 1930 CHAIN".D1/MENU.MA WAP /// SIG April 18, 1992 It will download into memory any fontfile you desire so long as you have the DOWNLOAD.INV invokable module available on the disk for which you've set the prefix. David Ottalini AKER",320 2070 GOSUB 202 2080 OFF KBD:HOME 2090 VPOS=08:PRINT USING"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES." 2100 VPOS=10:PRINT USING"78C";"ANY KEY RETURNS TO THE MENU." 2110 GET G$:TEXT:HOME:CHAIN".D1/MENU.M0 D=D+1 1360 PRINT#5;a$ 1370 IF D=60 THEN PRINT#5;CHR$(12) 1380 IF D=60 THEN D=1 1390 F=F+1:INVERSE:PRINT d$;:NORMAL:FOR Y=1 TO 100:NEXT Y 1400 GOTO 1340 1410 CLOSE 1420 TEXT:VPOS=24:HPOS=0:END 2060 REM CATCH PASCAL TEXT FILES 18 THEN CLOSE:GOTO 1290 1280 GOTO 1260 1290 OPEN#4,MID$(B$(I),16,B) 1300 OPEN#5,".PRINTER" 1310 ON EOF#4 PRINT#5;CHR$(12):TEXT:HOME:CHAIN".D1/MENU.MAKER",220 1320 GOSUB 204:INVERSE:PRINT USING"79A";""; 1330 D=1:F=1 1340 INPUT#4;a$ 135 CHAIN".D1/MENU.MAKER",220 1200 HOME 1210 d$="" 1220 A$="PRINTING "+MID$(B$(I),16,B) 1230 VPOS=01:HPOS=0:INVERSE:PRINT USING"80C";A$;:NORMAL 1240 OPEN#3,MID$(B$(I),16,B) 1250 Z=1 1260 INPUT#3;b$:PRINT USING"78A";b$ 1270 Z=Z+1:IF Z=0 HOME:PRINT:Z=1 1090 RETURN 1160 TEXT:CLOSE 1161 VPOS=23:HPOS=0:INVERSE:PRINT USING"79C";"WOULD YOU LIKE A PRINTED COPY?":NORMAL 1170 GET C$:IF C$<>"Y" AND C$<>"y" AND C$<>"N" AND C$<>"n" THEN 1170 1180 IF C$="N" OR C$="n" THEN30 GET C$:IF C$<>"Y" AND C$<>"y" AND C$<>"N" AND C$<>"n" THEN 1030 1040 IF C$="N" OR C$="n" THEN 1160 1050 TEXT:VPOS=23:HPOS=0:INVERSE:PRINT USING"79C";"PRESS ANY KEY TO HALT LISTING":NORMAL 1060 ON KBD GOTO 1020 1070 GOSUB 202 108) 950 ON EOF#2 GOSUB 42:HOME:OFF KBD:GOTO 1160 960 HOME 970 Z=1 980 INPUT#2;A$:PRINT USING"78A";A$ 990 Z=Z+1:IF Z>18 THEN GOSUB 42:HOME:PRINT:Z=1 1000 GOTO 980 1020 TEXT:VPOS=23:HPOS=0:INVERSE:PRINT USING"79C";"CONTINUE...?":NORMAL 10