LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)n&<B $0\ 7:D6>PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD UCSDFILEEXTFILEMEXTFILEMDIRSTUFFDIRSTUFF ( FONTS UPROGRAMS U -READ.ME.FIRST ; 3PRINT.CODE   *PRINT.TEXTT  z*PRINT.CODEE  zMENU.MAKER.254Au' -SYSTEM.PASCALe !8# SYSTEM.MISCINFOl VK8.SYSTEM.LIBRARYn2b .SYSTEM.STARTUP R*HELLO.TEXT /MENU.MAKER.CODE >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L>?<=@Ogg^^2Copyright Apple Computer, Inc., 1983 Release 1.2  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk  ,  &  "ë 넡6 & Í< š˄ u 6 צ`&Ꟛ š#ńW   0  𓍡ńȄ (˫/ ˡ   Í uˡ ˡ ! ˡ(!!!(š]9W.TEXTת .CODEתš!!Ȅ!!P!x!P ( >ˡ 뚹  9P.TEXTׯ7צ.CODE$.BACKׯצ.ASCIaF*:˄/˄&ڲ#áצ:áD9>/ת(.Ä !á צ[š@תP5á75צ7959@צ/75צ:.Í7šצ/55š>575ȓ7.795985צ/57755ȩ5å.ˍo˩5ń\955á57צ:5*å#Í%Í5ōM5á@7Pá/á *á?@%áΪ@:ץ55ȡAá+#Ó7צ/ˍ7A P @7d\8P7ת@ת/š[ץ55š8]ץ115á8g15š^854466 6084441é841é15Ä4*á85158Í7!ץnue% " ,Í ˫T \$ á (ȡ*龫 ȡazȄaA3>/ء7ت /7: á :@7 @  5& |" "%: ˡ J#鿥  &'azȄaAB%Type to contiá+ ɡ _" ġ5 5fj <65 &ˡ 5 56!ˡ 5Rˡ 5=˄+&ȡš B5  ,á0 1ت2S# 2أ d0, P# 2أd0, I# 2أ 01@3! áצ IO error # 2 d0צ Exec err # 2d01Íáɡ 럚肚`諁6"  >  >b) á إaaġ00000תȡ  ڕ0قPSYSTEMPW\PIj ;́@́AƁAa@ƁAǐƁAP:ץaá:/Pa8ʁ@ >"á"ʁ@ˡ ʁ@ʁ@ʁ@ צʁ@ ʁ@á áÄš  A ; ɡ'áצ-32768 ` 逫-ġ@00ń0ˡ ɡc ȡꫀ v  ꫀ𩀄򩀄"7ũ  @š& "ˡ鿩/ȡšfFF >"ˡFFTFN áEF > 섡/ F >"ˡFFFFFAN A=" "ˡá á áˡ á ń# Ȅ ꚹ|á\"Ä:5@+ > ˍ >  ʂ)ʂ)ʂ($ʂ($Pd@ šš > "ˡ "Lá"  ë   rp ,p "ˡq*  ) > "á=ˡ땏  šá áI?"á61 ɻ  VZFب&̂(ʂ( ʂ(ʂ(ʂ($ʂ(̂)ʂ)!& š땫ĻD?ꓡ"á삫ûš > "ˡ˫   ɡĻ2꓄ > >"ˡ ꄓr?Lá š?ۂˡ 3ء #צ ۂ #ء >  >݂"ˡ ޕ݂ނɡ  ?Ąɡ낫š ꓡ >=@ >=!@ >'@ >> )#%0ë>>@@@| V  )šá4?VVPVU _VP>=+>P=X>髁@@@˄@#@ˡ @@#>@@ O@ ˡ? @ ?>@ > ? @ ?>쓡 @ ?>@ > á@ > =@(: [L&á'횩)ˡ8 >#> \ˡآآآ*=UU šC+P aaaO@á ( ˄ ë <:ץaššë 铄˄dS: ?  ڢڢצڢ ڢ  آأأآآآ <Pš8P8>뫀 8a a:a aڡɡá >ʁ@ צ" ˄ Ʉ;>ʁ@"ؚ"álʁ@&ʁ@ > "áVʁ@ ʁ@"Ä:ʁ@铡-@ ʁ@ >ʁ@ @>ʁ@ @>ʁ@{ :( آڢZš "1諀멀ȡ!뾿 9šš A | á0á6  ] |Nš 3"#쾿 A 9dá. 6ááצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user(l tl{s::^ql H7;4J44**9;72222l^;;;J^pl{Tp/NFile length - w/V) J/ ~~^4;41 C8TClZ?8T>8No debugger in systemתP:q,J"l&ql{q@JHJl{qTJ.CNNNNlf/;/ J(J;8/nrC8TCol{bm*llwl{#wJ^ H74lol{ml tl{s::^ql H7;4J44**9;72222l^;;;J^pl{Tp/NFile length - w/V) J/ ~~^4;41 C8TClZ?8T>8No user programתP4Jql{q,J"l&ql{q@JHJl{qTJ.CNNNNlf/;/ J(J;8/nrC8TCol{bm*llwl{#wJ^ H74lol{mCEGIKMǀ$ á"ˡ"" ''E>zˡD-F;̀̀آE'ʀˡFʀáʀá>??>D;PVvn (B .HJ@ "#$L%%%%d Fx\x >! !!~""X!v,r t @l @ " : J h*$FDt!-ǀ@? ? צP6z>ׯ{ yD  ?ACEGIKMǀ$ á"ˡ"" ''E>zˡD-F;̀̀آE'ʀˡFʀáʀá>??>D;PVvn (B .HJ@ # . closing FILE or DEVICE opened by last program$>"z>Dt!-ǀ@? ? צP6z>ׯ{ yD  ?Aġ  CwCvCá>pq+u"ˡ closingBuC!dt -!ˡ !蟚dt ,.z>>"ȡ{ˡo!צError>+u uu"˶u reading fromB+söusÄ+f,u迶u"ˡצ writing toB+sársá+rL*ˡ ؞!؟C!C CˡMxCš3@šQȡ2 š:X fצError  exec fileFBpp) rs* rs*q qy[\ ȡ*ńȄ4šáRתPńȄ ,ń.áš蕻:00áQP 0á0 é000+-Í-ë0^ 000á'6á 000 צSystem IO error(צ# (out of filename storage spaceת(illegal unit #ת(צillegal IO request(illegal directory specת(צvol went off-line(צfile lost in dir( bad file nameת(no room on volת(צ vol not found(צfile not found( dup dir entryת(file already openת( file not openת(wbad input formatת(^צwrong disk format(Dצdisk write protected(' }hO2qZBצ IO error: (t!צPΦתP+צP22>  pq%sy!{P{ 1 %צSystem re-initialized6 jBHPTD r "  Copyright U.C. Regents 1979 צVersion: May 1983 Based on U.C.S.D. Pascal II.1n ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????ר d' l Current date is  --  צ'Copyright Apple Computer Inc. 1981-1983 Copyright U.C. Regents 1979________________________________ | *| |  ؕ| ,|__________________________________________|4-4-ȡ44#צSYSTERM:(>z ,,,% š --Apple /// Pascal -1.2-P* + __________A$    H2צ*צ:צ??"?[צ0Bצ0tצ0SYSTEM.WRK.TEXTײ[2 SYSTEM.WRK.CODEײB* , צCONSOLE:(ȡ"5555vu -? ܪPAƂg/0̂gƂg*ƂgQƂg A0"ˡ\٦׷T0̂gƂgPƂg:QƂg`Ƃg š/0 0 /A0؞"Ú/ۧ?PצPUP.P1 Ƃ;P צPGתPˡǀ?P:ײP)@B$$$  wx55 ʂd.áʂdʂdʂd ˻عcʂdצCONSOLEjʂdSYSTERMתYʂdצGRAPHICHʂdPRINTERת7ʂdצREMIN(ʂdREMOUTתk\M B3&ʂdʂdضáoʂdšf?ʂdצ*SYSTEM.STARTUP"ë1Ƃ;צ*SYSTEM.STARTR צ#4:SYSTEM.EDITOR צ#4:SYSTEM.FILER #4:SYSTEM.LINKERת ̂dʂdȡ+٤ ̂eʂeתʂeʂe Ȅ٤ ̂d ʂdʂd >ʂd׷ړ ؞&"ڡؿʂdá ʂdG ʃG ʃG  ʃGʃF̃GʃGʃGʃGʃGʃGʃGʃGʃG  ʃG 4$Ƃ+צ#4:SYSTEM.ASSMBLER צ#4:SYSTEM.COMPILEܣʃFܢʃF%ܢ% ʃF>ʃFʃF+ >&?̃FʃFʃFʃFʃF%̃G ʃGʃGʃGʃGʃG ʃGʃG ʃ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(Ƃ+ ƃ*SYSTEM.MISCINFOתPƃ"á̃FܢʃFʃFܢʃFצUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&|dI+oYC ád0 *R#,n vo צVersion: May 1983 Based on U.C.S.D. Pascal II.1n ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????ר d'!&ءdt >uˡpq- ? ? ȡoڢܤ ܤ˄R slot   is not from Apple III CompilerGצP2š[2Pš̀ʀȡ,[ܾ [[ܾ [ƀƀצEXEC//q7!Nested exec commands are illegal!צצ<[پ.á[[[>-uu["áps,ؓ+2!y*SYSTEM.WRK.CODE׷N"tB0*š5**צ.CODE:* * "2+Pء2PؓJ=צExecute what file? 2< 2תP=3 00ÍDD2DáۤD122 Ä  !  á#Assembling...  צ Compiling...    áثt  š, šƀ 1v -ƁP-ƁP^ۤD2Dáۤ&./0000ˡc0 EEPEת0&;3FFEF:F&F 3D ۤ #0צƂ<11Ɓ1 nݡ;צ Linking...vܡ  . %Must L(ink firstצצƂ<Ɓ1ƀEצ.Conflict between intrinsic and user segment(s)צƂ<?ƀƀE<צUnable to open file.̂ƂƁEPƂצ.QƂƂ<̂v̂ʂ@ʂˡ צ not codeʂ1ʂPʂ Ɓn> ƁnƁ5>ʁAáʂ 1> &צNot a code file!צƂ<"ˡ#צ Bad blockުP-vƁPvƁΪPƂdPƂdƂ;ƁƂƂ̂Ƃ;Pʂ ΦתPצ:Ƃ;áצ:Ƃ;PƂ;צ/Ƃ;PƂ;̂ƂƂ;PƂƁǠƂP?̂?>ʂ?>"ˡhۡc"̂ƁEצ Open error #PʂƁ-Error: Required library files are not present33Error: These required intrinsic(s) not available: 1, 0?̂.0ʂ.ȡ@0|0,'0  111 á00LvX  w.3w w.w.b43 4ńV54̂.5ʂ.ȡ;5575)ʂ 5554 Ƃצ*SYSTEM.LIBRARYPxƂʂx.3:ZȡIP  ٲ7)؞7)ؿ؂پ$áڸ444Z ȡ+ؾaġ +ز+ؾ $ 2تPww"ájw ++L+IÄ)++LIBRARY FILES:ׯ  "تP"á 3Gצ&Warning: Cannot open the library file .<.צ Warning: צ is not usedRپ$ò$Äخ  تP "á T($2$ $š$$צ.CODE $$ š$$ צ:š/:@A$P.LIBTP\> X أأ أ > , ȡ۲$ڤܾ# 411ȡs1d1ٲ ٲپ1Ä  ٗ 111w ޢ ȡڤ ˡpݢڤ?Xܢ0ۤ ݢ`ڤáޣ!ݢ`ڤˡ  ޣ  ȡ6ݤˡ&ޢ`ݤۼޢݤP" Open error #תP <צError opening exec file.2̀ƀ Pƀ.Qƀצ<ޡ*[P [ؓ+2P؍ 8:?~!UUUצ:U*UPBš!צ/PBP) Running...ء  ء  0צP̀̀=צNew exec name: 0< 0תP=Y0PY/YáY>YšEYپ.á ̀Y0[YV D" Linking... vá% Can't Restart$צ Restarting...!-Do you wish to exit the Pascal system? (Y/N) %Yá>>}pq6צ Nested exec command are illegal!צ<8AX0|g\em &(4,.I<==< XJ#2`xP t H BVV쓡 Linking... vá% Can't Restart$צ Restarting...!-Do you wish to exit the  ˡצ>Command: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,? [>1.2A]BP#%<!?á^GCommand: U(ser restart, I(nitialize, O(ptions, H(alt, M(ake exec, Q(uitתP#%!&j #C) Change file name display formatצO(ptions: A, B, C, Q(uitP#%سQˡع ACQá"p $<ǀ   !`[!0System will re-boot to reallocate Graphics space׮Ǹ ȡ ' "  !צ$A) Change Graphics space allocationצ+B) Change status of Apple II disk routinest be saved on system disk.צ*Graphics space allocation has not changed.8(Other options have changed until reboot.$ƁƁ6! ˸?Ɓ*SYSTEM.MISCINFO""˄Ʉ9צ!Error: must insert system disk. P#$ááRƁá<# ##Ɓˡ ! 5Error: New options could no Currently you have option  צGraphics Options: A, B, C, D, QP#%ٳٹ!ADt ZƁƄ  bytes (No Graphics)B) 8K bytes׮C) 16K bytes׮D) 32K bytes׮ ءt  Currently  K bytes reserved for Graphicsá (No Graphics)! A!BCDؓ! צSOSצApple II Pascal &Currently file names are displayed in & 6 צ format= ؓPצ%Option Bytes reserved for Graphicsצ%------ ---------------------------צ A) 0K צChange this? Y)es, N)oٶ,@@ٳH vؓ! צ NOT ת ,Currently Apple II Pascal disk routines are ,0צresident8ؓ@@YyÍ)צNew terminator:s rqs*d" Open error #תP<צError opening exec file.0̀ƀPƀ.Qƀצ<̀ʀOmz fتPR"á!ỲƀYPƀצ[8]SƀP-uuY"áʀOuuu3u Y> Yƀ>ʀ̀Yʀʀʀʀƀƀ>%s Terminator=s, change it ? ݶ,áu-ݳ@ Pascal system? (Y/N) %Yá>>}pq6צ Nested exec command are illegal!צ<8AX0|g\em &(4,.I<==< XJ#2`xP t H BVV( ́ ́ ʁ ʁ צ ʁ ʁ ˄ʁ @˄ʁ ˄3 ʁ ! ʁ Þ"Ä  = &)ʁ á ʁ   "ń,ʁ !  ʁ ޾ٳ ا?ǀǓ ا?ǀ:2!&ÍXÍc(ÍEÍ QáG'á@=+á3@á)Fá Gá Há >z? ؚ32!$5YP>4$M l 0 nL T "&"ˡ.&"ˡ$  " áP$ނ š: -Ʉ  $ $ $šš$%&$۞$$ۂۂەߓf%%&"ˡ|ɡ& & "ˡN$ߡá4 á,á"$࣡ $ $šš&$۞$$ۂۂە R%%&"ˡ.&"ˡ$  " áP$ނ š: - ݓۤ ۤ Äݓ š ۤ  ɍX ޚ "ˡ8ˡޚ   dܓڢڢ   "ġ$ނ#˄ɡۤ  dáߢ  dá ߢ &ޣ˄ ߢ  ߢ ۤ ߢޣ"ߢ ޣ#ޢ ޢۤ ޢ á٢á( ת$&(0!    š ڪ 0ޢߢšáޢޣߢ  dޣ"ޢ#ޣ$)ޣߢ  dÍÍޢ  ܓۤ ۤ Äܓۤ  dÄÍߢۢڤ   ڪP44444444"ߚ44 4 4!4"d4$4% 4#44#4á74-4& 4&44&4T ڢڢ& ڢ&ڣڣڢ$ڢڣ"ڢÄڢá     á ۢڤ š sá ŶÄ)ڤ ܢɡ ڶá  á ġMáš6 ܂ۻݪ d ( ڣ"ڣ١ڢڣڢ#ڣ$ڣáڣ$ڣ#š ڢ#ڣ$ڣ%fڢ%ڢ١ڢ&ڣ$ڣ$ ڢ&ڣڣڢÄڣ% ܣġ ۤ ٤ ڨ ܢܣ*@ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġܡ=" áܡ ܓצ $  ޓ(ݤ ߢܯߢ  d˯7 H ۣȡڤ  ۣ צۣۢ0H dō (ܓ(*(ܡ )*) *)* ܓ)ת) (!($IKPz(  Íܡ  , Ąܓ"á    (( )(á (((ܡ( **(( *Ä(*Ä**Ȅ*Ą*MȄ*)v*ȡO(ۤ +++ō++ɍ+ ō+ ȍ+ 6٪P,7YتPš  ȡ޾ *:Í#Í*á ޾:ˍ צ:P?P#áL۾ ݏ۾0 5ޕ P6:Ä:P.áš: צ/˄6ȡ0ƀƀP̀ʀȡ0ܾaġ 00ܾ 87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8ת802Ȅ&0á݂0 5 7ȡ4 0.  á{@H?hhhhhhjWȑ jȑ(!Hh0?H&h*0HH`?  hh *h < L+*(" B?  hh * <` hhL&ȑ`W CL& hʈL&fi` hhHj*H*HHL&SOS-PARAM-TABLE߻5޻5ݻ5ܻ56; ; ;  <  4 5=)=3hx? ?"? ? ?  / 0313hh%hh%HH`%ʎ%HHXWɡ?#X?#XW?"XWš?#X?#XW?"X?"W?"?#VVVU3 R2 ػ&3تP4+'+3T(á  ܚ3"  P ٨ ب5 5$0á->?#?"?#?"?"?"003 ,٪PتPZ,PƀPZ4ƀ4ZƀU%UáVV?"ɡYV?"YB?#V,á?#VZ,,ZYYV?#VVY,W?"Wǐš ?"VUiV, ;@  ō> @ 0+3 *3ܪP/ۻ0/ٻ1 24/3#33\ 6۪Pá? ?"11ǐȡs. .ٻ..3P34? 223.20;? ? ;?c? 0Ʉ  廹> ō> 0 0,@? 19 c@ @@á>0 ;@ @-3.3ȡ ނ0ō>- >?,3ȡ09ō>0 ˡ c? ??0Ʉ廹> ٪P4-,!,á55תآ1آ 0 5 6633 ȡ 6363 dȡ 6 3 65 4/ á5  5 -5 ---525 ˡ 5. 5.2,3h  ػ"3 jڝ?"ɡ6?#?#ھá?#٧?#ڝ?"ٕ?"ڕ?"?J>á>3 áˡL3" ۝?"ܓ?#۾á ?#ܡ$?#RšR?#ئתPVdá<=:PP#PC/š:8צ:P< ./Ad ?4 2ˡI á+ݢˡڦתRáצ!צ3ڧ? š ǀڧ?ǀǀ Ǔš@;צ!á צ!P$<ئ00000תP  0ڂȡ۾0Ʉ< R=98  áG;/ |88áBš2@/áf:šoá+ھ.á ھ/á 2á:&á:á  áán9ڧ? á 7ȡ/ݾ!á ݾ /P޾ /P 5RR4ۂɄݓVá(۾'ۂ@n ȑL54)&#!  L?  hhhh * <Ű 깷LCB1.-,*)&# ^?  hhL  ?  hhhh * <hhʰ 쭷ȑLED<:520.-+*)$ f?  hh * <hhL'&$"<?  hhhhHH * <İ ȑjȑ*ȑLedbROLJI |?  hh왺le would be exceededPئPosition out of rangeתPצAccess not allowedPצ File is busyPצNot a SOS volumePצDuplicate volume errorPצNot a block devicePצSegment request deniedPצSegment table fullPצInvalid segment nndתPצResource not availablePצ I/O errorPئDevice is write-protectedתPצInvalid pathname syntaxPئPath not foundתPئVolume not foundתPئFile not foundתPئDirectory is fullתPצIncompatible file formatPצEnd of fi76.077.078.080. VV ǖVצ(082.087.088.225.226.227.228.251.252.253.ǾV ɡ(VVצ00VV.VGdɡ'VV0VV.VVVVצ.V šڹئDevice name not fouئ File is busyתPئ&Volume format neither SOS nor Apple ][תP}ئDuplicate volume errorתP_ئNot a block deviceתPE&8" ~P3 bF33P3T3PJ ( צ8016.037.039.043.064.068.069.070.073.074.0te-protect errorPئ(Too many files open for system to handleתPئDevice is not availableתPצPath not foundPצVolume not foundPצFile not foundPצDirectory is fullPئ Attempt to read past end of fileתPئAccess not allowedתP33.3333צ.3 šڹئIllegal pathnameתPئNo room on deviceתPצUnit is not on linePئ#No such file in specified directoryתPצDuplicate pathnamePצFile is already openPצWriئתPġّڞڿ0 áۡڞ-8Zš2ڡ  šńۑ D  צ907.08.09.10.11.12.16.19.36.68.69.70.73.76.78.80.82.87.88.P ɡ'330ith reference number FID. Errors are indicated by a PATH *length of zero.} &PROCEDURE initextfilemgr(fptr: intptr); ){Called to initialize the external file manager. FPTR must be *a pointer to the system's IORESULT. Note that the user must *set uplNH ` v   |  $B Bl n >A number FID *in the pair (BLK,BYT). Calls the SOS routine GET_MARK.} &PROCEDURE p_getpath(fid: byte; VAR path: string); ){Obtains the pathname, as originally input, associated with the *file wǰȑHH`0&# L?hhhhhhhhhhȱȱAiAAiAAHH`?( FfVRHB^VvnB:?  hhҰ L0? hhhh Ӱ HHL#6?e ?hhhhhhưȑHH`# D?hhhhhhhh   * <L*?   d *hhhhL#"!6?   * <L*?   * <b L%$:?   * <c L%$j** * <LedbVRQPONMLKJIHFDCA>963?  hhhhhhꍴ0 ȩhh * <Ȱ ȩLa`XMJ0-*('& ~? * <LGF=:43-,+*%" f?   d *hhhhL#"!6?  hhhhϰ j쭳j*쭲L=<40.-,% V?  hhhh왺umberPצSegment not foundPئInsufficient heap spaceתPצ?No files were selected from directory or the directory is emptyPئ%Pathname does not specify a directoryתPZ0mP<&u_C+bVVצ SOS error VVP_f J š%۾/ˡ./Í/ @צQ   Ȅ2  ߿6̀ƀPƀӦ QƀӪ6%á'66̀ƀӧ=*P66ȡ=(ǐ()66ȡ=(ǐ(&=,Td+ئ׷^šá )'1Ƕ Ƕn,ƀPhP?PP"̀==+=+=T<'=ġ&==ؿ==((((()()()(*Z=(()nj(66ȡ Ǒ(Ǎ()ǎ(66ȡ Ǒ(Ǐ((()ǖF)))&#Ǘ3Hxp#ǘ6***"#ǙF)))&#ǚ3Hxp#=T "==֝=á/=====؞!= =ɡ=֭V%=š====*&تP++=š&#lj  #NJnjnjnjnjnjnjnj#NjnjnjnjǏnjnjnjnj#nj| #Ǎ #=ǎ |#Ǐ #ǐ #Ǒ#ǒ ? #Ǔ"U#ǔU"#Ǖ6***"#=̶ؿ$$࿶$$$$$$$$0#==֝=š<"(ɡ==<"=؞ =.=Z===F===== dž*I#LJI*#Lj" =ɡ=á$=Н= < =՝=ѝ=վˡ='š'=ѝ=ݞ=՝=҂=՝==ԝ=ԝ=š=ˡ =$O!ؓbP.ˡ ۦתPܪP ܪPڦתP,.0XT۪P /1..u11˄_0=..F=/.. +=ѝ=#=ҝ=$=ӝ===h=ġ ==Э׷ צč*צ=/Í  <3=|=!3ábbPb.QbPTL55ɡ _צ_b5b_צ.CODEbbPb.QbP55/5 445ˡ(b54bPb544 445á 6תP!66b54bP6/6צPצ^ˍצ/Äbb6PbǠbP2$á+/ábbPbǠbP$áO/צ:ÄbbPbצ/QbPbbPbǠbPܦƁSƀӦ..ƀӪP6POQS ߪP צ*%Í/$Ä bbPbǠbP$bbPbǠbPġ^á6۪P655á 6צP@5/65==6ɡ ƀצƀ6ƀƀӪ=Y=ⓄNƀ.TEXTׯ 6ƀ.CODE׷'6̀ƀ6ƀӦ.CODEƀӪM=Dƀ.TEXT׷ƀצ.CODE'6̀ƀ6ƀӦ.TEXTƀӪ6Lš?̀ƀ6ƁS;ƀӦ/ƀ6ƀӪK66̀ƀӦ.ƀ6ƀӪ666 6/<66=š6š6ƀƀצEXEC//  6.6/˄6#˄Ⓞ&6̀ƀӧ=Pƀ6ƀӪ66߾.áǀš ƀ š\66 ˡ,6̀ƀ PƀӦ/Qƀ6ƀӪ6̀ƀ PƀӦ QƀӪ6̀ƀ Pƀצ QƀӪá@66̀ƀӧ=Pƀ6ƀӪ6 6/á6š}6 ˡ(6/6̀ƀ6ƀӪ:66*áV6á%6̀ƀӦ#4:ƀ6ƀӪ"6̀ƀצ#4ƀ6ƀӪ6#áƀ  6 Ą.0ܝ=ڝ=ŕȡ ڂ 6 ܳ ƀǀǓ ƀʀ==ƀƀ̀ƀצh׷?׷׷̀ƀ̀hʀšh̀?ʀš?̀ʀš̀ʀLšL̀Lʀ=ܝ=ʀ=ʀ=ޝ=ʀ=ʀá>=ܝ=ޝ=۝=*&==ƀ̀(ʀʀ+̀ƀƀƀ=ʀƀR ƀǝ==Ŀ=̀ƀʀʀ=ſƀʀʀ=̀== =ƀƀ,h,?,,ʀá==((&.ʀƀʀʀ ƀʀʀc=ƀƀ==ƀ6543!53árl  áۧ=P=00P0.Q0Pܑ/ ܑá#۪Pۧ=P==ܾ/á)á צP0݂ݑ0P݂ڦתP٦תPئתPá<1ܾ/Ɓצ.QƁP8799š9=á9==á=*ۦ*SYSTEM.LIBRARY.תP=Sׯ=|ׯ#mתZ?צZ65m?;צ65ۧ=S=|;;< 8799š9.á99Ɓ9Ɓˡ1ƀ́ƁƀZƁצ.[Ɓ צ.Press RETURN to continue, ESCAPE to terminate.ם=Ǘ=>>=á< ́ƁPƁƀaƁP9=b9/ˡZ9ɡ ?תZ?Ɓ9ƁZ?.TEXT׷?.CODE׷́ƁP=w====Í/Í^́ƁPƁ/QƁṔƁPƁצ=QƁP87====ˡƀ۪Z=́ƁPƁ.QƁPm=SZ?=|Zצ65m?< =2ƀ21 ƀɪP1787 צ=š<./á"<́ƁPƁ=QƁP<ړ876Ɓ=< <===G'9P==Ǘ=ʗ=ɗ= =Ɓ==á<  =š=#-##.Ǜ,! =;&תP##š####'/=ƀ$=)M,.02468:<>@(( ުPġ ׷ 8ƹǛu'á תPZPˡ=ؓ%ء # #ǯǿ0&%==&%#'Ą%Line is too long!צצ'CǛ,!  ='##G'>'-.Ǜ, á!,ġ  ! /T'B#! ˡ=!  =! = =á'M#ɡ7#####Ǜ= =S#š%Line is too long!צצ'#š ## ###ǕX'###ȡ.-.' ƀƀǛ ̀ʀȡƀ=ƀ$!  š %&%=ád#šQ##=':##Ǜ#== =LjZ#šG-##.',Ǜ=,͡PšP!(ؓ%ء*#ɡ#! ! Ä=¡=ٝ=5  =ٝ=ǚ á ==(i(ƀǛǀƀ ƀƀác..I (or E or CTRL-E) for . . mode%.AAצ3D (or CTRL-Y) deletes from cursor to end of line, 3AצCTRL-X deletes whole lineLAצ'ESCAPE restores original line (if any)=n0=)=ZZ'ɾ؏0.'#ġ! =!-.,! Z/'replaceת insertת==צ and move cursor, צ5 (or CTRL-D) and (or CTRL-F) delete charactersLƀ̀=¡؝== ==ƀQ* t=<=ܝ=ޝ=۝=*&==(&%=J#؂""š#ؕ,","8-"š,#؂"á00P0צ/Q0P<1ܑ/ ܑˡ0݂ݑ0Pš00Pצ=š00Pɡ0ݕ0P^1š.R03š!R:4W۪P.ڪP٪P.̀̀ƀ=(WẀƀWPƀצ.QƀªPWʀˡ <2>=ƀ ƀ̀ƀʀƀƀʀƀá!ƀ̀ƀƀPƀצ/QƀªP34(@ɡ <2 AsciifileDatafile Binary Fontfile תP//ȡ ڏ=ڤ HFotofile BasicprogBasicdataWPfile Sosfile Type = 13Type = 14DirectoryתP//ȡ ڏ=ڂ 6RPS Data RPS IndexAFDiscardAFModel AFReptFMTScreenLibתPš[="=////=Q/P=پ/ˡ=//=P//Q/P=*ΪP=*>=*š[=*"=*////=*Q/P=*پ/ˡ=*//=*P//Q/P?HUnknown Badfile Codefile Textfilê?Ƃ?PƂ?/QƂ?P=ƀ!nFq , ==== = = = = =====ö,= = =.CONSOLEתP=#=??=P=>=ٹ( V "$rrǕá;[ and move up and downצ selects, unselects gives directory infoƀá~˄ʂ> Ʉ+ߞ߂ ̀̂?Ƃ?Ƃ?צ is no longerƂ?#ƀצ selected.#ƀƀ š1ƀ̂?Ƃ?ƀ#Ƃ? $Ƃ?ƀGƂ?#ƀ #ƀfrom the list.ƀƀ====*&=Ɓ%=ƀ޹á==( 79á==( 7:á&ˡ ˄  á0 =( ̂?ʂ?ġ =( 7)7ƀ̂?Ƃ?צSelect max of Ƃ?ƀƂ?צ filesƂ?#ƀ̂?Ƃ?צOnly Ƃ?ƀ Ƃ? files may be selected Ƃ?#ƀá!ƀ̂?Ƃ?ƀ#Ƃ?צ $Ƃ?#= 57&= =¡ == á=ޝ=Ý====*&=Ɓ(+(==)'()NJ( ̂?ʂ?ȡ Ǒ( Nj()()(=(ʂ>8=ȡáCƀʦSelect only one fileת#ƀOnly one file may be selectedת#ƀ==E =; Bk1=9ŝ=ɍ9==ŝ=ɍ==ɡ===š ==Bk 2ȡ!á ᑚ< =š= ƀZ=ƀ"!< = ƀ== ?=n  Un ɡType = תProDos=תn ooo(on #ڕڞn%ת  < ˡǘǙǚ= = 6ǑǑǑ= = 6|5 ( Ǒ(ǒ( ( (ء=(٢'ء=(=(>7ڟɄ7=(ښڟˡ7ښ=(5@8á=(7.9ƀʀ̀ʀ¢ƀʀ¢ ƀƀʀ¢ ƀʀ¢ƀʀ¢ƀ!ʀ¢ʀŸʀ¢=ʀ¢>á ʀ>=ʀʀ=  2()(((( 6ˡǘǙǚ= =6ǑǑǑ= =6//ȡ ڏ=ڂ '...JanFebMarAprMayJunJulAugSepOctNovDecתP //ȡڏ========Ч=S=P=|תP9==== s0 ;8L 8 =5h(h)hhhhhhhh;;h;hh;h;; ;ȑ)H(H`G0-+($"!`=h(h)hhhhhhhhhh;;;; ;;ȑ)H(H`+(%#"Z=h(h)hhhhhhhhhhh;h;;;; ; $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:Imopqrstuvwxyz{|}~g:g(g.  "HAPPLESTULONGINTICHAINSTU SOSIO HEXSTUFF PASCALIO + TABLE INFORMATIONCI4Current date is Hd*Bbed on U.  P ? Apple //X @{BB@6bBB@ijpbZb ԳԳ@*.!f###'t'\(|((()4)++),P==@''''l=hZh[hhhhhuhno^alȑk)t\n]ok[HZH`pb.CONSOLExmkmk፴vwȑ୳୴`~}lec`^[X86.*'$"!^=h(h)hhhhhhh;h;; ;ȑ)H(H`"@=h(h)hhhhhh  ;)H(H` D=Copyright Apple Computer Inc. 1981'(),h*h+HH+H*H`;;ȑ)H(H`SROMIHGFEDB8652=h(h)hhhhhhhhh;h;hh;;h;h;; ;;ȑ;)H(H`B@742.,+(! r=h(h)hhhhhhh;h;hhh;h;;;; ;ȑ)H(H`;; ;ȑ)H(H`8430-*'%$ l=č>h(h)hhhhhhh;hhhhh;;;;;; ;ȑ)H(H`QA10-*'%$l=h(h)hhhhhhhhhh;;;h;h;;;;;;h;hhh;; NTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,) &  * عteVG8  )   uh[NA4'á @ȡQ-Pצ:-á:ײPN? XP ??زP>پ/ˡ צ/P?8??زP>? f<zH~  /á< 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXPšEצ:š  >#צ*צ:á >š{-NVWf-NتPRš+R+PP4تPRšG+R+PGP4GRšزGRPزGPR0ȡپ á*š*۾١:/˄ /P /áVAR current_prefix: STRING); (PROCEDURE get_pathname(VAR pathname: STRING); ( # #IMPLEMENTATION E LIBRARY"JJ*.r;t^JJ:>;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,) ( ( (PROCEDURE SetChain( Tytle: STRING); (PROCEDURE SetCVal ( Val: STRING); (PROCEDURE GetCVal ( VAR Val: STRING); # ({PASCAL 1.1 additions for application support} ( (FUNCTION set_prefix(new_prefix: STRING): BOOLEAN; (PROCEDURE get_prefix(hhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLOL,3-'~{vvvvvvvvvvvZTNlb3 `\[TOG@;:3(  T[Fc= 8BLKRANGEX(=+U8IN ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,LGhhhhhƀhh-Ȅʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,}ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` _LWŁ|}ƅLwE||怦}ʚH恺8倅偪ƅ  ILL, _LwLL,E0LL _Lw ILL,ELL _LwEe8刅刪ʈʈݒ&~ƀLV~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅLw ~~8ʭ==` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LGIL,h hBCʈ _.ł( Ł|} ŀ}|z Z   :    ( tV8$@hvhwhhxylxh:vwlv8<<+-Í-۲0ݡߑ ع      < 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXPšEצ:š  >#צ*צ:á >š{-NVWf-N Procedure SOS_D_Status ( DevNumb, StatusCode : Integer; :Var StatusList, RetCode ); Procedure SOS_D_Control ( DevNumb, ControlCode : Integer; ;Var ControlList, RetCode ); Procedure SOS_Get_D_Nmb ( Var DevName, DevNumb, RetCode ); Procedure SOS_D_InfUL) 1h(h)hhhh ! h hh h  ȑ)H(H`A.+)&" Xh(h)hhhhhh    ȑ)H(H`)&#!Rh(h)hhhhhhh h "  hange_Seg ( SegNumb, ChgMode : Integer; Var Pages, =RetCode ); Procedure SOS_G_Seg_Info ( SegNumb : Integer; Var FiveInts ); Procedure SOS_G_Seg_Numb ( SegAddr : Integer; Var SegNumb, RetCode ); Procedure SOS_Rel_Seg ( SegNumb : Integer; Var RetCode ); Procedure Up_Load ( Var Char_Set ); Function At_Sign ( Var Object ) : Integer; Implementation E e ); Procedure SOS_Find_Seg ( SrchMode, SegId : Integer; Var FiveInts ); Procedure SOS_Change_Seg ( SegNumb, ChgMode : Integer; Var Pages, =RetCode ); Procedure SOS_G_Seg_Info ( SegNumb : Integer; Var FiveInts ); Procedure SOS_G_Seg_Numb ( SegAddr : Integer; Var SegNumb, RetCode ); dure SOS_Get_Analog ( Mode : Integer; Var Value, RetCode ); Procedure SOS_Terminate; Procedure SOS_Request_Seg ( Base, Limit, SegId : Integer; Var SegNumb, =RetCode ); Procedure SOS_Find_Seg ( SrchMode, SegId : Integer; Var FiveInts ); Procedure SOS_Cr; Var RetCode : Integer ); Procedure SOS_Get_Lev ( Var Level : Integer ); Procedure SOS_S_Fence ( Priority : Integer ); Procedure SOS_G_Fence ( Var Priority : Integer ); Procedure SOS_Set_Time ( Var Time ); Procedure SOS_Get_Time ( Var Time ); Proce Procedure SOS_Get_EOF ( RefNumb : Integer; Var Low, Hi, RetCode ); Procedure SOS_Set_Mark ( RefNumb, Base, Low, Hi : Integer; Var RetCode ); Procedure SOS_Set_EOF ( RefNumb, Base, Low, Hi : Integer; Var RetCode ); Procedure SOS_Set_Lev ( Level : Intege Procedure SOS_Set_B_Mark ( RefNumb, Base, BlockNumb : Integer; Var RetCode ); Procedure SOS_Set_B_EOF ( RefNumb, Base, BlockNumb : Integer; Var RetCode ); Procedure SOS_Get_Mark ( RefNumb : Integer; Var Low, Hi, RetCode ); ocedure SOS_Close ( RefNumb : Integer; Var RetCode ); Procedure SOS_Flush ( RefNumb : Integer; Var RetCode ); Procedure SOS_Get_B_Mark ( RefNumb : Integer; Var BlockNumb, RetCode ); Procedure SOS_Get_B_EOF ( RefNumb : Integer; Var BlockNumb, RetCode ); Set, BytesReq 8: Integer; Var BytesRead, RetCode ); Procedure SOS_Write ( RefNumb : Integer; Var OutputBuf; NumbBytes : Integer; 7Var RetCode ); Procedure SOS_S_Write ( RefNumb : Integer; Var OutputBuf; OffSet, 9NumbBytes : Integer; Var RetCode ); Pr6RetCode ); Procedure SOS_New_Line ( RefNumb, Flag : Integer; NewCh : Char; Var RetCode ); Procedure SOS_Read ( RefNumb : Integer; Var InputBuf; BytesReq : Integer; 6Var BytesRead, RetCode ); Procedure SOS_S_Read ( RefNumb : Integer; Var InputBuf; OffProcedure SOS_Set_Prefix ( Var Prefix, RetCode ); Procedure SOS_Get_Prefix ( Var Prefix; Length : Integer; Var RetCode ); Procedure SOS_Open ( Var Path; ReqType, Pages : Integer; Var SysBuf, RefNumb, :''); Procedure SOS_Set_Info ( Var Pathname, FileList; ListLeng : Integer; :Var RetCode ); Procedure SOS_Get_Info ( Var Pathname, FileList; ListLeng : Integer; :Var RetCode ); Procedure SOS_Volume ( Var DevName, VolName, TotalBlks, FreeBlks, RetCode ); o ( DevNo : Integer; Var DevName, DevList, RetCode ); Procedure SOS_Create ( Var Pathname; FileID, AuxID, Storage, EOFBlk : Integer; 8Var RetCode ); Procedure SOS_Destroy ( Var Pathname, RetCode ); Procedure SOS_Rename ( Var OldPath, NewPath, RetCode ! #   ȑ)H(H`40/,)&#!bh(h)hhh ( h*) ' *  h& hh$ h% h# h" 4 5 ! hh   ȑ)H(H`[XUTSQNLJFEDCB964h(h)hhhh    ȑ)H(H`!Bh(h)hhhhhh!     ȑ)H(H`)(%"TÍL č:h(h)hhh" hhhhh!     ȑ)H(H`I=-,)&#!bh(h)hhhhhnt : integer) : integer;  function peek (bytenumber, bank : integer) : integer; procedure poke (bytenumber, bank, value : integer);  implementation E [0..3] of 0..15); - 4 : (bit : packed array [0..15] of boolean); /5 : (bool : boolean); -end;  procedure screen (a, b, c, d, e : integer); function ten (str : string) : integer; procedure hex4 (value : integer; var str : string); procedure hex2 (value : integer; var str : string); function hibyte (int : integer) : integer; function lobyte (i  type $varindex = 1..5; $variant = record case varindex of /1 : (int : integer); /2 : (byte : packed array [0..1] of 0..255); /3 : (nybl : packed array [0..3] of 0..15); - 4 : (bit : packed array [0..15] of boolean); /5 : (bool : boolean); -e982,1983 Apple Computer, Inc.2347` \dVxDJHh`0nH ,  0 h ( :.Var SegNumb, RetCode ); Lh(h)hhhhh h  D ȑ)H(H`*(%#Lh(h)hhh h E ȑ)H(H` 8h(h)hh )H(H`<h(h)hhhh)H(H`Copyright 1981,1 ' ȱ! A  L1 )H(H`@=963/-$bh(h)hhhhh hh h!  B ȑ! )H(H`:71-*(%bh(h)hhh h & C  L! )H(H`0,)' c )H(H`Jh(h)hhhhh h d ȑ⨪ )H(H`,(&Leh(h)hhhhh" hh h! h h  @ # ȑ)H(H`631/-*(#^h(h)hhh hh h  ȑ)H(H`6h(h)h h ` )H(H`*h(h)hh a  ȑ)H(H`6h(h)hhii   b )H(H`Dh(h)hhii  0-*# lh(h)эL h(h)΍1hhh" h# h h! h hh h  ȑ)H(H`=7531/,(&^h(h)ЍaL; h(h)hhh h  ȑ)H(H` 8h(h)hh h(h)эL h(h)΍3hhh ! h*" # h hh h  ȑ)H(H`?8521/,(&`h(h)ЍSL+ h(h)ύ-hhhhhhh h "   ! ȑ " )H(H`K952heL 6h(h)hhh h  ȑ)H(H` 8h(h)hhh h  ȑ)H(H` 8h(h)ύ"hhhhh h  m m m! j jȑ)H(H`K?;91.-+(l h h  # ȑ$ )H(H`@>520,*' jh(h)hhhhh! h" hhheheL <h(h)hhh! h" hhh h    ȑ)H(H`64,(%" Vh(h)hhh! h" hhheh(h)hhhhhh'  & h% h#  6 ! 7 " h$ hhh  ȑ)H(H`ONKIEDCBA@>42/h(h)hhh hh hh h  ȑ)H(H`*'$ Fh(h)hhhhh! h" hh hhhhh!     $ " ȑ% # )H(H`=<9631.+$! |h(h)hhhh    ȑ)H(H`!Bh(h)hhh hhh    ȑ)H(H`.$!Jnd;  procedure screen (a, b, c, d, e : integer); function ten (str : string) : integer; procedure hex4 (value : integer; var str : string); procedure hex2 (value : integer; var str : string); function hibyte (int : integer) : integer; function lobyte (iܿۿڿٿؿ  :ڪP/-0-Ʉ110123456789ABCDEF..á(110123456789abcdef..á0/-.--0/ צ% ,    ݂܂F  -    ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏- +$&!&%š#$ە##š##$"$##ɡ#"ɡ2ݓ&&Í&&&á&"&!)&%&&Í&&"&!)$%&&!!$$#ȡ!ˡ ء##ȡ''0'Q'Pˡǀġg/  ( ǀ > *ڨ ɡ(MMMM܏M܏T+ܨ ء '$' \)  ɡ-Í á ܑ ) '!Í ) % ɡ    ~ɡ  ~"(&آڢ٢آ&'ڢڢá ޡ?šڢڢ'ޡڢڢڢ~ڢ n( ȡ ۞$(@ $( $( ۡ#š #ȡšڢۑڢ.!ɡܢڕܢښ $"ڢܢۢڢ`` ڢ 2#آڢ٢آ*$آڢ٢آ(%آڢ٢آɄɡ& 8ݍ á ބݍݍܓ܄>ۢۢۢۢۢNۢۢۢܕ( trToNum(VAR decstr: string; poweroften: integer ): real;  procedure NumToStr( r: real; fixed: boolean; placecount: integer; 4var s: string; var expon: integer );  IMPLEMENTATION E and: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,) PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); PROCEDURE FWRITEREAL(VAR F: FIB; xx: REAL; e1, e2: INTEGER); FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER;  function S LDA XBYTE CMP #0FF ;FF = ROM #1, C0-CF = I/O BEQ SPECIAL ; "true" 00 and 01 pages ;handle system bank SYSTEM LDY #0=; (.Hb .( rash, just start CMP #0EF ; POKing into SOS (RAM $B800 - FFFF) BEQ DONE ; soon hHEXSTUFF# &( . ;detect artificia bank 'FF' $2hhhhh )ɀ0ɐ0(yuqLL%!x s (Lx L (  HH`xmje[UMJEAhhhhhhhhh "ɀ0ɐ0 LL%!x s (Lx L ( HHHH`qdc^THED?;975L hhh0123456789ABCDEFP-ئ0000תP..ȡ-ڕ(X Zצ0123456789ABCDEFP-ئ00תP..ȡ-ڕ(X XL h??@ɡ??"@?Ä?á?????,? >"Má? > >? >á @@@ Ą @ ?ˡ\?%,?%???&@?"ˡ?˄??&@ۂ"ˡu??š???#?$???$?#ń ?#?$?ۚ?$ܚ?AAA?AˡA  5~ 09Ȅ.!~Ȅ/azōaA5qjȑHHHH`\hhhhhhhh  0<Ȱ& u E   ؠ ) JJJJ 0ȑ ) 0ȑᘠHH`hhhhhhR0H*v  u&&v&E& &詀&L&&ť&&ʈHH`o'hhhhhhhhhhhh bL)5Ffeyumꩀ5JA1SKQL51QF55(5ȱ0 fLfJJJi䨩ȩ50,8 &5&  6 F5L L5HH`~u$hhhhhhhhhh訪 横 Ji&&0 fL]fJJJi&&⠊hhhhhhhhhhhh&FffHHHHHH`Phhhhhh⨥HH`,hhhhhhhhhh訪 横v E 詀 vE 詀  LjH`:hhhhhhH50HHH`*hhhh LHH`4hhhhhhhhhhhhhhhhȑ**ȩȑ&HHHH`h hhhhhhhhHHHHHH`(0 2) l` 0 2) l` 0 2) l` 0 2) l` hhhhhh404)@ 4) HHH š)  ȡ0ˡ š  *ݡ W~ ٦***תP(š_ۡɡڑ ɡá0PÄ,ߡצ-QP<ˡ;,ɡ#??P?0Q?P>>.P>8??P?8U?P/ؑ>,>Nš N>>š3=>?=?ȡ#@@P@צ0Q@P==ȡ5=?=?ȡ#ˡ/14 ڡؼáڡؼZš0áۀ š ۀ*ByO7>zS8ȡ ȄPšPMšM/(<<<0Eá4+á4-á4.1.Ǹ ɡ ۏ01ۑ+-4.L0Ná=;á/Ä ڡؼ1A3N3'Ä!4' Ä1./-+á -á0Ná1. 2 .á0Eáa4.12,ɡ1.0آ  "10ˍ8,ɡ 1ɡؿ 0ÄL2٢10ˡ103آ1 41È8IȱjE Ȅ橀إHH`zhhhhhhhhhh[ȱ)uD*&**u&L&*** ʈHHHH`7hhhhhhhh訪 H & *HHH`6hhhhhhhhHHHH`&hhhhhheȑȦ0+L4-I8i  L6i0i0HH`.`4j rXJFSIGSTART  qr80bHH`' <<EBi[ZXGFD@2  FdhFd  P  V  STA READe*)eLL`pMK hh hhHH`'6hh  ;C hhȥ ߥHH`  87M9\hhhh᭙0:0D0  !"#$%&'()*+0123456789:;@ABCDEFGHIJKPQRSTUVWXYZ[`abcdefghijkp@=97)('%#  zhh ?hh)HH`*c<`&&&e?L' hhh)?hȼhhhhHH`hhhhWV) ) 02@*P"`pL&&&LFfFfFfFfHH`P.AUDIO,d`hXȑhhWȑhhHH`_`O?/!hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ Thh   MyMz { | y z {U|HH`A<62,('&% `hh hhhhhhh)h' 1H)/HHH`,d+`,+#Lhhhhhhh)h) YH)U)HHH` !<hhi )n YhhV)ȑhhU)ȑhUE hxNIL :pMAXINT |RRKBYTESTREWORDSTRE .WOR 0BN DY  P  V  STA READ!PROCEDURE SOUND(PITCH,DURATION,VOLUME: INTEGER); !PROCEDURE DATE(VAR D: DSTR8); !PROCEDURE TIMEOFDAY(VAR T: TSTR6); !PROCEDURE CLOCKINFO(VAR YR,MON,DAY,DAYOFWK,HR,MIN,SEC,THOU: INTEGER); !PROCEDURE SETTIME(T: SSTR18); !  IMPLEMENATION E TRUE hxNIL :pMAXINT |RRKBYTESTREWORDSTRE .WOR 0BN DY  P  V  STA READPRbRINTEGER R CREAL $X CHAR 6b BOOLEAN fhe STRING P TEXT $vMEINTERACTL|ouINPUT xvSTOUTPUT bv KEYBOARDv0FALSE hTRYPRESS: BOOLEAN; !FUNCTION RANDOM: INTEGER; !PROCEDURE RANDOMIZE; !PROCEDURE NOTE(PITCH,DURATION: INTEGER); !Copyright (C) 1980 Apple Computer] ;Clear the Buffer 0LDA #16. 'b'b)Rb  !TYPE "DSTR8=STRING [8]; "TSTR6=STRING [6]; "SSTR18=STRING [18]; " !FUNCTION PADDLE(SELECT: INTEGER): INTEGER; !FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; !PROCEDURE JOYSTICK(SELECT: INTEGER; VAR X,Y: INTEGER; VAR B0,B1: BOOLEAN); !FUNCTION KEv :2D"\.< z 048VID K6ANU8HVIDS ZA\A!8H@DIRRANGEA~AA8MTID CAAN8HFULLID VJAA8H _MENUMAKECONSOLEISOSCATAL luded, it should be removed and stored %elsewhere to provide additional working space on the disk. % %The programs and source files on this disk are for private use only! tage of the PASCAL approach. The result %of Tom's effort is this particularly fine example of PASCAL programming. %The program contains an excellent help screen and a print program to %provide hard copy of text files. %While all source code is inc code is included, it should be removed and stored elsewhere to provide additional working space on the disk. The programs and source files on this disk are for private use only! o exploit any advantage of the PASCAL approach. The result of Tom's effort is this particularly fine example of PASCAL programming. The program contains an excellent help screen and a print program to provide hard copy of text files. While all sourcey of it's author, Tom Bartkiewicz. It represents a remarkable contribution to the software of the Apple ///. When Mr. Bartkiewicz undertook the writing of a PASCAL language equivalent to the popular BASIC Menu.Maker program, his inten- tion was t0 WELCOME! WAP /// SIG Public Domain Library Category/Number: Pascal/3PCL-10 Bootabale? Yes - Side One This disk is made available through the generosit /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030 le is exhausted } # #while not eof( infile ) do &begin )readln( infile, buffer ); )writeln( output, buffer ); &end; #close( infile ); # #{ wait until the user hits a key on thF$83T34PEMOUT8#writ)  HELLO.TEXT"ˡBצ.File HELLO.TEXT not found; unable to continue. (*P*Press any key to continue.S menu.maker_má  Íá & 11ȡ3+:+ ń = )P;bL٪ 0 啂 ƀƀצ-צ'???JanFebMarAprMayJunJulAugSepOctNovDecƀn$  ޢޢޢ    :á :$DƁ: (.xR:.:˲#'ˍ:L:ˡ 2  ȡ'ُ$ɲ˄n$  ޢޢޢ    :á :$DƁ: (öLÍ:.:˲#'ˍ:L:ˡ 2  ȡ'ُ$ɲ˄   dh:áT:á@ZZZZvب: ת  .CONSOLEת ::ˡO7Error opening the output device, terminating execution.ǀǀǀǀ:Px&rnN*:á* 0   dh:áT쥃:á@ZZZZvب: ת  .CONSOLEת ::ˡO݂ݕ܂ܕš ۶šɡ ڶɡٶšضɡٶضĄ۶ȄڶĄv 0٪PتP:á>쥃:á* 0 :"ǀ:"ɡɡOšOšǀǀǀڿǀۿǀǀǀڕǀە ǀڕە :V ǀǀؿǀٿ:< ǀáǀ ǀ:F ǀǀؿ:0 ǀ:"ǀتP++š+:T(تP:R تP++ȡ.ǀǀ+:+:TX تP++ȡ,ǀǀ+:+:T:á *ǀ ::á  :Jǀȡ:6ǀ:"ǀ:"ƀ:-;ƀƀMצ Oƀ ƀaצ:bƀ ƀt:#ئ תPdȡڛ݆0݆ݏ ڛ0Ȅ ڛ ܹxPצ.00KTPiPצ.25KTPKPצ.50KTP-Pצ.75KTPcG+^  R 2 Hצ Memory Map to continue צ Total Ram : צ In Use : צ S "$&(*,.02468:<>@BDFHJLNRTVXZ\^`bdfhjlnrtvxz|~ "ˡ+)$ )$  "$&*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~  ;V   , ")$ ۹ܓɡšɄ 5 P  )$  {P< ..Parent.. >ׯ     )ˡ/ Error in directory processing@ 8)$ ,,< ..Parent.. >ת,, +,+,ȡ2+ + +, )+$ ++ٓ ؛/á إ ؕ  Error setting new prefix[ lتP ++ P+צ/Q+ǡ+P  Error setting new prefix`ڪPצ/áR,ت á   Pˡ*        ÍX09צExit MENU MAKER? % Press to exit Menu Maker צ% Press to return to the menu  xxצ in drive x= )Zx v wwȡ`v Hxxצ x= )axצ is off-line.nxš      áá+ ááצ"Program written by Tom Bartkiewicz F ڥ P FVolumes On-Lineצ8Press to select a new volume, to exit. wwȡ= )   : ádv צ/    ts and displays the file.צ/-----------------------------------------------  צS displays system memory map   +V displays, selects available block devices-   ? displays this information  file's type.& Code : Runs the selected program.. Font : Downloads the font to the console.- Catalog : Sets the prefix to the directory.צ Ascii : Displays the file.צ Text : Displays the file.צ* 3EZP WP : Formacal-SOS prefixV  צ  ?Menu Maker v1.0 Help ScreenצPress to continue...   ' Use the arrow keys to highlight a fileצ! and press to select it. . Action taken depends on selected /Press for HELP; to exit  Washington Apple Pi, Ltd. < % *ȡ) 5  ٛ/áإ: ˡ+צ%Error synchronizing PasU_UTfצ Code  Text צ Ascii | Font kצ Catalog Z 3EZP WP I2n_P ED "$&(*,.0Iצ ????   OWAP /// Pascal Menu Maker OS : צ Interp : צ User : (ǀ ȡ/:)áȡȡقڂ     W T U TUPUUTܚ ÍBD+XتP  ++Running program: +a+ O צ=When program finishes, enter X to restart MENU.MAKER  تPOWXOO[[Listing ASCII File: [d[צ/Press for next page; to quit.-+:+ : . PYZ+.W,:Z4.,YYYXš YZ.+.W,: +:ZZMd "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5   FONTSv ' '(STANDARD t%APPLE +$BYTE +%ROMAN t&GOTHIC $STOPbJzz:@تP-+:++,:+:X:تP ̂+Ƃ+Downloading Font: Ƃ+bƂ+ + V(:  )$ ])$ )$ x)$ i)$ Z)$ H)$ 92dWJ AB "$&(*,.0FO:((:282x"   $ :. @تP-+:++,:+:X:تP ̂+Ƃ+Downloading Font: Ƃ+bƂ+ + V(:  )$ ]/-/-7/-./- % " $/---YYYXš YZ/*[áYYYXš YZ +[,: +:ZZM&#b&ˡ2צSOS i/o error # OO\\צ Listing /// E-Z Pieces WP File: \p\/Press for next page; to quit..+: / PYZ+,:á +[,:Z[ɡ+:+/[,:/,,-\-\ġZ/- ɡHƂ\cƂ\/Press for next page; to quit.-+: Y. P̂[Z+:á+[,:á+.Z(YYYXš YZ.+. +:ZZMX ,تPX[ò[[Í*ڲ[,:ö,Ä[[[á2[[ PɄ  [[Oە [[ [[ܞ[܂[ۂتPOWXOÔ\Ƃ\Listing Text File:  <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!pppppppp"AAAAAA>>6>>***~" "w"w>>$$>>>00@@ !~6>6AAAAAA$$$>>< (#21*,*>*>> "2*&" >" ">"  "?8>" """">"""""""< "00>> " """>>6>>***~" "!@?""?$$>>>  @@  >6>6 P"YEEY" > >">>""">>> >""">>">><>""> >>""""  IIII>"""">""">>"">>""> >">> >><$$$$<"""AIII"""""> >>>  00`00**?!%%;??!###?!##??!#?!!###????!9##?!!?!### 001! ##??IIIKKK')))++3?!!!##??!!??!!)+/?!!?##??00?? !!!###?!!##"AAIIKK! !!!!!? ?? @< <6c~66$""""">> >G%tRq  .     > >>@ ? ??? >>>>~B@x????????.333>> >333>!?&>33> 3333 00000633 ++++666666633>33> 6>06>; ++++>3 3333>$? ?pp86>6|~fnl6vf~><~~<`lnf~||f6|<~f|~fnl`<6vfff<<<<<````ff<f66f<<<<<<>~ZZZ>~fff<~f~<>~fv6|~fnl``<~f>><fff~|fff<ZZZ~|f<|>8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p8>"""> > >>> > >""> >> >>>">> >">">>"> ~~ < <~b0!-3>">""w"""""""""""?"  "??""r""w"">""w>**>8c  g"?c6**""w#&*2""w"""""""!!!)."""w1 #Iw"""""w""""c""**6"c""cw"">""> "PROGRAMSv '  '+LIBMAP.CODE 8 -SETCLOCK.CODE l >!!!&!!!>> .!!!>> >!!& !!!! ! !%%%%!!!!!!!!!!>!!!. > !!!!"""))))6""!! ? ?77$$~$~$$6.""> !!<<!!!?????<9"!!!/!!!8!  !?!%%%%%!!!!!!!!!!! !!!!!<   ><!!!!!!>!!! %%))"""""??<<00> 6677> 75:+;<>> 00*6*>00>1)%#! ?? ?? ""?!!!!""$ $ $  c]UEe}Cwk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}AAyyyyyA}{wo_AOOOOOAwk].&"&"" ,2"2,">$,22, &"""  0 "" " ****&""""""&&,22, &< $"""2,""""***6"""""< >>88  "*6< ">"A"!!""" !!! """"=#> 0"""!@> H>@ "!  ! B=**+**A&*+**"EEE"""%B@0L?"""!@>>@>@?B<B%$$$$2MDDD(:JJJ*B% R!B%$$XA>> > *666>>< (#21 , *>*>> "2*&" >"  >"  "?> """>"""""""<  00>> " c]UEe}Cwk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}AAyyyyyA}{wo_AOOOOOAwk].&"&""` ,2"2l"><$,22, &""w  0 "2 # ***+&""#"""&&l22, `&< $g""2lg""c***6ccg""< >$>88  LIBMAP xP R TDتfZצK ----------------------------------------------------------------------צ   ȡ ƀˡ$צInterface read error á *ƀ\Pƀ޾.áƀƀ" ˡئ Open error # á\צ.CONSOLE =S3P=| PƀƀƀPƀ޾.áƀצ̀ƀצ LIBRARY MAP FOR ƀƀbƀצš'̀ƀצ ƀץTƀצ@ ߳Y N N ==\צ.CONSOLEP צMap output file name: \< \áH\.CONSOLEתP\\"ߩ@@ ߩ@@ ߳Y צList referenced items (Y/N)? Nߩ@@ ߩ@Ɓצ.CODEUƁP"ˡئ Open error # 쥁ˡ)Bad file (cannot read block 0)T٤̀ʀʀɍʀ,ō6٤צNot a code fileɍá3=SP =|PצList linker info table (Y/N)? NEnter library name: ƀ< ƀáƀƀPƀ޾.áƀƀ"ˡƀ޾.ˡƀƀƀצ.CODE׷=| ɡƀ́ƁƀPƁ.CODEUƁPƀƀ"á-ƀƀP=|́Ɓ=|P@@̀צ ʀáʀʀʀšʀá 7^(ȡ$۾.<==ƀתPdisplay.צ!Press ESCAPE to terminate LIBMAP.צ/Press S)kip to skip display of current segment.צ)Press N)ew to specify a new library file.ƀ<ʀǯʀáʀ̀_ʀ̀צ 3<Fצ*Press SPACE, ESCAPE, S)kip, N)ew [? help]Gצ-Press SPACE to continue, ESCAPE to terminate.ƀʀá =̀ʀÝ=̀<ʀǯÄ%Press SPACE to continue with --P-צ.Q- צ,Type SPACE to continue, ESCAPE to terminate.,<,á~تƀתPš+á" ̀ƀʀ ƀʀ̀ƀƀPƀƀ̀ʀšš̀ƀƀ<ئתPġّڞڿ0 áۡڞ-8ZتP,,P,צ.Q, צ,Type SPACE to continue, ESCAPE to terminate.+<+áxتP<0ggCopyright Apple Computer Inc. 1979-1983 Copyright U.C.Regents 1979 ƀ۾áƀ۾ ƀ4ƀ۾á7 ƀ  ƀá  ōƀ˄ ƀ ׮  - . á> ١צLibrary read error!  ١آp تP;צ 12345678P;;dd;PdǠdP ;dd;Pdצ word reference_dPb;dd;Pd byte reference_dP7;ddvSETCLOCK 쩅ȡצunknownA2/1.0תצA2/1.1A3/1.0תצA3/1.1A2/1.2תצA3/1.2A3/2.0ת6 צ Undefined6 צP-Code (most sig. 1st)6 P-Code (least sig. 1st)ת6 PDP-11ת6 צ80806 Z-80ת6 צGA 4406 6502ת6 צ68006 TI 9900ת  <==<6 , -FB V  :< =<O<쩅ȡצunknownA2/1.0תצA2/1.1A3/1.0תצA3/1.1A2/1.2תצA3/1.2A3/2.0ת6 צ Undefined6 צP-Code (most sig. 1st)6 P-Code (least sig. 1st)ת6 PDP-11ת------------------------------------------ צ lyV ԥ<Apple /// Library Map Utility [A3/1.2] =<O<ˡڤ צ Segment #   צ:  ڤ ˡc צSystem version =  ڤ  צ, code type is ' 6ڤ > צPre-II.1 segment   צK ----------------------------צ constantצ separateצ unitxצ privateivؤá8Ɓ́LƁLצ Private dataseg # = ƁLƁƁL %Khb%~;=á;  ȡ ڤ ōڤ = dƁLƁnƁL @Ɓ́LƁLƁ#PƁLצ constant value of cƁLƁmƁL @Ɓ́LƁLƁ#PƁL external proc P #cƁLƁmƁL Ɓ́LƁLƁ#PƁL separate proc P #cƁLƁmƁL צ globalצ public D{HJFؤ́LʁLʁL卡 ˡƁ# 12345678תPƁ#`ƁƁ́LƁLƁ#PƁL global addr P #cƁLƁmƁLצ, I #sƁLƁ}ƁL AƁ́LƁLƁ#PƁLצ public var baseLƁ#PƁL (UNLINKED INTRINSIC)eƁL Avؤá2́LƁLƁ#PƁL (LINKED INTRINSIC)cƁL Ɓ# ؤ vؤá ́LƁLƁ#PƁLצ separate procedure segmentlƁL H́LƁLƁ#PƁL data segment^ƁL  PƁL completely linked segmentkƁL ؤˡؤ  ́LƁLƁ#PƁLצ Pascal host outer blockiƁL ́LƁLƁ#PƁLצ Pascal segment`ƁL ؤ Ɓ#́LƁLƁ#PƁLצ library unit^ƁLPvؤá4́LƁ;Pdצ big reference^dP ^5 ˡ= 5;dd;Pd (Rd5\dצ times)cdP!;dd;Pd (once)WdP; + d+dȡ , ++#f hƁ#12345678תP6ؤƁ#vؤ́LƁLƁ#:#צ$System date and time are as follows:צDate : //""Time :  : is available in your Apple ///; how much is in use; how much memory SOS is taking up; how much memory the Interpreter is taking up; and finally, how much is available to the user. Open Apple and "V" displays and allows the user to select the avaiser. It describes the various actions taken by highlighting a Code, Font, Catalog, Ascii, Text or 3 EZP word processing file. In addition, by pressing Open Apple and "S", Menu.Maker will display the system memory map. Here, you'll find out how much RAM press the Open Apple key and "?" for help and the key to exit the program (and return to the Pascal command line). The Help file is a window laid over the first screen and gives the date and time, as well as a number of options available to the ug: SYSTEM.LIBRARY Code HELLO.TEXT Text FONTS Catalog PRINT.TEXT Text SYSTEM.STARTUP Code MENU.MAKER.CODE Code PROGRAMS Catlog PRINT.CODE Code At the bottom of the screen you are told to of Menu.Maker, when booted, you will get our standard hello message (written by Jim Salerno). From there, you are taken immediately into Menu.Maker and your menu of the disk in .D1 (that is, the PD Menu.Maker disk). The Side 2 menu includes the followinou might have. Since this is not an assembly-language program like Selector or Catalyst, however, it will NOT run a Basic or other language program. The program is unprotected and source code is included and fully documented. Just like the Basic version one and then flip over the disk to side 2 and hit . From there, you can create a menu from any disk you might have. It can read any Pascal text, ASCII, or 3EZ Pieces text file (that's right....3 EZPs!). It will also run any pascal-based program ytkiewitz - wrote this program from scratch. The program can be loaded onto a hard disk and used like any other. It can run any Pascal program, read text and 3 EZP/AW files, change fonts, etc. Since this is a Pascal-based program, you must first boot side WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Pascal Menu.Maker DISK ID#: 3PCL-10 BOOTABLE?: Bootable This disk contains a wonderful Pascal version of the venable Basic Menu.Maker program found on most WAP /// SIG PD disks. A former /// SIGer - Tom Barצ.Press if okay, S)et_clock to change:  SsÍRj:*Enter date and time as MM/DD/YYYY HH:MM :   011 AQ00000V :":: /""Time :  : צ.Press if okay, S)et_clock to change:  SsÍRj:*Enter date and time as MM/DD/YYYY HH:MM :   lable "block" devices (like .D1; .D2; .Profile, etc.). By moving the cursor and highlighting the desired device and pressing , you can change the prefix and Menu.Maker will give you the menu on that device (based, of course, on what drivers you loaded at bootup)! You can then read files or run the programs from that new prefix! The Pascal Menu.Maker can load and display any font you desire quickly and easily (it really "glides" from one to another). This disk includes some fonts for you to šؕ.[V >4Z[  [צ .GPRINTER ׷ )SELECT NUMBER OF COPIES .................  COPY  [ [ [ [/[ [/[ [ [ [:[ [ [PAGE [ [4P4[ [[ةġ ؕ)BOTTOM LINE .............................  )PAGE LENGTH ............................. ȡ[ [ .4 á[ )TOP MARGIN (ABOVE TITLE LINE) ...........  )SECOND TOP MARGIN (BELOW TITLE LINE) ....  )LEFT MARGIN (1-20).......................   ****** PRINT PROGRAM ******  / /  :  צENTER NAME OF FILE ......  P.Me.First Information File ish to run or files you wanted to read. To make this disk more useful for that purpose, please remove all the extraneous files included on this disk (source code files, etc.). Side One: Boot Disk and source code. Side Two: Program Disk : Readenjoys Pascal prgramming will have no trouble following what Tom has done. By the way, this program is easily installed for use under either Catalyst or Selector. You could also use it as a "turn-key" disk for specific Pascal programs you might wfile with information pertaining to the disk, and other useful material. You will want to read the Sources.Text file, which explains everything on the disk in much greater detail that I can do here. Everything is explained in full detail, and anyone who cal command line. To rerun Menu.Maker, type "X" and then ".D2/Menu.Maker.Code" and . On Side 1 of this disk, along with the boot files, you will find two Sources catalogs. These contain a number of text, ascii and a 3EZP word processing test out. The print program was added by /// SIG member Jim Salerno, so you can print out any file on the disk. The Programs catalog includes a Pascal program to set the date and time. By the way, when these programs end, you will be returned to the Pas4 "ˡצ**** UNABLE TO LOCATE FILE...TRY AGAIN ***<  צ)SELECT NUMBER OF COPIES ................. צ+ <+ < צCOPY 4  .4 צ(TO PRINT ANOTHER FILE WITH SAME SETTINGS ':',MIN:2,' ':(21-LMARGIN),'PAGE ',PAGENO); /SKIP(T2MARGIN); /LINENO := TMARGIN + T2MARGIN + 1 ,END; )READLN(INFILE, LINE); )WRITE(OUTFILE,' ':LMARGIN); )WRITELN(OUTFILE, LINE); )LINENO := LINENO + 1; )IF LINENO >= BLINE THEN ,BEGIN /SKIP(PAGELENAGENO, LINENO: INTEGER; &LINE: STRING; #BEGIN &PAGENO := 0; &LINENO := 0; &WHILE NOT EOF(INFILE) DO BEGIN )IF LINENO = 0 THEN ,BEGIN /SKIP(TMARGIN); /PAGENO := PAGENO + 1; /WRITELN(OUTFILE,' ':LMARGIN,NAME,' ':15,MON,'/',DAY,'/',YEAR, 9' ':3,HR,&WRITE(' ':15,'PAGE LENGTH ............................. '); &READLN(PAGELEN); &DESTINATION; #END; # PROCEDURE SKIP(N : INTEGER); #VAR &INDEX : INTEGER; #BEGIN &FOR INDEX := 1 TO N DO )WRITELN(OUTFILE, ' ') #END;   PROCEDURE FPRINT; #VAR &PTE(' ':15,'SECOND TOP MARGIN (BELOW TITLE LINE) .... '); &READLN(T2MARGIN); &WRITE(' ':15,'LEFT MARGIN (1-20)....................... '); &READLN(LMARGIN); &WRITE(' ':15,'BOTTOM LINE ............................. '); &READLN(BLINE); N:2); &WRITELN; &WRITELN; &WRITELN('-Note PASCAL textfiles must end in ".TEXT"-'); &WRITELN; &WRITE(' ':15,'ENTER NAME OF FILE ...... '); &READLN(NAME); &WRITELN; &WRITE(' ':15,'TOP MARGIN (ABOVE TITLE LINE) ........... '); &READLN(TMARGIN); &WRI WRITE(' ':15,'ENTER FULL FILENAME OF DESTINATION....... '); &READLN(DEST); &REWRITE(OUTFILE,DEST); #END;  PROCEDURE MENU; #BEGIN &WRITELN; &WRITELN; &WRITELN(' ':25,'****** PRINT PROGRAM ******'); &WRITELN(' ':30,MON,'/',DAY,'/',YEAR,HR:6,':',MIPROGRAM PRINT; USES APPLESTUFF;  VAR #YEAR,MON,DAY,DAYOFWK,HR,MIN,SEC,THOU : INTEGER; #NAME,DEST: STRING; #OUTFILE, INFILE: TEXT;  TMARGIN,T2MARGIN,LMARGIN,BLINE,PAGELEN : INTEGER;  CPY,MAXCOPY : INTEGER;  PROCEDURE DESTINATION; #BEGIN # N^x צ(CARRAGE RETURN TO EXIT) צENTER NAME OF FILE ......  P4[l +) , צ+ < - LINENO); /LINENO := 0; ,END; )END; )IF LINENO > 0 THEN )SKIP(PAGELEN - LINENO); &END; # BEGIN #CLOCKINFO(YEAR,MON,DAY,DAYOFWK,HR,MIN,SEC,THOU); #MENU; #WHILE NAME <> '' DO &BEGIN )WRITELN; )WRITE(' ':15,'SELECT NUMBER OF COPIES .................'); )READLN(MAXCOPY); )WRITELN; )WRITE (' ':25,'COPY '); )FOR CPY := 1 TO MAXCOPY DO ,BEGIN P{$IOCHECK-} /RESET(INFILE, NAME); P{$IOCHECK+} /IF IORESULT <> 0 THEN 2BEGIN 5WRITELN; 5WRITEL צ)SELECT NUMBER OF COPIES ................. צ+ <+ < צC 4׷ )SELECT NUMBER OF COPIES .................  COPY ȡ]4"ˡצ**** UNABLE TO LOCATE FILE...TRY AGAIN ***<  : PAGE  ]P] ةġ ؕšؕ.[V >]  צ*PAGE LENGTH .............................  ȡ  .] á 4  / /  *SECOND TOP MARGIN (BELOW TITLE LINE) ....   צ*LEFT MARGIN (1-20).......................   *BOTTOM LINE .............................   צ+-Note PASCAL textfiles must end in ".TEXT"- ENTER NAME OF FILE ...... 4P צ*TOP MARGIN (ABOVE TITLE LINE) ........... Ͷ *ENTER FULL FILENAME OF DESTINATION.......  P h ****** PRINT PROGRAM ******  / /  :@nPRINT )WRITELN(' ':15,'TO PRINT ANOTHER FILE WITH SAME SETTINGS'); )WRITELN(' ':25,'(CARRAGE RETURN TO EXIT)'); )WRITE(' ':15,'ENTER NAME OF FILE ...... ' ); )READLN(NAME); &END; &CLOSE(OUTFILE,LOCK); #END. TELN(' ':60); 5WRITE (' ':25,'COPY '); 5RESET(INFILE,NAME); 2END; /WRITE(CPY,'.'); /FPRINT; /CLOSE(INFILE); ,END; )WRITELN; )WRITELN; )WRITELN; )WRITELN(' ':16,'--BELOW FOR PRINTER DESTINATION ONLY--'); N('*** UNABLE TO LOCATE FILE...TRY AGAIN ***':60); 5PAGE (OUTPUT); 5WRITELN; 5MENU; 5WRITELN; 5WRITE(' ':15,'SELECT NUMBER OF COPIES .................'); 5READLN(MAXCOPY); 5WRITELN; 5WRITELN(' ':60); 5WRIOPY ]4 .] צ&--BELOW FOR PRINTER DESTINATION ONLY-- צ(TO PRINT ANOTHER FILE WITH SAME SETTINGS צ(CARRAGE RETURN TO EXIT) צENTER NAME OF FILE ...... 4P𥂄] &wGu` +62 <+ < צCD 10 29 36 3A 6F 64 36 3B 0D 10 29 65 6E 64 ;..)6:od6;..)end 0B0 3B 0D 10 26 63 61 73 65 20 64 69 72 20 6F 66 20 ;..&case dir of 0C0 0D 10 29 31 3A 64 72 6F 6E 65 28 78 2C 79 29 3B ..)1:drone(x,y); 0D0 0D 10 29 32 3A 64 72 74 77 6F 28 78 2C 72 r);..&case order 070 20 6F 66 20 0D 10 29 31 3A 6F 64 31 3B 0D 10 29 of ..)1:od1;..) 080 32 3A 6F 64 32 3B 0D 10 29 33 3A 6F 64 33 3B 0D 2:od2;..)3:od3;. 090 10 29 34 3A 6F 64 34 3B 0D 10 29 35 3A 6F 64 35 .)4:od4;..)5:od5 0A0 3B 0D 10 25 36 3A 64 72 73 69 78 28 78 2C y);..%6:drsix(x, 040 79 29 3B 0D 10 25 65 6E 64 3B 0D 10 23 72 65 70 y);..%end;..#rep 050 65 61 74 0D 10 26 65 73 74 61 62 28 6F 72 64 65 eat..&estab(orde 060 72 29 3B 0D 10 26 63 61 73 65 20 6F 72 64 65 ................ 000 10 25 33 3A 64 72 74 68 72 65 65 28 78 2C 79 29 .%3:drthree(x,y) 010 3B 0D 10 25 34 3A 64 72 66 6F 75 72 28 78 2C 79 ;..%4:drfour(x,y 020 29 3B 0D 10 25 35 3A 64 72 66 69 76 65 28 78 2C );..%5:drfive(x, 030 79 29 3B 03 65 20 64 69 72 20 6F 66 20 0D ..#case dir of . 1D0 10 25 31 3A 64 72 6F 6E 65 28 78 2C 79 29 3B 0D .%1:drone(x,y);. 1E0 10 25 32 3A 64 72 74 77 6F 28 78 2C 79 29 3B 0D .%2:drtwo(x,y);. 1F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ec;..#x:=27 190 37 3B 79 3A 3D 39 34 3B 64 69 72 3A 3D 31 3B 0D 7;y:=94;dir:=1;. 1A0 10 23 61 6C 74 65 72 6E 61 74 65 3B 73 65 74 75 .#alternate;setu 1B0 70 3B 0D 10 23 64 6F 74 61 74 28 78 2C 79 29 3B p;..#dotat(x,y); 1C0 0D 10 23 63 61 75 6E 20 64 69 72 3A 3D 31 t<>0 then dir:=1 160 3B 0D 65 6E 64 3B 0D 10 20 0D 10 20 62 65 67 69 ;.end;.. .. begi 170 6E 0D 69 6E 70 3A 3D 30 3B 0D 72 65 70 65 61 74 n.inp:=0;.repeat 180 0D 10 23 73 70 65 63 3B 0D 10 23 78 3A 3D 32 37 ..#sp(1 is 120 20 64 65 66 61 75 6C 74 29 3A 27 29 3B 0D 7B 69 default):');.{i 130 2D 7D 0D 72 65 61 64 6C 6E 28 64 69 72 29 3B 0D -}.readln(dir);. 140 7B 24 69 2B 7D 20 69 66 20 69 6F 72 65 73 75 6C {$i+} if ioresul 150 74 3C 3E 30 20 74 68 60 79 3A 3D 39 34 3B t<>0 then y:=94; 0F0 75 6E 69 74 63 6C 65 61 72 28 31 29 3B 0D 10 20 unitclear(1);.. 100 77 72 69 74 65 28 27 4E 65 77 20 44 69 72 65 63 write('New Direc 110 74 69 6F 6E 20 28 31 2D 36 29 20 28 31 20 69 73 tion (1-6) 0B0 73 20 64 65 66 61 75 6C 74 29 3A 27 29 3B 0D 7B s default):');.{ 0C0 24 69 2D 7D 0D 72 65 61 64 6C 6E 28 79 29 3B 0D $i-}.readln(y);. 0D0 7B 24 69 2B 7D 20 69 66 20 69 6F 72 65 73 75 6C {$i+} if ioresul 0E0 74 3C 3E 30 20 74 68 65 6E 28 3A 3D 32 37 lt<>0 then x:=27 080 37 3B 75 6E 69 74 63 6C 65 61 72 28 31 29 3B 0D 7;unitclear(1);. 090 77 72 69 74 65 28 27 4E 65 77 20 79 20 73 74 61 write('New y sta 0A0 72 74 20 28 30 2D 31 39 31 29 20 28 39 34 20 69 rt (0-191) (94 i 69 73 20 64 65 66 61 75 6C 74 29 3A 27 29 3B 0D is default):');. 050 7B 24 69 2D 7D 0D 72 65 61 64 6C 6E 28 78 29 3B {$i-}.readln(x); 060 0D 7B 24 69 2B 7D 20 69 66 20 69 6F 72 65 73 75 .{$i+} if ioresu 070 6C 74 3C 3E 30 20 74 68 65 6E 20 7C 74 65 7 then exit(alte 010 72 6E 61 74 65 29 3B 77 72 69 74 65 6C 6E 3B 0D rnate);writeln;. 020 77 72 69 74 65 28 27 4E 65 77 20 78 20 73 74 61 write('New x sta 030 72 74 20 28 30 2D 35 31 31 29 20 28 32 37 37 20 rt (0-511) (277 040 OPY ]4 .] צ&--BELOW FOR PRINTER DESTINATION ONLY-- צ(TO PRINT ANOTHER FILE WITH SAME SETTINGS צ(CARRAGE RETURN 79 29 3B ..)2:drtwo(x,y); 0E0 0D 10 29 33 3A 64 72 74 68 72 65 65 28 78 2C 79 ..)3:drthree(x,y 0F0 29 3B 0D 10 29 34 3A 64 72 66 6F 75 72 28 78 2C );..)4:drfour(x, 100 79 29 3B 0D 10 29 35 3A 64 72 66 69 76 65 28 78 y);..)5:drfive(x 110 2C 79 29 3B 0D 10 29 36 3A 64 72 73 69 78 28 78 ,y);..)6:drsix(x 120 2C 79 29 3B 0D 10 29 65 6E 64 3B 0D 10 26 75 6E ,y);..)end;..&un 130 74 69 6C 20 66 69 6E 69 73 68 3B 0D 10 23 72 65 til finish;..#re 140 70 65 61 74 0D 10 26 75 6E 69 7400 00 00 00 00 00 ................ 020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .............E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ............. 060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .......... 1F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........t 180 6F 6E 3B 0D 10 23 75 6E 74 69 6C 20 6B 65 79 70 on;..#until keyp 190 72 65 73 73 3B 0D 65 6E 64 2E 0D 10 20 0D 00 00 ress;.end... ... 1A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1B0 00 00 00 00 00 00 00 00 00 72 65 61 64 28 peat..&unitread( 150 32 2C 69 6E 70 2C 31 29 3B 0D 10 26 75 6E 74 69 2,inp,1);..&unti 160 6C 20 69 6E 70 3D 31 33 3B 0D 10 23 75 6E 69 74 l inp=13;..#unit 170 63 6C 65 61 72 28 31 29 3B 0D 10 23 74 65 78 74 clear(1);..#tex... 050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 070 00 00 01 00 00 00 01 00 00 00 4F 00 05 00 5E 00 ..........O...^. 080 C6 A3 B5 A5 00 00 00 00 00 00 00 00 00 00 00 00 ................ 090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .................. 190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .......... 120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........... 0B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000 E6 E8 E9 EA 00 00 00 00 00 00 00 00 00 00 ................ 1A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0............... 130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .......... 0C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0F0 00 00 00 00 00 00 0 00 00 00 00 00 00 00 00 00 00 ................ 1D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 1F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00