`L[  i=L\Ʃx0? w "1  Ѕ?0ȱ w L}=  Ѕ?0ȱ w H   ?ȱ w ` 9 X p  'ɍ`L 0Ni`Ԡ $ "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:IG BB'"GBECopyright 1983 - West Side Electronics, Inc. and Apple Computer, Inc.  R #LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTUPROCLOCK  "ܧuz STARTUP.BAKvgܧUINTBAS.DATAdPPIICS E.SYSTEM.LIBRARYgܧ.2 SAMPLE1.TEXTvgܧ27 SAMPLE1.CODEvgܧ7; AUTOBOOT.TEXTvgܧ;@SYSTEM.STARTUPgܧ@h LIBRARY.BAKvgܧhl SAMP.TEXT.BAKvgܧlq SAMP.CODE.BAKvgܧqu AUTO.TEXT.BAKvg @ / ') +L / &п / x) ++`FG8`0($ p,&"^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  Ԡ͠ԠԠàˠĠӠΠ٠ INTBAS.DATA FPBAS.DATA BOOTSIM.DATA p   L$J) (jJJ>L "?I  `  ` x Nx r .x- `V0^*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 codefil &  * عteVG8  )  T uh[NA4'á +-ÍݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN 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); IZE < 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 "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   >?  ȡ!2? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~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??2 ?  ??  1?   ?=~@:?^>[' ~ ~ $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); $PROCEDUREhh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡLjB|?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 TSETáSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)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^ "VAR $CLOCKPRESENT:BOOLEAN; $DOW,MON,DAY,YR,HR,MIN,SEC:INTEGER; $TIME,DISKNAME,LASTBOOT:STRING; $  PROCEDURE READCLOCK; "PROCEDURE TIMESTRING; "PROCEDURE UPDATE(VOL:INTEGER); "  IMPLEMENTATION L E 6 6 ^``Pb6 r N^iܧo=/bHR  TEvMIN [K{LASTBOOTTI !'<PORTA 9|PORTB 3TYR M?rSEC bOROM TIME iWSLOT $,?v o CRA CRB DISKNAMEMON o=/bHR  TEvMIN [K{LASTBOOTTI !'<PORTA 9|PORTB 3TYR M?rCLOCKPREOCHEAT DOW _DAY  y|E7jCRA CRB DISKNAMEMON Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?éÄhÄéˍ0á,צProCLOCK NOT AVAILABLEWǀ?/ ]Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?Í Ʉ"á    ddP    d P"ˡ"áe'UNABLE TO UPDATE DISK - WRITE PROTECTEDצ [VOL # ] P  ɡצ0QPR2ƀƀ|S*̀ƀƀPƀצ/Qƀƀǡƀ/Ǣƀ|ƀ ƀSƀ:ƀ*ƀ:ƀƀPٚؿښ6 :9 8(ġ(7 <; 5(ġ (4 32 10/JWSELE2TSYSTEM.WRK.CODE6 z|z6 b6 *,,APPLE2:SYSTEM.SWAPDISKWSE:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISKPROGRAM SAMPLE1;   USES PROCLOCK,APPLESTUFF;  "  BEGIN "IF CLOCKPRESENT THEN $BEGIN &WRITELN(' HIT ANY KEY TO QUIT'); &REPEAT (READCLOCK; (GOTOXY(11,12); (WRITELN(TIME);  UNTIL KEYPRESS; $END  END.  N^ܧWSELE2TSYSTEM.WRK.CODE6 z|z6 b6 *,,APPLE2:SYSTEM.SWAPDISKWSE:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISKgSצ HIT ANY KEY TO QUIT ] t< ֍br  r b^br WSE`b6 6 ^``Pb6 r Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?éÄhÄéˍ0á,צProCLOCK NOT AVAILABLEWǀ?/ ]Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?Í Ʉ"á    dd ]P    d 4P"ˡ"áe'UNABLE TO UPDATE DISK - WRITE PROTECTEDצ [VOL # ] P  ɡצ0QPR2 ƀƀ|S*]̀ƀƀPƀצ/Qƀƀǡƀ/Ǣƀ|ƀ ƀSƀ:ƀ*ƀ:ƀƀPٚؿښ6 :9 8(ġ(7 <; 5(ġ (4 32 10/JBB@@SAMPLE1 PROCLOCK ]צWELCOME 4 TO APPLE PASCALLAST BOOTED ON   WSELE2TSYSTEM.WRK.CODE6 Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?éÄhÄéˍ0á,צProCLOCK NOT AVAILABLEWǀ?/ ]Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?Í Ʉ"á    dd ]P    d 4P"ˡ"áe'UNABLE TO UPDATE DISK - WRITE PROTECTEDצ [VOL # ] P  ɡצ0QPR2 ƀƀ|S*]̀ƀƀPƀצ/Qƀƀǡƀ/Ǣƀ|ƀ ƀSƀ:ƀ*ƀ:ƀƀPٚؿښ6 :9 8(ġ(7 <; 5(ġ (4 32 10/JBB@DEMO1 PROCLOCK END  END. PROGRAM DEMO1;   USES PROCLOCK;   BEGIN "IF CLOCKPRESENT THEN " BEGIN &GOTOXY(0,2); &UPDATE(4); &GOTOXY(0,7); &WRITELN(TIME); &WRITELN; &WRITELN('WELCOME ',DISKNAME,' TO APPLE PASCAL'); &WRITELN; &WRITELN('LAST BOOTED ON ',LASTBOOT);  PRz̎6 hhjb̎6 ,APPLE2:SYSTEM.SWAPDISKWSE:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISK  R #LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTUPROCLOCK  " ' "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 codefil $ "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:IG BB'"GBECopyright 1983 - West Side Electronics, Inc. and Apple Computer, Inc.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 FRECSIZE < 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 ,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ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN 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);  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??  ġ+@ነ? ?> ??   '~~5?. ?? 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?   ?=~@:?^>[' ~ ~>?  ȡ!2? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~ 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 PZB|?a QZR|?ٽ RZP}?4 SZX~? TZD~? UZO? VZC?[` WZ ?& XZ)?ؽ YZR?  ZZR?2 ZZá.ٹ# $ $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#ihh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS Phhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0SEC bOROM TIME iWSLOT $,?v o CRA CRB DISKNAMEMON o=/bHR  TEvMIN [K{LASTBOOTTI !'<PORTA 9|PORTB 3TYR M?rCLOCKPREOCHEAT DOW _DAY  y|E7jCRA CRB DISKNAMEMON Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?éÄhÄéˍ0á,צProCLOCK NOT AVAILABLEWǀ?/ ]Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?Í Ʉ"á    ddP    d P"ˡ"áe'UNABLE TO UPDATE DISK - WRITE PROTECTEDצ [VOL # ] P  ɡצ0QPR2ƀƀ|S*̀ƀƀPƀצ/Qƀƀǡƀ/Ǣƀ|ƀ ƀSƀ:ƀ*ƀ:ƀƀPٚؿښ6 :9 8(ġ(7 <; 5(ġ (4 32 10/JWSELE2TSYSTEM.WRK.CODE6 z|z6 b6 *,,APPLE2:SYSTEM.SWAPDISKWSE:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISK "VAR $CLOCKPRESENT:BOOLEAN; $DOW,MON,DAY,YR,HR,MIN,SEC:INTEGER; $TIME,DISKNAME,LASTBOOT:STRING; $  PROCEDURE READCLOCK; "PROCEDURE TIMESTRING; "PROCEDURE UPDATE(VOL:INTEGER); "  IMPLEMENTATION L E 6 6 ^``Pb6 r $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !o=/bHR  TEvMIN [K{LASTBOOTTI !'<PORTA 9|PORTB 3TYR M?rN^iܧéÄhÄéˍ0á,צProCLOCK NOT AVAILABLEWǀ?/ ]Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?Í Ʉ"á    dd ]P    d 4P"ˡ"áe'UNABLE TO UPDATE DISK - WRITE PROTECTEDצ [VOL # ] P  ɡצ0QPR2 ƀƀ|S*]̀ƀƀPƀצ/Qƀƀǡƀ/Ǣƀ|ƀ ƀSƀ:ƀ*ƀ:ƀƀPٚؿښ6 :9 8(ġ(7 <; 5(ġ (4 32 10/JBB@@SAMPLE1 PROCLOCK PROGRAM SAMPLE1;   USES PROCLOCK,APPLESTUFF;  "  BEGIN "IF CLOCKPRESENT THEN $BEGIN &WRITELN(' HIT ANY KEY TO QUIT'); &REPEAT (READCLOCK; (GOTOXY(11,12); (WRITELN(TIME);  UNTIL KEYPRESS; $END  END.  Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?gSצ HIT ANY KEY TO QUIT ] t< ֍br  r b^br WSE`b6 6 ^``Pb6 r Í Ʉ"á    dd ]P    d 4P"ˡ"áe'UNABLE TO UPDATE DISK - WRITE PROTECTEDצ [VOL # ] P  ɡצ0QPR2 ƀƀ|S*]̀ƀƀPƀצ/Qƀƀǡƀ/Ǣƀ|ƀ ƀSƀ:ƀ*ƀ:ƀƀPٚؿښ6 :9 8(ġ(7 <; 5(ġ (4 32 10/JBB@DEMO1 PROCLOCK END  END. PROGRAM DEMO1;   USES PROCLOCK;   BEGIN "IF CLOCKPRESENT THEN " BEGIN &GOTOXY(0,2); &UPDATE(4); &GOTOXY(0,7); &WRITELN(TIME); &WRITELN; &WRITELN('WELCOME ',DISKNAME,' TO APPLE PASCAL'); &WRITELN; &WRITELN('LAST BOOTED ON ',LASTBOOT);  N^ܧWSELE2TSYSTEM.WRK.CODE6 z|z6 b6 *,,APPLE2:SYSTEM.SWAPDISKWSE:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISKJצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?éÄhÄéˍ0á,צProCLOCK NOT AVAILABLEWǀ?/ ] 303: Value to be assinged is out of bounds  304: Element expression out of range  398: Implementation restriction  399: Implementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not es in this procedure  256: Too many external references  257: Too many externals  258: Too many local files  259: Expression too complicated  300: Division by zero  301: No case provided for this value  302: Index expression out of bounds constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedures or functions  252: Too many forward references of procedure entries  253: Procedure too long  254: Too many long constant' must be in interface section  193: Not enough room for this operation  194: Comment must appear at top of program  195: Unit not importable  201: Error in real number - digit expected  202: String constant must not exceed source line  203: Integer  186: Labels not allowed in interface section  187: Attempt to open library unsuccessful  188: Unit not declared in previous uses declaration  189: 'Uses' not allowed at this nesting level  190: Unit not in library  191: No private files  192: 'Usesdure expected  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declaration not allowed in interface section  185: Segment declaration not allowed in unit  165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  170: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or proceis record  159: Real or string tagfields not allowed  160: Previous declaration was not forward  161: Again forward declared  162: Parameter size must be constant  163: Missing variant in declaration  164: Substition of standard proc/func not allowed152: No such field in this record  153: Type error in read  154: Actual parameter must be a variable  155: Control variable cannot be formal or non-local  156: Multidefined case label  157: Too many cases in case statement  158: No such variant in thiles not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar  149: Index type must be integer  150: Assignment to standard function is not allowed  151: Assignment to formal function is not allowed h the declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter solution  143: Illegal type of loop control variable  144: Illegal type of expression  145: Type conflict  146: Assignment of fPRz̎6 hhjb̎6 ,APPLE2:SYSTEM.SWAPDISKWSE:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISK]צWELCOME 4 TO APPLE PASCALLAST BOOTED ON   WSELE2TSYSTEM.WRK.CODE6 Jצ"ERROR IN WRITING OUT DATE - [VOL # ]Kצ!UNABLE TO READ DIRECTORY [VOL # ]ǙBǚBǒ́ʁ .{?nough room  403: Error in reading include file  404: Error in writing list file, not enough room 405: Call not allowed in separate procedure  406: Include file not legal Y   9    ' sU7z ;hthuhhvwlv@mqtulthxhyhhhh+-Í-۲z0ݡߑ ع      y  &  (* عteVG8  )  C uh[NA4'á NOT FEOF DO FGET(F); *IF FEOF THEN GOTO 1; *CH := FWINDOW^[0]; *IF (CH = '+') OR (CH = '-') THEN ,BEGIN NEG := CH = '-'; FGET(F); CH := FWINDOW^[0] END; *WHILE (CH IN DIGITS) AND NOT FEOF DO ,BEGIN DVALID := TRUE; .DIG:=ORD(CH)-ORD('0'); .2: W2 := 0; 3: W3 := 0; 4: W4 := 0; .5: W5 := 0; 6: W6 := 0; 7: W7 := 0; .8: W8 := 0; 9: W9 := 0; 10: W10 := 0 ,END; *NEG := FALSE; DVALID := FALSE; *IF FSTATE = FNEEDCHAR THEN FGET(F); *WHILE (FWINDOW^[0] = ' ') AND TESTRING(F,S,RLENG) "END (*FWRITEDEC*) ; " "PROCEDURE FREADDEC(*VAR F:FIB; VAR D: STUNT; L: INTEGER*); $LABEL 1; $VAR CH: CHAR; (NEG,DVALID: BOOLEAN; DIG,I: INTEGER; "BEGIN $IF TRUE=FALSE THEN &DECOP; $WITH F DO (BEGIN *WITH D DO ,CASE L OF "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "PROCEDURE DECOP;   IMPLEMENTATION " "PROCEDURE DECOP;EXTERNAL; "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLENG: INTEGER*); "VAR S: STRING[38]; I: INTEGER; "BEGIN $STR(D,S); $FWRIECMAX = 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:INTEGER[36]) 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); " "TYPE DNTEGER[36]) /END; "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); " "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); " "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  !''"COPYRIGHT APPLE COMPUTER &zDECSTUFFPASCALIOTRANSCENAPPLESTUTURTLEGRTURTLEGR  {eʆ}~~~~zʊe~|~8xylxhhh~hhh~8儐 0 h HHHL,lIL,h hʈ 5~.ŀ( ~z{ ~{z~L.|HHL,|HH|HHHHHHL,}|ʈƃFHHHHHL,~0~}|}ʈƃ0I悊iʈؚHLt~z{ ƃLO |}~}|8ʈƃ } IL_}L, 5~LOɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN 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); IZE < 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,BlL,dXUPPPPPPPPPPPf\-ZVUNIA:54-" NQ<Yw6p šá8 ١צ li read err ١ƃzL,h~~hhh~8hohl~~hXhhhFffff80)ƃܥ#FfII慥HHL,lhhhhh~~~hh-ȑhh~ 0ȑ~0hJJJJ 0ȑ) 0ȑ~Ą>ʈƃ q|日 q 戦zɥ}8劅~ƃL_II慩&&u`hh HHHHHL,{ eizʽ 8i{ʈƋƌƉƈЌإ}L_2dze|28ʈƃyʈƃƇ` 5 l~z{~ƃLOEzz~{ʚH8~}ʈƃ{)H捥}~L_}L,E0LL 5~LO~ IL_}L,ELL 5~LOE~e8内冪ʈ}ʈjj&|~ʈƃFyʈƃ}$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E{$ } "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 $(* 6502 compatible *) ESS;  EXTERNAL;   FUNCTION RANDOM;  EXTERNAL;  " PROCEDURE RANDOMIZE; $EXTERNAL; $ $PROCEDURE NOTE(* PITCH,DURATION: INTEGER *); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  DURATION: INTEGER); $ "IMPLEMENTATION  $PROCEDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTERNAL; $ $FUNCTION PADDLE(* SELECT: INTEGER *);  EXTERNAL;   FUNCTION BUTTON(* SELECT: INTEGER *);  EXTERNAL;   FUNCTION KEYPR{$ } $ $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,?  ??  1?   ?=~ @:?^c>[' ~ ~>?  ȡ!2? 5? ?f  z '~~5?. ????2 ?  ??  1?   ?=~ @:?^c>[' ~ ~>?    ġ+@? ??? k '~~5?. ????2   ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*A     4?GER .REAL RvCHAR @BOOLEAN STRING d~TEXT RINTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL hMAXINT TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4MANT:0..127; JII.1.A Copyright(c)1979 Regents of the University of California, San Diego--)PINTEGER .REAL RvCHAR @BOOLEAN STRING d~TEXT RINTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL hMAXINT 26; $TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4MANT:0..127; JII.1.A Copyright(c)1979 Regents of the University of California, San Diego--)PINTE$ $CONST EXPCONV=126; $TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4LMANT:INTEGER; 4MANT:0..127; 4EXPT:0..255; 4SGN:0..1; 3END) .END; $ ${6800-990 (IEEE standard on high byte first) compatible $CONST EXPCONV=1--)v EXTERNAL;   FUNCTION RANDOM;  EXTERNAL;  " PROCEDURE RANDOMIZE; $EXTERNAL; $ $PROCEDURE NOTE(* PITCH,DURATION: INTEGER *); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  D?'Z"!?(Z $?)Z'?|*Z+?+L+Z.?l,Z1?ս-Z5?D.Z8?&/Z;?:0Z>?>1ZA?42ZD?v3ZF? G>?ZT>caZ >*rZ;>aqZL>^ZN>9Z ?ZO?ٽ Z ?ƨ!Z; ?vm"ZB?F'#ZR?ս$ZP?y%ZX?&Z ZN1>н Z)C>oc ZET> Zf>YZ(w>gZP>탽Z(>K ZL>ȱZT>z7ZU>ٰZO>?Z(>|ZC>}̽ZE> Zl   ZZ^ Z) ><0Sǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ 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 TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $ "IMPLEMENTATION E VE(DIST: INTEGER); $PROCEDURE 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--)hh9.:.;.<0(0(099JH;HHH`Z310/$ T1234 1U`0:N); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  0`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH \HHH`.hhhhhhHHLM0`L+L1--)4Z$I?5ZTL?Xs6ZUO?7Z)Q?8ZNT?;9Z)V?%:ZEY?;Z[?Lo<Z(]?г=ZP_?>Z(b??ZLd? @ZTf?]AZUh?BZOi?޽CZ(k?7DZCm?[EZEn?FZGp?GZTr? HZ s?yxIZ;t?hнJZLv?DKZNw?FLZ x?ReMZOy?PpNZ z?gOZ;{?KPZN^EE&DY vBKGND PEEKSTRO&ADDRESS $'vSETSINE14'Z'SETSINE2SETDEFAU'SETPORT (F ((Lee Lw  )L I1L )QL        xhXOF=2 BPv(dP ( DX &ve8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)fjfjfj+*fjfjfj8 8) )` b (J c UT`+%$Y)!p  hhhhhhhhhhH8 b )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH  # " `' & 8 ! 0"e hhhhhhHH ` `  HH8H8 hhhLc .+ rhh heheheheHHL&<   B  ""##8&$iT8&UU ! U"# `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #"  ` ` `SN-(' .*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)    L)ˢ   â LE % %  )   ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8  e e  `(J 8 e @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(h h2ɡhh h.آآآǿآآǿآآD ٚ@!ؑ!ٹاZZاZاZاZZfاZZاZ:اZاZZb8 ؂ɡhB|?aQZR|?ٽRZP}?4SZX~?TZD~?UZ"?VZ ?[`WZ?&XZ?ؽYZ? ZZ?2 ZZá.ٹ#ؑU(NIT, Q(UIT "@1-'FU  #/DONE WRITING. GET SOME MORE? @Ná3z@P  ץ4- צ!READ HOW MANY BLOCKS FROM REMIN?   ȡFIRE WHEN READY...& ALL   RECEIVED.F(ILE, TO WHAT FILE? 00"áˡ%FILE WRITE ERROR.WHICH UNIT NUMBER?  STARTING BLOCK?  " GETREM CH='N';  END.     &WRITE('F(ILE, U(NIT, Q(UIT '); &READ(CH) $UNTIL CH IN ['F','U','Q']; $CASE CH OF &'F': WRITEFILE; &'U': WRITEUNIT; &'Q': EXIT(PROGRAM); $END; $ $WRITELN; $WRITE('DONE WRITING. GET SOME MORE? '); $REPEAT READ(CH) UNTIL CH IN ['Y','N']; "UNTIL WRITE('READ HOW MANY BLOCKS FROM REMIN? '); &READLN(NBLOCKS); $UNTIL NBLOCKS <= 32; $BYTES:=NBLOCKS*512; $WRITELN('FIRE WHEN READY...'); $UNITCLEAR(REMIN); $UNITREAD(REMIN,BUFFER,BYTES,0,12); $WRITELN('ALL ',NBLOCKS,' RECEIVED.'); $REPEAT E WRITEUNIT;  BEGIN "WRITELN; "WRITE('WHICH UNIT NUMBER? ');  READLN(UNITNUM); "WRITE('STARTING BLOCK? '); "READLN(BLOCK); "UNITWRITE(UNITNUM,BUFFER,BYTES,BLOCK,12);  END;    BEGIN "REPEAT (* FOR EACH TRANSFER *) $PAGE(OUTPUT); $REPEAT &N "  (*$I-*) "REPEAT $WRITELN; $WRITE('TO WHAT FILE? '); $READLN(FNAME); $REWRITE(F,FNAME); "UNTIL IORESULT=0;  (*$I+*)  "IF BLOCKWRITE(F,BUFFER,NBLOCKS)<>NBLOCKS $THEN WRITELN('FILE WRITE ERROR.');  CLOSE(F,LOCK);  END;    PROCEDUR   PROGRAM GETREM;   (* READS FROM REMIN AND WRITES TO DISK *)   CONST REMIN=7;   VAR BUFFER: PACKED ARRAY[0..16383] OF 0..255; $BLOCK,NBLOCKS,BYTES,UNITNUM: INTEGER; $CH: CHAR; $F: FILE; $FNAME: STRING[30]; $  PROCEDURE WRITEFILE;  BEGI ץ4- צ!READ HOW MANY BLOCKS FROM REMIN?   ȡFIRE WHEN READY...& ALL   RECEIVED.F(ILE, > ?  ? JJJ ?`lntxz|**7777~(*377558:=?@## (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>aI꽌ɪ򠚽ɭ&Y &&Y &  꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`*x'8*xx  ')  x) `0L` x Fx e.x-  )`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')>JJJ >`W*7U*I * _UL@* iU8*  L % L(pK*?*(j>*0l^l\ * sU* B oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvqʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUW PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  `w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LlޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hЈ ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ P7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`Yi H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*ʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J ȠJLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰ե 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[L Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` ΔLG 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" ``E <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` ` . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie