LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)/SYSTEM.STAR.LIB[6j~!~.SYSTEM.STARTUP!$~!( QFFORMAT.LIBX"!-REFORMAT.CODEP')P~!-REFORMAT.HELP<!ƬREFORMAT.LIB"!SYSTEM.MISCINFO!V-SYSTEM.PASCALD!~REFORMATTERu' .DIFFORMAT.CODEK~! DIFFORMAT.LIBY"!.HELP.WORK.TEXTƬ!Ƭ-MAKEHELP.CODE+!PODSVC.STR&!-QFFORMAT.CODE8 >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L  !"#$%f you want to load a report, #and press RETURN. # 3) The program will ask you what template or report you want to load. Type #the volume name, followed by a slash, and the name of the template or #report. Then press RETURN. DLOAD D Use the Load command to load templates and reports into the computer's memory. 1) Type 'L' (for Load) and press RETURN. 2) Reformatter will ask whether you want to load a template or a report. Type #'T' if you want to load a template, or 'R' iontain #integer data, or 'R' if it will contain real data. Then press RETURN. 4) Reformatter will ask for a title for the column. Type the title you #want for the column and press RETURN. # 5) The program will ask what type of data will be in the column. Type 'A' #if the column will contain alpha-numeric data, 'I' if it will cECOLUMN 1) Put the left side of the cursor on the first character in the column you #want to specify. 2) Type 'C' (for Column) and press RETURN. 3) Use the or the to make the cursor the width that you want the column to #be, then press RETURN. # GSAVE G You should save template if you want to re-use the layout you developed. 1) Type 'S' (for Save) and press RETURN. 2) Reformatter will ask for a name of the template. Type a volume name, then #type slash (/) and the name you want to give the tletter #of the column you want to delete and press RETURN, or type an asterisk #(*) and press RETURN to undo all the columns. FXCOL  You can undo a column layout if you decide that you don't want it in your file after all, or if you decide to lay it out differently. 1) Type 'X' (for XCOL) and press RETURN. 2) Reformatter will ask you which column you want to undo. Type the the very beginning of the report. TOP G There's one other quick way to get from here to there. If you're somewhere in the middle of your report and want to get back to the very beginning real fast, type 'T' (for TOP). The cursor will jump back to file type format, 'D' for DIF, 'Q' for Quickfile (/// EZ Pieces). 3) Set pathname for file, press RETURN. 4) Answer questions on format and Audit trail choices. 5) Y/N to save file. Y/N to return to Reformatter, or Quit. EREFORMAT When you're through laying out your report, you must reformat it. Here are the steps for reformatting it as a VisiCalc file. See page 39 for full details on reformatting. In summary: 1) Type 'R' to begin. Y/N for AUTO on/off. 2) Choose emplate. Press RETURN. EDELETE E Use the Delete command to delete headers, footers, and other invalid data from your report. 1) Place the cursor on the first line you want to delete. 2) Type 'D' (for Delete) and press RETURN. 3) Press the to highlight all the lines you wa. 6) When all the lines are highlighted, press RETURN. ype an identifying string that appears #in the upper-left corner of each page. Then press RETURN. # 3) Put the cursor on the first line of the header. 4) Type 'H' (for Header) and press RETURN. 5) Use the to highlight all the lines you want deleted?AUTOMATIC DELETING 1) Type 'A' (for Auto) and press RETURN. 2) If your report doesn't have 66 lines per page, type 'P'(for Page) and press #RETURN. Reformatter will ask how to define each page. Type the number of #lines per page your report has or tTER /// will ignore. DFIND D The FIND command is a preview for AUDIT. It shows the lines in the table that REFORMATTER /// will ignore when it re-formats your text. This is most useful for seeing if you missed anything or if you have an otherwise useful row that REFORMATDUNDELETE D Use the Undelete command to correct deleting mistakes. 1) Place the cursor on the line where you want the information to appear. 2) Type 'U' (for Undelete) and press RETURN. nt to delete. 4) When everything you want to delete is highlighted, press RETURN. FPAGE  If you wish to modify the standard page length value for the Automatic Line Deletion mode of the Reformatter, use the Page command. To use this command, first press 'P'; You will be asked to enter the desired page length of your report&()*+,-./0123456_dLnFREFORMATINITIALI isk. If the program disk is write protected, the template will be stored on your data disk, and can be re-loaded again later. port. If you don't want to reformat this report again, type 'Y'. This will erase memory and exit the program, but will not change the data on your disk. If a template is in memory when you exit the program, it will be saved as TEMPORARY on the program dit). If you have data or a template in memory when you try to quit, the program will ask you if you wish to: Discard current data? (Y/N) If you decide that you want to keep the data you were working on, type 'N' and Reformatter will return you to your re QUIT E After your file is reformatted and saved, you may wish to load another report and/or template and continue working. However, if you are through using Reformatter, you can exit the program by typing 'Q' (for Qud during the reformat process ONLY if you have turned AUTO mode on with the Auto command. nes are covered by the colored background. If you wish to exit the Hdr command without applying your recent changes, press the key. To save your Header Length definition, press . The header area of each page of the report will be deleteEHEADER  If you want the Reformatter to automatically delete the first lines of each page of your report, set the Header Length with the Hdr command. To use this command, first press 'H', then use the up arrow or down arrow until the desired Header li ength are both used during AUTO delete mode to define the areas of 'valid' data on each page of the report. The header area of each page of the report will be deleted during the reformat process ONLY if you have turned AUTO mode on with the Auto command.. Enter the new value, followed by . If you don't want to change it, press , or enter the standard value 66 and press . Most reports are 66 lines, so you should make sure you wish to change this.  The Page Length and Header L%ECol Load Save Refrmt Top Xcol Del Undel Find Auto Page Hdr ?help QuitתP      LjNJNjǕ $"#! <۩šȄ(6 %ɡکšɡ۩šȄإ( t& ǀ (ڨ٨ Ɓ e`ʁǵhʁh`eɄʁh ́h``̂;Ƃ;ƁPƂ;/QƂ;ʁh`Ƃ;PƁi!R"   ""*å) Ä) Ä"#Please Wait....$ɡکšɡ_ÄƁjƁjÍ#Ɓf eeʁfƁjʁf ʁgʁf́geá+צ"No files of the desired type found"$`ʁǵhʁhˡD````` צ. ʁhʁh ́h/lƁ Ɓi!"`ʂ8ˡʂ8"ʂ9f`Ƃ8ʂ8ˡʂ8"f$af%bƁi ́ge^``bȡ^^^aġFfcccʂ9cƂ8ʂ9f^Ƃ8ʂ8ˡʂ8"^^'_f_ˡv``f_f_f_0Xf_Ɓj'fʇˡ Error closing Audit Trail zX $&!/ܪP۪Pʂ9ˡ ʂ9Ƃ8Volume name for lookupץ|@Ɓ "ƁXƂ8 ʂ8ˡʂ8"Xˡ'צNot a valid Volume/Device nameƁƂ:Ƃ9Ƃ8QȡQġ2 ٩   ٩R QQˡ%צError writing Output File   詇RQRQRQQˡ צError closing Output File LˡE; ˡY ۥȡ3ȡڂˡ; ᩐ;š ᩐ:ȡ 擡&ˡ ɡ㥇á ġ  ޞA <ȡZ=A<@ ة<@* $ A <ȡ.=Aš䫐 - -ȡ, l  0  ;T^ Ƃ'ƂT?ZƂ+צ?CLSRTXDUFAPHQ Pצ%reformat.help"ˡ#צERROR: Help file not found4 ت 222-22(22#22222222 22  22 Z(Х   0 š 0^$@1?NAANPA?QAP!?áNN?áڥNPNׯ* 2 ڪP-././ġ---. ˡ--..-,XB2-ߪ (ު #ݪ ܪ ۪ ڪ ٪ۡaġ zȡ !ڡ, 1 h (p1P@ۀ? NתP ? !Nצ?@1?Ná?@1?6 !צ Page length ; צ Header :  Auto ON |צOFF |'#(0ˡ!oooo oo צooo ooo o o צ o o ooo ooo צ o o o o צooooooo dOOOOOOOOצOOOOOOOOOOOOOOOOצOOOOOOOO Oצ O Oצ Od á!  㕫    ޕɡɡ)㥇)+)*%%9/#/ ܩ*á  ˡ) Error: cannot read from workfile/ 4,  á á  䓡  áF#   !  㕫 ;ړ(%%279$ # $&ݕ!ߥ!,!"ߥáݕ ݞ*á) @ɡ)š )े),)ړ$ %㕂㫇 ášX) ੇ*᥇)᥇)+!"  ˡ@ ȡ !#$ !᥇!+Ä!#áU*)!"ݩܩܫ !!+ .듡ák$Cצ .......moving-.=צ8No work space can be acquired. Confine editing to above.!#  ! "#!áh { zzá@ ⥇á #⥇#+Lˡ-{z{㫇1Z|-צ /rfmt.w.o.r.k!áá% )* !  _79:;<=>?@ABCDEFGHI dړ[١R+ Ū>*Þ"ˡצwriting QF catalog"áx* ١צ REMEMBER, צATHIS FILE CATALOG IS NOW FULL. NO ENTRIES AFTER THIS CAN BE MADE.* ***áq* * 0إ á٩ á  (Lˡ!while reading from file`G"ˡצopening catalog file"*Þ"ˡצreading catalog file" ȡ{+* צReformatter ///, Version צ1.1*2צQuick File Formatting Module*n*צ1Do you want to return to the Reformatter (Y/N) ? ** %REFORMAT'j,%Unknown error or Memory System error.תPعZ   "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~ɡؑצError  צ - *١)צProgram Aborting...*١-K NEBHRTXt^UWY[]_acegikmoqsX>ymZD*ɡ,%Unknown error or Memory System error.תPعZ   "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~ɡؑצ Invalid bitmap address on volumePFile system errorתPZ~ c$&(*,.02468:<>cH&HPRTXt^UWY[]_acegikmoqsX>ymZD*ɡuplicate file nameתP Overrun errorתPDirectory FullתPצIncompatible file formatP End of FileתP File is busyתPצDirectory ErrorPצDirectory not in SOS formatPצDuplicate VolumePNot a block deviceתPe-protectedPBlock number too largeתPצDiskette has been switchedPDevice system error.תPצInvalid pathname syntaxPצInvalid file reference numberPצPath not foundPVolume not foundתPצFile not foundPDתPInvalid device NumberתPInvalid Request CodeתPצInvalid control/status codePצ Invalid control/status parameterPDevice not openתPResource not availableתPצInvalid operationPצ I/O ErrorPצDevice writ for systemתP,$0Sv+U 50 HڪP-I * @á0 ȡؑɡ,Pascal I/O error while #SOS error while عצGeneral System ErrorPDevice name not foundצNo such file in directoryPDuplicate pathnameתP!Attempt to open already open fileתPצAttempt to access closed filePBad input formatתPInput arriving too fastתPqצWrite protect errorPTToo many files openצBad unit numberPIllegal operationתPצLost unit -- no longer on linePצ#Lost file -- no longer in directoryPIllegal pathnameתP%No room -- insufficient space on diskתPצNo unit -- unit is not on lineP%THE SPECIFIED FILE CATALOG IS FULL. ץ*%Please use another QuickFile catalog.ץ** *ٓg@ނ*#p P צ/QFF.U V Pp"ˡ!opening QF data file"dlGA*ȡ'+ I    *Þ"ˡ*צwhile writing new QF catalog"Y \**צYY*Y3צFile name ( to exit) :*F**Y*צ*S/ צ records.* * Do you wish to continue (Y/N) ?  *04!ˡclosing data file*  #Reading of the data file completed.ץ* "Finishing writing to QF data file.ץ*ly support /  records ofצ6this length. You are trying to more than this amount.צ@The data file will be created with all records in the data file,צ&but Quickfile will stop loading after Pצ$ˡáצ,ˡáצ-ˡ 0*-ץP ץˡá0*إš0PإؕPYT * Quickfile will on Þ"ˡ!writing to QF data file"T z=Z\ " zǶǷ= Ƿ=0 P؂š z   ؞؂T** tš ** 2Data record is too long. Quickfile will truncate.*  Do you want to continue (Y/N) ? ץ**==*  $Reading of structure file completed.ץ*F  uu==ƀƀצ*0@LL˩=ÄL** ;The number of categories has exceeded the QF maximum of 15.ץ* ;Only the first 15 categories will be loaded into QuickFile.ץ** צ Do you want to continue (Y/N) ? *ʀ!uLuʀuLš **  Field size of w is too long. Quick file will truncate.ץ** צ Do you want to continue (Y/N) ? **uL* *צfield = Aƀƀت A*vwAƀvƀتƀƀ!ƀتPƀƀƀ*ʀ)צ in structure file start positionƀ%ƀتPƀ*ʀ'in structure file end positionLƀ)ƀتPEu wuؚ On =u *  צReading structure file ...*ƀ*0ƀ*̀ƀƀƀʀƀʀוƀتPƀƀ*ʀ90illegal number in first record of structure file*Lˡ= " * " inue?**Y1Ready to create QF file. Do you want to continue?ץ*** 6ikc?@DAȡB ȡE ȡCؚإG[U UFá[ :QuickFile catalog does not exist. Do you want to make one?ץ* *Y/Uˡ)צlooking for QuickFile catalogUYY; !What is the QuickFile file name ?ץ* *Y=YY3צDo you want to contWVÄYY**/** X*]X]P * @Enter a pathname for the file catalog ( to accept default) :ץ**Y*ZYE*Z*#* *G]]P]צ/QF.FCV]PY]P]צ and Data file^]P Data fileתP׷A]]P] not found.[]P* *"* *Y*!WWˡOpening structure fileWǀ\!VVˡצOpening data fileVǀ\*]S]PT]T]ȡ2TTT TTצ.DAT.STRׯ**]S]P]]*P].STRT]P]]*P]צ.DATT]P[W [V תPWˡצStructure filePVˡ@Wˡ*] *> 50*=婉=.H./*  Reading data file ...ץ*" צrecord * 214 +*+QLé Í+66צ*0@+,-6-6ȡ+)*+)++)+QLáZ* @WARNING : Error in data file. The last record was not processed.ץ** **---=6-6ȡ59,P 2 2-á11 1,)ˡ,),5-1373-7P *.Reformatter /// Version 1.1*:צDIF Formatting Module*b*צ1Do you want to return to the Reformatter (Y/N) ? **צ %REFORMAT'fتR/YYRYSYS/-/-.XZ\^`bdfhjlnprtvxz|~Error   - *١)Program Aborting...*١-K ~Ev3>cH&HPRTXt^UWY[]_acegikmoqsX>ymZD*צ%Unknown error or Memory System error.PعZ   "$&(*,.02468:<>@BDFHJLNPRTVצDirectory ErrorPצDirectory not in SOS formatPצDuplicate VolumePNot a block deviceתPצ Invalid bitmap address on volumePFile system errorתPZ~ c$&(*,.02468:<>cH&HצInvalid file reference numberPצPath not foundPVolume not foundתPצFile not foundPDuplicate file nameתP Overrun errorתPDirectory FullתPצIncompatible file formatP End of FileתP File is busyתPDevice not openתPResource not availableתPצInvalid operationPצ I/O ErrorPצDevice write-protectedPBlock number too largeתPצDiskette has been switchedPDevice system error.תPצInvalid pathname syntaxPڪP-I * SOS error while عצGeneral System ErrorPDevice name not foundתPInvalid device NumberתPInvalid Request CodeתPצInvalid control/status codePצ Invalid control/status parameterPJLMNOPQRSTUVW_$DIFFORMASOSERROR .š P!-A% 7..7P- 0P7..7P-2-=Í5--4!0*/ũ=*ǘ:ō0**A0JTL=* * **VZ%`dlDR(  rJ$* **---=6-6ȡ59,P 2 2-á11 1,)ˡ,),5-1373-7P *..š P!-A% 7..7P- 0P7..7P-2-=Í5--4!0*/ũ=*ǘ:ō0**A0JTL=*.ˡWriting to output file.\Qá۾á&Lˡ while reading from fileX**׷[[[:צ"File name (press RETURN to exit) :*F**[*ׯԡ* *S*\S\PT\T\ȡ3TTT TTצ.DAT.STRׯ**\S\P0\\*P\.STRT\PY\\*P\צ.DATT\P\\*P\.DIFT\P0YW YYV צPWˡ0צEOD*  DIF file completed.ˡצclosing DIF fileˡclosing DIF work file ˡpurging DIF work fileWN 3*X *  ԡ* **.!.צ"".ɩÍ-1,0BOT.ɩÍ}A7צ1,0--צ"-Q-צ"R-) --צ0,-R-Vצ-1, please wait.....TABLEצ0,1""VECTORS* --צ0,-R-P""TUPLES* --0,-R-Pצ""צDATAצ0,0""-1,0BOT0--ȡ=1,0.." ץˡáׯ0P00*إš0PإؕPaV ˡ&Opening DIF work file for readǀ ˡ&צsetting new line for work file*  "Writing DIF file,YYˡצclosing DIF work fileYYYˡצclosing data fileY*  SSe- @צ$ˡáצ,ˡáצ-ˡ0*צ-P for data fileYXXáUV צRecord  S0ZSZȡSVW[W1S[Pׯ PSUS0ÍUUVVX*0@ׯׯXXLájlease enter alternate path for work file (press RETURN to exit) : * F*ׯԡ* YáYYˡצopening DIF work fileY*  Reading data file.....ǀ YYˡ&צsetting newlinefileʀ* ƀʀˡ Closing structure fileʀd ZZPZ DIFTEMP.DATA\ZPYYGá5X Xˡ%צclearing temporary data fileX%Yˡcreating DIF work fileYYw*  צCP ƀΪ T*fgTƀfƀΪ xƀ!ƀΪPxƀ*+ƀ%ƀΪP+*ƀ*ƀƀ)ƀΪPeg eeƀ1e*eeƀצ*0@ ƀʀLˡ'Reading end of structure fileUԡ* * cǀ ƀʀˡ$צsetting structure new-lineʀ0e*  Reading structure file.....ƀƀ*ƀʀá00" * " צField 0 TƀUUá0UUˡצopening DIF fileUcreating DIF fileUUˡ[/ Xե\X\P[צ2Ready to create DIF file. Do you want to continue?**2:HP N ɩÍ-1,0BOT.ɩÍ}A7צ1,0--צ"-Q-צ"R-) --צ0,-R-Vצ-1,LIBRARY FILES: system.star.lib $$ ListLeng : Integer; :Var RetCode ); !Procedure SOS_Volume ( Var DevName, VolName, TotalBlks, FreeBlks, RetCode ); !Procedure SOS_Set_Prefix ( Var Prefix, RetCode ); !Procedure SOS_Get_Prefix ( Var Prefix; Length : Integer; Var RetCode ); !Procedure StCode ); !Procedure SOS_Destroy ( Var Pathname, RetCode ); !Procedure SOS_Rename ( Var OldPath, NewPath, RetCode ); !Procedure SOS_Set_Info ( Var Pathname, FileList; ListLeng : Integer; :Var RetCode ); !Procedure SOS_Get_Info ( Var Pathname, FileList;!Procedure SOS_Get_D_Nmb ( Var DevName, DevNumb, RetCode ); !Procedure SOS_D_Info ( DevNo : Integer; Var DevName, DevList, RetCode ); {$ENDC} {$IFC SOS_File_IO} Procedure SOS_Create ( Var Pathname; FileID, AuxID, Storage, EOFBlk : Integer; 8Var Reource): ZREG7 d"RETURN0 "(INTRINSI'"EG01 "ZREG'')xPxxINTEGER xHREAL &J~"CHAR \BOOLEAN STRIN Integer; Var BytesRead, RetCode ); !Procedure SOS_D_Write ( DevNumb : Integer; Var BufPtr; OffSet, NumbBytes, 9StartingBlock : Integer; Var RetCode ); $C Copyright Apple Computer Inc. 1981n in se SOS_D_Status ( DevNumb, StatusCode : Integer; 9Var StatusList, RetCode ); Procedure SOS_D_Control ( DevNumb, ControlCode : Integer; :Var ControlList, RetCode ); !Procedure SOS_D_Read ( DevNo : Integer; Var BufPtr; OffSet, NumbBytes, 8StartingBlock : { Set to TRUE to compile SOS calls for: } !{$SETC SOS_File_IO := TRUE} {$SETC SOS_Device_IO := TRUE} {$SETC SOS_Utility_IO := TRUE} {$SETC SOS_Memory_Mgt := FALSE} {$SETC SOS_Plus_IO := FALSE} ! !{$IFC SOS_Device_IO} ProcedurZ\]^_`abcdefghijklmnopqrstuvwxyz{|}~g* "  H-HSOS CHAINSTULONGINTIPASCALIOPAIDS (LIBRARY FILES: system.star.lib $$ OS_Open ( Var Path; ReqType, Pages : Integer; Var SysBuf, RefNumb, 6RetCode ); 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; OffSet, BytesReq 8: Integer; Var BytesRead, RetCode ); !Procedure SOS_Write ( RefNumb : Integer; Var BufPtr; NumbBytes : Integer; 7Var RetCode ); !Procedure SOS_S_Wrih ⍡  Ş 譥 正 ȑ警 此 )H(H`=<9631.+$! |h(h)hhhh  ƞ ȑ)H(H`!Bh(h)hhh hhh  Ǟ ȑ)H(H`.$!Jh(h)hhBh(h)hhhhhh ⍡  ž ȑ)H(H`)(%"TÍL č:h(h)hhh hhhhh ⍡  ȑ)H(H`I=-,)&#!bh(h)hhhhhhhhh ȑ)H(H`40/,)&#!bh(h)hhh h* h hh h h h hh  ȑ)H(H`[XUTSQNLJFEDCB964h(h)hhhh  ȑ)H(H`!h h h h hhhehe h h 䭦 ȑ䭧 )H(H`RPNL853/-*# h(h)hhhhhh 䭡 ȑ)H(H`)&#!Rh(h)hhhhhhh h ⍢ UL) 1h(h)hhhh h hh h ȑ)H(H`A.+)&" Xh(h)hhh h h h hhhehe h h ȑ)H(H`HFDB.+)%# lh(h)hhhhedure 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 ); {$ENDC} !{$IFC SOS_Plus_IO} Procedure Up_Load ( Var Char_Set ); !Function At_Sign ( Var Ptr ) : Integer; {$ENDC}   Implementation E d_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 ); !Procedure SOS_Rel_Seg ( SegNumb : Integer; Var RetCode ); {$ENDC} !{$IFC SOS_Plus_IO} _Memory_Mgt} !Procedure SOS_Request_Seg ( Base, Limit, SegId : Integer; Var SegNumb, =RetCode ); !Procedure SOS_Find_Seg ( SrchMode, SegId : Integer; Var FiveInts ); !Procedure SOS_Change_Seg ( SegNumb, ChgMode : Integer; Var Pages, =RetCode ); !Procity : Integer ); !Procedure SOS_G_Fence ( Var Priority : Integer ); !Procedure SOS_Set_Time ( Var Time ); !Procedure SOS_Get_Time ( Var Time ); !Procedure SOS_Joy_Stk ( Mode : Integer; Var Value, RetCode ); !Procedure SOS_Cold; !{$ENDC} ! {$IFC SOS!Procedure SOS_Set_EOF ( RefNumb, Base, Low, Hi : Integer; Var RetCode ); !Procedure SOS_Set_Lev ( Level : Integer; Var RetCode : Integer ); !Procedure SOS_Get_Lev ( Var Level : Integer ); {$ENDC} {$IFC SOS_Utility_IO} Procedure SOS_S_Fence ( Priorure SOS_Get_Mark ( RefNumb : Integer; Var Low, Hi, RetCode ); !Procedure SOS_Get_EOF ( RefNumb : Integer; Var Low, Hi, RetCode ); !Procedure SOS_Set_Mark ( RefNumb, Base, Low, Hi : Integer; Var RetCode ); umb, RetCode ); !Procedure SOS_Get_B_EOF ( RefNumb : Integer; Var BlockNumb, RetCode ); !Procedure SOS_Set_B_Mark ( RefNumb, Base, BlockNumb : Integer; Var RetCode ); !Procedure SOS_Set_B_EOF ( RefNumb, Base, BlockNumb : Integer; Var RetCode ); !Procedte ( RefNumb : Integer; Var BufPtr; OffSet, 9NumbBytes : Integer; Var RetCode ); !Procedure SOS_Close ( RefNumb : Integer; Var RetCode ); !Procedure SOS_Flush ( RefNumb : Integer; Var RetCode ); !Procedure SOS_Get_B_Mark ( RefNumb : Integer; Var BlockNhhhh ⍧ h h h hhh Ȟ 歡 ȑ)H(H`ONKIEDCBA@>42/h(h)hhh hh hh h ɞ ȑ)H(H`*'$ Fh(h)hhhhh h hh h h ʞ 䭤 ȑ䭥 )H(H`@>520,*' jh(h)hhhhh h hhheheL <h(h)hhh h hhh h  ˞ ȑ)H(H`64,(%" Vh(h)hhh h hhheheL $ "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:I< 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXPšEצ:š  >#צ*צ:á >š{-NVWf-N@ȡQ-Pצ:-á:ײPN? XP ??زP>پ/ˡ צ/P?8زPtV,j8n :/˄ /P /á< 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 LIBRARYtJJ|r;t^JJ;t^; ~UUxS ^!SECommand: 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(ity : Integer ); !Procedure SOS_G_Fence ( Var Priority : Integer ); !Procedure SOS_Set_Time ( Var Time ); !Procedure SOS_Get_Time ( Var Time ); !Procedure SOS_Joy_Stk ( Mode : Integer; Var Value, RetCode ); !Procedure SOS_Cold; !{$ENDC} ! {$IFC SOS`* N L (  ( Base, Low, Hi : Integer; Var RetCode ); !Procedure SOS_Set_Lev ( Level : Integer; Var RetCode : Integer ); !Procedure SOS_Get_Lev ( Var Level : Integer ); {$ENDC} {$IFC SOS_Utility_IO} Procedure SOS_S_Fence ( Prior(H`Jh(h)hhhhh h d ȑ⨪ )H(H`,(&LeCopyright Apple Computer Inc. 1981'(),` PXnZ@`Vvn&4)H(H`6h(h)h h ` )H(H`*h(h)hh a ȑ)H(H`6h(h)hhii b )H(H`Dh(h)hhii c )Hlh(h)эL h(h)΍1hhh h h h h hh h ȑ)H(H`=7531/,(&^h(h)ЍU L/ h(h)hhh h Ҟ ȑ)H(H` 8h(h)hh Ӟ ȑL h(h)΍3hhh h* h hh h ȑ)H(H`?8521/,(&`h(h)ЍGL h(h)ύ-hhhhhhh h ୠ 䭢 ȑୡ 䭣 )H(H`K9520-*#  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.-+(lh(h)э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 ^!SECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,* &  * عteVG8  )   uh[NA4'á (&آڢ٢آ&'ڢڢá ޡ?šڢڢ'ޡڢڢڢ~ڢ 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 Shhƀ 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ݡߑ ع      ' \)  ɡ-Í á ܑ ) '!Í ) % ɡ    ~ɡ  ~"ˡǀġg/  ( ǀ > *ڨ ɡ(MMMM܏M܏T+ܨ ء '$H`: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á?˄??&@ۂ"ˡu??š???#?$???$?#ń ?#?$?ۚ?$ܚ?AAA?AˡA  5~ 09Ȅ.!~Ȅ/azōaA??@ɡ??"@?Ä?á?????,? >"Má? > >? >á @@@ Ą @ ?ˡ\?%,?%???&@?"% ,    ݂܂F  -    ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏- +$&!&%š#$ە##š##$"$##ɡ#"ɡ2ݓ&&Í&&&á&"&!)&%&&Í&&"&!)$%&&!!$$#ȡ!ˡ ء##ȡ''0'Q'Phhhhhhhhhhhh&FffHHHHHH`Phhhhhh⨥HH`,hhhhhhhhhh訪 横v E 詀 vE 詀  Lj0 fLfJJJi䨩ȩ50,8 &5&  6 F5L L5HH`~u$hhhhhhhhhh訪 横 Ji&&0 fL]fJJJi&&#procedure Real_to_string ( real_num : real; n_frac_places : integer; Lvar real_string : string ); #procedure Center_string ( y_scr: integer; s : string; var eos : integer ); #procedure Put_ch_in_str ( ch : char; var s : string; index : integer ); edure Str_to_int ( s : string; var num : integer; var failed : boolean ); #procedure Str_to_real ( s : string; var r : real; var failed : boolean ); #procedure Integer_to_string(int_num : integer; var integer_string : string ); string; len : integer ); #function First_non ( from_the_left : boolean; ch:char; s:string ) : integer; #procedure Get_string ( ip, y, len : integer; pad : boolean; var s : string; 0charset : charsets; altcharset : chrset; nulstrok : boolean ); #procype : key_info; Rcapitalize : boolean ); #function Get_char ( x,y:integer; legalchars:chrset; capitalize : boolean; Ceolok : boolean; var eol: boolean ):char; #procedure Pad_blanks ( var s : string; len : integer ); #procedure Pad_zeros ( var s :Kstart, len : integer ); #procedure Prompt_for_cr ( writeprompt : boolean ); #function Y_or_n ( x, y : integer ) : boolean; #procedure Put_at_xy ( x, y : integer; s : string; var eos : integer ); #procedure Read_key (VAR ascii_char : char; VAR key_ts : integer ); #procedure Array_to_string ( len : integer; var char_array : bytestream; Svar s : string ); #procedure Str_to_array ( s : string; var char_array : bytestream; string ( y_scr: integer; s : string; var eos : integeocedure Normal; #procedure Clear_screen; #procedure Clear_after_xy ( x, y : integer ); #procedure Clear_line ( y : integer ); #procedure Clear_to_eol ( x, y : integer ); #procedure Flush_buf; #function Key_press : boolean; #procedure Stall ( second, t : integer ); #procedure set_viewport ( tlwx,tlwy, brwx,brwy : integer ); #procedure restore_viewport; #procedure Sound_bell; #procedure Cursor_up; #procedure Cursor_down; #procedure Cursor_left; #procedure Cursor_right; #procedure Inverse; #pr  type charsets = ( visible, integers, reals, alternate ); &chrset = set of char; &key_status = ( any, shift, ctrl, alpha, open_apple, closed_apple, Zkbd_on, special ); &key_info = set of key_status; "  (**) # #procedure Screen_cmd ( q, w, e, rv :2D"\.< z 048VID K6ANU8HVIDS ZA\A!8H@DIRRANGEA~AA8MTID CAAN8HFULLID VJAA8H HH`7hhhhhhhh訪 H & *HHH`6hhhhhhhhHHHH`&hhhhhheȑȦ0+L4-I8i  L6i0i0HH`.`4j rXJF8IȱjE Ȅ橀إHH`zhhhhhhhhhh[ȱ)uD*&**u&L&*** ʈHH5qjȑHHHH`\hhhhhhhh  0<Ȱ& u E   ؠ ) JJJJ 0ȑ ) 0ȑᘠHH`hhhhhhR0H*v  u&&v&E& &詀&L&&ť&&ʈHH`o'hhhhhhhhhhhh bL)5Ffeyumꩀ5JA1SKQL51QF55(5ȱ implementation N E ܿۿڿٿؿ  *       P77ȡJ3߀$33߀$ 088P8 Ǡ8P2 -Pab!٪POġ P--T4"xPڿPR#@F J ~ -ئ0.תP77ȡצ0P*!22?/צP P5?77ȡ55=̐3577ȡH3ߞ$33ߞ$ 088P8 Ǡ8P.$$.á0P* 2ɡ 2ئתP P.33ȡBܞ$ܞ$ 044P4 Ǡ4P2 -PY ڞ$ۡ  ./1414ȡ!1@*110-0-.0.ˡٳ Aټ00-002/0/Ȅ'2200/-//00.*ټ2.ټ[b@ڞ -0--.)wXڹU=̽^#< ׽R:oF8:'7Ž.57"3]RH>4* v-ڪPٳ.צ* 11ˡ11á.-á .  tln. ~ڪPׯ*צ --ˡ--á.-á .-/-/ȡ"-*--0ń š*צ32767*-/-/ȡ7=-7==>13== P,,M)M"á$ á%&M)*ׯ ء*+(='2)ġپ ˡ**" 2*ھ á ڶá/`*+"-ö.Ä*+ 6 j x+N- ~ǀ ,'á.ö.˄ݲ= -Äލ.ݲ-ǀߡ  (/ T Hš $ɡ$ = ˍ <%á$.&ۡ  /-   . ٦ׯ Pȡ P6٦ׯ0P-áȡ0PDڪPׯ P/ܓ///  ء#޳ ޚ  ȡ" ݗ 3 ܡ ۡ R8ء<צPress to continue "  2 bܳ@@ܳF N٪Pׯ PR4ǀ   ȡ#<ȡ*! :šڞ$۪Pׯɍ*šپ&HL > n  X  R | 2H^t^*/2?/צP P5?77ȡ55=̐3577ȡH3ߞ$33ߞ$ 088P8 Ǡ8P.00000000000000000000000000000000000000001 DEPT 00010004R P.O. 00050013A ORDER QTY 00140020I UNIT PRICE 00210032R RECEIVED 00330040I QTY ġܤܩ ȡ1š   o^; "á ġ;Too many lines to save - limited to 16 lines. Delete anyway :9 H:5;áNo lines savedȡ𩇵ȡ򥇼 z j95:ɡToo few lines to delete !HDelete: Arrows select lines; deletes lines; quit, no changesٕکš צCannot delete this many:šIצ  ȡޕ  㥇ڤڤݞ  ȡ㕚  򩇵ە㕫ګġ㩕 š  צ4E8ÍwצWrite ProtectedP0wSOS I/O Error # תPw 0w 0wPצ Do you want to try againj :<>@BDlڕ ء۫šکPڦ488áwצNo Room on VolumePڦ238צ2E8ÍwצDevice not OnlinePڦ448áwצPath Not FoundPצ458áwVolume Not FoundתPڦ468áwצFile Not FoundPצ498áwDirectory FullתPbڦ2B87ܫ ةá1 6ڪP..P.צ (Y/N) W.\- -Y5 B ڪP0.0-. š..- š--.-V@8צ408áwInvalid Pathnameh; keeps new; keeps old@š@ šةáá ~ةáWá Dš-ۂšګ򩇨󕫆 ة á-ةá (press SPACEBAR)ת++55 áh zצNo Current Data(5 ة K B756צJColumn Width: Use Arrows to change widtũń Ʉ; á    2تPš + _̂*̂dʂ*ʂdȡNƂ+ʂ*ʂ'á6 ʂ*̂)$ ʂ)ʂ*̂*$q4ڣ%ڢ$٢'٣(ǀ٢' ٢' šB@š@ˡ! (Хetter of one of the commands:%Mצ@ To return to normal processing, press the ESCAPE keyצˍ-.á @  j>?@O^^;COPYRIGHT 1981,1982 APPLE COMPUTER INC. RELEASE VERSION 1.1v&<B 0\ 7PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD UCSDFILE EXTFILEMEXTFILEM 2$!NP -! contains +N{ linesǁ-.DATץ-צ.STRB RڥQQáRQQˡort FileצץV"?V z yVw{zzˡ?á>  ?צReport Name (or ? for lookup)|@V ?V?/Enter number of Repd yá{zC  ......loadingV{zߩɩń ߫~ǀ} ġ }  ݂ ݂ z --%QFFORMAT.CODE;%DIFFORMAT.CODE$DQ O$ צ)Loading formatting module... please wait. =ˡ צ  ^Dɡ< None found08<ȄTġܩ ۂڕ٤ڂٚ{ˡ{š+0莫 0ÄÍ 3 >0 1ت2S# 2أ d0, P# 2أd0, I# 2أ 01@3! áצ IO error # 2 d0צ Exec err # 2d01  ڕ0قPSYSTEMPW\PIj ;́@́AƁAa@ƁAǐƁAP:ץaá:/Pa8ʁ@ >"á"ʁ@ˡ ʁ@ʁ@ʁ@ צʁ@ ʁ@á áÍáɡ 럚肚`諁6"  >  >b) á إaaġ00000תȡ  ,  & "ë 넡6 & Í< š˄ u 8 צ`&Ꟛ š#ńW   0  𓍡ńȄ (˫/ ˡ   Í wˡ ˡ ! ˡ(!!!(š]9W.TEXTת .CODEתš!!Ȅ!!P!x!P ( >ˡ 뚹  8P.TEXTׯ7צ.CODE$.BACKׯצ.ASCIaF*:˄/˄&ڲ#áצ:áD9>/ת(.Ä !á צ[š@תP4á74צ7848@צ/74צ:.Í7šצ/44š>474ȓ7.784884צ/46744ȩ4å.ˍo˩4ń\844á47צ:4*å#Í%Í4ōM4á@7Pá/á *á?@%áΪ@:ץ44ȡAá+#Ó7צ/ˍ7A P @6d\8P6ת@ת/š[ץ44š7]ץ114á7g14š^743355 5073331é731é14Ä3*á74147Í7!ץnue% " ,Í ˫T \$ á (ȡ*龫 ȡazȄaA3>/ء7ت /6: á :@7 @  5& |" "%: ˡ J#鿥  &'azȄaAB%Type to contiá+ ɡ _" ġ5 5fj <65 &ˡ 5 56!ˡ 5Rˡ 5=˄+&ȡš B5  ,áʁ@ צ" ˄ Ʉ;>ʁ@"ؚ"álʁ@&ʁ@ > "áVʁ@ ʁ@"Ä:ʁ@铡-@ ʁ@ >ʁ@ @>ʁ@ @>ʁ@{ :( آڢآآ"٢ڢ٣ آآ-? :آ&آ#> ?  ڢڢצڢ ڢ  آأأآآآ <Pš8P8>뫀 8a a:a  ] |Nš 3"#쾿 A 9dá. 6ááZš "1諀멀ȡ!뾿 9šš A | á1á6 šš  A ; ɡ'áצ-32768 ` 逫-ġ@00ń0ˡ ɡc ȡꫀ v  ꫀ𩀄򩀄"7ũ  @š& "ˡ鿩/ȡhFF >"ˡFFTFN áEF > 섡/ F >"ˡFFFFFAN A=" "ˡ)á á áˡ á ń# Ȅ ꚹ~á^"Ä<7@+ > ˍ >  &ʂ)ʂ)ʂ($ʂ($Pd@ šš > "ˡ "Lá"  ë   rp ,p "ˡq*   > "á=ˡ땏  šá áK?"á83 ɻ  X\Hب&̂(ʂ( ʂ(ʂ(ʂ($ʂ(̂)ʂ)! š땫ĻD?ꓡ"á삫ûš > "ˡ˫   ɡĻ2꓄ > >"ˡ ꄓr?Lá ?š?ۂˡ 3ء #צ ۂ #ء >  >݂"ˡ ޕ݂ނɡ  ?Ąɡ낫š ꓡ@ >=@ >=!@ >'@ >> )#%0ë>>@@@| V  )šá4 VVPVU _VP>=+>P=X>髁@@@˄@#@ˡ @@#>@@ O@ ˡ? @ ?>@ > ? @ ?>쓡 @ ?>@ > á@ > =a(: [L&á'횩)ˡ8 >#> \ˡآآآ*=UU šC+P aaaaO@á ( ˄ ë <:ץaššë 铄˄dS:tZt^+ZLPRt^DEVO/SYSPASCALtJJ|r;t^JJ;t^; ~UUxS ^!SECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,*No debugger in systemתP:[C Compiling... ~UUkUSYSPASCAL/SYSTEM.CODE:JJztZt^+ZLPRt^DEVO/SYSPASCALtJJ|r;t^JJ;t^; ~UUxS ^!SECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,*No user programתP4text? [C Compiling... ~UUkUSYSPASCAL/SYSTEM.CODE:JJzzˡD-F;̀̀آE'ʀˡFʀáʀá>??>D;TPVvn (D 4N RH "#%T%%%%l Fx\~ F! !"""^!z,r v Bn @ $ < L n0$FDt!-ǀ@? ? צP6z>ׯ{ yD  ?ACEGIKMǀ$ á"ˡ"" ''E>zˡD-F;̀̀آE'ʀˡFʀáʀá>??>D;TPVvn (D 4NצError # . closing FILE or DEVICE opened by last program$>"z>Dt!-ǀ@? ? צP6z>ׯ{ yD š3ġ  CwCvCá>pq+u"ˡ closingBuC!dt -!ˡ !蟚dt ,.z>>"ȡ{ˡo!>+u uu"˶u reading fromB+söusÄ+f,u迶u"ˡצ writing toB+sársá+rL*ˡ ؞!؟C!C CˡMxC蕿@šQȡ2 š:X fצError  exec fileFBpp) rs* rs*q qצUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&|dI+oYC ád0 *R#,n vo٢ š٢ ٢٢ 4$  ؗ(/  ؗ(Ƃ+ ƃ*SYSTEM.MISCINFOתPƃ"á̃DܢʃDʃDܢʃD!&ءdt >uˡpq- ? ? ȡoڢܤ ܤ˄R slot   is not from Apple III CompilerBased on U.C.S.D. Pascal II.1 ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????ר d't!צPΦתP22>  pq%sy!{P{ 1 %System re-initialized. j:@ pB , Z   (C) U.C. Regents 1979 צVersion: Nov. 1982 Based on U.C.S.D. Pascal II.1 ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????ר d't!צPΦתP22>   Current date is  --  צ!(C) Apple Computer Inc. 1981,1982 (C) U.C. Regents 1979 צVersion: Nov. 1982 *| צ,| Apple /// Pascal 1.1 | צ,|__________________________________________|44ȡ44 l#צSYSTERM:(>z آأ% š  + __________________________________________ |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á ʂdE ʃE ʃE  ʃEʃD̃EʃEʃEʃEʃEʃEʃEʃEʃE  ʃE 4$Ƃ+צ#4:SYSTEM.ASSMBLER צ#4:SYSTEM.COMPILEܣʃDܢʃD%ܢ% ʃD>ʃDʃD+ >&?̃DʃDʃDʃDʃD%̃E ʃEʃEʃEʃEʃE ʃEʃE ʃw ޢ ȡڤ ˡpݢڤ?Xܢ0ۤ ݢ`ڤáޣ!ݢ`ڤˡ  ޣ  ȡ6ݤˡ&ޢ`ݤۼޢݤ> X أأ أ > , ȡ۲$ڤܾ# 411ȡs1d1ٲ ٲپ1Ä  ٗ 111Nested exec commands illegal&-צError opening exechءPؓ5צExecute what file? PGתPšš,,ȡپaġ پ ,,צEXEC//Hq9Ƹ   áث-P   š, š!y*SYSTEM.WRK.CODE׷N"tB0*š5**צ.CODE:* * "á.צ+׷W+,áD+$á/+TP.TEXT+}}}+Ä+}+P +P"ˡ%> Can't open *SYSTEM.WRK.CODE׷P+*~+:+ }+ƀ}ƀB+ƀ}+}ƀ0ble what text? Compile what text? +P+>+ׯ+,á+( T+P +"ˡ)+>צ Can't find +*SYSTEM.WRK.CODE[*]תPצTo what codefile? +P+>! + + }+}( á צAssembling... צ Compiling...  á̀̀ʀW+̀ƀƀ:ƀ[@ƀצ/Aƀ2PƀP[á + á Assem ۤC1Cáۤ&./0000ˡc0 DDPDת0&;2EEDE:E&E 2C ۤ2 00ÍCC1CáۤC11 Ä  צ Linking...vܡ  # צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)?ƀƀƀ 1v -ƁPdצNo file ̂iv̂jʂj@ʂjˡ  not codeʂj1ʂjHʂj ƁE> ƁEƁ5>ʁAáʂj 1>  not code"ˡצ Bad block #011Ɓ1 cݡ;ުP-vƁnPvƁΪPƂ;PƂ;ƂƁƂgƂf̂dƂPʂd ΦתPצ:Ƃáצ:ƂPƂצ/ƂPƂ̂iƂiƂPƂiƁǠƂiP?̂e?>ʂe?>"ˡCۡ>"áIllegal file name-Error: Required library files are not present33Error: These required intrinsic(s) not available: 1, 0?̂.0ʂ.ȡ@0|0,'0  111 á00LvX  w.3nw w.w.b43 n4ń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(n$2$ $š$$צ.CODE $$ š$$ צ:š/:n@A$P.LIBTPZ>-uu"áps,P  !UUUצ:U*UPBš!צ/PBP) Running...ء  ء  <צNew exec name:P/á>šF.á<,צ[á==P=צ[8]S=P-uu"á ,>9<Ʋ( ́ ́ ʁ ʁ צ ʁ ʁ ˄ʁ @˄ʁ ˄3 ʁ ! ʁ Þ"Ä  = &)ʁ á ʁ   "ń,ʁ !  ʁ ޾ Linking... vá% Can't Restart$צ Restarting...!-Do you wish to exit the Pascal system? (Y/N) %Yá>>OKpq7AX0J5*3; &(,.R C~  < Djv`>r6rBb H$תP#%!&j쓡 Linking... vá% Can't Restart$צ Restarting...!-Do you wish to exit the Pascal system?     ˡצECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,? [A3/1.1]P#%!?á^GCommand: U(ser restart, I(nitialize, O(ptions, H(alt, M(ake exec, Q(uitתP#%!&j쓡isk routines #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 dw options could not be saved on system disk.צ*Graphics space allocation has not changed.8(Other options have changed until reboot.$ƁƁ0# ˸?Ɓ*SYSTEM.MISCINFO""˄Ʉ9צ!Error: must insert system disk. P#$ááRƁá<" ""Ɓˡ ! 5Error: NeA!BCD Currently you have option "צGraphics Options: A, B, C, D, QP#%ٳٹ!ADt Z!ƁƄ צ A) 0K bytes (No Graphics)B) 8K bytes׮C) 16K bytes׮D) 32K bytes׮"ءt  Currently  K bytes reserved for Graphicsá (No Graphics)! ؓ@ؓ! צSOSצApple II Pascal &Currently file names are displayed in & 6 צ format= ؓP צ%Option Bytes reserved for Graphicsצ%------ ---------------------------R"צChange this? Y)es, N)oٶ,@@ٳH vؓ! צ NOT ת ,Currently Apple II Pascal disk routines are ,0צresident8<<<;67>%sצ Terminator=sצ, change it ? ٶ,áu-ٳ@@YyÍ)צNew terminator:s rqs* تP  (( )(á (((ܡ( **(( *Ä(*Ä**Ȅ*Ą*MȄ*)v*ȡO(ۤ +++ō++ɍ+ ō+ ȍ+  dō (ܓ(*(ܡ )*) *)* ܓ)ת) (!($IKPz(  Íܡ  , Ąܓ"á  : צ/˄5ȡ0ƀƀP̀ʀȡ0ܾaġ 00ܾ 87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8ת802Ȅ&0á݂0 4 6ȡ4 0.  á5٪P,6YتPš  ȡ޾ *:Í#Í*á ޾:ˍ צ:P?P#áL۾ ݏ۾0 4ޕ P5:Ä:P.áٳ ا?ǀǓ ا?ǀ:1!&ÍXÍc(ÍEÍ QáG'á@=+á3@á)Fá Gá Há >z? ؚ21!$4YP>3$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ڧ? á 6ȡ/ݾ!á ݾ /P޾ /P 5RR3ۂɄݓVá(۾'ۂ@n |77áBš2@/áf9šoá+ھ.á ھ/á 2á9&á9á  áán8ED<:520.-+*)$ f?  hh * <hhL'&$"<?  hhhhHH * <İ ȑjȑ*ȑLedbROLJI |?  hh왺 ȑL54)&#!  L?  hhhh * <Ű 깷LCB1.-,*)&# ^?  hhL  ?  hhhh * <hhʰ 쭷ȑL{@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; ; ;  <  3 5=(=2hx? ?"? ? ?  . /202hh%hh%HH`%ʎ%HHXWɡ?#X?#XW?"XWš?#X?#XW?"X?"W?"?#VVVU2 R2 ػ%2تP3+&+2T'á  ܚ2"  P ٨ ب5 5#0á-=?#?"?#?"?"?"002 ,٪PتPZ,PƀPZ3ƀ3ZƀU$UáVV?"ɡYV?"YB?#V,á?#VZ,,ZYYV?#VVY,W?"Wǐš ?"VUiV, ;?  ō> ? 0*2 )2ܪP/ۻ0/ٻ1 23/3"32\ 6۪Pá? ?"11ǐȡs. .ٻ..3P33? 223.20;> > ;>c> 0Ʉ  廹> ō> 0 0,?? 19 c? ??á>0 ;? ?,2-2ȡ ނ0ō>- >>+2ȡ09ō>0 ˡ c> >>0Ʉ廹> ٪P3-, ,á55תآ1آ 0 5 6633 ȡ 6363 dȡ 6 3 65 4/ á5  5 -5 ---525 ˡ 5. 5.2,2h  ػ!2 jڝ?"ɡ6?#?#ھá?#٧?#ڝ?"ٕ?"ڕ?"?J=á=2áˡL2" ۝?"ܓ?#۾á ?#ܡ$?#RšR?#ئתPVdá;<:PP#PC/š:7צ:P; ./Ad ?3 1ˡI á+ݢˡڦתRáצ!צ2ڧ? š ǀڧ?ǀǀ Ǔš@:צ!á צ!P$;ئ00000תP  0ڂȡ۾0Ʉ< R<87  áG:/ * <LGF=:43-,+*%" f?   d *hhhhL#"!6?  hhhhϰ j쭳j*쭲L=<40.-,% V?  hhhh왺j** * <LedbVRQPONMLKJIHFDCA>963?  hhhhhhꍴ0 ȩhh * <Ȱ ȩLa`XMJ0-*('& ~? ٢ BצType of Data: A R I٢ <<+ ȡá  2 š# á  ɡš ɡ z*áǶ +An%צ=Audit Mode: use arrows to inspect, to continue ReformatPL = !Ƃ)[צ*temporary.tpl"ˡצ temporaryE3RQRQRQˡ EnRJRl: * ( 2  R     6&>@). Calls the SOS routine GET_MARK.}  :?  hhҰ L0? hhhh Ӱ HHL#6?e ?hhhhhhưȑHH`# D?hhhhhhhh   * <L*?   d *hhhhL#"!6?   * <L*?   * <b L%$:?   * <c L%$!ɡ P K H H á 0á " áˡ Háݚکš ۩t 5IצCHeader Length: Use Arrows to move; keeps new; keeps old ڕ: I쓫צ2,48@9;;<<2=>>AEl@ F2h33/"3^3  |*\/**+%0'nB.Rb47NLdow.firstline := 0; &{ &convert the data to screen format and display it &} &DISPLAY(buffer, .data.line[ window.firstline ].ptr^, .0, .left  #   LzȄ`e)` `876~{vsI hhhhhhhhhh iL/HHHH`FxvP ~ F Z<vX4!"#.'D) Fȱiei Lx e eieͥHH`  `%%L  ȱ  `%$ ȱ8 %Ȅ    HHHH`*hhhhhhhhhhhh8= 6  .8L/8Hh Șȩ8HHHH`Ahhh$hh#hhe#hhhhhhhhhhhhhšɡ  K 0"-'D+24hhhhhhhhhhhhee   L/ȱ Șȩ8WšH" #á ɡsġ \ɩōEˡɡ󩇪š 򩇨󕫆SáDá 2á #á áLˡ_ȡá . š  á ˡɡ.듡á  /'A9%U "-SIOu_02M%%L>Previous Template loaded.%%<L1N ásácáed,,,Matching string is ,c,  ; KL á?#Do you want to continue to Reformat = D5oAk:g;c _<[FWS6OGKJGIC4?K;?X4áM6Warning: no Page-break markers. Set Auto-Delete anyway  Jצ/Page Length or "" ,P l+++á++++áצMatching string clear REFORMAT.CODE",O^TER /// will ignore. DFIND D The FIND command is a preview for AUDIT. It shows the lines in the table that REFORMATTER /// will ignore when it re-formats your text. This is most useful for seeing if you missed anything or if you have an otherwise useful row that REFORMATO^fLIBRARY FILES: system.star.lib $$ hV8&2PQRRȡOcRáצ(----------------------------------------<צSave this as HELP for command cR ? (block R ) OO"PRצERROR: reformat.help not foundצBEnter the command letter which corresponds to the help text in theצfile HELP.WORK.TEXT (c ) > OOSO)PQץ))OS?ZצHELP FILE PREPARATION PROGRAM7c?CLSRTXDUFAPHQתP)help.work.text"ˡ;צERROR: help.work.text not foundצ reformat.help"ˡ:FMAKEHELP R)RR)m >he command letter which corresponds to the help text in theצfile HELP.WORK.TEXT (c ) > OOSO)PQ