`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`ߠ ߮ .TEXTvgU GRAPHEN.CODEvgUF-TABELLE.TEXTgUF-TABELLE.CODEgU SYSTEM.APPLEvgF-TABELLE.CODEgUF-TABELLE.CODEgEvgMOIVRE.CODEvgZ`INTEGRAL.2.TEXTC`dINTEGRAL.2.CODECdjINTEGRAL.3.TEXTUjnINTEGRAL.3.CODEUnx VEKTOR.5.TEXTvg%x VEKTOR.5.CODEvg% SIMPSON.TEXTvgU SIMPSON.CODEvgU GRAPHEN GRAPHEN.CODEvg MOIVRE.CODEvg INT-EINF.CODEvg INT-BER.CODEvg TURM.CODEr=vg GALTON.CODEvgBNP.CODEr=vgSTOCH-TAB.CODEgF-TABELLE.CODEgGRAPHEN.CODMA-SIIA& SYSTEM.APPLEvg&O SYSTEM.PASCALvgOQSYSTEM.CHARSETgQRSYSTEM.MISCINFO2RSYSTEM.LIBRARYg MA_SII.CODEvgSYSTEM.STARTUPg GAUSS.CODE=vg VEKTOR.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,z36>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>š š۾.ˡצ([šܕ!!(š۾:ˡ١.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??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !<5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "}ʈƍƎƋƊЌإ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'"GBBGBB D-KY 11-86  R # +2TLONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTUFKTEINGAFKTEINGAEPSONGRAKYBDSTUFKYBDSTUF  "*.AAAAAAAAAA[\]^_`AAAAAAAAAAAAA  P ?.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? >ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLت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); 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 ext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod "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)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?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTT ZN1>н Z)C>oc ZET> Zf>Y Z(w>g ZP>탽 Z(>K  ZL>ȱ ZT>z7 ZU>ٰ ZO>? Z(>| ZC>}̽ ZE>  ZG>? ZT>ca Z >*r Z;>aq ZL>^ ZN>9 Z ? ZO?ٽ Z ?ƨ !Z; ?vm "ZB?F' #ZR?ս $ZP?y %ZX? &ZhhhhhhhhHH 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 ؂ɡ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? e*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )Lb I1Lb )QLb        xhXOF=2. F | R T DL X,j X & Z,DX p,vp,DY vBKGND PEEKSTRO,ADDRESS ,vDIRSRC8צCOS8צTAN8צCOT8צARCSIN8ARCCOSת8צARCTAN8ARCCOTת8צSQR8 צSQRT8 ABSת8 SGNת8 INTת8LNת8  á>TS áS áT I.F Kr  Sá    SS á$.S0SáS0Sá# H8צSIN "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjly 3V `(  U <ؚU <ع٢ ٢T XS`SATMSÍڡ TSS @h .á"  0١   @ S @ á S * S SSSSS{Su(^n1-+ )!     ˡ   aA HP á  תP PQP XS8PRz̎6 hhjb̎6 ,APPLE2:SYSTEM.SWAPDISKTAPPLE1F:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISKT "USES TRANSCEND; "PROCEDURE LADE_FUNKTION; "FUNCTION F(X:REAL):REAL;    IMPLEMENTATION E r Ѝ r b^썈br APP6b6 6 466Pb̎6 r  APPLE1FSYSTEM.WRK.CODE6 $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(MAKEPOצLOG8צEXP4     *צPS צ&Geben Sie den Funktionsterm f(x) ein !צ(z.B. 2^x+sin(2*x^2) )צ:Verf}gbar sind die Funktionen: sin, cos, tan, cot, arcsin,צ?arccos, arctan, arccot, sqr, sqrt, abs, sgn, int, ln, log, exp f(x) = *P*Pצ QP R~v U<    $ 0LhLY LhE,0` A  ` K " # " ""#0 LE`  HH`FE, yxWOG:2*}|S0+&%$ i(xHhLh`$ 5 *******L )$G$ 0 `   L @ 0   $6 $   L# $$0 K*   ! $0L $0 @  $$    K $ $   (Б$LYLhJ*$J*`J 6J 6J 6$`J 6J 6J 6`Copyright by Robert Rehbold, D-5000 Koeln 41, 14/10/82Hi@038 ii)8 $0$ 00`?%ͥLHs)օh,y}  '  "# +$ "# + $$0 K*    $L    $03   $     %hh $KhJ L$ hhJhhJhh) L $hhhLYh$%$h h$  )iɀ $O$ $ 0$0 $0$ 0 !~?%L'$ $ 0$0APPLE1TSYSTEM.WRK.CODE6 z|z6 b6 *,,:SYSTEM.SWAPDISKK.TEXTAPPLE1:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]:SYSTEM.SWAPDISKK.TEXT   procedure FOTO_OUT (EINRUECK,GROESSE:integer;INVERS,QUER,FETTDRUCK:boolean) ;     implementation E ԍ֍br r b^br APP`b6 6 ^``Pb6 r 2  fXC. V7`rN&  .  "  &    -    .     m /   ,    `  I 4U<44           &    -         4   F  ' Jt>Qv+   33ȡ                 ?=   y ?D  ?      2     2    n G   TYPE SETOFCHAR = SET OF CHAR; (* Muss fuer Parameterliste deklariert werden *)   (* Die folgenden Befehle koennen vom Hauptprogramm in WRITE-Anweisungen *)  (* verwendet werden. Die Variablennamen duerfen nicht im Hauptprogramm *)  (* e   0123456789ABCDEF4<* :EE: E@ E @*WC:CC6 :BH@á=צ.:Bá :B@á: ުP1 T8ܪP/ۊڊ T 4 @@ˍD   @@.@ :EE: E@ E @*WC:CC6 :BH@á=צ.:Bá/0-2-2ȡ0 0-0--.0/$7^* *  *ڡAA@ :ת :BB BAڡ @ @  4ߡń ڪP./0/0ȡ"/ -.-.//./ZH۪P.~š>.>PڪP-á ..צ.//ˡ//P5á* =áP$تPR* ئ0000תPɡǀ0ض  } T$ \ תPɡ š==>=?> @*?@@@PPPPQPMAXLEN:INTEGER);  FUNCTION GET_HEX_VAL(PROMPT:STRING; MAXLEN:INTEGER):INTEGER;  FUNCTION HEX_TO_INT(HEXSTR:STRING):INTEGER; PROCEDURE INT_TO_HEX(INT:INTEGER; VAR HEX_STR:STRING);  FUNCTION FP_NUM(FP_STR:STRING):REAL;  FUNCTION GET_FP_NUM(PROMPT:STRING; MAXVAL,MINVAL:REAL):REAL; FUNCTION GET_INTEGER(PROMPT:STRING; MAXVAL,MINVAL:INTEGER):INTEGER;  PROCEDURE PROMPTAT(LINE:INTEGER; MESSAGE:STRING);  FUNCTION TASTENDRUCK:BOOLEAN;    IMPLEMENTATION E TSTRING(VAR S:STRING; OKSET:SETOFCHAR; MAXLEN:INTEGER);  FUNCTION GET_HEX_VAL(PROMPT:STRING; MAXLEN:INTEGER):INTEGER;  FUNCTION HEX_TO_INT(HEXSTR:STRING):INTEGER; PROCEDURE INT_TO_HEX(INT:INTEGER; VAR HEX_STR:STRING);  FUNCTION FP_NUM(FP_STR:STRING):REAL;  FUNCTION GET_FP_NUM(PROMPT:STR$EOL, (*Loeschen bis Zeilenende *) $EOS, (*Loeschen bis Bildschirmende *) $BELL:CHAR; (*Piepton *)   FUNCTION GET_CHAR(OKSET:SETOFCHAR):CHAR;  PROCEDURE GETSTRING(VAR S:STRING; OKSET:SETOFCHAR;     READ |READLN WRITE nWRITELN EOF EOLN JBOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `TRUE vxNIL MAXINT Xv rneut deklariert werden. *)   VAR CR, (*Carriage return (Wagenruecklauf) *) $BS, (*Back space (Rueckwaertstaste) *) --)vPINTEGER vREAL $|CHAR 6 :B@á: ުP1 T8ܪP/ۊڊ T 4 @@ˍDNMASII  ... Funktions-Wertetabellenצ E  ... Integrale/ Einfuehrung F צ/ ... Integralberechnung /Unter- und ObersummenechnungA n a l y s i sצ0------------------------------------------------צ C  ... Funktions-Graphenצ D L i n e a r e A l g e b r a צ0------------------------------------------------צ A  ... Gauss-Algorithmusצ B  ... VektorrBMASII xoXZ\^`bdq r$ S צ ... Schluss fuer heuteNBITTE WAEHLEN SIE ...GAUSSצVEKTORצGRAPHEN F-TABELLEצINT-EINFצINT-BERTURM STOCH-TABצGALTONצBNPMOIVREsmAsfxj]SD8/ "$1(*,.02468:<>@צ- ... Zur Naeherungsformel von Moivre-Laplace S צ ... Schluss fuer heuteNBITTE WAEHLEN SIE ... ... Werte und Tabellen I צ ... Galton-Brett-Simulation J צ# ... Binomial-Verteilung / Graphen K  G צ/ ... Vollst{ndige Induktion (Tuerme von Hanoi)j S t o c h a s t i kצ0------------------------------------------------צ H  ... Funktions-Wertetabellenצ E  ... Integrale/ Einfuehrung F צ/ ... Integralberechnung /Unter- und ObersummenechnungA n a l y s i sצ0------------------------------------------------צ C  ... Funktions-Graphenצ D L i n e a r e A l g e b r a צ0------------------------------------------------צ A  ... Gauss-Algorithmusצ B  ... VektorrB G צ/ ... Vollst{ndige Induktion (Tuerme von Hanoi)j S t o c h a s t i kצ0------------------------------------------------צ H  ... Werte und Tabellen I צ ... Galton-Brett-Simulation J צ# ... Binomial-Verteilung / Graphen K  ٗؗá  n ȡi n ȡ%   n  p_  צ4 fuer Ausgabe auf Drucker, fuer A =m n  tI$tI$mm Eingegebene Matrix: *Wenn alles richtig ist, druecken,)falls Korrekturen noetig sind, !bis 10^6 ! mn mȡm  -te Gleichung ln lȡeam l צ =m l  tI$tI$llbm áp  +Geben Sie die Anzahl n der Gleichungen ein!( 2 <= n <= 9 ) n =   n%Und nun die Koeffizienten aij und bi צ'aus dem Intervall von - 10^6 es Programms ist, das Gauss-Verfahren zu  erlaeutern !צ' Mit geht es jeweils weiter !!צ- Mit kommen Sie ins Menue zurueck !! ٗؗ@xoXZ\^`bdq &f *צ@ ********************************************************Ǹ ȡצBITTE WAEHLEN SIE ...GAUSSצVEKTORצGRAPHEN F-TABELLEצINT-EINFצINT-BERTURM STO M A S - I I צ@ ********************************************************צ@ * M A T H E M A T I K I N D E R S I I *צ@ *******צ- ... Zur Naeherungsformel von Moivre-Laplace S צ ... Schluss fuer heuteN - usgabe צauf Monitor druecken !ؗٳEצ#6:צEingegebene Matrix: 4 צEingegebene Matrix: 2צ#1:"ȡ&o6Gleichungssystem nicht oder nicht eindeutig loesbar !!`o+Gleichungssystem nicht eindeutig loesbar !!)b *3Bitte, geben Sie die Komponenten der Vektoren ein! צ9W{hlen Sie Zahlen aus dem Intervall von -1000 bis +1000 ! Vektor X: ȡLVEKTOR X : (ȡ+/ )צVEKTOR Y : (ȡ+ צ/   =Dieses Programm berechnet f}r Vektoren des dreidimensionalen צ8Raums Summenvektor, Differenzvektor, Skalarprodukt etc. צMit geht's weiter !! B*" VEKTORRE  = m  mmeN**ppo oצEingegebene Matrix: צ%Neues Gleichungssystem loesen ? (J/N)DDqq@@צMA_SII.*Jf(T|H ^  Koordinaten des Loesungsvektors: mn mȡXצ xm  = m  mmeN**ppo oצEingegebene Matrix: צ%Neues Gleichungssystem loesen ? (J/N)DDm m m   m m m m mm Koordinaten des Loesungsvektors: mn mȡXצ xm mmU v n n (n n   n n n n n n m mġm m n mnȡJten Zeile von der l צ -ten Zeile:l m m m m kn kȡXl k l k m k kkll*-ten Spalte unterhalb der Hauptdiagonalen:m ln lȡSubtraktion des (l m /m m צ)-fachenצ der m -    ˡn צ-te und  צ -te Zeile tauschen! Neue Matrix: &  mn mȡ쩁m oErzeugung von Nullen in der m V o!Gleichungssystem nicht loesbar !!L ټؼ nȡ8      nȡ- X צ = צzDzDצ Vektor Y: ȡKY  =  ׳zDzD _ ȡ, צSUMMENVEKTOR X+Y : (/ / )ȡ, SCAPE> kommen Sie ins Menue zurueck !! ٗؗá^ Festlegung des Bildfensters:&( -20 <= x <= 20 und -20 <= y <= 20 !)צIntervall fuer x: er Achseneinteilung wird automatisch eingetragen. geht es jeweils weiter !!צ- Mit *,.02468:<>@dnTRJLNPlTVXx\^bdx~ -צMA_SII@**JP F (l{che des aufgespannten Dreiecksצ G (esamtergebnisצ B (eendigung des Programmsצ  $$ $ E (ingabe der Vektoren S (ummeצ D (ifferenz P (rodukt skalar L ({ngeצ W (inkelצ V (ektorprodukt' צ/ ) DREIECKSFL[CHE : ?  FL[CHENEINHEITENj  W{hlen Sie!        PRODUKTVEKTOR X x Y : (צ/ 'I@V   ǴI@צWINKEL ZW. X UND Y : Grad  : ^SKALARPRODUKT X*Y :  Dڨ  LAENGE VON X :  LAENGE VON Y :  | צDIFFERENZVEKTOR X-Y : (/ / ) ۨڨȡ)  x1 = ׳AAצx2 = AAIntervall fuer y: צy1 = AAצy2 = AAf  ǿ:ǿ<  WWȡa.ۥ  ..  SP  *P *á*||0|*Q|P||צB(|SR|,0.U|*ǥ|)Ǧ|PǴSP  *P *á*||0|*Q|P||צsi*B(ȡ dO Ȅ4ؕ؊  d~ȡ dO ń6؊ؕ  dJve zurueck !! ٗؗáF צ(7 <= n <= 100) n = d ɡȡ ( .1 <= p <= .9) p = ׳f?ff=  ?צAmit si in y-Richtung. Schlie~lich wird der Graph der Phi-Funktion eingetragen.צ' Mit geht es jeweils weiter !!צ- Mit kommen Sie ins Menuצ>Dieser Graph wird dann zunaechst um my nach links parallelver-צ>schoben (bzw. aus technischen Gruenden die y-Achse um my nach צ@rechts); sodann folgt eine Verzerrung mit 1/si in x-Richtung undצ=*************************************************************:Das Programm zeichnet den Graphen einer BinomialverteilungAmit den Parametern n und p ( 7 <= n <= 100 und 0.1 <= p <= 0.9 ). =*************************************************************צ=* Zur Naeherungsformel von *=* Moivre-Laplace *Bq*VMOIVRELA !LJ: | %Nochmal mit neuem Bildfenster ? (j/n)DD @@ צ Ausdruck mit Epson/FX-80 ? (j/n)DD ( 'Nochmal mit neuem Funktionsterm ? (j/n)DD @@צMA_SII  %Nochmal mit neuem Bildfenster ? (j/n)DD @@ Ǹy   ǿ ȡp'ǿ WWȡaڥǿ. 1  x1Ǹ |SU|צ,0.X|*Ǩ|צ)ǩ|PǴǠphi[צ (X-my)/si]4P צ.P R: ٪P ǧ2ǥ 2-.-/./ȡ8.ǖ-.ǖ-..צmyY . /./ȡ:nj.nj...6 . /./ȡ(nj.nj...lj=X****' Mit geht es jeweils weiter !!- Mit kommen Sie ins Menue zurueck !! ٗؗá  /Geben Sier n zu empfehlen.( 3 *******************************************צ3 * Einfuehrung in die Integralrechnung *3 ***************************************des begrenzten Aufloesungsvermoegens des Monitorsצ-die Treppenfiguren nicht mehr erkennbar sind.;Aus technischen Gruenden sind fuer n < = 75 Teiler von 150 צ<(also 2, 3, 5, 10...) als Eingabe-Werte fueent k des Potenz-Terms x^k kann im Bereich 1 <= k <= 5צ>gewaehlt werden, die Streifenzahl n im Bereich 1 <= n <= 1000.צ>Fuer n>75 werden nur noch die Zahlen U(n) und O(n) ausgegeben,צ:da wegen :Mit diesem Programm wird das Mass der Flaeche zwischen dem9Graphen einer Potenz-Funktion und der x-Achse (ueber dem צ;Intervall von 0 bis 1) durch Unter- und Obersummen erfasst.?Der ExponB* INTEGRAL FDp$L @D j  &쩀ȡצmy0 njצ0 צX-my צ (X-my)/sinj0צ (X-my)/si  צ2 Nochmal mit neuen Parametern n und p ? (j/n)  DD @@צMa_SIIצmy0   X  쩀ȡצmy0 njצ0 צX-my צ (X-my)/sinj0(j/n)  DDس( ؓ צ. Sollen Graphen ausgedruckt werden ? (j/n)  DD     njR I@?67 77 ȡ?ǘ:2nj߂G t צ1 Soll dieser Graph ausgedruckt werden ? Íɡ    * nj nj"  ǧ&njȡnj 2تPǴ @ġ ȡ  š.   d :o nj߳?nj߳? ǘ:2ߥ den Grad k des Potenz-Terms x^k ein! ( 1 <= k <= 5) k =  ȡ$ 8ǖ("Geben Sie die Streifenzahl n ein !צ( 1 <= n <= 1000) n =  ~Ǫǯ. ǞǞǧǧǞ 1Ǫ  Ǫxǧ1unktion? (j/n)DD@@צMA_SIIZY> Geben Sie die Streifenzahl ein !צStreifenzahl = 0u  צ'Nochmal mit neuer Streifenzahl ? (j/n)DD@@  צ-Nochmal mit neuen Integrationsgrenzen ? (j/n)DD@@  צ!Nochmal mit neuer Feiter mit !צ'Geben Sie die Integrationsgrenzen ein ! צa = dd b = dd Geben Sie die Streifenzahl ein !צStreifenzahl = 0u    Mittelwert m =   ADieses Programm berechnet das Integral von a bis b }ber f(x) dx צW  ꊇȡG     إ Nx  Untersumme s( צ) =  צ Obersumme S( ) = B*INTEGRAL euem Potenzterm ? (j/n)  DD @@צMA_SIILF==D^dB.zdT $scht ? (j/n)  DDسKȄ (سצ#6:  ꊉKȡ   #1:צNochmal mit neuem n ? (j/n)  DD @@&Nochmal mit n   Obersumme O( ) =  ^  צ,Ausdruck auf Epson FX-80 gewuenscht ? (j/n)  DDس,P ǯZ ObersummeǯNš6~~O(~UR~צ) = 0.X~,Ǩ~+~~O(~UR~צ) = 1.0Y~تƁ0 Untersumme U( ) =Sצ) = 0.0YSǩS4SSצU(S*RS) = 0.XSǨSNȡȡKǖꊉǖꊉۊۥ R vUP '  @V  ȡMǖꊉǖꊉۊ T n *P 'P ǯx Untersummeǯlá7SSU(S*Rǯ ǯy  ǖ11ȡ1܂ǖP (ǯ11צf(x)=x^1W1q ȡ إ  צ'Nochmal mit neuer Streifenzahl ? (j/n)DD@@  צ-Nochmal mit neuen Integrationsgrenzen ? (j/n)DD@@  צ!Nochmal mit neuer FTURMVONH Ɓ.,Soll die Graphik ausgedruckt werden (J/N) ? DDسצ#6:(\ ^ȡ돂)B*$ GALTONVE P  D~    צNochmal (j/n) ? DD00@@צMA_SII^4PB&,  P  SSצMan braucht fuer einen S*gSצ-Scheiben-TurmuSSSPSצ Zuege.WS -/-Ǎ- ȡ *ꚥ**P  D~    צNochmal (j/n) ? DD00@@צMA_SII^4PB&,*P  P  SSצMan braucht fuer einen S*gSצ-Scheiben-TurmuSSSPSצ Zuege.WS -/-Ǎ- ȡ *ꚥ**ꕏ** *  * **-* * ꕏ á  $á   Z ZZ ZHȡ2 ٕ/٥ ؕP ɡ!Bitte Zuege mitzaehlen !!צZaehlen aufgeben !!-* *  צ(3 <= n <= 11 ) n =   P X-&ZZZZZ<ZZjdȡ mer auf einen der St{be geschoben werden!9Die Anzahl n der Scheiben kann im Intervall 3 <= n <= 11 צgew{hlt werden.MIT GEHT'S WEITER ! 1abzutragen und bei einem anderen Stab wieder aufzubauen.צ=Dabei darf nie eine Scheibe auf eine kleinere gesetzt werden. /צ   . H H   m ieHv^  )+ "$&(*,.02468:<>@KDFHJLNPRTViZ\k  צMA_SIIV!HjFd V(erteilungs-Stabdiagramm H({ufigkeits-Tabelleצ E(nde> /צ   . H H (J/N)?DDٳצ#6:^   Simulation des Galtonversuchs =============================( S(imulation des Versuchs mit n Kugeln : ȡ צ Relativ : ȡ#슉E Ɓ/ צ#1:*Soll die Tabelle ausgedruckt werden===============================צ0H{ufigkeiten der Kugeln in den einzelnen F{chernצ1Fach-Nummer: 0 1 2 3 4 5 Absolut tt: Verteilung fuer m Kugeln u3x N     ȡ.돂돂슉 ?R تצErgebnis fuer  צ Kugelnȡ\7P P %RǿȡB돂P P Galtonbre-Stufe (1=LANGSAM/2=MITTEL/3=SCHNELL)? צ  ǴSimulation des GaltonversuchsǠP Pצ WuerfeWȡ ȡ ?f Z+my = np und si^2= np(1-p) eintragen lassen.צMit RETURN geht es weiter ! צ( 1 <= n <= 100) n = d צ(0.001 <= p <=0.999) p = ?wx Wahl der Darstellungsart:צ1 ....... Stabdiagramm 2 ....... Polygonzug צ'3 ....... Histogramm (offene Rechtecke)"4 .@@צMA_SII@ ,:VZDxVN |   * 13%> צ$ Ausdruck mit Epson/FX80 ? (j/n)DDس(   צ1 Weitere Binomialverteilung gewuenscht? (j/n)DDjd:o dd:oÄ d:oݮ ݮ  ! 13%> צ$ A j  ۮ ۮ  Bereich fuer den Parameter k: צ von  צ bis  ܮ ܮ  ٕ?ٕり ǘ:ڊá    צ;Soll die Gau~sche N{herungskurve eingetragen werden? (J/N) DD  R   ,/(143)$F   d :o ٕ?ٕり ٕٕ     I@?@  ي ٕ ǿ ȡH  ǘ:ڊǯ   ȡ?ǖǖ    ٕȡYقáٕ䂊 ٕ䂊ٕ䂊 R P צ.PR.   dAdJ2E  á   13IFC1á ϹǧەdN{ &VP -P -á-צ0-QPB(VRצ,0.U-ǥצ )-VerteilungDZPnǬ P R?ȡdO Ȅ5ەۊdȡdO ń7ۊצ1 ....... Bereich von 0 bis 1.02 ....... Bereich von 0 bis 0.5צ&3 ....... Bereich von 0 bis Maximal-WSצOrdinatenbereich: 2 ....... Bereich nach Wahlצ)3 ....... automatisch angepasster Bereich Bereich: @ !Wahl des Bereichs fuer B(n,p,k): ...... Histogramm (schraffiert)Darstellungsart:  n Wahl des Bereichs fuer k: 1 ....... Bereich von 0 bis n usdruck mit Epson/FX80 ? (j/n)DDس(   צ1 Weitere Binomialverteilung gewuenscht? (j/n)DDSTOCHAST erechnung einzelner Binomial-Koeffizienten ? (B) oderPascalsches Dreieck (P) ?  >Das Programm berechnet 0 sehen ? (j/n)DD́.ʁ.צ#1: /Soll das Pascal-Dreieck gedruckt werden? (j/n) DD́.ʁ.צ#6: \  2B K} Ɓ-#1:צ/Soll das Pascal-Dreieck gedruckt werden? (j/n) DD́.ʁ.צ#6:>Wollen Sie das (halbe) Pascal-Dreieck bis n = 2**:̀ʀȡ̀ʀȡ8IIá  ̀ʀȡ" ̀ʀȡ%IBk@ت #6:ׯצ/***********************************************:/* Das halbe Pascalsche Dreieck bis n = 21 *:צ/***********************************************************************7 ȡ!!ȡ+      ܕ!!ȡ  !!ȡ   DD@@0~@ت צ)*****************************************7)* Das Pascalsche Dreieck bis n = 12 *7צ)***************צ = 0FxL  ueber  צ =  F  ueber  צ = &Weiterer Binomial-Koeffizient ? (j/n)L  ueber  צ = /Soll der Koeffizient ausgedruckt werden (j/n)? DDצ#6:ɡD  ueber  \   ɡB  ueber  צ = 0ȡۊەFxR  ueber  צ =   š צ#1:,Soll die Tabelle ausgedruckt werden (J/N) ? DDצ#6:צ 0 < n <= 120 n = x צ 0 < k <= 120 k = x  ************************************************ 0 ! = 1$   צ#1: á       ! =  $  ت: ************************************************: * T a b e l l e d e r F a k u l t a e t e n *: * v o n 0 ! b i s 32 ! *: B*die Terme B(n;p;j) und deren Summe von 0 bis kצ&Geben Sie die Parameter n und p ein : צ1 <= n <= 100 , 0 < p < 1 n = d p = ׳?w. ȡdO ɄFҶdȡҶd# 2 Zur Wahl stehen:1 ....... Fakultaeten-Tabelle +2 ....... Binomial-Koeffizienten n ueber k צ13 ....... Binomial-Verteilung ( Bernoulli-Terme )gabe auf Monitor (M) oder Drucker (D) ?    3#6:ת 3צ#1:3Nochmal ? (j/n)DD@@|` eiter ? (j/n)DD@@  2Einzelwerte (E) oder gesamte Phi(z)-Tabelle (T) ?     ,AusáPWeiter ? (j/n)DD@@y@ ȡ##< ׃=̖ ȡ(#< ׃áPWilungsfunktion Phi(z) *8********************************************************@)\ ȡ##< ׃=̖ ȡ,#< ׃ Phi() - Phi(צ) =  8********************************************************8* Tabelle der Gau~schen Verte6****************************************************** Phi() = צ Phi(צ) = ͒ 6******************************************************6* Werte der Gau~schen Verteilungsfunktion Phi(z) *>??oFI@? z1 = ׳@@z2 = ׳@@#1:צ+Soll die Tabelle ausgedruckt werden (j/n)? DDצ#6:Nochmal ? (j/n)DD@@h6p m>3ȡbҶd3? Ҷddt : ?   1 Monitor-Ausgabe mit CTRL-S anhalten/fortsetzen! ---- -----------צ:(Die nicht ausgedruckten N{herungswerte betragen 0 bzw. 1)# k P(X=k) P(X<=k) צ$------------------------------------ddҶd>fتצ6Bernoulli-Terme und summierte Bernoulli-Terme f}r n =  צ und p = ;-------------------------------------------------------ȡҶdO ńHҶdġҶd% ddȡ5&4 ....... Normal-Verteilung ( Phi(z) )"5 ....... Zurueck zum Haupt-Menue Nummer: > 145ˡ  צ-Weitere Tabelle/Berechnung gewuenscht? (j/n) DD@@5ÍצMA_SIId:F6 @  |&&l-Verteilung ( Bernoulli-Terme ) š צ#1:,Soll die Tabelle ausgedruckt werden (J/N) ? DDצ#6:צ 0 < n <= 120 n = x צ 0 < k <= 120 k = x  ************************************************ 0 ! = 1$   צ#1: á       ! =  $  ت: ************************************************: * T a b e l l e d e r F a k u l t a e t e n *: * v o n 0 ! b i s 32 ! *: B*STOCHAST سצ#6: צxmin = HCHCצxmax = HCHCצ$Schrittweite (0 <= xs <= 1) xs = ? #1:צ"Nochmal mit neuer Funktion? (j/n) DD @@צMA_SIIL@=<\b"b4,Ausdruck auf Epson FX-80 gewuenscht ? (j/n) DDسצ#6: צxmin = HCHCצxmax = HCHCצ$Schrittweite (0 <= xs <= 1) xs = ? #1:צ"Nochmal mit neuerƁ1~v2Ɓ1 ! --- 1Ɓ1 !Ɓ1 Ɓ1Ɓ1Ɓ1b4,Ausdruck auf Epson FX-80 gewuenscht ? (j/n) DD- Mit kommen Sie ins Menue zurueck !! ٗؗá vتƁ0צ x ! f(x)  -----------------------Ɓ1 1Dieses Programm erstellt Funktions-Wertetabellen.צ geht es jeweils weiter !!B*FTABELLE &4 ....... Normal-Verteilung ( Phi(z) )"5 ....... Zurueck zum Haupt-Menue Nummer: > 145ˡ  צ-Weitere\   ɡB  ueber  צ = 0ȡۊەFxR  ueber  צ =  L  ueber  צ = /Soll der Koeffizient ausgedruckt werden (j/n)? DDצ#6:ɡD  ueber  ȡbҶd3? Ҷddt : ?   1 Monitor-Ausgabe mit CTRL-S anhalten/fortsetzen! ---- -----------צ:(Die nicht ausgedruckten N{herungswerte betragen 0 bzw. 1)# k P(X=k) P(X<=k) צ$------------------------------------ddҶd>fتצ6Bernoulli-Terme und summierte Bernoulli-Terme f}r n =  צ und p = ;-------------------------------------------------------ȡҶdO ńHҶdġҶd% ddȡ5. ȡdO ɄFҶdȡҶd# die Terme B(n;p;j) und deren Summe von 0 bis kצ&Geben Sie die Parameter n und p ein : צ1 <= n <= 100 , 0 < p < 1 n = d p = ׳?werechnung einzelner Binomial-Koeffizienten ? (B) oderPascalsches Dreieck (P) ?  >Das Programm berechnet 0 sehen ? (j/n)DD́.ʁ.צ#1: /Soll das Pascal-Dreieck gedruckt werden? (j/n) DD́.ʁ.צ#6: \  2B K} Ɓ-#1:צ/Soll das Pascal-Dreieck gedruckt werden? (j/n) DD́.ʁ.צ#6:>Wollen Sie das (halbe) Pascal-Dreieck bis n = 2**:̀ʀȡ̀ʀȡ8IIá  ̀ʀȡ" ̀ʀȡ%IBk@ت #6:ׯצ/***********************************************:/* Das halbe Pascalsche Dreieck bis n = 21 *:צ/***********************************************************************7 ȡ!!ȡ+      ܕ!!ȡ  !!ȡ   DD@@0~@ت צ)*****************************************7)* Das Pascalsche Dreieck bis n = 12 *7צ)***************צ = 0FxL  ueber  צ =  F  ueber  צ = &Weiterer Binomial-Koeffizient ? (j/n)#1:צ+Soll die Tabelle ausgedruckt werden (j/n)? DDצ#6:Nochmal ? (j/n)DD@@h6p m>3>??oFI@? z1 = ׳@@z2 = ׳@@ 1Dieses Programm erstellt Funktions-Wertetabellen.צ geht es jeweils weiter !!B*FTABELLE &4 ....... Normal-Verteilung ( Phi(z) )"5 ....... Zurueck zum Haupt-Menue Nummer: > 145ˡ  צ-Weitere Tabelle/Berechnung gewuenscht? (j/n) DD@@5ÍצMA_SIId:F6 @  |&&l-Verteilung ( Bernoulli-Terme )&4 ....... Normal-Verteilung ( Phi(z) )"5 ....... Zurueck zum Haupt-Menue Nummer: > 145ˡ  צ-Weitere2 Zur Wahl stehen:1 ....... Fakultaeten-Tabelle +2 ....... Binomial-Koeffizienten n ueber k צ13 ....... Binomial-Verteilung ( Bernoulli-Terme )gabe auf Monitor (M) oder Drucker (D) ?    3#6:ת 3צ#1:3Nochmal ? (j/n)DD@@|` eiter ? (j/n)DD@@  2Einzelwerte (E) oder gesamte Phi(z)-Tabelle (T) ?     ,AusáPWeiter ? (j/n)DD@@y@ ȡ##< ׃=̖ ȡ(#< ׃áPWilungsfunktion Phi(z) *8********************************************************@)\ ȡ##< ׃=̖ ȡ,#< ׃ Phi() - Phi(צ) =  8********************************************************8* Tabelle der Gau~schen Verte6****************************************************** Phi() = צ Phi(צ) = ͒ 6******************************************************6* Werte der Gau~schen Verteilungsfunktion Phi(z) *- Mit kommen Sie ins Menue zurueck !! ٗؗá vتƁ0צ x ! f(x)  -----------------------Ɓ1Ɓ1~v2Ɓ1 ! --- 1Ɓ1 !Ɓ1 Ɓ1Ɓ1Ɓ1b4,Ausdruck auf Epson FX-80 gewuenscht ? (j/n) DD       PRODUKTVEKTOR X x Y : (צ/ 'I@V   ǴI@צWINKEL ZW. X UND Y : Grad  : ^SKALARPRODUKT X*Y :  Dڨ  LAENGE VON X :  LAENGE VON Y :  | צDIFFERENZVEKTOR X-Y : (/ / ) ۨڨȡ) ȡ, צSUMMENVEKTOR X+Y : (/ / )ȡ, X צ = צzDzDצ Vektor Y: ȡKY  =  ׳zDzD _ ޞ)b *3Bitte, geben Sie die Komponenten der Vektoren ein! צ9W{hlen Sie Zahlen aus dem Intervall von -1000 bis +1000 ! Vektor X: ȡLVEKTOR X : (ȡ+/ )צVEKTOR Y : (ȡ+ צ/   =Dieses Programm berechnet f}r Vektoren des dreidimensionalen צ8Raums Summenvektor, Differenzvektor, Skalarprodukt etc. צMit geht's weiter !! B*" VEKTORRE سצ#6: צxmin = HCHCצxmax = HCHCצ$Schrittweite (0 <= xs <= 1) xs = ? #1:צ"Nochmal mit neuer Funktion? (j/n) DD @@צMA_SIIL@=<\b"b4,Ausdruck auf Epson FX-80 gewuenscht ? (j/n) DDسצ#6: צxmin = HCHCצxmax = HCHCצ$Schrittweite (0 <= xs <= 1) xs = ? #1:צ"Nochmal mit neuerצ/ ) DREIECKSFL[CHE : ?  FL[CHENEINHEITENj  W{hlen Sie!  E (ingabe der Vektoren S (ummeצ D (ifferenz P (rodukt skalar L ({ngeצ W (inkelצ V (ektorprodukt' צ?arccos, arctan, arccot, sqr, sqrt, abs, sgn, int, ln, log, exp f(x) = *P*Pצ QP R~v U<  צLOG8צEXP4     *צPS צ&Geben Sie den Funktionsterm f(x) ein !צ(z.B. 2^x+sin(2*x^2) )צ:Verf}gbar sind die Funktionen: sin, cos, tan, cot, arcsin,8צCOS8צTAN8צCOT8צARCSIN8ARCCOSת8צARCTAN8ARCCOTת8צSQR8 צSQRT8 ABSת8 SGNת8 INTת8LNת8  á>TS áS áT I.F Kr  Sá    SS á$.S0SáS0Sá# H8צSIN "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjly 3V `(  U <ؚU <ع٢ ٢T XS`SATMSÍڡ TSS @h .á"  0١   @ S @ á S * S SSSSS{Su(^n1-+ )!     ˡ   aA HP á  תP PQP XS8PRz̎6 hhjb̎6 ,APPLE2:SYSTEM.SWAPDISKTAPPLE1F:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISKT "USES TRANSCEND; "PROCEDURE LADE_FUNKTION; "FUNCTION F(X:REAL):REAL;    IMPLEMENTATION E r Ѝ r b^썈br APP6b6 6 466Pb̎6 r  APPLE1FSYSTEM.WRK.CODE6 $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^2Nb0hH( "ecksצ G (esamtergebnisצ B (eendigung des Programmsצ  $$ $ |xtpDwh$. ,8F"$8>*,.02468:<>@dnTRJLNPlTVXx\^bdx~ -צMA_SII@**JP F (l{che des aufgespannten Dreiecksצ G (esamtergebnisצ B (eendigung des Programmsצ  $$ $    2     2    n ?=   y ?D  ?     TYPE SETOFCHAR = SET OF CHAR; (* Muss fuer Parameterliste deklariert werden *)   (* Die folgenden Befehle koennen vom Hauptprogramm in WRITE-Anweisungen *)  (* verwendet werden. Die Variablennamen duerfen nicht im Hauptprogramm *)  (* eG  $ 0LhLY LhE,0` A  ` K " # " ""#0 LE`  HH`FE, yxWOG:2*}|S0+&%$ i(xHhLh`$ 5 *******L )$G$ 0 `   L @ 0   $6 $   L# $$0 K*   ! $0L $0 @  $$    K $ $   (Б$LYLhJ*$J*`J 6J 6J 6$`J 6J 6J 6`Copyright by Robert Rehbold, D-5000 Koeln 41, 14/10/82Hi@038 ii)8 $0$ 00`?%ͥLHs)օh,y}  '  "# +$ "# + $$0 K*    $L    $03   $     %hh $KhJ L$ hhJhhJhh) L $hhhLYh$%$h h$  )iɀ $O$ $ 0$0 $0$ 0 !~?%L'$ $ 0$0APPLE1TSYSTEM.WRK.CODE6 z|z6 b6 *,,:SYSTEM.SWAPDISKK.TEXTAPPLE1:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]:SYSTEM.SWAPDISKK.TEXT   procedure FOTO_OUT (EINRUECK,GROESSE:integer;INVERS,QUER,FETTDRUCK:boolean) ;     implementation E ԍ֍br r b^br APP`b6 6 ^``Pb6 r 2  fXC. V7`rN&  .  "  &    -    .     m /   ,    `  I 4U<44           &    -         4   F  ' Jt>Qv+   33ȡ                 rneut deklariert werden. *)   VAR CR, (*Carriage return (Wagenruecklauf) *) $BS, (*Back space (Rueckwaertstaste) *) --)vPINTEGER vREAL $|CHAR 6