`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JLј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`ߠ ߮ å AUGELIST.CODEvgå AUGELIST.DATAPAUGELIST.INDEXIACBASE & SYSTEM.APPLEvg&O SYSTEM.PASCALvgiOPSYSTEM.MISCINFOEPrSYSTEM.LIBRARYQrtSYSTEM.STARTUPgQtw AUGEMENU.CODEvgQw| AUGEINIT.CODEvgQ| AUGEENT.CODEvgQ AUGEPRNT.CODEvg&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴T}iU・~R콥S~8vw\vȥ]vv\w]V𽥃WlXx |ƄRSL{ȱȱńRRLSҠXx ~~~~LSҠXx P~Qȑ~LSҠXxX XY |0 L\Xx t|ut}|=0 8|8|}8||ȥ}|MHLHlLSH|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[LѠP~ ~i jik|Lhj ~|it}iu8ttXutY|i h0 L LllL=LC/ L ߰8L ߦt~ hI=+ L ߤt~I= ~ LȄHHL;hh tuLhhVtWu\z]{XiXYt8xtut8xtu8tTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INe ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥHH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhheȱÈ jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*@^]U)j7 [ )L3~ lJf)jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83IߐiżQHPH ~P~ȱP~~P꽥QLSҠ RhPhQLE RR8tSut\ȱt]X i RHLfRtȱRuVt tVuWRTȱRU⦆RXȱRYRRR콆SLSҠ8|}`|ȱ|L8||tȥ}|utetȱtet|8|}Ƅ`t et HHH> o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6| 4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC 0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLdeeƄL;ҥ8傅ń 8冪8冪ƂL;hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9 fHHLMҦfHHLM @hhHHHHhzh{h|h}}Lݥ{)L8z|~{}Lݥ|)h |he|Ȅ~ Ȅtl ڦ|8|e| h9 0 ~ʚLM ڦ|| hI9~ʚLM |0| h~ʚLM҅ztzx{yxtezʥ|x}y~xF|}H|HLMҠX hh&ńL;0HxH{HzHezHHL.h|h}hzh{hxhyx~ȱx|80~~ iff~z ~=݅~=H~HLMhthuh|h}hzh{z ݅v%tt݅w%uu|80tuutvwwvi t&uv&whxhyx~ȱxvI%~t~wI%u~xȥxLMhhYLShhhihjhkXi&jhȑjL;ҠhhjL@ٱhjL;LѺtutLLMҠ Uhe^xhe_yxHxHL;Ҡ Uhe^he_HHL;hh Uѥ_ ^&L٥^_ ץhexheHxHL;ҠXXz{hh &hexhef"f fefd8de8&&`ffefd&&`hhhh ץIiIiHHLMhhhh ץHHLMhthuhvhwxyEw0wy)xv!y0uEy0yutxyLMLXYXXYYHXHLXYYHXHXXYeXXLMhthuhh8tuHHLMҩedff dedeeefefdff`hh0 hhL}hh"IiIiIiIi ץHHLMҺHHLBנdeLѥIiIi报IiIiƊ8冥凰 ` ei捠8XYLSҥXiXYLS hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LL; hthuZtȥ[tL;hthutZȱt[潩L;ҩlLhh0HHLMҨIiIiHHLMhthuhheteuHHLMhIihIiHHetjktLhjhjhhL;hthuhettheuuHtHLMhhhthuhettheuutLMhhhihjhk ULhthuhh%uH%tHLMhthuhhuHtHLMhhIHIHLMҩXXhhQX0XōiX`0\XE0XLXŌC?8XX&XeYe  Íáɡ 럚肚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 (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYš š۾.ˡצ([šܕ!!(š۾:ˡ١.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á6OKTU  R LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU   ' "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'"G*IACBASE: COPYRIGHT 1982 BY FRANK POHLEMANNLOCK,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`<hhhhhhHHLM0:INITLIST $IACBASE: I)nfo P)rnt E)nt N)ew Q)uit  SצAUGELIST`צAUGEPRNTLצAUGEENT9AUGEINIT%!EQ2b 1\#  "*0צ - Exit to PASCAL command level:צ type to confirm: [ ok., goodbye! ] B B$IACBASE: I)nfo P)rnt E)nt N)ew Q)uit  SצAUGELIST`צAUGEPRNTLצAUGEENT9AUGEINIT%!EQ2b 1\#  " צ - Exit to PASCAL command level:צ type to confirm: [ ok., goodbye! ] B BB!opyright 1982 by Frank Pohlemann MENULIST o Pascal 1.1צ#copyright 1982 by frank pohlemannצAUGEMENU צ AUGESTART.TEXT- %̅,ړצLisAUGESTART.CODEDE[*]APPLE1:SYSTEM.SWAPDISK.Ɓ-́4AUGELIST.INDEX"ˡ́5d́6ʁ5ʁ6ȡ!ʁ5dʁ4́4ʁ5́5 (The file isʁ4dd צ% full)l  Welcome, IACBASE: tB*!opyright 1982 by Frank Pohlemann STARTLIS $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !B!opyright 1982 by Frank Pohlemann }צPTתP+צPתP ̀ʀȡ&}̀ƀ}Pƀצ QƀP̀ʀȡ&T̀ƀTPƀצ QƀP(̀ʀȡ&+̀ƀ+Pƀצ QƀPP̀ʀȡ&̀ƀPƀצ QƀP=S+(>+(ڶ M -Wl BצTel.: w(-----------------------------ݹ Integer BasicתP ApplesoftתPsPascalתPdצFortranPTצPilotPFצ AssemblerP4צCobolP&צothersPwgZL@0$'šڡ / Ng^(ب0 columns CardPbצ PAL - CoderPNצMonitorP>צ ** SPECIAL **P( #r\J<šڡ / Nx^ب>O'00ȡ>O'00ȡݹ16KתP32KתP48KתP64KתP1 driveתP2 drivesתPצ3 or more drivesP8 inch floppiesתP Z80 - CardתPצ 6809 - CardPצPrinterPצPlotterPzצ8  > AUGELIST.DATA"ˡ.Unable to open datafile... AUGELIST.INDEX"ˡ/צUnable to open indexfile...ȡ<ȡ=> بB*!opyright 1982 by Frank Pohlemann 2ENTERLIS   8&*0Pon disk !-please confirm to proceed byצ typing &  צInstalling new datafile... AUGELIST.DATA"ˡ͞AUGELIST.INDEXalready existing on disk !-please confirm to proceed byצ typing &  צInstalling new datafile... 5/צAUGEMENU צ*** WARNING ***#This program will erase permanentlyצ the contents of any files named צ AUGELIST.DATA or צAUGELIST.INDEX"á  צ%>>> There already exists a file namedAUGELIST.INDEX ! -erase it ?&  am aborted) Nצ AUGELIST.DATA"á  %>>> There already exists a file namedצ AUGELIST.DATA ! -erase it ?&h+(+(}+(TTPP} Ś&Ɓ&צ-Ɓ&S)Ɓ&ƀ(ƀ(̀ʀȡ̀ʀȡd̀ʀȡdDiKt >>> I/O ERROR (progr-----------ƀƀ(----------------------------------------ƀƀHas an apple since:ƀ,@@<<ȡٹצ16KPצ32KPצ48KPצ64KPצ1 drivePצ2 drivesP3 or more drivesתPצ8 inch floppiesPצ Z80 - CardP 6809 - CardתPPrinterתPPlotterתPy80 columns CardתPa PAL - CoderתPMMonitor'New names: E)nter Q)uit P`š   ("EQ &  " 5 5/ @xצ# copyright 1982 by frank pohlemann# Apple User Group Europe e.V. M330 צAUGEMENU  That's all, folks !^  (press ) á~צ#This image was written out to file: d    N   צ IACBASE: Data Entry.e. 09/81)٢Ԯ @ > Enter new record ddÍؓD>>> File is full (press ) á-áF>>> Invalid name w) Programming languages used:٢ > Enter new record Peripherals٢Special interests٢'Has an Apple since (mm/yy, i٢j Phone Number٢u  <(Enter: , (choose from below) System configuration:٢  =(Enter: , (choose from belonumber:ٮ Name٢Prename٢צadditional ID (i.e. company)٢+צStreet٢UצTown٢@צZipcodeUȡ#+VV+PVצ QVPTT̀ƀPƀ+ǠƀUPUPTH צ( צ( Member's 8צ 866̀ƀ Pƀdƀ77R צ(PšU@(A@Aȡ#BB(Bצ )B(@@̀ƀPƀxƀA(A(R +צPPšWTPUT L P ++ȡT. צ PšU1 212ȡ#33 3צ 3 11̀ƀPƀZƀ2 2 R צ P šU6767ȡ#88 Ʉ  az  ( **ȡݛ  e/ 8Ʉ 0  +ߡ ߡ  +-" צ ?, @@ asv   ȡR   + sv4,@@<<ȡٹצ Integer BasicPצ ApplesoftPtצPascalPeFortranתPUPilotתPG AssemblerתP5CobolתP'othersתPxh[MA1%צ תP= ** SPECIAL **תP' "q[I;צ צ ?, @@ &JP*&>N V f  P.\2*# Apple User Group Europe e.V. M330 צAUGEMENU  That's all, folks !^  ~PRINTLIS ohlemannצ# Apple User Group Europe e.V. M330צ>>> Please wait while sorting lists...  צAUGEMENU  That's all, folks ! öÍá צ -Printing...lȡ%d, 2   צ IACBASE: File Printout# copyright 1982 by frank pצ -Printing...lȡ%<d, 0  $Printout of file (sorted by number): # -please set up printer, press צ [ to quit]@@ùí<   "Printout of file (sorted by name): # -please set up printer, press צ [ to quit] öÍá m)mámmm%@@@@צ' -Do you want full information on every file or name & address only ? [,]ámSystem configuration:mƀm-Languages used:mƀmצ-Interesting peripherals:mmƀmm-Special interests:mmƀmmצ (Has an apple since:mƀڡ m/mm Vo^&بڥmMm mmmmm-mmmWmlm mBmmTel.: mwmm V^بO00ȡݹ Integer BasicתP ApplesoftתPsPascalתPdצFortranPTצPilotPFצ AssemblerP4צCobolP&צothersPwgZL@0$'šm Z80 - CardתPצ 6809 - CardPצPrinterPצPlotterPzצ80 columns CardPbצ PAL - CoderPNצMonitorP>צ ** SPECIAL **P( #r\J<šmڡ m/m>> No entries in file...ԩl$P=QP+V0؂d(ddȡ@ddddšɡڮšخyZ  צmPRINTER:"ˡ5צ!No printer connected to system...צ AUGELIST.DATA"ˡ.צUnable to open datafile... צAUGELIST.INDEX"ˡ/Unable to open indexfile...צPPB*!opyright 1982 by Frank Pohlemann ^ @@(Print: A)lpha N)umbers Q)uit   Z`š   4 0*AQ" , ." Km 5/  m  X+2bhP>&$P $ | F  sorting lists...  צAUGEMENU  That's all, folks !tinue áKCONSOLE:KצCONSOLE:@ ڪH  š  :H0  š H  ⓡP̀צOFFToggle switch ?@@GKFFFKצPRINTER:"ˡyF :>>> No printer connected to system. Press to conƀ Kƀ KK(----------------------------------------KKƀKKƀKKHas an apple since:KƀK G The printer switch is FצONK KKKKKKK-KKKWKKlK KBKKKצTel.: KwKK(----------------------------------------KlesoftתPsPascalתPdצFortranPTצPilotPFצ AssemblerP4צCobolP&צothersPwgZL@0$'šKڡ K/KK Vo^0 بڶ KMMonitorP>צ ** SPECIAL **P( #r\J<šKڡ K/KK V^ بFO'00ȡݹ Integer BasicתP Appݹ16KתP32KתP48KתP64KתP1 driveתP2 drivesתPצ3 or more drivesP8 inch floppiesתP Z80 - CardתPצ 6809 - CardPצPrinterPצPlotterPzצ80 columns CardPbצ PAL - CoderPNצ"ˡ.Unable to open datafile...AUGELIST.INDEX"ˡ/צUnable to open indexfile...ȡDȡE>  بFO'00ȡ ƀƀ( 0) ˡh ɡQ9á<צDuplicate Names.. J ء  {>KCONSOLE:FJHG AUGELIST.DATAdȡfdP   ̀ƀƀ ƀ m~ڪáؚ" خ  خ T  d ȡd  ۪á5   N۪á5   Nڪáؚ" خ خ T B*!opyright 1982 by Frank Pohlemann +MANAGELI ^ @@(Print: A)lpha N)umbers Q)uit   Z`š   4 0*AQ" , ." KmƀPƀצ Xƀ++J HIrצInfo: (enter name or number)צ->......................Háš   _HH צ">>> Pattern not found (press ) á ,@@<<ȡٹצ16KPצ32KPצ48KPצ64KPצ1 drivePצ2 drivesP3 or more drivesתPצ8 inch floppiesPצ...33(33(y  Member's name was changed. $ - rebuilding primary searchtree....  צ IACBASE: Information Manager á(1(0-á;2d00H 2 10ˡ{  צMember's number was changed.צ& - rebuilding secondary searchtree.r number)צ->......................Há22šZ 2 KKCONSOLE: FKKPRINTER:Hc HH">>> Pattern not found (press )hange  Peripherals٢Special interests٢'Has an Apple since (mm/yy, i.e. 09/81)٢Ԯ, HItצChange: (enter name oצ Phone Number٢uצ(Change: , [,: no change]צSystem configuration:٢צProgramming languages used:٢צ(Change: entry or for no cٮצName٢צPrename٢additional ID (i.e. company)٢+Street٢UTown٢@Zipcode٢jǠƀUPUPSHצ  t$Change: entry or for no changeצMember's number:צ(Pš\@(A@Aȡ#BB(B )B(@@̀ƀPƀxƀA(A(Q+צPPš^TPUTUȡ#+VV+PV QVPTT̀ƀPƀ+š\1 212ȡ#33 3 3 11̀ƀPƀZƀ2 2 Qצ P š\ 6767ȡ#888 866̀ƀ Pƀdƀ77Q**ȡݛ  e/ 8Ʉ 0 +ߡߡ +-"L Pš++ȡT<צ Páixvá  ȡR  +  Ʉaz (PilotתPG AssemblerתP5CobolתP'othersתPxh[MA1%צ  ?,ÍYöyÍ NönÍ ?,ÍYöyÍ NönÍ á xv:,@@<<ȡٹצ Integer BasicPצ ApplesoftPtצPascalPeFortranתPU Z80 - CardP 6809 - CardתPPrinterתPPlotterתPy80 columns CardתPa PAL - CoderתPMMonitorתP= ** SPECIAL **תP' "q[I;צ  צ# copyright 1982 by frank pohlemann# Apple User Group Europe e.V. M330>>> Please wait whileצ building searchtrees...  J צAUGEMENU  צThat's all, folks !tH)ICI  I6!ȡ,ٛ ٛٛ 4 DȡF#<$8%4&0',IZ$ "0 ". " B B&> I)nfo C)hnge N)ext P)rnt S)can Q)uit  m`š  "C;!73"KSST.צ>>> No matching entries...5}ACE' R R צ$Scan: S)ys L)ng P)er I)nt Z)ip N)one  T Kצ(- These entries have got zipcodes in theKKצ range from K*KK to KKKTKKMK KKKKá'צending 'value' Pá'á'*:צ">>> String comparison not possible'צ> Searching....TSdUSUȡ쩂Sd S *jjKKK**+.צ>>> No matching entries...5bACX &&Scan for zipcodes in a specific range: -enter starting 'value'*P*á'*,*,ȡ*d * 򢀂š+ Kצ"- These persons bear the followingKKצ notice under 'INTERESTS':KKKKK+KKMK KK**+.צ>>> No matching entries...5dACX$%Scan for special interests:צ -enter search stringPá&á&> Searching....+*d򢀫š+ Kצ"- These persons bear the followingKKצ notice under 'PERIPHERALS':KKKKK+KKMK KKKKK2}=?Y$Scan for special peripherals:צ -enter search stringPá%á%> Searching....+*d,*,ȡ*d *  Kצ!- These persons use the followingKK programming languages:KK KKKMK KKKKKݡ,צ>>> No matching entries.nter search keys (choose from below)ȡܓ$> Searching....dȡ詂d  ȡ6!򢀁ۡKKKKݡ,צ>>> No matching entries.2v=?R#ȡFG E GGScan for programming languages:צ' -e  ȡ6!򢀀ۡݡ K#- These persons match the followingKKצ system setup:KK KKKMK KG D GGScan for system configuration:' -enter search keys (choose from below)ȡܓ#צ> Searching....dȡ詂d/()CS"! 5//) 1" (MKw= 7 (K  Z2djR:` 6 h$$.JfH !$#%8&(*0)*r*N++P(( (- o( ( (   ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( o( ( (   P  P OP s m( (- s m( (- o( ( (  (   P OP OP s m( (- o( ( o( ( (   P P OP s m( (- s m( (- o( ( (   P OP s OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P  P OP s m( s m( (- o( ( (  (   P OP OP s m( (- o( ( o( ( (   P P OP s m( (- m( (- o( ( (   ( (   P OP s m( (- o( ( (- o( ( (      P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( (  (   P OP OP s m( (- o( ( o( ( (   P P OP s m( (- s m( (- o( ( (   (   P OP P OP s m( (- o( ( (   P   P OP s s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( o( ( (   P  P OP s m( (- s m( (- o( ( (  (   P OP OP s m( (- o( ( m( (- o( ( (   P OP s m( (- s m( (- o( ( ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P  P OP s m( s m( (- o( ( (  (   P OP OP s m( (- o( ( o( ( (   P (   P OP s m( (- o( ( (   o( ( (   P OP s m( (- (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P  P OP s m( s m( (- o( ( (  (   P OP OP s m( (- o( ( o( ( (   P P OP s m( (- OP s m( (- o( ( (   P OP P OP s m( (- ( (- o( ( (     P OP s m s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( (   P OP OP s m( (- o( ( o( ( (   P P OP s m( (- s m( (- o( ( (   o( ( (   P OP s m( (- o( ( m( (- o( ( (     P OP s s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( o( ( (   P  P OP s m( (- s m( (- o( ( (  (   P OP P OP s m( (- o( ( (   P (   P OP s m( (- o( ( ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P  P OP s m( s m( (- o( ( (  (   P OP OP s m( (- o( ( s m( (- o( ( (   P OP s m( (- OP s m( (- o( ( o( ( (   P P OP s m( (- (- o( ( (      P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( (  (   P OP OP s m( (- o( ( o( ( (   P (   P OP s m( (- o( ( (  ` s m ( (   P OP OP s m( (- o( (- o( ( (   P   P OP s m( s m( (- o( ( ( ( (   P OP OP s m( (- o( o( ( (   P  P OP s m( (-