LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030I"IFLASHNAME.DATpEI"I*MENU.MAKER r |2*SOS.DRIVER {42Z-READ.ME.FIRST8O+LISTIT.TEXT8I% -LISTIT.MANUAL I IIII.BLM.17u' *HELLO.TEXTI!OHELLO I!/ *SOS.INTERP 4keI!! *SOS.KERNEL @,VI"!a%SEG.T ljI"Ÿ/ DISKNAME.DATo >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L0 WELCOME! WAP /// SIG Public Domain Library Disk Category/Number :Bloom Disks/3BLM-17 Disk Format: Self-booting LISTIT is another great p CONV&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[  !"#$%&'()*+,-./0123456789:;<=>ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭HER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".d1/Menu.Maker"5 WAP /// SIG HELLO PROGRAM. UPDATED 4/12/89 DGO :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$U-Z#2,".D1/FLASHNAME.DAT":#2;FLASH$:#2%dFLASH=110: FLASence numbers. The listing may be printed a page at a time or continuously.We hope you enjoy it and encourage your submission of programs to our PD library. rogram from Dr. Al Bloom. This program prints formatted listings of Pascal programs or other text files. It also prints an identifying title on each page, provides margin and line length control, and optionally prints line sequCSTRING 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 DISCONNECTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 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Ȣ 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A,lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`Ly^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 t $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!+|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɇoȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | 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 y56}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6HH ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽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@ @@h57Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1  sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` ! ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;e ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyopd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eh`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh H PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !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` ׫$`ɥ%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,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` @SATRLISTIT by Bloom PI PD DISK EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"kmn79C";"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::"  )* 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ʆSTL8HSITQQSTAUTHORS! WE NEED ARTICLES ABOUT YOUR EXPERIENCES WITH THE APPLE ///. T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),qstuvwxyVOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY 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":1750M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=21 HH`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw;Console 4nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! (xy```,.0L 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"""""""> >>>xrz|}~GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|l; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 leve 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"7Driver -- Copyright (C) 1983 by Apple Computer Inc..CONSOLE aO  OO&+- ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aIٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐrx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h A$g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B C}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( efh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqéL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BGKORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &xix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL `ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mww HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4www """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwww     ! ( 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  ,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i - Both Sides LISTIT prints formatted listings of Pascal programs or other text files. LISTIT prints an identifying title on each page, provides margin and line length control, and optionally prints line sequence numbers. The listing may be printed a pag WAP /// SIG PUBLIC DOMAIN LIBRARY 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 PDS NAME: LISTIT by Bloom DISK ID#: 3BLM-17 BOOTABLE?: YESa$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~ /47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}J) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruzp Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/e at a time or continuously. Additionally, LISTIT can print selected pages. Side One: LISTIT Manual and Source Code Files Side Two: Actual LISTIT Program | A: | LISTIT: List Pascal Text Files (v.03/86)......................03/29/86 | | | B: | Enter the name of the output device (the accompanying diskette. When you boot the disk, the following screen appears: ________________________________________________________________________ | Bloom Pascal Text Listing Utility Using LISTIT LISTIT's executable code file is the SYSTEM.STARTUP program on request an "end page" of "26." When you "Press RETURN to begin." LISTIT tells you which pages it is bypassing. LISTIT March 23, 1986 Page 1 e "start" and "end" page options. When LISTIT asks for the page to begin printing, type "26" and press RETURN. If you've only changed a little of page 26, such that no subsequent page's line numbers would be affected, If you have a 30-page program, and if you've modified some code on page 26, you do not want to list the whole thing just to keep your own documentation up to date. This is where you use th The default output device is ".PRINTER," assumed to print on 8-1/2 by 11 continuous paper at 12 characters per inch, 94 characters per line with an eight character left margin, 55 lines of text per page. LISTIT recognizes the console screen (.CONSOLE) as a special output device name. If you enter .CONSOLE as the output device, you automatically get a "page length" of 20 lines and "single page" printing. t line to fit within the margins. If you request just certain pages of a files to be listed, line numbers are the same as for a full-file listing. A LISTIT listing can be directed to any output device. |____________________________________________________________________________| The title area shows the program name (LISTIT), the current date, the file being listed, and the page number. LISTIT splits a long texin | | 0005 writeln ('Hi, there!'); | | 0006 end. | hort and monumentally useless program | | . AMB 11/18/83} | | 0003 | | 0004 beg Page 1 | | ----------------------------------------------------------------- | | 0001 {$list} | | 0002 program myprogram; {A s.CONSOLE for screen) [.PRINTER ] | C: | Left Margin? (Default = 0) --> ___ | D: | Line length? (Default = 79) --> ___ | E: | Print on continuous forms? (Y-Default | N) --> ___ | | | F: | Enter the pathname of the file to be listed: [ ] | G: | PriHEADER1 HEADER2 11O^71March 23, 1986 Page 2 If there are more pages, LISTIT asks if you want to print additional pages. When finished with one file, you can list another. If so go to message F. LISTIT RETURN to begin or ESCAPE to quit." If first page is greater than the default, you see the pages bypassed. For single paging, "Press RETURN to continue or ESCAPE to quit" after each. estination. H: The default first page to be listed, selected by pressing RETURN, is one higher than the last one. The default last page is the file's last. I: The first message is "Presss pathname. If you make an error, the program tells you so and lets you retry. G: If you are printing to the console, the default is "N" for no line numbers. The default is "Y" for another output d E: Press RETURN for printing on continuous forms or enter "N" for single page printing. Console output is always single page. F: The program then asks for the file to be listed. Enter it for the screen or the pathname for anything else. C: The number of spaces to precede the print line, say for 3-hole punching. D: The total line length, including space for the margin and line numbers. ___________| A: This identifies the program, it's revision date, and the current date. B: For output device (during this whole run), press RETURN for the default PRINTER. Enter .CONSOLE | ====================================================================== | I: | {Program control command messages} | |_____________________________________________________________nt sequence numbers? (Y | N) --> ___ | H: | Enter first page to list (Default = 1) --> ___ | | Enter last page to list (Def to end of file) --> ___ | scrn_title := 'LISTIT: List Text Files (v.12/87)'; stdscreen (scrn_title); *gotoxy (0,2); outpath := '.PRINTER'; open (outfile, 'output device (.CONSOLE for screen)', /'rewrite', outpath); if length (outp; seq_enable := true; single_page := false; *page_titles := true; date (yyyymmdd); *today := concat (copy (yyyymmdd,5,4), copy (yyyymmdd,3,2)); *fmtdate (today, print_date, [stddate]); ite (outfile, '': margin); writeln (outfile, print_dash); end; {endif} end;{header} (* *) procedure init1; begin first_file := true; margin := 8; page_length := 55; line_len := 94file); end; {endif} writeln (outfile, '': margin, 'LISTIT: ':8, print_date: 8, -print_title: (line_len - 16)); *writeln (outfile, '': margin, -'Page': (line_len-3), page_no: 3); *if outpath <> '.CONSOLE' then begin -wr end; {endif} *if not first_file then page (outfile); *first_file := false; *if outpath = '.CONSOLE' then begin -screenmsg (0, 0, clrscreen, ''); -end else begin writeln (outfile); writeln (out read (keyboard, answer); if answer = chr(27) then begin close (master); close (outfile, lock); write (chr(28)); exit (program); end; {endif} gotoxy (0, 23); write (chr(31)); if page_no > first_page then write ('RETURN to continue list. ESC to quit.') else write ('RETURN to begin list. ESC to quit.'); {endif} _seq: string; seq_enable: boolean; scrn_title: string; *single_page: boolean; *page_titles: boolean; *yyyymmdd: string [8]; procedure header; var answer: char; begin if single_page then begin nline_str: array [1..100] of string [255]; nchar: integer; page_length: integer; line_no: integer; first_file: boolean; answer: char; seq_no: integer; pr page_no: integer; first_page: integer; last_page: integer; margin: integer; *pr_margin: string; line_len: integer; nline: integer; next_nline: integer; txtline: string [255]; inpath: string; outpath: string; master: text; outfile: text; print_date: string; print_title: string; print_dash: string [255]; -file } 2{Mod 12-30-87, AMB. Option page-eject on continuous forms } {$list-} uses applestuff, genutil, plutil; {$list+} var i: integer; wk_string: string; *wk_curpos: integer; wk_integer: integer; {$list}  program listit; {List Pascal Text Files: AMB 10-22-83} 2{Mod 06-17-85, AMB. Option the margin and sequencing. } 2{Mod 03-21-86, AMB. Handle extra long lines. } 2{Mod 10-15-86, AMB. Close print file on noath) = 0 then exit (program); if outpath = '.CONSOLE' then begin page_length := 20; -line_len := 79; seq_enable := false; single_page := true; -margin := 0; end; {endif} gotoxy (0, 5); *unitclear (1); write ('Left margin? (Default = ', margin, ') ---> '); readln (wk_string); if length (wk_string) > 0 then begin -wk_integer := evalint (wk_string, wk_curpos); if length (wk_string) > 0 then begin wk_integer := evalint (wk_string, wk_curpos); if wk_integer < first_page then last_page := first_page else last_page := wk_integer; {endif end; {endif} end; {endif} gotoxy (0, 19); *unitclear (1); *write ('Enter last page to list (Default = ', 'to end of file) ---> '); readln (wk_string); n (wk_string); if length (wk_string) > 0 then begin wk_integer := evalint (wk_string, wk_curpos); if wk_integer > first_page then begin first_page := wk_integer; next_nline := 0; i,j,k: integer; begin first_page := page_no + 1; last_page := maxint; gotoxy (0, 17); *unitclear (1); write ('Enter first page to list (Default = ', first_page, ') ---> '); readl delete (txtline, 1, nchar); end else begin nline_str [i] := txtline; end; {endif} end; {for i} end; {read_txtline} (* *) procedure first_last; var or i := 1 to nline do begin if i = 100 then nline_str [i] := txtline else if length (txtline) > nchar then begin nline_str [i] := copy (txtline, 1, nchar); if} end; {for i} nline := length (txtline) div nchar; if ((nline * nchar) < length (txtline)) then nline := nline + 1; if nline = 0 then nline := 1; if nline > 99 then nline := 100; f seq_no := seq_no + 1; next_nline := 1; j := length (txtline); for i := 1 to j do begin; if ord (txtline [i]) in [32..127] then else txtline [i] := ' '; {end print_dash := ''; for i := 1 to line_len do print_dash := concat(print_dash,'-'); end; {init1} (* *) procedure read_txtline; var i: integer; j: integer; begin readln (master, txtline); 0write ('Print page titles? (Y-Default | N) --> '); 0read (keyboard, answer); 0upperchr (answer); 0if answer = 'N' then begin 3page_titles := false; 3end 0else begin 3end; 0{endif} 0end; -{endif} end; {endif} on continuous forms? (Y-Default | N) --> '); -read (keyboard, answer); upperchr (answer); if answer = 'N' then begin single_page := true; 0end -else begin 0gotoxy (0, 9); 0write (chr(31)); 0unitclear (1); line_len := wk_integer; end; {endif} *line_len := line_len - margin; if outpath = '.CONSOLE' then begin end else begin -gotoxy (0, 9); write (chr(31)); -unitclear (1); -write ('Print*write ('Line length? (Default = ', .line_len, ') ---> '); readln (wk_string); if length (wk_string) > 0 then begin -wk_integer := evalint (wk_string, wk_curpos); if wk_integer < 0 then wk_integer := 0; if wk_integer < 0 then wk_integer := 0; margin := wk_integer; -end; {endif} *pr_margin := ''; *for i := 1 to margin do pr_margin := concat (pr_margin, ' '); *gotoxy (0, 7); *unitclear (1); } end; {endif} k := 0; j := first_page - page_no - 1; for i := 1 to j do begin page_no := page_no + 1; gotoxy (0, 23); write (chr(31)); write ('Bypassing Page ', page_no, ' '); repeat if k mod 2 = 0 then write ('.'); read_txtline; k := k + nline; until (eof (master) or (k >= page_length)); k := k - page_le answer := ' '; repeat next_nline := 0; first_last; answer := ' '; repeat repeat if (not eof (master)) then read_write; {endif} if seq_enable then nchar := line_len - 5 else nchar := line_len; {endif} print_title := inpath; page_no := 0; seq_no := 0; rue; 0write (chr(31)); 0unitclear (1); 0write ('Print sequence numbers? (Y-Default | N) --> '); read (keyboard, answer); 0upperchr (answer); 0if answer = 'N' 3then seq_enable := false; {endif} end; ('Print sequence numbers? (Y | N-Default) --> '); read (keyboard, answer); 0upperchr (answer); 0if answer = 'Y' 3then seq_enable := true; {endif} end else begin seq_enable := t3close (outfile, lock); 3end; 0{endif} 0exit (program); end; gotoxy (0, 15); -unitclear (1); if outpath = '.CONSOLE' then begin seq_enable := false; 0write (chr(31)); 0unitclear (1); 0write '; repeat inpath := ''; gotoxy (0, 11); open (master, 'file to be listed', 'reset', inpath); if inpath <= ' ' then begin 0write (chr(28)); 0if not first_file then begin 3page (outfile); end; {endif} end else begin eop := true; end; {endif} until (eop); end;{read_write} (* *) begin; init1; answer := ' {endif} writeln (outfile, lhs, nline_str [next_nline]); next_nline := next_nline + 1; if next_nline > nline then begin eop := true; next_nline := 0; pr_seq := concat (pr_seq, ' '); end else begin pr_seq := ' '; end; {endif} 4lhs := concat (lhs, pr_seq); 4end; ast_page then begin 1lhs := pr_margin; 1if seq_enable then begin if i = 1 then begin str (seq_no, pr_seq); 7while (length (pr_seq) < 4) do :pr_seq := concat ('0', pr_seq); e_no <= last_page then begin 4if page_titles then 7header 4else if line_no >= 999 then 7header; 4{endif} 4end; 1{endif} line_no := 1; i := 1; end; {endif} if page_no <= l then else read_txtline; i := 0; repeat i := i + 1; line_no := line_no + 1; if line_no > page_length then begin page_no := page_no + 1; if pagprocedure read_write; var i: integer; j: integer; eop: boolean; lhs: string; begin eop := false; if next_nline > 1 then else if eof (master) ngth; if eof (master) then else if k > 0 then next_nline := nline - k + 1 else next_nline := 0; end;{for i} line_no := 999; end; {first_last} (* *) until (eof (master) or (page_no > last_page)); page_no := last_page; gotoxy (0, 23); write (chr(31)); 4unitclear (1); if eof (master) then begin write ('End of file. Press RETURN.'); read (keyboard, answer); stdscreen (scrn_title); end else begin write ('List other pages? '); read (keyboard, answer); upperchr (answer); if (answer = 'Y') else answer := 'N'; {endif} end; {endif} until (answer = 'N') or (eof (master)); until (answer = 'N') or (eof (master)); cDef> '); read (keyboard, answer); stdscreen (scrn_title); upperchr (answer); if (answer = 'Y') then first_last | | 0006 end. | |___________________________________________________________________________|] The title area shows the program name (LISTIT), the current date, the file being listed, and the page number. LISTIT splits a long text line to fit within the margins. If you request just certain pages of a files to be listed, line numbers are the same as for a full-file listing. A LISTIT listing can be directed to any output devicee is the file's last. I: The first message is "Press RETURN to begin or ESCAPE to quit." If first page is greater than the default, you see the pages bypassed. For single paging, "Press RETURN to continue or ESCAPE to quit" after each. If therIf you are printing to the console, the default is "N" for no line numbers. The default is "Y" for another output destination. H: The default first page to be listed, selected by pressing RETURN, is one higher than the last one. The default last pagprinting on continuous forms or enter "N" for single page printing. Console output is always single page. F: The program then asks for the file to be listed. Enter its pathname. If you make an error, the program tells you so and lets you retry. G: ault PRINTER. Enter .CONSOLE for the screen or the pathname for anything else. C: The number of spaces to precede the print line, say for 3-hole punching. D: The total line length, including space for the margin and line numbers. E: Press RETURN for | | | A: This identifies the program, it's revision date, and the current date. B: For output device (during this whole run), press RETURN for the deflist (Default = 1) --> | | Enter last page to list (Def to end of file) --> | | ====================================================================== | I: | {Program control command messages} | | F: | Enter the pathname of the file to be listed: [ ] | G: | Print sequence numbers? (Y | N) --> | H: | Enter first page to en) [.PRINTER ] | C: | Left Margin? (Default = 0) --> | D: | Line length? (Default = 79) --> | E: | Print on continuous forms? (Y-Default | N) --> | | A: | LISTIT: List Pascal Text Files (v.03/86)......................03/29/86 | | | B: | Enter the name of the output device (.CONSOLE for scres executable code file is the SYSTEM.STARTUP program on the flip side of this diskette. When you boot the disk, the following screen appears: | tle of page 26, such that no subsequent page's line numbers would be affected, request an "end page" of "26." When you "Press RETURN to begin." LISTIT tells you which pages it is bypassing. Using LISTIT LISTIT' 26, you do not want to list the whole thing just to keep your own documentation up to date. This is where you use the "start" and "end" page options. When LISTIT asks for the page to begin printing, type "26" and press RETURN. If you've only changed a litNTER," assumed to print on 8-1/2 by 11 continuous paper at 12 characters per inch, 94 characters per line with an eight character left margin, 55 lines of text per page. If you have a 30-page program, and if you've modified some code on page. LISTIT recognizes the console screen (.CONSOLE) as a special output device name. If you enter .CONSOLE as the output device, you automatically get a "page length" of 20 lines and "single page" printing. The default output device is ".PRIe are more pages, LISTIT asks if you want to print additional pages. When finished with one file, you can list another. If so go to message F. these data bases PNso that you can have a hard copy of the information. It is impossible to set MKup the printer options in disks like this for all printers, so be sure you JHset the print options to your own needs and specifications before going ================> A3.CHIPS Data Base 7K 5/08/88 10:45 pm> A3.PGM.VERSIONS Data Base 11K 5/08/88 10:49 pm> A3.REPAIRS Data Base 5K 5/08/88 10:49 pm> APPLE3.BIB.86 Data Base 107K 55 Data Base 63K 5/12/88 9:18 pm> FILE.TYPES Data Base 2K 5/08/88 10:13 pm Disk volume /WORKS.DISK3 ; Name Type of file Size Date Time> ==========================================88 10:02 pm Disk volume /WORKS.DISK2 ; Name Type of file Size Date Time> ==========================================================> A3.GLOSSARY Data Base 63K 5/08/88 10:11 pm> APPLE3.BIB.888 9:49 pm> PEEK.POKE.CALL Data Base 13K 5/08/88 9:50 pm> THREE.WORKS Word Processor 14K 5/18/88 10:18 pm> WORKS.CATALOG Word Processor 4K 6/01/88 10:13 pm> WORKS.CATALOG2 Data Base 2K 5/19/============> APPLE3.BIB.1 Data Base 88K 5/08/88 9:34 pm> FATAL.CODES Data Base 4K 5/08/88 9:49 pm> MON.COMMANDS Data Base 3K 5/08/88 9:50 pm> NON.FATAL.CODES Data Base 6K 5/08/0Quick Reference: THREEWORKS for the Apple ///  Disk volume /WORKS.DISK1 ; Name Type of file Size Date Time> ==============================================GO=====|====|====|====|====|====|====|====|====|====|====|====|====|====|====|===4G>AIRMAN FOR THE APPLE /// SIG OF WASHINGTON JHAPPLE PI, AN APPLE USERS GROUP BASED IN BETHESDA, MARYLAND, A SUBURB OF NWASHINGTON DC. HE IS A PRODUCER FOR CABLE NEWS NETWORK'S WASHINGTON BUREAU.9 OTTALINI HAS BEEN USING HIS APPLE ///+ SINCE 198oblems arise#from any information herein used.8Again, thank you for purchasing ThreeWorks. Enjoy it!O*****************************************************************************COMPILER NOTESM DAVID OTTALINI IS THE CO-CHlied, as to the correctness of the OMinformation provided. The user must determine if the information is correct Mbefore utilizing it in any form. Thus, the compiler and those vendors/userGgroups selling ThreeWorks will be held harmless should pra base. Obviously, you may create your Lown and/or change the individual reports to better satisfy your own needs. DISCLAIMEROM Neither the compiler, nor those vendors/user groups selling ThreeWorks, FDmake any claims, expressed or impahead.)Some Additional Notes on the Data BasesM Within some of the data bases, the compiler has created a set of TableLand/or Label-style reports. These are designed to help the user get more Ninformation out of each specific dat/12/88 9:31 pm Disk volume /WORKS.DISK4 ; Name Type of file Size Date Time> ==========================================================> APPLE3.BIB.87 Data Base 71K 5/12/88 10:08 pm> APPLE3.TIPS Data Base 43K 5/08/88 10:59 pm Disk volume /WORKS.DISK5 ; Name Type of file Size Date Time> ==========================================================> APPLE3.BBS Data Base 6KDATA BASE00011# APPLE3.CLUBS3 5 DATA BASE00012%APPLE3.CONSULTS 5 DATA BASE00010$APPLE3.DRIVERS 5 DATA BASE00024%APPLE3.PUBLCTNS 5 DATA BASE00012! APPLE3.TIPS 4 DATA BASE00086$APPLE3.VENDORS 6 DATA BASE00106# AW.3EZP.CLUATA BASE00126# APPLE3.BIB.86 3 DATA BASE00215# APPLE3.BIB.87 4 DATA BASE00142" APPLE3.BOOKS 5 DATA BASE00014# APPLE3.BOOKS2 5 DATA BASE00019# APPLE3.CABLES 5 DATA BASE00018" APPLE3.CLUBS 5 DATA BASE00027# APPLE3.CLUBS2 5 -A3.CHIPS 3 DATA BASE00014! A3.GLOSSARY 2 DATA BASE00126%A3.PGM.VERSIONS 3 DATA BASE00022 A3.REPAIRS 3 DATA BASE00010 APPLE3.BBS 5 DATA BASE00012" APPLE3.BIB.1 1 DATA BASE00177# APPLE3.BIB.85 2 D FILE NAME01DISK #ry 02 FILE TYPE03BLOCKSry 04 USER NOTES:--&D#D/%   DL7.DB2 Data Base 32K 5/08/88 11:31 pm> DL8.DB Data Base 22K 2/13/88 0:19 am> PD.3SOFTWARE2 Data Base 72K 6/01/88 9:15 am 38K 5/08/88 11:30 pm> PD.3SOFTWARE1 Data Base 78K 6/01/88 9:59 pm Disk volume /WORKS.DISK8; Name Type of file Size Date Time> ==========================================================>SIC.KEYS Data Base 73K 9/26/87 10:57 pm Disk volume /WORKS.DISK7; Name Type of file Size Date Time> ==========================================================> DL7.DB1 Data Base 5/27/88 11:07 pm Disk volume /WORKS.DISK6 ; Name Type of file Size Date Time> ==========================================================> APPLE3.VENDORS Data Base 53K 5/27/88 3:45 pm> BA 5/27/88 11:20 pm> APPLE3.PUBLCTNS Data Base 6K 4/13/88 9:52 pm> AW.3EZP.CLUBS Data Base 5K 5/07/88 11:11 pm> AW.3EZP.PUBS Data Base 2K 5/07/88 11:30 pm> AW.3EZP.VENDORS Data Base 14K 4/21/88 9:32 pm> APPLE3.CLUBS2 Data Base 5K 9/10/87 8:46 pm> APPLE3.CLUBS3 Data Base 6K 9/10/87 8:48 pm> APPLE3.CONSULTS Data Base 5K 9/10/87 8:32 pm> APPLE3.DRIVERS Data Base 12K 10/21/87 11:31 am> APPLE3.BOOKS Data Base 7K 4/13/88 9:18 pm> APPLE3.BOOKS2 Data Base 9K 5/07/88 10:50 pm> APPLE3.CABLES Data Base 9K 5/08/88 9:49 pm> APPLE3.CLUBS Data Base 13KBS 5 DATA BASE00010" AW.3EZP.PUBS 5 DATA BASE00005%AW.3EZP.VENDORS 5 DATA BASE00028 BASIC.KEYS 6 DATA BASE00147DL7.DB1 7 DATA BASE00076DL7.DB2 8 DATA BASE00065DL8.DB 8 DATA BASE00044! FATAL.CODES 1 DATA BASE00009 FILE.TYPES 2 DATA BASE00005" MON.COMMANDS 1 DATA BASE00006%NON.FATAL.CODES 1 DATA BASE00012# PD.3SOFTWARE1 7 DATA BASE00153# PD.3SOFTWARE2 8 DATA BASE00145$PEEK.POKE.CALL 1 DATA BASE00026& THREE.WORKS 1WORD PROCESSOs gone crazy.Replace the memory.1Use a different copy of SOS.Interp or SOS.Driver.$08MCTOVFLToo many device drivers.DSomeone has used an older version of the System Utilities program to>install too many drivers. SOS limits the number of drivers telector andFtrying to load a memory-hogging program like Lazarus, Three Cheers, or"Draw On Three into a 256k machine.$07 BADSYSCALLDThe device system has detected an invalid control or status request.Memory has been damaged.&Either SOS or a driver ha a bug in it and has made too many subroutine calls,7a bad return call or has decremented the stack pointer.Replace the memory.$Use an original copy of the program."Complain to the program developer.AThis may also happen if you are using a program like Srogram has told SOS to ignore events.An interface card has gone bad.$Complain to the program developer(!)Replace the card.$06STKOVFLStack Overflow.Memory has been damaged.9The user is using a bad copy of a copy-protected program.CThe program has user has pressed the RESET button while a copy-protected program!was trying to lock up the system.An interface card has gone bad.Don't press the RESET button.Replace the interface card.$05EVOOVFL-The Apple /// is receiving too many requests.(A p using the machine.9Remove the card or install a proper driver for that card.%$03No Error exists for this numberH$04NMIHANDJThe Apple /// tried to disable the RESET key, but the user or a peripheral-card has "pressed" it at about the same time.DThel from a peripheral card thatit didn't know what to do with.!The user has shocked the machine.=The machine contains an interface card, but SOS either has anUser is trying to use a driver that needs part of the computerallocated for another driver.?This happens most frequently when using a machine that has both"joysticks and a Silentype printer.number.Contact the manufacturer.9$20,32Invalid request code.Contact the manufacturer.@$21,33Invalid control/status code.Contact the manufacturer.E$22,34!Invalid control/status parameter.Contact the manufacturer.4$23,35Device not opentact program manufacturer.F$5,5 Pointer parameter out of bounds.Contact program manufacturer.$10,16Device not found.6User has specified a driver name which does not exist..Type the name of a driver that does not exist.:$11,17Invalid device $1,1Invalid system call number.Contact program manufacturer.D$2,2Caller's zero page is not $1A.Contact program manufacturer.E$3,3Invalid extend byte in pointer.Contact program manufacturer.J$4,4$Invalid System Call parameter count.ConCause 4 Solution1 Solution2 Solution3 Solution4Note--K$0,0No ErrorInvalid system call number.Contact program manufacturer.AError#ry 1 Description--Cause 1Cause 2Cause 3)HDD/1%#;(   un System's Harold Stuart, Technical Representative, forLcompiling this list. Originally published in Sun Times, Nov/Dec 1986 Pg. 5.directories.$0F BADBUFNUMBad buffer number.4The user is using a bad copy of a protected program.Memory has been damaged.Use original copy of program.Replace memory.$10 BADBUFSIZEBad buffer size. Bad memory.Replace the memory.CThanks to SRAllocation blocks are invalidMemory failureReplace the memory.&$0D No error exists for this number.$0ETOOLONGFilename too long.EThe complete filename (i.e. the file name + any prefixes is too long.5Shorten all file names, including all sub46Disk has been switched.FThis happens when a user has an open file on one disk and puts anotherdisk into the drive.=If original disk has been returned, try again. If not, returnoriginal disk.@ $30-3F,48-63Device specific error.Contact the manufacturer.k$40,64Invalid pathname syntax.+The user has specified an invalid pathname.Check typing and try again.a$41,65Too many character files open.8The user is trying to print to too many devices at once.5$42,66Too many disk files open.Clo COMMANDTIONLOCATION,VALUEACTIONry 03-ategory 04-ategory 05-ategory 06Conversion Notes-o DD/z -   format.7$70Invalid joystick mode.Contact the manufacturer.B$E0-E7,224-321Memory manager errors.Contact the manufacturer.ttempt was made to set the file level to an invalid number.Contact the manufacturer.$5A,89Bit map address error.The disk has been damaged.POKE 37,X {$25}Sets Cursor Vertical Position. Use VPOS=X+10POKE 48,X {$30}Sets color for LORES graphics.2POKE 50,63 {$3that the Apple // window starts at 0 while!the Apple /// window starts at 1.MPOKE 33,X {$21}+Sets width of text window. (1-40 NORMAL=40)See Poke 32,X.KPOKE 34,X {$22}(Sets top of text window. (0-23 NORMAL=0) See Poke 32,X.OPOKE 35,X {$23},SetsermineLall of the window parameters, even if only one is changed. Also, since theIApple /// has an 80 column screen, the text should be reformatted anyway,Eand the text window can be adjusted accordingly. When converting theFnumbers above, keep in mind e next four pokes set up the text window.IBusiness Basic has a statement, WINDOW, which sets all four of the windowIparameters. There is no easy way to set just one of them. This, howeverHwill not usually cause a problem as it is not too difficult to detAVE or BSAVE command.-POKE 47102,236Shortens Motor turn-on time.=POKE 47102,216,Restore motor turn-on time to standard time.@POKE47617,12 {$BA01}(Speeds disk access (same as ADR -17919).POKE49232,0GraphicsPOKE49234,0 All Graphics%POKE49236,0Show Graphics Screen 1%POKE49237,0Show Graphics Screen 2POKE49239,0Hi-Res GraphicscPOKE-21912,X {$AA68}-To select disk driver on a 48K system withoutactually executing a command.:POKE-20940,96 {$AE34}!To omit page pause for PEEK should be followed by a POKE-16368,0.=These locations are used to simulation a GET statement, whichinteger BASIC does not have.)For example this Integer BASCI statement:61000 A=PEEK(-16384):IF A<128 THEN 1000: POKE -16368,0&could be written in Busg used (16 = DOS 3.3 13 = DOS 3.2)(Same as ADR -19472).rPEEK(-18070/$B96A).If 150 is returned then you are using DOS 3.3.-This PEEK works for both Applesoft & Integer.@PEEK(-16384/$C000)7Read keyboard. If value is >127 then a key was pressed./This) *2569To find starting address of last BLOADED program or data.sPEEK (43702/$AAB6)$Returns the language that is active.9(0=INT 64=FP 128=FP on tape or disk) (Same as ADR-21834).PEEK (46064/$B3F0)%Returns the number of sectors on disk0currently beineffect as X=ERRLIN, but different error numbers are%used in AppleSoft and Business BASIC.>PEEK(36/$24).Read Cursor Horizontal Position (VALUES 0-39).<PEEK(37/$25),Read Cursor Vertical Position (VALUES 0-23).gPEEK&(-21902/$AA72)+PEEK(-21901/$AA73t is a syntaxGerror, which could be caused by mistyping, the line helps in debugging.(Nibble Magazine)..+For Business BASCI Conversion: Use X=ERRLINPEEK (222/$DE)-Returns error code which identifies the error"which caused an ONERR to be taken.8Same ne number where an erroroccured if an ONERR was taken.EFor Example: PEEK(218)+256*PEEK(219) tells you the program line whereHthe error was encountered. When a disk error occurs, it usually doesn'tEmatter where in the program the error occured. But if i$73)+PEEK(116/$74)*256Current Applesoft HIMEM.BPEEK(175/$AF)+PEEK(176/$B0)*256 :Pointer to Applesoft program.ZPEEK(202/$CA)+PEEK(203/$CB)*2567Returns memory location of 1ST line of Integer program.PEEK(218/$DA)+PEEK(219/$DB)*256$Applesoft li,0 {$C0F9} Turns on Slot 7,Disk motor only./PEEK(74/$4A)+PEEK(75/$4B)*256Current LOMEM.7PEEK(76/$4C)+PEEK(77/$4D)*256Current Integer HIMEM.[RNDPEEK(78/$4E)+PEEK(79/$4F)*256)6Provides 'TRUE' random number generation in Applesoft.;PEEK(115/POKE-16297,0 {$C057}Sets HIRES GR Mode.#Remove from Business BASIC program.1POKE-16152,0 {$C0E8} :Turns Slot 6 motor off.9POKE-16151,0 {$C0E9}!Turns on Slot 6, Disk motor only.1POKE-16136,0 {$C0F8} :Turns Slot 7 motor off.8POKE-16135%1,%1):PERFORM GRAFIXONbPOKE-16299,0 {$C055} :Sets display to page 2./USE PERFORM GRAFIXMODE (%1,%2):PERFORM GRAFIXONPOKE-16298,0 {$C056} :4Clears HIRES Graphics Mode and returns to text mode.1Low resolution graphics can't be done on the ///.PC program.POKE-16301,0 {$C053},Sets Mixed Graphics Mode. (4 lines of text).5The Apple /// doesn't have this mode so you will need!to decide on one the /// can use.lPOKE-16300,0 {$C054}#Switches from page two to page one./Use PERFORM GRAFIXMODE (so, the value POKED does not matter, and PEEKS to the$same address will do the same thing.PPOKE-16303,0 {$C051}$Switches from graphics to text mode.Use PRINT CHR$(15)\POKE-16302,0 {$C052}Clears Mixed Graphics Mode.'Remove from the Business BASIor graphics modewithout clearing the screen.,Best approximation here is PERFORM GRAFIXON.GNOTE: From POKE -163040,0 through POKE -16297,0 all manipulate graphicsGmode in the //. On the ///, you will have to have INVOKED BGRAF.INV andHinitialized it. Ala calalog.'POKE-16368,0 {$C010}Clear Keyboard.}POKE-16336,0 {$C030}Toggle Speaker.Also: Peek (-16336)8To convert, you will have to use Business BASIC's .AUDIOdriver.POKE-16304,0 {$C050}DSets Color GR mode; Switches screen from text to coliness BASIC as:1000 GET A$: A=ASC(A$) + 128HThese locations can also be used in either Applesoft or Integer BASIC toLallow a program to be interupted by pressing a key. In Business BASIC, this+is best handled using the ON KBD statement.7PEEK(-16352/$C020)!Toggles the cassette output port.PEEK(-16336/$C030),Toggle the speaker once for every two PEEKS.Also: POKE -16336,0=To convert to Business BASIC, you must use the .AUDIO driver.VPEEK(-16287/$C061).Read PDL(0) switch. If value >127 = SwitchLL./CALL -151 {$FF69}Enter Monitor without BELL.CALL -144 {$FF70}5Scan and execute contents of Keyboard Buffer at $200.;Note: If using Applesoft do not use this call with a GOSUB.,P and S Registers.7CALL -211 {$FF2D}#Print ERR message and BEEP speaker.4CALL -198 {$FF3A} BEEP speaker.Use PRINT CHR$(7)QCALL -167 {$FF59}=Enter Monitor and set Text Mode. Functions the same as RESET.,CALL -155 {$FF65}Enter Monitor with BEUse Print CHR$(31)BCALL -856 {$FCA8}.Time delay. POKE 69,XX to set amount of delay.'CALL -756 {$FD0C}Wait for key press.+CALL -384 {$FE80}Set Inverse Video Mode.*CALL -380 {$FE84}Set Normal Video Mode.8CALL -321 {$FEBF}$Display the A,X,Y-922 {$FC66}?Move Cursor down one line without changing Horizontal Position.(Same as Control J...Line Feed)Use PRINT CHR$(10)8CALL -912 {$FC70}$Move all text in window up one line.WCALL -868 {$FC9C}Clear Cursor to end of line.(Same as escape E) Cursor to lower right corner of the screen.-(Same as Escape F...clears to end of screen).Use Print CHR$(29)ECALL -936 {$FC59}Clear screen (HOME).Use HOME in Business Basic.@CALL -926 {$FC62},Send Carriage Return and Linefeed to screen.CALL Apple speaker for 1/10 second.Use PRINT CHR$(7);CALL -1036 {$FBF4}&Move Cursor forward (RIGHT) one space.;CALL -1008 {$FC10}&Move Cursor backward (LEFT) one space.,CALL -998 {$FC1A}Move Cursor up one line.CALL -958 {$FC42}=Clear screen from 20 lines to @ if in Text Mode.#If in LORES clears screen to black.5CALL -1953 {$F85f} Increment LO-RES color by three.*CALL -1370 {$FAA6}Re-Boots disk system.<CALL -1184 {$FB60}'Clear screen (HOME) and print Apple ][.KCALL -1052 {$FBE4}#Beep ORT (see HCOLOR?for the correct value for c. It should be the same as the last/PENCOLOR to have the same effect as CALL -3082)*CALL -2458 {$F666}Enter Mini Assembler.3CALL -1998 {$F832}Clears LO-RES screen to black.aCALL -1994 {$F836}(Clear topsic to keep track of For-Next loops and Gosub-Return"combinations. (Nibble Magazine...)(Remove from your Business BASIC program.ECALL-30867Use PERFORM FILLPORT (assuming the fillcolor is Black).CALL-30828Use PERFORM FILLCOLOR (%c): PERFORM FILLPEXEC INTEGER Basic "CON" command.1CALL -3305 {$F317}Resume from Applesoft ONERR.*CALL-3288BFixes up the stack so that a program can continue without a RESUMEFstatement. The stack is a special 256-byte area of memory used (amongGother things) by Ba$E04B}List INTEGER Basic.=CALL -7036 {$E484}(Do Applesoft Garbage Collection Routine.'CALL -6090 {$E836}Run Integer Basic.1CALL -3727 {$F171}Turn on INTEGER Basic Trace.2CALL -3722 {$F176}Turn off INTEGER Basic Trace.6CALL -3318 {$F317}!n to black. (Same as -3086).zCALL 62454 {$F3F6}(Clear current HIRES screen to the HCOLOR127 = Switch On.Use X=BUTTON (1)VPEEK(-16285/$C063).Read PDL(2) switch. If value >127 = Swithc On.Use X=BUTTON (2)4CALL768(Remove from your Business BASIC program.!JEDD/:    //, //e, //gs, ///, Lisa and Macintosh (in its various LJincarnations) are all trademarks of Apple Computer, Inc. AppleWorks is a Ftrademark of Claris Corporation. Of course all rights are reserved../// EZ Pieces is a trademark of Haba/Arrays.4.LDedication: These ThreeWorks disks are dedicated to Daniel Guy Ottalini, Gborn March 23, 1987 at Columbia Hospital for Women in Washington D.C.O*****************************************************************************FDApple, Appletected, 82 read error.D[BYTE]/[ADDR1].[ADDR2]S** Search for BYTE between ADDR1 and ADDR2.y;* Dump next line of addresses to screen. 40 column dumps 8)addresses. 80 column dumps 16 addresses.tor.U[BLK#]/[ADDR1].[ADDR2]R;* Read from disk starting at BLK# into ADDR1 through ADDR2.[BLK#]/[ADDR1].[ADDR2]W:* Write to disk starting at BLK# from ADDR1 through ADDR2.1DANGEROUS as it will write anywhere. Error Codes.280 drive error, 81 write pro.;[ADDR]:"[TEXT]")* Store TEXT into ADDR with high bit set.=[ADDR]:'[TEXT]'+* Store TEXT into ADDR with high bit clear.' [ADDR]:[BYTE]* Store BYTE into ADDR.*[ADDR]G * Gosub ADDR, return to monitor.0[ADDR]J&* Jump ADDR, do not return to moniave a space before and after).][ADDR1].[ADDR2]K* Dump ADDR1 through ADDR2 to screen and display ASCII characters. to right?[ADDR1]<[ADDR2].[ADDR3]M$* Move ADDR2 through ADDR3 to ADDR1.A[ADDR1]<[ADDR2].[ADDR3]V&* Verify ADDR2 through ADDR3 at ADDR1Stop output- display next line- any character to continue.b C0D1/C0E8,* Both disk drive motors can be turned on by)first reading C0D1 and then reading C0E8."U* Gosub through vector at 3F8.ZX0* Repeat last command until space bar is pressed%(must hrow>* Cursor left.%* Cursor down.'* Cursor right.! * Cursor up.# L* Clear to end of line.# P* Clear to end of page. S* Clear text window.F<* mn dumps 16 addresses.> 0* Interrupt- abort operation, return to monitor., * Cancel present command line.2 4&* Set 40 column mode and clear screen.2 8&* Set 80 column mode and clear screen.%;* Dump next line of addresses to screen. 40 column dumps 8)addresses. 80 coluCommandy 01 Description-ategory 03-ategory 04-ategory 05-ategory 06-Y