`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JƁ\Ƃ6&06ˡ6áց\8 ˡ :9 "&8(2ȡ2'*2 ?2 1TU-bi ( 6!0 צ Press RESETBBBBBBN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC j j j2"Db ATTACH.DATAvgvSYSTEM.STARTUPg PROFILE.TEXT{w ACCESS.TEXT{wSSD-3.3 w/ SYSTEM.PASCALvgi/QSYSTEM.LIBRARYg9Qm SYSTEM.FILERvg)m SYSTEM.APPLEvgSYSTEM.MISCINFOEATTACH.DRIVERSg㧑 EXEC.CODE,>vg SSD.DRIVERSvg֦ SYSTEM.ATTACHvg&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&  Íáɡ 럚肚X  šš  ġš  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡUĄ쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , %ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 02"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJתPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ 쾿  .Tá " * ȡ*ńȄ4šáR há1á4   Q lMȡš ȡ뾿  + d>š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO8FNo user programתP8F0:::::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8E$ á"ˡ"& E ##&EáN R3b9Q[Ä-D8铡6!~? *~?=FצPut in :P?FP'Ǡȡ*EEתE&VX X9   /13579;=?E&* 5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öO3fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡 צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36% "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo debugger in systemתP8F6:::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8???תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.18 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ?????? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ%ʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERתʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀerror: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&nS5  oYC: *( vol not foundת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(disk write protectedת(bצillegal block #(Jצillegal buffer address(+$fO7  y^Hצ IO צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצ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( "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1:(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO צ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&Ʋڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompilec(s) not available 1 \ @ ڤ  áڤ !~ e ת*U  !! !:!!ڤ  ڤ  áܡ #צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)ƀצ*SYSTEM.LIBRARY ,צ Can't load required intrinsic(s)Nƀ/צ#Required intrinsi"ˡCۡ>"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initializedSȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá  6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3  R LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU  š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ ) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۢת   ١  n ١ á9 ٓ/! !!١ˡá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ PġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTUG BB'"G $ "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:IIZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,B:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆL>ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥L\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, DhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HHY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  * عteVG8  )  T uh[NA4'á +-Í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 M.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codefilBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTT "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION E BBBLNz)ext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what t$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!2? 5? f   '~~5?. ??B|?a QZR|?ٽ RZP}?4 SZX~? TZD~? UZO? VZC?[` WZ ?& XZ)?ؽ YZR?  ZZR?2 ZZá.ٹ# BZOi?޽ CZ(k?7 DZCm?[ EZEn? FZGp? GZTr?  HZ s?yx IZ;t?hн JZLv?D KZNw?F LZ x?Re MZOy?Pp NZ z?g OZ;{?K PZ 4ZI? 5ZTL?Xs 6ZUO? 7Z)Q? 8ZNT?; 9Z)V?% :ZEY? ;Z[?Lo <Z(]?г =ZP_? >Z(b? ?ZLd?  @ZTf?] AZUh?D? 'ZO!? (ZC$? )Z '?| *Z)+?+L +ZR.?l ,ZR1?ս -ZA5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2Z.D?v 3Z.F? ZG>? ZT>ca Z >*r Z;>aq ZL>^ ZN>9 Z ? ZO?ٽ Z ?ƨ !Z; ?vm "ZB?F' #ZR?ս $ZP?y %ZX? &Z ZN1>н Z)C>oc ZET> Zf>Y Z(w>g ZP>탽 Z(>K  ZL>ȱ ZT>z7 ZU>ٰ ZO>? Z(>| ZC>}̽ ZE> 6تP+,+,ȡ+++V 0 Z Zʎ^ Z) ><0l   ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@ ) Sǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION E $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING) MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION T $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE??2 ?  ??  1?   ?=~@:?^>[' ~ ~ؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡhh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARhhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIH v-DRIVE $-P-v$-FNAM D.SETSINE1`--SETSINE2SETDEFAU-SETPORT -P -2(MAKEPOOF=2. F | R T DL X,j X & Z,DX p,vp,DY vBKGND PEEKSTRO,ADDRESS ,vDIRSRCe*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )Lb I1Lb )QLb        xhXhhhhhhhhHH v # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8heheHHL<  B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p v hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhh &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8  hhhL .+ rhh hehe)`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @'cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  Iif E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^ JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8SETáSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^áצ fܪ(G[!nء CGGá+á &"ˡ~[צ[ ˡ  .  sآWצ:آ(Y?::á ;&Pġ - عEXå[ׯGC81(o* MJLN0A$6Uۡ &Pɡ צ, áצ "  ڪ٪ت&:&Pɡ(š --> 4ثضÍצ$*á-: : in unit  ء ߓ  ٨š5K ˡ*   ġ" ء " N۪ڪƁK""áN׷9& צ ?  ɡ& Invalid #aP  ˄8&Destroy Gצ: ?  J ٪ # ת á 1 0 ء,ˡ   ߓ`&צPut " ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ-ˡ[ ġR&    צ ? (Y/N) - -F&צ ? expected1(& Ş"˶ I/O error # 4!צ Filer error # ء\&),áY 6(saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ  File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צFile/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to ת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost(Gצצkת{צcתת(WצSתԦת(KצOת  n`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout error4Copyright (C) 1979, Regents University of Californial5 FILEHAND צc& آצ ? ) ,áYø۪     0ު(áܲ~ %&ܥKO &&ȡu ''k'ȡKk'k-'' ܡšڡK N Y˄ &"&& & ܡ&'& #[.GC .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀! 5 4454=5  d66.6.6 65ݪ   p "٪ؓצ *SYSTEM.WRK.,C:[.,ׯ( Ɓ-צMakeǐh"))** **"&G:[ madeצT  ߪ Ɓ8 55 *SYSTEM.WRK. 5/0 0 òCń /C"ݢݢ///://tLצTransferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer צTransfer %š " ݢÄݢÄ ۡ "ˡ ݢ ڶ /ݢ0/0 /0צ Ɓ3"ڕš"قܡCצC#ÄÄ~Íj%á*Put in G:'Insert destination disk;GK,,G,:, ׯ>צRemoveǀ RemoveE+Gޤ removed%á % ń,&Update directory ? ,(*צChange*[")ǐ ),, d,,[,["𥀈{á򥀿Dá" G"+!+~G?KÄ?G;KׯɄS{c\ڥs[KG2G:[ Remove oldRƁ-צChangeChange to what׷{צSW,,W,צ:,(,,(,{A=gPܓÄ)jjSjצ:jˡjj(jAj(ܓfOGK ׷Ȅff@ Զ nުݪ"צPWkKGš?=ɍ :g=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#š=P="="=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 char. max >- Illegal formatT<=ڲ= ݪצc&.צ what fileצ what vol ?  , gg#š=jgjPgۓ$=?'ز=g(=g=&=g&Pɡۡצ ...too long <ٹFצ file name < scan string #צ vol name  M8!ۡ1á    - k'{[{ c󓍄E''S'צ:'{!'0'c?'(&K&not processed á á(3!:W~(gڲ= ggڞ.[G&TEXT&  "hKצ*..CODEOld code removed, Text file saved  & 0צCODE  "צCode file saved62!o.צצ not named2 Workfile is :.񄓡 (not saved) No workfilev$.ת&תת(%Ɓ.񄓡9&צThrow away current workfile ?  ءScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQ"ˡ92צBlock  צ is badۂġ צ bad blocks1 3צEؤ áצ Directoryڢڢ  v 1ˡZ ȡ<ڤ š+ؓښڤ ȡ2ؓ R j2צBad block scan ofצH 饀:˥׷!צ:DGצ : correct ? G CK "צ: zeroed p0šצFile(s) endangered:Mȡl\:צPrefix is - ;: / צ Zero dir ofצH צDuplicate dir ?   Are thereצblks on the diskצ# of blocks on the disk צNew vol name ? ١ ƃƃ"ƃ ,  N, Vols on-line: ȡ &G ȡR~צ; צ #  :צRoot vol is - ?ƅ0ʅ/ƅ0- ڍʅ- .ƃʅ. ƃ/ƃ  ƃ files;ƃצ, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ in largest"/.ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ ƅ0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ ƃ ƃng ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅(צ Ä - %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/ʅ- ʅ,ÍP$&,􍓡~%K:, %,,,|-ٕڶ+šڸ+*ڂ*ŶB < UNUSED >     -p.ƃƅ'Dir listia ȡ$GCػ*c+C ػ?צ:@Ä Cצ The date is C -C-C 6 ),%ö1>--<00..99>Cˡ_צ Today is C -C-C  New date ?  +Cػ*škGGȡ"GؾAĥGؾZȄ GإGؾAצ.CODEצCode (١%צNo  file loaded '- &*- ȡ%ܾz ܾ0ŶȄ: \+%Date set: <1..3á@ .  ڲ צ& * (&Getצǐ%G.[.&ؓń=.צ.TEXT.צ.CODE ..Ȳ.׷:.TEXTצText ײ&(צ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צRemove  ء&צWorkfile cleared%Tf & ݪܪ  : .  ǀxamine blocks onצH&Block-range ? S  SRR  RRˡR ġ RSSRō4%SVR̂dVʂdȡ V2VVš#1 Fix them ? Ǡ  T USVR̂dVʂdȡצBlock V ƁdVƁdV"á dV"Ɓdd  may be okz is badV2ˡYV šOUVˡ9TTTM šTVTVVUV ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮ 0 & L (*&brB\ "%>'&t##))h'+*,"--.. //F0`0z0004P5n70L4H5D)@:BZ2" (@,(NXF0N>w\ G&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶ (Dɞ(ń?Íצ0???JanFebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto ~%"!צPrefix titles byl;G& Prefix is ;:`$\ X/T3P0L4H5D)@:BZ2" (@,(NXF0N>w\ G&צSYSTEM.WRK.TEXTiler: W, B, E, K, M, P, V, X, Z [1.1]7ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤVWarning units   &  צ have the same name,,'&R87תVצOFiler: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [1.1]7+צ&Filer: G, S, N, L, R, C, T, D, Q [1.1]7?áVOFiler: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amine, Z(ero [1.1]7+&F'  š 6  צback  ġ ɡ6 G : crunched#צPlease re-boot{ X5تPFP') x " " ġ  6צCrunch@צFrom end of disk, blockצStarting at block # 2 % forward ת  ȡoTTT TWT ɡTTWT#VV צBad blocks markedH`]t4 ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š Vá41Mark bad blocks ?š$צ (files will be removed !)צ (Y/N) YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0ʂeʂe8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐiϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  et|8|}Ƅ`t et HHH> o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H >  ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*@^]U)j7 [ )L3~ lJf)jjAUIL3ة0 $ڐ> L׈ \] z8Ƒ |5|8|}8\|ȥ]|8|ƍ8 ƍLoPQ |l|8|}8||ȥ}||8|}| iiL奌 㥎 㥊 㭭хх 㥐8ƑzLo` 8` ^\_]`hh L;hh L;ҠX rLq ?L;hxhyhthuhvhw07ȱxv0vȱv,vwLR vȱvvwLRHHLHHLHHvtȥwtL;hhh^h_hhhhL;hjhkhejjhekk_ ʑjkL^LjL;hhh|h}8Ɓzȱ{HHHH`HHHH{HzH  < @tu`wvtȩttituveztȱve{tȱvtȱvttituvivwз\R]S[ \l]m]|\ l\m]x RPR </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < Ni iSHHHH "1#"! ! ""ˬ##ЕHHl>޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6| 1 ۂ 1 ۂ> áڹ$  # +-/135! A צVNA File Utility 2.0d צ(c) BvanNorman 1983 &# @  ( P ; :  !ݹ   ġ ? ڂ> ۂ>޳aA̔ ʔ ȡM ̔ .ʔ áצBad blocks on target diskʔ ʔ ʔ ɡUʔ ʔ ʔ ߂š:š    ڂڕڂ ߂  e( ڹ-( #   ""ˡצSource read error 8""ˡצTarget write error :""ˡצTarget read error 8OM ̔ ʔ ʔ ʔ تP+,+,ȡ++)V <M ٣M צVolume name = ٢Volume size =  Blocks free = ؕ Space used = % EXECDEVEXEC.USER.CODE6 z|z6 XEbR6 *,,EXEC.USER.CODEPDISK EXEC.USER.TEXTEXEC.USER.CODEDE[*]SSD:SYSTEM.SWAPDISKצNo User available, ine: String): boolean; implementation E ԍ֍br r b^br EXE`b6 6 ^``Pb6 r ޚ  ȡ' ݛ ޏ ݛ0šޚצThe system date is  - - j  ޤޤ ݾ  ȡ( ݛ ޏ ݛ0 Ʉޚ  á   aA   Aa   Aa   š - . Enter the current date >  š 1 1 11 1צ----111ȡXצ ݛ-ˡ6ɡ!ޤޤޤޤ ݾ? ???ת Janת Febת Marת Aprת Mayת Junת Julת Augת Sepת Octת Novת Decת The date is  -SSDCDEVSYSTEM.WRK.CODE6 z|z6 b6 *,,SSD:SYSTEM.SWAPDISKTEXTEXECDEV:EXEC.MOUNT.TEXT*SYSTEM.WRK.CODE[*]SSD:SYSTEM.SWAPDISKTEXT צ #9:  #10: צ #11:  #12:  ܳaAݹܳ A áiȡXOD3O3O 3O>á9ȡ( 3O ÍDO;/NšOɡšV  $۶""áڶM .ئׯ  FFȡצ [Z] no sizeצ[Z] no volume name,á\CCC  &C C C ddצ [D] failedUF P"á+..M C.Dˡ5צ0SYSTEM.LIBRARY must be on the same block number.aa0ޚbbȡ"a0á a0ޚ!.ZخuW2  C[Z] no unit number׮ˡ4/SYSTEM.PASCAL must be on the same block number.׮8aaצ#aaצ:SYSTEM.LIBRARYaP aa#aa:SYSTEM.LIBRARYaP"ˡ 8"ˡ"Can't find old SYSTEM.LIBRARY׮ߣ VPخ ( :( :   0 8aaצ#aaצ:SYSTEM.PASCALaPaa aצ:SYSTEM.PASCALaP"ˡ 8"ˡ!Can't find old SYSTEM.PASCAL׮ߣVW+"ˡ"U V"ˡ3"U]] while transferring to ]g]VWVW\ (Ǹ [W PW\[TTš5TV\TˡצWhile transferring a file.WVZ! q   Z6! تPERROR: &R:تP[] R6TخZ W( W:V( V:U+UUV"á ) O" M ȡ13OM M M M  d  M ȡO R   8 M M Mġ#צLimit of 77 files exceeded M = *!Insufficient Space on target disk׮ M M M M ؂  ġš=ߚM MɡM M *w M  ȡ3OM M ȡM ˡ>M Mȡ7 M ̔ ʔ ʔ M *š:š    ڂ ڂڕA(M M M ġM M  A1  á, ȡ!M -צ+CTRL I(nvert, CTRL C(lear, -> select next, <- deselect, or CR to ExecuteOȡ3O  y álM M OȡOצVolume name = M צ with  צ files.M ȡM O3O>xÍ`3O ɡO á{ܳM1ۏڂO'ٸ>3ڂO á šFFȡ4   - Select Prefix Volume > 1Ȅ;:;9:خ;Invalid prefix׮;?s L P*"ˡMצ IO Error # -- Can't open -[-? á  PH"ˡMצ IO Error -  $- |) Ɓ7)( % l :@*  >h8X8v$#("8$%Z%%%&R )P*z   3$&(*,.}yuf{ydfhjlnFA1-(! Qd% #$̂? ʂ?Pʂ?"ˡ- not found. IoResult= ʂ?ʂ?$# %á  "ø (   %"PƂ?Pس س ع#ɡ %ġ^̂?ʂ?>ʂ?ˡ %7> > ˡ> ###! %ɡp' ˡצ< >ڿخ&<á'د"$k ( ̂?ʂ?ȡ2̂@ʂ@( ʂ@Pʂ@ʂ@תP&á?[]ÄƂ?> ˡ> N>áܢ > PšPڿ>ڞܢۂ &ڳ ('š צMake selection >ȡٛٛ' IO Error #  enter space >צ Can't open "" $ $@$ɡ  צ[B]Pġjܢ>ˡ %Gܢ>  h2!Vخh\ P"áA " "M ---M ĸX"تP,-, -,#Kخ P"ˡe.צצ: ɡ??. .TEXT׮ צ9 P "á&ײ.TEXT׮ .צCODE ׷9 P "áצ.צCODEצ:?"á ! M ??ȡJM @@á-.BACK@O@ˍ 3OMōMɡ@ضM M צ??.TEXTׯ GخSخ&צSYSTEM.WRK.TEXT?.TEXT׮צ%&׮צ,PPצSYSTEM.WRK.CODE?.CODE׮צ%׮צ,PPšj ئׯ P??;? .o.BACK׮ P&SYSTEM.WRK.TEXTׯ)&׮ PBצSYSTEM.WRK.CODE)צ Pצ&צצצצ.צ )))ɡ6***צ:*/*צ.0*G*ۦתɡ$***:*/*צ_ɡ$***צ.*/*ۦת&ȡצ[$#  Can't open "F M Oȡ3O  <0ŶM ȡ 3O>1GIhD,ڪ٪ت)ׯ)צ*z   3$&(*,.}yuf{ydfhjlnFA1-(! Qd% #$             ٪ت $B  00EE BB00E2 B!00EA Gצ00E8 /0 Y ˡY ˡ  4 Yš.,A  IN HEX CHAR--..rZ ڨ铡 VS!4 ٪P,,T تP,,T بġ!4 6SS012345678 9 A B C DEF<Jۨڨš+áġR٪P-././ġh-,,.,04,~TTACH.DATAȡ Y ATTACH.DATA"ˡ(צ#ATTACH.DATA needed by SYSTEM.ATTACHATTACH.DRIVERS"ˡ+&ATTACH.DRIVERS needed by SYSTEM.ATTACHYˡ1צ,Reading segment dictionary of ATTACH.DRIVERتPצERROR =>RETURN to exit SYSTEM.ATTACH:R`Y Yآ آ V6000תSצ6000Nآ V4000תSצ6000+V2000תآ Sצ4000 S6000תצNo records in APRINTU PSUBDR =RREAD RINIT REMIU RELOCATE REMOU RWRITE RSTAT 4SYSTU UD128U  UD129U UD130U UD131U UD132U UD133U Ɓ\ƂƁ\ 6U UD137U UD138U UD139U UD140U UD141U UD142U UD143U UDJVM1 /UDRWI :UNDEFU WRITEBIO  PSTAT .G$PASCALSYSYSATCH hHH`(c) BvanNorman 1981 `l(C) BvanNorman 1981  h lL&8808逨Х H8hjie   0-) L*HH`** @@  h lL&8808逨Х H8hjie   0-) L*HH`** @@ תPT< )  @3            ZZ=dj4Jpf.CODE[*]SSD:SYSTEM.SWAPDISKEXT ȡإYˡצreading driver,!6 d <ȡةYعQ+~ ( .v4nGU /@8Y[<>PJLFHJL579;=?ACEGIKMOQSةY  Y eٓYyؤ ١-(A needed driver is not in ATTACH.DRIVERS[W]5,6,a) K(runch the prefixed disk [W]5,8,b) V.N.A. Filer [W]5,10,c) Load Videx Enhancer with Pascal Macros [W]5,12,d) Set Prefix Disk [W]5,14,e) Get Work File [W]5,16,f) Save Work File [W]5,18,g) Save & Clear Work File [R]abcdefg [K]: [B] [Y] [B]O.TU SSDTEXTSYSTEM.WRK.CODE6 z|z6 b6 *,,SSD:SYSTEM.SWAPDISK SSD:STARTUP.TEXT*SYSTEM.WRK.CODE[*] SSD:SYSTEM.SWAPDISK([J]*Profile.TextExec0:CODE[*]]ԍ֍br r b^br SSD`b6 6 ^``Pb6 r BBSYSTEMST SSD Yrc |צ00EE B00EA Gצ00E8 /07L^ȡ  ɡ؞&s&&4Y  Yj8>x8^< |hhHH`8hhhhhhh h hhȱLC8 ȥ  e ȱ e 8iiHHHH`Jt,40<v^b(-(A needed driver is not in ATTACH.DRIVERSYrc |צ00EE B00EA Gצ00E8 /07L^ȡ  ɡ؞&s&&4Y  Yf8hhhhhhhh [U]Pascal.Videx [B] [:] [N] [W]10,10,Thank you [B] [G] [N] [W]10,10,Thank you [B] [S] [B] [S] Clear [B]  [ ] the system that they are on SSD-200: to eliminate the time consuming  [ ] search that takes place normally. Note: The files need not actually  [ ] be present on the volume specified -- that is just where the system  [ ] will look firs0:  [D]#4:  [ ]  [ ] Now, set the filer P(refix to SSD-200  [ ]  [:]SSD-200 [ ]  [ ] The next set of commands tell the system what the file names of  [ ] some of the important system files are. We are currently telling SSD-200:SYSTEM.FILER [t]SSD-3.3:EXEC.CODE, SSD-200:EXEC.CODE [t]SSD-3.3:ACCESS.TEXT, SSD-200:ACCESS.TEXT  [ ]  [ ] Let's ask the user for the date, and write the date to the  [ ] SSD, and to the SSD driver disk.  [ ]  [D]  [D]SSD-20are on the SSD so they are not searched for elsewhere.  [ ]  [P]SSD-200: [ ]  [ ] While we're at it, let's make the SSD the boot volume.  [ ]  [*]SSD-200:  [ ]  [ ] Now we will perform some more file transfers.  [ ] [t]SSD-3.3:SYSTEM.FILER,  [ ] turning on the drives all the time to access them.  [ ]  [t]SSD-3.3:SYSTEM.PASCAL, SSD-200:SYSTEM.PASCAL [t]SSD-3.3:SYSTEM.LIBRARY, SSD-200:SYSTEM.LIBRARY [ ]  [ ] Let's inform the system that the two aforementioned System files  [ ] functions to zero the directory.  [ ]  [z]SSD-200,576,9 [ ]  [ ] Perform some important file transfers. We want System.Pascal  [ ] and System.Library on the SSD so the Apple doesn't have to go for valid data on the SSD. Set a flag if so.  [ ]  [Q]SSD-200: [Q] [ ]  [ ] If there was valid data, the flag will be set, and only upper  [ ] case commands will execute. The next command will, therefore,  [ ] only execute on boot-up, and ocessor. It is  [ ] intended that you customize this  [ ] set of commands to suit your own  [ ] needs more adequately.  [ ]  [ ] Step 1: Install the drivers (which we assume may not be good)  [ ]  [I]128,576,9 [ ]  [ ] Step 2: Check[ ] SSD-200 Drivers (Version 3.3)  [ ] Copyright (c) 1983, BvanNorman  [ ] All rights reserved.  [ ]  [ ] Release date: 07-Jul-83  [ ]  [ ] This is a sample profile that  [ ] will demonstrate the use of the  [ ] exec command prM]IŤO.B+wrt.  [ ]  [A]SSD-200:SYSTEM.ASSMBLER [E]SSD-200:SYSTEM.EDITOR [C]SSD-200:SYSTEM.COMPILER [F]SSD-200:SYSTEM.FILER [L]SSD-200:SYSTEM.LINKER [ ]  [ ] Clear the screen [N], and write a hello message, then prompt the  [ ] user for the options.  [ ]  [N] [W]0,10,SSD is now configured  [W]0,11,as a 576 block volume  [W]0,12,called SSD-200:  [W]0,15,a) Perform file transfers  [W]0,17,b) Exit to command line  [R]ab   [N]  [Y]  [B]   [N]  [B]  [W]10,10,Thank you [B] [G] [N] [W]10,10,Thank you [B] [S] [B] [S] Clear [B] [W]5,6,a) K(runch the prefixed disk [W]5,8,b) V.N.A. Filer [W]5,10,c) Set Prefix Disk [W]5,12,d) Get Work File [W]5,14,e) Save Work File [W]5,16,f) Save & Clear Work File [W]5,18,g) None of the above  [R]abcdefg [K]:  [B] [Y] [B] [:] [N] O.TU w