home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: PAK/ARC Compressed Archive
(archive/arc).
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1a 82 6f 70 6c 00 b6 03 | 00 00 f0 00 00 00 00 66 |..opl...|.......f|
|00000010| 17 00 00 8c 1e 88 44 0b | 60 66 17 00 00 46 dc fd |......D.|`f...F..|
|00000020| ff 20 0e 1e 01 33 00 00 | 00 1a 82 43 41 4c 43 4d |. ...3..|...CALCM|
|00000030| 4f 44 53 2f 4f 50 4c 00 | f5 08 00 00 67 1d 55 b2 |ODS/OPL.|....g.U.|
|00000040| 0f 0b f5 08 00 00 45 e4 | ff ff c8 f1 12 b1 03 00 |......E.|........|
|00000050| 00 00 50 52 4f 43 20 6d | 61 69 6e 3a 0d 0a 4c 4f |..PROC m|ain:..LO|
|00000060| 43 41 4c 20 6e 75 6d 2c | 58 24 28 31 29 2c 41 2c |CAL num,|X$(1),A,|
|00000070| 42 2c 43 2c 44 2c 45 2c | 46 0d 0a 44 4f 0d 0a 43 |B,C,D,E,|F..DO..C|
|00000080| 4c 53 0d 0a 50 52 49 4e | 54 20 22 43 61 6c 63 75 |LS..PRIN|T "Calcu|
|00000090| 6c 61 74 6f 72 20 50 72 | 6f 63 65 64 75 72 65 20 |lator Pr|ocedure |
|000000a0| 42 61 6e 6b 22 0d 0a 50 | 52 49 4e 54 20 22 2d 2d |Bank"..P|RINT "--|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 22 | 0d 0a 50 52 49 4e 54 20 |-------"|..PRINT |
|000000d0| 22 31 3d 46 61 63 74 6f | 72 69 61 6c 22 0d 0a 50 |"1=Facto|rial"..P|
|000000e0| 52 49 4e 54 20 22 32 3d | 51 75 61 64 72 61 74 69 |RINT "2=|Quadrati|
|000000f0| 63 20 45 71 61 75 61 74 | 69 6f 6e 22 0d 0a 50 52 |c Eqauat|ion"..PR|
|00000100| 49 4e 54 20 22 33 3d 53 | 69 6d 75 6c 74 61 6e 65 |INT "3=S|imultane|
|00000110| 6f 75 73 20 45 71 75 61 | 74 69 6f 6e 22 0d 0a 50 |ous Equa|tion"..P|
|00000120| 52 49 4e 54 20 22 34 3d | 41 72 65 61 20 6f 66 20 |RINT "4=|Area of |
|00000130| 61 20 74 72 69 61 6e 67 | 6c 65 22 0d 0a 50 52 49 |a triang|le"..PRI|
|00000140| 4e 54 20 22 35 3d 45 4e | 44 22 0d 0a 58 24 3d 47 |NT "5=EN|D"..X$=G|
|00000150| 45 54 24 0d 0a 0d 0a 09 | 49 46 20 58 24 3d 22 31 |ET$.....|IF X$="1|
|00000160| 22 0d 0a 09 50 52 49 4e | 54 0d 0a 09 50 52 49 4e |"...PRIN|T...PRIN|
|00000170| 54 20 22 46 69 6e 64 73 | 20 66 61 63 74 6f 72 69 |T "Finds| factori|
|00000180| 61 6c 20 22 0d 0a 09 50 | 52 49 4e 54 20 22 2d 2d |al "...P|RINT "--|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 22 0d 0a |--------|-----"..|
|000001a0| 09 50 52 49 4e 54 20 22 | 49 6e 70 75 74 20 6e 75 |.PRINT "|Input nu|
|000001b0| 6d 62 65 72 20 3a 20 22 | 3b 0d 0a 09 49 4e 50 55 |mber : "|;...INPU|
|000001c0| 54 20 6e 75 6d 0d 0a 09 | 50 52 49 4e 54 20 22 54 |T num...|PRINT "T|
|000001d0| 68 65 20 66 61 63 74 6f | 72 69 61 6c 20 69 73 20 |he facto|rial is |
|000001e0| 3a 20 22 3b 66 3a 28 6e | 75 6d 29 0d 0a 09 47 45 |: ";f:(n|um)...GE|
|000001f0| 54 0d 0a 09 45 4e 44 49 | 46 0d 0a 09 0d 0a 09 49 |T...ENDI|F......I|
|00000200| 46 20 58 24 3d 22 32 22 | 0d 0a 09 50 52 49 4e 54 |F X$="2"|...PRINT|
|00000210| 0d 0a 09 50 52 49 4e 54 | 20 22 51 75 61 64 72 61 |...PRINT| "Quadra|
|00000220| 74 69 63 20 45 71 75 61 | 74 69 6f 6e 20 53 6f 6c |tic Equa|tion Sol|
|00000230| 76 65 72 22 0d 0a 09 50 | 52 49 4e 54 20 22 2d 2d |ver"...P|RINT "--|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 22 | 0d 0a 09 50 52 49 4e 54 |-------"|...PRINT|
|00000260| 20 22 49 6e 70 75 74 20 | 61 20 3a 20 22 3b 0d 0a | "Input |a : ";..|
|00000270| 09 49 4e 50 55 54 20 41 | 0d 0a 09 50 52 49 4e 54 |.INPUT A|...PRINT|
|00000280| 20 22 49 6e 70 75 74 20 | 62 20 3a 20 22 3b 0d 0a | "Input |b : ";..|
|00000290| 09 49 4e 50 55 54 20 42 | 0d 0a 09 50 52 49 4e 54 |.INPUT B|...PRINT|
|000002a0| 20 22 49 6e 70 75 74 20 | 63 20 3a 20 22 3b 0d 0a | "Input |c : ";..|
|000002b0| 09 49 4e 50 55 54 20 43 | 0d 0a 09 50 52 49 4e 54 |.INPUT C|...PRINT|
|000002c0| 0d 0a 09 50 52 49 4e 54 | 20 22 53 6f 6c 76 69 6e |...PRINT| "Solvin|
|000002d0| 67 20 3a 22 3b 41 3b 22 | 78 5e 32 20 2b 20 22 3b |g :";A;"|x^2 + ";|
|000002e0| 42 3b 22 78 20 2b 20 22 | 3b 43 0d 0a 09 50 41 55 |B;"x + "|;C...PAU|
|000002f0| 53 45 20 33 0d 0a 09 50 | 52 49 4e 54 20 22 54 68 |SE 3...P|RINT "Th|
|00000300| 65 20 32 20 72 6f 6f 74 | 73 20 61 72 65 20 22 3b |e 2 root|s are ";|
|00000310| 51 52 54 31 3a 28 41 2c | 42 2c 43 29 3b 22 20 61 |QRT1:(A,|B,C);" a|
|00000320| 6e 64 20 22 3b 51 52 54 | 32 3a 28 41 2c 42 2c 43 |nd ";QRT|2:(A,B,C|
|00000330| 29 0d 0a 09 47 45 54 0d | 0a 09 45 4e 44 49 46 0d |)...GET.|..ENDIF.|
|00000340| 0a 09 0d 0a 09 49 46 20 | 58 24 3d 22 33 22 0d 0a |.....IF |X$="3"..|
|00000350| 09 50 52 49 4e 54 0d 0a | 09 50 52 49 4e 54 20 22 |.PRINT..|.PRINT "|
|00000360| 53 69 6d 75 6c 74 61 6e | 65 6f 75 73 20 45 71 75 |Simultan|eous Equ|
|00000370| 61 74 69 6f 6e 20 53 6f | 6c 76 65 72 22 0d 0a 09 |ation So|lver"...|
|00000380| 50 52 49 4e 54 20 22 2d | 2d 2d 2d 2d 2d 2d 2d 2d |PRINT "-|--------|
|00000390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003a0| 2d 2d 2d 22 0d 0a 09 50 | 52 49 4e 54 20 22 49 6e |---"...P|RINT "In|
|000003b0| 70 75 74 20 61 20 3a 20 | 22 3b 0d 0a 09 49 4e 50 |put a : |";...INP|
|000003c0| 55 54 20 41 0d 0a 09 50 | 52 49 4e 54 20 22 49 6e |UT A...P|RINT "In|
|000003d0| 70 75 74 20 62 20 3a 20 | 22 3b 0d 0a 09 49 4e 50 |put b : |";...INP|
|000003e0| 55 54 20 42 0d 0a 09 50 | 52 49 4e 54 20 22 49 6e |UT B...P|RINT "In|
|000003f0| 70 75 74 20 63 20 3a 20 | 22 3b 0d 0a 09 49 4e 50 |put c : |";...INP|
|00000400| 55 54 20 43 0d 0a 09 50 | 52 49 4e 54 20 22 49 6e |UT C...P|RINT "In|
|00000410| 70 75 74 20 64 20 3a 20 | 22 3b 0d 0a 09 49 4e 50 |put d : |";...INP|
|00000420| 55 54 20 44 0d 0a 09 50 | 52 49 4e 54 20 22 49 6e |UT D...P|RINT "In|
|00000430| 70 75 74 20 65 20 3a 20 | 22 3b 0d 0a 09 49 4e 50 |put e : |";...INP|
|00000440| 55 54 20 45 0d 0a 09 50 | 52 49 4e 54 20 22 49 6e |UT E...P|RINT "In|
|00000450| 70 75 74 20 66 20 3a 20 | 22 3b 0d 0a 09 49 4e 50 |put f : |";...INP|
|00000460| 55 54 20 46 0d 0a 09 50 | 52 49 4e 54 0d 0a 09 50 |UT F...P|RINT...P|
|00000470| 52 49 4e 54 20 22 53 6f | 6c 76 69 6e 67 20 3a 22 |RINT "So|lving :"|
|00000480| 3b 41 3b 22 78 20 2b 20 | 22 3b 42 3b 22 79 20 3d |;A;"x + |";B;"y =|
|00000490| 20 22 3b 43 0d 0a 09 50 | 52 49 4e 54 20 22 20 20 | ";C...P|RINT " |
|000004a0| 20 20 20 20 20 20 20 22 | 3b 44 3b 22 78 20 2b 20 | "|;D;"x + |
|000004b0| 22 3b 45 3b 22 79 20 3d | 20 22 3b 46 0d 0a 09 50 |";E;"y =| ";F...P|
|000004c0| 41 55 53 45 20 33 0d 0a | 09 50 52 49 4e 54 0d 0a |AUSE 3..|.PRINT..|
|000004d0| 09 50 52 49 4e 54 20 22 | 78 20 3d 20 22 3b 53 49 |.PRINT "|x = ";SI|
|000004e0| 4d 58 3a 28 41 2c 42 2c | 43 2c 44 2c 45 2c 46 29 |MX:(A,B,|C,D,E,F)|
|000004f0| 0d 0a 09 50 52 49 4e 54 | 20 22 79 20 3d 20 22 3b |...PRINT| "y = ";|
|00000500| 53 49 4d 59 3a 28 41 2c | 42 2c 43 2c 44 2c 45 2c |SIMY:(A,|B,C,D,E,|
|00000510| 46 29 0d 0a 09 47 45 54 | 0d 0a 09 45 4e 44 49 46 |F)...GET|...ENDIF|
|00000520| 0d 0a 09 0d 0a 09 49 46 | 20 58 24 3d 22 34 22 0d |......IF| X$="4".|
|00000530| 0a 09 50 52 49 4e 54 0d | 0a 09 50 52 49 4e 54 20 |..PRINT.|..PRINT |
|00000540| 22 46 69 6e 64 73 20 41 | 72 65 61 20 6f 66 20 74 |"Finds A|rea of t|
|00000550| 72 61 69 6e 67 6c 65 22 | 0d 0a 09 50 52 49 4e 54 |raingle"|...PRINT|
|00000560| 20 22 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | "------|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 22 0d 0a 09 50 52 49 4e |--------|"...PRIN|
|00000580| 54 20 22 49 6e 70 75 74 | 20 6c 65 6e 67 74 68 20 |T "Input| length |
|00000590| 41 20 3a 20 22 3b 0d 0a | 09 49 4e 50 55 54 20 41 |A : ";..|.INPUT A|
|000005a0| 0d 0a 09 50 52 49 4e 54 | 20 22 49 6e 70 75 74 20 |...PRINT| "Input |
|000005b0| 6c 65 6e 67 74 68 20 42 | 20 3a 20 22 3b 0d 0a 09 |length B| : ";...|
|000005c0| 49 4e 50 55 54 20 42 0d | 0a 09 50 52 49 4e 54 20 |INPUT B.|..PRINT |
|000005d0| 22 49 6e 70 75 74 20 6c | 65 6e 67 74 68 20 43 20 |"Input l|ength C |
|000005e0| 3a 20 22 3b 0d 0a 09 49 | 4e 50 55 54 20 43 0d 0a |: ";...I|NPUT C..|
|000005f0| 09 50 52 49 4e 54 0d 0a | 09 50 52 49 4e 54 20 22 |.PRINT..|.PRINT "|
|00000600| 54 68 65 20 61 72 65 61 | 20 6f 66 20 74 68 65 20 |The area| of the |
|00000610| 74 72 69 61 6e 67 6c 65 | 20 69 73 20 3a 20 22 3b |triangle| is : ";|
|00000620| 41 52 45 41 54 3a 28 41 | 2c 42 2c 43 29 0d 0a 09 |AREAT:(A|,B,C)...|
|00000630| 47 45 54 0d 0a 09 45 4e | 44 49 46 0d 0a 0d 0a 0d |GET...EN|DIF.....|
|00000640| 0a 55 4e 54 49 4c 20 58 | 24 3d 22 35 22 0d 0a 45 |.UNTIL X|$="5"..E|
|00000650| 4e 44 50 0d 0a 0d 0a 50 | 52 4f 43 20 66 3a 28 6e |NDP....P|ROC f:(n|
|00000660| 75 6d 29 0d 0a 4c 4f 43 | 41 4c 20 6e 74 68 2c 72 |um)..LOC|AL nth,r|
|00000670| 65 73 75 6c 74 0d 0a 72 | 65 73 75 6c 74 20 3d 31 |esult..r|esult =1|
|00000680| 0d 0a 6e 74 68 20 3d 20 | 30 0d 0a 44 4f 0d 0a 72 |..nth = |0..DO..r|
|00000690| 65 73 75 6c 74 20 3d 72 | 65 73 75 6c 74 20 2a 20 |esult =r|esult * |
|000006a0| 28 6e 75 6d 20 2d 20 6e | 74 68 29 0d 0a 6e 74 68 |(num - n|th)..nth|
|000006b0| 20 3d 20 6e 74 68 20 2b | 20 31 0d 0a 55 4e 54 49 | = nth +| 1..UNTI|
|000006c0| 4c 20 6e 74 68 20 3d 20 | 6e 75 6d 20 0d 0a 52 45 |L nth = |num ..RE|
|000006d0| 54 55 52 4e 20 72 65 73 | 75 6c 74 0d 0a 45 4e 44 |TURN res|ult..END|
|000006e0| 50 0d 0a 0d 0a 50 52 4f | 43 20 63 6f 74 3a 28 4e |P....PRO|C cot:(N|
|000006f0| 29 0d 0a 4c 4f 43 41 4c | 20 43 4f 54 0d 0a 43 4f |)..LOCAL| COT..CO|
|00000700| 54 3d 31 2f 28 54 41 4e | 28 4e 29 29 0d 0a 52 45 |T=1/(TAN|(N))..RE|
|00000710| 54 55 52 4e 20 43 4f 54 | 0d 0a 45 4e 44 50 0d 0a |TURN COT|..ENDP..|
|00000720| 0d 0a 50 52 4f 43 20 63 | 6f 73 65 63 3a 28 4e 29 |..PROC c|osec:(N)|
|00000730| 0d 0a 4c 4f 43 41 4c 20 | 43 4f 53 45 43 0d 0a 43 |..LOCAL |COSEC..C|
|00000740| 4f 53 45 43 3d 31 2f 53 | 49 4e 28 4e 29 0d 0a 52 |OSEC=1/S|IN(N)..R|
|00000750| 45 54 55 52 4e 20 43 4f | 53 45 43 0d 0a 45 4e 44 |ETURN CO|SEC..END|
|00000760| 50 0d 0a 0d 0a 50 52 4f | 43 20 73 65 63 3a 28 4e |P....PRO|C sec:(N|
|00000770| 29 0d 0a 4c 4f 43 41 4c | 20 53 45 43 0d 0a 53 45 |)..LOCAL| SEC..SE|
|00000780| 43 3d 31 2f 43 4f 53 28 | 4e 29 0d 0a 52 45 54 55 |C=1/COS(|N)..RETU|
|00000790| 52 4e 20 53 45 43 0d 0a | 45 4e 44 50 0d 0a 0d 0a |RN SEC..|ENDP....|
|000007a0| 50 52 4f 43 20 51 52 54 | 31 3a 28 41 2c 42 2c 43 |PROC QRT|1:(A,B,C|
|000007b0| 29 0d 0a 4c 4f 43 41 4c | 20 58 0d 0a 58 3d 28 2d |)..LOCAL| X..X=(-|
|000007c0| 42 2b 28 53 51 52 28 42 | 2a 2a 32 2d 28 34 2a 41 |B+(SQR(B|**2-(4*A|
|000007d0| 2a 43 29 29 29 29 2f 28 | 32 2a 41 29 0d 0a 52 45 |*C))))/(|2*A)..RE|
|000007e0| 54 55 52 4e 20 58 0d 0a | 45 4e 44 50 0d 0a 0d 0a |TURN X..|ENDP....|
|000007f0| 50 52 4f 43 20 51 52 54 | 32 3a 28 41 2c 42 2c 43 |PROC QRT|2:(A,B,C|
|00000800| 29 0d 0a 4c 4f 43 41 4c | 20 58 0d 0a 58 3d 28 2d |)..LOCAL| X..X=(-|
|00000810| 42 2d 28 53 51 52 28 42 | 2a 2a 32 2d 28 34 2a 41 |B-(SQR(B|**2-(4*A|
|00000820| 2a 43 29 29 29 29 2f 28 | 32 2a 41 29 0d 0a 52 45 |*C))))/(|2*A)..RE|
|00000830| 54 55 52 4e 20 58 0d 0a | 45 4e 44 50 0d 0a 0d 0a |TURN X..|ENDP....|
|00000840| 50 52 4f 43 20 41 52 45 | 41 54 3a 28 41 2c 42 2c |PROC ARE|AT:(A,B,|
|00000850| 43 29 0d 0a 4c 4f 43 41 | 4c 20 53 2c 41 52 45 41 |C)..LOCA|L S,AREA|
|00000860| 0d 0a 53 3d 28 41 2b 42 | 2b 43 29 2f 32 0d 0a 41 |..S=(A+B|+C)/2..A|
|00000870| 52 45 41 3d 53 51 52 28 | 53 2a 28 53 2d 41 29 2a |REA=SQR(|S*(S-A)*|
|00000880| 28 53 2d 42 29 2a 28 53 | 2d 43 29 29 0d 0a 52 45 |(S-B)*(S|-C))..RE|
|00000890| 54 55 52 4e 20 41 52 45 | 41 0d 0a 45 4e 44 50 0d |TURN ARE|A..ENDP.|
|000008a0| 0a 0d 0a 50 52 4f 43 20 | 53 49 4d 58 3a 28 41 2c |...PROC |SIMX:(A,|
|000008b0| 42 2c 43 2c 44 2c 45 2c | 46 29 0d 0a 4c 4f 43 41 |B,C,D,E,|F)..LOCA|
|000008c0| 4c 20 58 0d 0a 58 3d 28 | 28 43 2a 45 29 2d 28 42 |L X..X=(|(C*E)-(B|
|000008d0| 2a 46 29 29 2f 28 28 41 | 2a 45 29 2d 28 42 2a 44 |*F))/((A|*E)-(B*D|
|000008e0| 29 29 0d 0a 52 45 54 55 | 52 4e 20 58 0d 0a 45 4e |))..RETU|RN X..EN|
|000008f0| 44 50 0d 0a 0d 0a 50 52 | 4f 43 20 53 49 4d 59 3a |DP....PR|OC SIMY:|
|00000900| 28 41 2c 42 2c 43 2c 44 | 2c 45 2c 46 29 0d 0a 4c |(A,B,C,D|,E,F)..L|
|00000910| 4f 43 41 4c 20 59 0d 0a | 59 3d 28 28 43 2a 44 29 |OCAL Y..|Y=((C*D)|
|00000920| 2d 28 41 2a 46 29 29 2f | 28 28 42 2a 44 29 2d 28 |-(A*F))/|((B*D)-(|
|00000930| 41 2a 45 29 29 0d 0a 52 | 45 54 55 52 4e 20 59 0d |A*E))..R|ETURN Y.|
|00000940| 0a 45 4e 44 50 0d 0a 1a | 82 43 41 4c 43 55 4c 55 |.ENDP...|.CALCULU|
|00000950| 53 2f 4f 50 4c 00 cb 08 | 00 00 66 1d 67 89 9d 0b |S/OPL...|..f.g...|
|00000960| cb 08 00 00 45 e4 ff ff | 88 f5 72 b0 03 00 00 00 |....E...|..r.....|
|00000970| 50 52 4f 43 20 43 41 4c | 43 55 4c 55 53 3a 0d 0a |PROC CAL|CULUS:..|
|00000980| 4c 4f 43 41 4c 20 52 55 | 4e 25 2c 58 24 28 31 29 |LOCAL RU|N%,X$(1)|
|00000990| 2c 43 4f 24 28 33 30 2c | 35 30 29 2c 50 4f 24 28 |,CO$(30,|50),PO$(|
|000009a0| 33 30 2c 35 30 29 2c 4c | 41 53 54 25 2c 58 2c 4b |30,50),L|AST%,X,K|
|000009b0| 24 28 33 30 29 2c 50 24 | 28 33 30 2c 35 30 29 2c |$(30),P$|(30,50),|
|000009c0| 4e 2c 54 59 50 45 24 28 | 33 30 2c 35 30 29 2c 50 |N,TYPE$(|30,50),P|
|000009d0| 4f 57 45 52 24 28 33 30 | 2c 35 30 29 2c 43 4f 45 |OWER$(30|,50),COE|
|000009e0| 46 24 28 33 30 2c 35 30 | 29 2c 54 45 52 4d 2c 41 |F$(30,50|),TERM,A|
|000009f0| 2c 42 0d 0a 47 4c 4f 42 | 41 4c 20 46 4f 52 4d 24 |,B..GLOB|AL FORM$|
|00000a00| 28 35 30 29 0d 0a 49 46 | 20 52 55 4e 25 3c 3e 31 |(50)..IF| RUN%<>1|
|00000a10| 0d 0a 46 4f 52 4d 24 3d | 22 22 0d 0a 45 4e 44 49 |..FORM$=|""..ENDI|
|00000a20| 46 0d 0a 43 4c 53 0d 0a | 50 52 49 4e 54 20 22 41 |F..CLS..|PRINT "A|
|00000a30| 72 63 61 69 72 20 50 72 | 65 73 65 6e 74 73 20 3a |rcair Pr|esents :|
|00000a40| 22 0d 0a 50 52 49 4e 54 | 20 0d 0a 50 52 49 4e 54 |"..PRINT| ..PRINT|
|00000a50| 20 22 54 68 65 20 63 61 | 6c 63 75 6c 75 73 20 70 | "The ca|lculus p|
|00000a60| 72 6f 67 72 61 6d 20 6f | 66 20 74 68 65 20 79 65 |rogram o|f the ye|
|00000a70| 61 72 22 0d 0a 50 52 49 | 4e 54 20 22 2d 2d 2d 2d |ar"..PRI|NT "----|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 22 0d 0a 50 |--------|----"..P|
|00000aa0| 52 49 4e 54 0d 0a 64 49 | 4e 49 54 20 22 49 6e 70 |RINT..dI|NIT "Inp|
|00000ab0| 75 74 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 22 |ut the f|unction"|
|00000ac0| 0d 0a 64 45 44 49 54 20 | 46 4f 52 4d 24 2c 22 59 |..dEDIT |FORM$,"Y|
|00000ad0| 3d 22 0d 0a 44 49 41 4c | 4f 47 0d 0a 54 45 52 4d |="..DIAL|OG..TERM|
|00000ae0| 3d 31 0d 0a 4e 3d 31 0d | 0a 44 4f 0d 0a 09 4e 3d |=1..N=1.|.DO...N=|
|00000af0| 4e 2b 31 0d 0a 09 4b 24 | 3d 4d 49 44 24 28 46 4f |N+1...K$|=MID$(FO|
|00000b00| 52 4d 24 2c 28 4e 2d 31 | 29 2c 31 29 0d 0a 09 50 |RM$,(N-1|),1)...P|
|00000b10| 24 28 4e 29 3d 4b 24 0d | 0a 09 09 49 46 20 50 24 |$(N)=K$.|...IF P$|
|00000b20| 28 4e 29 3d 22 58 22 20 | 4f 52 20 50 24 28 4e 29 |(N)="X" |OR P$(N)|
|00000b30| 3d 22 78 22 20 0d 0a 09 | 09 54 59 50 45 24 28 4e |="x" ...|.TYPE$(N|
|00000b40| 29 3d 22 58 54 45 52 4d | 22 0d 0a 09 09 45 4c 53 |)="XTERM|"....ELS|
|00000b50| 45 20 54 59 50 45 24 28 | 4e 29 3d 22 43 4f 45 46 |E TYPE$(|N)="COEF|
|00000b60| 46 49 43 49 45 4e 54 22 | 0d 0a 09 09 45 4e 44 49 |FICIENT"|....ENDI|
|00000b70| 46 0d 0a 09 49 46 20 50 | 24 28 4e 29 3d 22 2b 22 |F...IF P|$(N)="+"|
|00000b80| 0d 0a 09 4c 41 53 54 25 | 3d 4c 41 53 54 25 20 2b |...LAST%|=LAST% +|
|00000b90| 20 31 0d 0a 09 45 4e 44 | 49 46 0d 0a 09 09 49 46 | 1...END|IF....IF|
|00000ba0| 20 50 24 28 4e 2d 31 29 | 3d 22 5e 22 20 4f 52 20 | P$(N-1)|="^" OR |
|00000bb0| 50 24 28 4e 2d 31 29 3d | 22 5e 22 20 0d 0a 09 09 |P$(N-1)=|"^" ....|
|00000bc0| 54 59 50 45 24 28 4e 29 | 3d 22 50 4f 57 45 52 53 |TYPE$(N)|="POWERS|
|00000bd0| 54 41 52 54 22 0d 0a 09 | 09 45 4e 44 49 46 0d 0a |TART"...|.ENDIF..|
|00000be0| 09 09 0d 0a 09 09 49 46 | 20 50 24 28 4e 29 3d 22 |......IF| P$(N)="|
|00000bf0| 2b 22 0d 0a 09 09 54 59 | 50 45 24 28 4e 29 3d 22 |+"....TY|PE$(N)="|
|00000c00| 50 4f 57 45 52 45 4e 44 | 22 0d 0a 09 09 45 4e 44 |POWEREND|"....END|
|00000c10| 49 46 0d 0a 55 4e 54 49 | 4c 20 4b 24 3d 22 22 0d |IF..UNTI|L K$="".|
|00000c20| 0a 44 4f 0d 0a 4e 3d 4e | 2b 31 0d 0a 54 59 50 45 |.DO..N=N|+1..TYPE|
|00000c30| 24 28 4e 29 3d 22 22 0d | 0a 55 4e 54 49 4c 20 4e |$(N)="".|.UNTIL N|
|00000c40| 3d 33 30 0d 0a 4e 3d 31 | 0d 0a 54 45 52 4d 3d 30 |=30..N=1|..TERM=0|
|00000c50| 0d 0a 44 4f 0d 0a 54 45 | 52 4d 3d 54 45 52 4d 2b |..DO..TE|RM=TERM+|
|00000c60| 31 0d 0a 44 4f 0d 0a 0d | 0a 09 4e 3d 4e 2b 31 0d |1..DO...|..N=N+1.|
|00000c70| 0a 09 49 46 20 54 59 50 | 45 24 28 4e 29 20 3d 22 |..IF TYP|E$(N) ="|
|00000c80| 43 4f 45 46 46 49 43 49 | 45 4e 54 22 0d 0a 09 43 |COEFFICI|ENT"...C|
|00000c90| 4f 45 46 24 28 54 45 52 | 4d 29 3d 43 4f 45 46 24 |OEF$(TER|M)=COEF$|
|00000ca0| 28 54 45 52 4d 29 20 2b | 20 50 24 28 4e 29 0d 0a |(TERM) +| P$(N)..|
|00000cb0| 09 45 4e 44 49 46 0d 0a | 55 4e 54 49 4c 20 50 24 |.ENDIF..|UNTIL P$|
|00000cc0| 28 4e 2b 31 29 3d 22 58 | 22 20 4f 52 20 50 24 28 |(N+1)="X|" OR P$(|
|00000cd0| 4e 2b 31 29 3d 22 78 22 | 0d 0a 4e 3d 4e 2b 32 0d |N+1)="x"|..N=N+2.|
|00000ce0| 0a 44 4f 0d 0a 09 4e 3d | 4e 2b 31 0d 0a 09 49 46 |.DO...N=|N+1...IF|
|00000cf0| 20 54 59 50 45 24 28 4e | 29 3c 3e 22 43 4f 45 46 | TYPE$(N|)<>"COEF|
|00000d00| 46 49 43 49 45 4e 54 22 | 20 4f 52 20 54 59 50 45 |FICIENT"| OR TYPE|
|00000d10| 24 28 4e 29 3c 3e 22 50 | 4f 57 45 52 53 54 41 52 |$(N)<>"P|OWERSTAR|
|00000d20| 54 22 0d 0a 09 50 4f 57 | 45 52 24 28 54 45 52 4d |T"...POW|ER$(TERM|
|00000d30| 29 3d 50 4f 57 45 52 24 | 28 54 45 52 4d 29 20 2b |)=POWER$|(TERM) +|
|00000d40| 20 50 24 28 4e 29 0d 0a | 09 45 4e 44 49 46 0d 0a | P$(N)..|.ENDIF..|
|00000d50| 55 4e 54 49 4c 20 54 59 | 50 45 24 28 4e 2b 31 29 |UNTIL TY|PE$(N+1)|
|00000d60| 3d 22 22 20 4f 52 20 54 | 59 50 45 24 28 4e 2b 31 |="" OR T|YPE$(N+1|
|00000d70| 29 3d 22 50 4f 57 45 52 | 45 4e 44 22 0d 0a 55 4e |)="POWER|END"..UN|
|00000d80| 54 49 4c 20 54 45 52 4d | 3d 4c 41 53 54 25 2b 31 |TIL TERM|=LAST%+1|
|00000d90| 0d 0a 44 4f 0d 0a 43 4c | 53 0d 0a 50 52 49 4e 54 |..DO..CL|S..PRINT|
|00000da0| 20 22 46 75 6e 63 74 69 | 6f 6e 20 59 3d 22 3b 46 | "Functi|on Y=";F|
|00000db0| 4f 52 4d 24 0d 0a 50 52 | 49 4e 54 0d 0a 50 52 49 |ORM$..PR|INT..PRI|
|00000dc0| 4e 54 20 22 31 3d 49 6e | 74 65 67 72 61 74 65 22 |NT "1=In|tegrate"|
|00000dd0| 0d 0a 50 52 49 4e 54 20 | 22 32 3d 44 69 66 66 65 |..PRINT |"2=Diffe|
|00000de0| 72 65 6e 74 69 61 74 65 | 22 0d 0a 50 52 49 4e 54 |rentiate|"..PRINT|
|00000df0| 20 22 33 3d 54 79 70 65 | 20 61 20 64 69 66 66 65 | "3=Type| a diffe|
|00000e00| 72 65 6e 74 20 66 75 6e | 63 74 69 6f 6e 20 69 6e |rent fun|ction in|
|00000e10| 22 0d 0a 50 52 49 4e 54 | 20 22 34 3d 45 4e 44 22 |"..PRINT| "4=END"|
|00000e20| 0d 0a 58 24 3d 47 45 54 | 24 0d 0a 0d 0a 49 46 20 |..X$=GET|$....IF |
|00000e30| 58 24 3d 22 31 22 20 0d | 0a 54 45 52 4d 3d 30 0d |X$="1" .|.TERM=0.|
|00000e40| 0a 44 4f 0d 0a 54 45 52 | 4d 3d 54 45 52 4d 2b 31 |.DO..TER|M=TERM+1|
|00000e50| 0d 0a 09 49 46 20 50 4f | 57 45 52 24 28 54 45 52 |...IF PO|WER$(TER|
|00000e60| 4d 29 3d 22 22 0d 0a 09 | 50 4f 57 45 52 24 28 54 |M)=""...|POWER$(T|
|00000e70| 45 52 4d 29 3d 22 31 22 | 0d 0a 09 45 4e 44 49 46 |ERM)="1"|...ENDIF|
|00000e80| 0d 0a 09 0d 0a 09 49 46 | 20 43 4f 45 46 24 28 54 |......IF| COEF$(T|
|00000e90| 45 52 4d 29 3d 22 22 0d | 0a 09 43 4f 45 46 24 28 |ERM)="".|..COEF$(|
|00000ea0| 54 45 52 4d 29 3d 22 31 | 22 0d 0a 09 45 4e 44 49 |TERM)="1|"...ENDI|
|00000eb0| 46 0d 0a 0d 0a 41 3d 45 | 56 41 4c 28 50 4f 57 45 |F....A=E|VAL(POWE|
|00000ec0| 52 24 28 54 45 52 4d 29 | 2b 22 2b 31 22 29 0d 0a |R$(TERM)|+"+1")..|
|00000ed0| 50 4f 24 28 54 45 52 4d | 29 3d 46 49 58 24 28 41 |PO$(TERM|)=FIX$(A|
|00000ee0| 2c 32 2c 38 29 0d 0a 42 | 3d 45 56 41 4c 28 43 4f |,2,8)..B|=EVAL(CO|
|00000ef0| 45 46 24 28 54 45 52 4d | 29 2b 22 2f 22 2b 50 4f |EF$(TERM|)+"/"+PO|
|00000f00| 24 28 54 45 52 4d 29 29 | 0d 0a 43 4f 24 28 54 45 |$(TERM))|..CO$(TE|
|00000f10| 52 4d 29 3d 46 49 58 24 | 28 42 2c 32 2c 38 29 0d |RM)=FIX$|(B,2,8).|
|00000f20| 0a 55 4e 54 49 4c 20 54 | 45 52 4d 3d 4c 41 53 54 |.UNTIL T|ERM=LAST|
|00000f30| 25 2b 31 0d 0a 50 52 49 | 4e 54 0d 0a 54 45 52 4d |%+1..PRI|NT..TERM|
|00000f40| 3d 30 0d 0a 50 52 49 4e | 54 20 22 54 68 65 20 69 |=0..PRIN|T "The i|
|00000f50| 6e 74 65 67 72 61 6c 20 | 6f 66 20 22 3b 46 4f 52 |ntegral |of ";FOR|
|00000f60| 4d 24 3b 22 20 69 73 20 | 3a 22 0d 0a 50 52 49 4e |M$;" is |:"..PRIN|
|00000f70| 54 0d 0a 44 4f 0d 0a 54 | 45 52 4d 3d 54 45 52 4d |T..DO..T|ERM=TERM|
|00000f80| 2b 31 0d 0a 50 52 49 4e | 54 20 22 28 22 3b 43 4f |+1..PRIN|T "(";CO|
|00000f90| 24 28 54 45 52 4d 29 3b | 22 58 5e 22 3b 50 4f 24 |$(TERM);|"X^";PO$|
|00000fa0| 28 54 45 52 4d 29 3b 22 | 29 20 2b 20 22 3b 0d 0a |(TERM);"|) + ";..|
|00000fb0| 09 49 46 20 54 45 52 4d | 3d 4c 41 53 54 25 2b 31 |.IF TERM|=LAST%+1|
|00000fc0| 0d 0a 09 50 52 49 4e 54 | 20 43 48 52 24 28 38 29 |...PRINT| CHR$(8)|
|00000fd0| 3b 43 48 52 24 28 38 29 | 3b 0d 0a 09 50 52 49 4e |;CHR$(8)|;...PRIN|
|00000fe0| 54 20 22 20 2b 20 63 20 | 22 0d 0a 09 45 4e 44 49 |T " + c |"...ENDI|
|00000ff0| 46 0d 0a 55 4e 54 49 4c | 20 54 45 52 4d 3d 4c 41 |F..UNTIL| TERM=LA|
|00001000| 53 54 25 2b 31 0d 0a 58 | 3d 47 45 54 0d 0a 45 4e |ST%+1..X|=GET..EN|
|00001010| 44 49 46 0d 0a 0d 0a 49 | 46 20 58 24 3d 22 32 22 |DIF....I|F X$="2"|
|00001020| 0d 0a 54 45 52 4d 3d 30 | 0d 0a 44 4f 0d 0a 54 45 |..TERM=0|..DO..TE|
|00001030| 52 4d 3d 54 45 52 4d 2b | 31 0d 0a 09 49 46 20 50 |RM=TERM+|1...IF P|
|00001040| 4f 57 45 52 24 28 54 45 | 52 4d 29 3d 22 22 0d 0a |OWER$(TE|RM)=""..|
|00001050| 09 50 4f 57 45 52 24 28 | 54 45 52 4d 29 3d 22 31 |.POWER$(|TERM)="1|
|00001060| 22 0d 0a 09 45 4e 44 49 | 46 0d 0a 09 0d 0a 09 49 |"...ENDI|F......I|
|00001070| 46 20 43 4f 45 46 24 28 | 54 45 52 4d 29 3d 22 22 |F COEF$(|TERM)=""|
|00001080| 0d 0a 09 43 4f 45 46 24 | 28 54 45 52 4d 29 3d 22 |...COEF$|(TERM)="|
|00001090| 31 22 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 41 3d |1"...END|IF....A=|
|000010a0| 45 56 41 4c 28 50 4f 57 | 45 52 24 28 54 45 52 4d |EVAL(POW|ER$(TERM|
|000010b0| 29 2b 22 2d 31 22 29 0d | 0a 50 4f 24 28 54 45 52 |)+"-1").|.PO$(TER|
|000010c0| 4d 29 3d 46 49 58 24 28 | 41 2c 32 2c 38 29 0d 0a |M)=FIX$(|A,2,8)..|
|000010d0| 42 3d 45 56 41 4c 28 43 | 4f 45 46 24 28 54 45 52 |B=EVAL(C|OEF$(TER|
|000010e0| 4d 29 2b 22 2a 28 22 2b | 50 4f 24 28 54 45 52 4d |M)+"*("+|PO$(TERM|
|000010f0| 29 2b 22 2b 31 29 22 29 | 0d 0a 43 4f 24 28 54 45 |)+"+1)")|..CO$(TE|
|00001100| 52 4d 29 3d 46 49 58 24 | 28 42 2c 32 2c 38 29 0d |RM)=FIX$|(B,2,8).|
|00001110| 0a 55 4e 54 49 4c 20 54 | 45 52 4d 3d 4c 41 53 54 |.UNTIL T|ERM=LAST|
|00001120| 25 2b 31 0d 0a 50 52 49 | 4e 54 0d 0a 54 45 52 4d |%+1..PRI|NT..TERM|
|00001130| 3d 30 0d 0a 50 52 49 4e | 54 20 22 54 68 65 20 64 |=0..PRIN|T "The d|
|00001140| 69 66 66 65 72 65 6e 74 | 69 61 6c 20 6f 66 20 22 |ifferent|ial of "|
|00001150| 3b 46 4f 52 4d 24 3b 22 | 20 69 73 20 3a 22 0d 0a |;FORM$;"| is :"..|
|00001160| 50 52 49 4e 54 0d 0a 44 | 4f 0d 0a 54 45 52 4d 3d |PRINT..D|O..TERM=|
|00001170| 54 45 52 4d 2b 31 0d 0a | 50 52 49 4e 54 20 22 28 |TERM+1..|PRINT "(|
|00001180| 22 3b 43 4f 24 28 54 45 | 52 4d 29 3b 22 58 5e 22 |";CO$(TE|RM);"X^"|
|00001190| 3b 50 4f 24 28 54 45 52 | 4d 29 3b 22 29 20 2b 20 |;PO$(TER|M);") + |
|000011a0| 22 3b 0d 0a 09 49 46 20 | 54 45 52 4d 3d 4c 41 53 |";...IF |TERM=LAS|
|000011b0| 54 25 2b 31 0d 0a 09 50 | 52 49 4e 54 20 43 48 52 |T%+1...P|RINT CHR|
|000011c0| 24 28 38 29 3b 43 48 52 | 24 28 38 29 3b 0d 0a 09 |$(8);CHR|$(8);...|
|000011d0| 50 52 49 4e 54 20 22 20 | 20 20 20 22 0d 0a 09 45 |PRINT " | "...E|
|000011e0| 4e 44 49 46 0d 0a 55 4e | 54 49 4c 20 54 45 52 4d |NDIF..UN|TIL TERM|
|000011f0| 3d 4c 41 53 54 25 2b 31 | 0d 0a 58 3d 47 45 54 0d |=LAST%+1|..X=GET.|
|00001200| 0a 45 4e 44 49 46 0d 0a | 0d 0a 49 46 20 58 24 3d |.ENDIF..|..IF X$=|
|00001210| 22 33 22 0d 0a 43 41 4c | 43 55 4c 55 53 3a 0d 0a |"3"..CAL|CULUS:..|
|00001220| 45 4e 44 49 46 0d 0a 55 | 4e 54 49 4c 20 58 24 3d |ENDIF..U|NTIL X$=|
|00001230| 22 34 22 0d 0a 45 4e 44 | 50 0d 0a 1a 82 46 49 4e |"4"..END|P....FIN|
|00001240| 44 4c 49 4e 45 2f 4f 50 | 4c 00 0b 02 00 00 7e 1e |DLINE/OP|L.....~.|
|00001250| b3 a9 c5 8f 0b 02 00 00 | 45 e4 ff ff c8 86 b1 fa |........|E.......|
|00001260| 03 00 00 00 50 52 4f 43 | 20 66 69 6e 64 3a 0d 0a |....PROC| find:..|
|00001270| 6c 6f 63 61 6c 20 61 2c | 62 2c 63 2c 78 2c 79 2c |local a,|b,c,x,y,|
|00001280| 6e 2c 64 31 2c 64 32 2c | 64 33 2c 76 28 33 29 0d |n,d1,d2,|d3,v(3).|
|00001290| 0a 63 6c 73 0d 0a 50 72 | 69 6e 74 20 22 46 69 6e |.cls..Pr|int "Fin|
|000012a0| 64 20 74 68 65 20 65 71 | 75 61 74 69 6f 6e 20 6f |d the eq|uation o|
|000012b0| 66 20 61 20 6c 69 6e 65 | 20 22 0d 0a 70 72 69 6e |f a line| "..prin|
|000012c0| 74 20 22 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |t "-----|--------|
|000012d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 22 0d |--------|------".|
|000012e0| 0a 70 72 69 6e 74 0d 0a | 70 72 69 6e 74 20 22 54 |.print..|print "T|
|000012f0| 68 65 20 66 69 72 73 74 | 20 74 68 72 65 65 20 76 |he first| three v|
|00001300| 61 6c 75 65 73 20 61 72 | 65 20 6e 65 63 63 65 73 |alues ar|e necces|
|00001310| 61 72 79 22 0d 0a 70 72 | 69 6e 74 0d 0a 6e 3d 30 |ary"..pr|int..n=0|
|00001320| 0d 0a 64 6f 0d 0a 6e 3d | 6e 2b 31 0d 0a 50 72 69 |..do..n=|n+1..Pri|
|00001330| 6e 74 20 22 49 6e 70 75 | 74 20 74 68 65 20 76 61 |nt "Inpu|t the va|
|00001340| 6c 75 65 20 66 6f 72 20 | 6e 3d 22 3b 6e 3b 22 3a |lue for |n=";n;":|
|00001350| 20 22 3b 0d 0a 69 6e 70 | 75 74 20 76 28 6e 29 0d | ";..inp|ut v(n).|
|00001360| 0a 75 6e 74 69 6c 20 6e | 3d 33 0d 0a 61 3d 28 76 |.until n|=3..a=(v|
|00001370| 28 31 29 2d 76 28 32 29 | 2d 76 28 32 29 2b 76 28 |(1)-v(2)|-v(2)+v(|
|00001380| 33 29 29 2f 32 0d 0a 62 | 3d 76 28 32 29 2d 76 28 |3))/2..b|=v(2)-v(|
|00001390| 31 29 2d 76 28 33 29 2b | 76 28 32 29 2b 76 28 32 |1)-v(3)+|v(2)+v(2|
|000013a0| 29 2d 76 28 31 29 2d 61 | 0d 0a 63 3d 28 32 2a 61 |)-v(1)-a|..c=(2*a|
|000013b0| 29 2d 76 28 32 29 2b 76 | 28 31 29 2b 76 28 31 29 |)-v(2)+v|(1)+v(1)|
|000013c0| 0d 0a 70 72 69 6e 74 20 | 0d 0a 70 72 69 6e 74 20 |..print |..print |
|000013d0| 22 54 68 65 20 65 71 75 | 61 74 69 6f 6e 20 69 73 |"The equ|ation is|
|000013e0| 20 22 0d 0a 69 66 20 61 | 3e 30 0d 0a 70 72 69 6e | "..if a|>0..prin|
|000013f0| 74 20 22 79 20 3d 20 22 | 3b 61 3b 22 78 5e 32 20 |t "y = "|;a;"x^2 |
|00001400| 2b 20 22 3b 62 3b 22 78 | 20 2b 20 22 3b 63 20 0d |+ ";b;"x| + ";c .|
|00001410| 0a 65 6c 73 65 20 0d 0a | 69 66 20 62 3e 30 0d 0a |.else ..|if b>0..|
|00001420| 70 72 69 6e 74 20 20 22 | 79 20 3d 20 22 3b 62 3b |print "|y = ";b;|
|00001430| 22 78 20 2b 20 22 3b 63 | 0d 0a 65 6c 73 65 0d 0a |"x + ";c|..else..|
|00001440| 70 72 69 6e 74 20 22 79 | 3d 20 22 3b 63 0d 0a 65 |print "y|= ";c..e|
|00001450| 6e 64 69 66 0d 0a 65 6e | 64 69 66 0d 0a 67 65 74 |ndif..en|dif..get|
|00001460| 0d 0a 66 69 6e 64 3a 0d | 0a 45 4e 44 50 0d 0a 1a |..find:.|.ENDP...|
|00001470| 82 47 41 4d 42 4c 45 2f | 4f 50 4c 00 00 b8 f5 02 |.GAMBLE/|OPL.....|
|00001480| 00 00 7c 1e e7 5e d7 9e | f5 02 00 00 45 e4 ff ff |..|..^..|....E...|
|00001490| 48 bb 76 f9 03 00 00 00 | 0d 0a 5a 50 52 4f 43 20 |H.v.....|..ZPROC |
|000014a0| 44 69 73 70 6c 61 79 3a | 0d 0a 6c 6f 63 61 6c 20 |Display:|..local |
|000014b0| 61 24 28 31 30 2c 31 30 | 29 2c 6e 2c 61 2c 63 28 |a$(10,10|),n,a,c(|
|000014c0| 31 30 29 2c 72 2c 6a 61 | 63 6b 2c 6d 0d 0a 63 6c |10),r,ja|ck,m..cl|
|000014d0| 73 0d 0a 6a 61 63 6b 20 | 3d 20 30 0d 0a 70 72 69 |s..jack |= 0..pri|
|000014e0| 6e 74 20 22 48 6f 77 20 | 6d 61 6e 79 20 67 6f 65 |nt "How |many goe|
|000014f0| 73 20 3a 20 22 3b 0d 0a | 69 6e 70 75 74 20 6d 0d |s : ";..|input m.|
|00001500| 0a 64 6f 0d 0a 63 6c 73 | 0d 0a 6d 3d 6d 2d 31 0d |.do..cls|..m=m-1.|
|00001510| 0a 61 74 20 33 30 2c 31 | 20 0d 0a 70 72 69 6e 74 |.at 30,1| ..print|
|00001520| 20 22 4e 75 6d 62 65 72 | 20 6f 66 20 67 6f 65 73 | "Number| of goes|
|00001530| 20 6c 65 66 74 20 22 3b | 6d 0d 0a 6e 3d 30 0d 0a | left ";|m..n=0..|
|00001540| 64 6f 0d 0a 0d 0a 09 64 | 6f 0d 0a 09 61 3d 69 6e |do.....d|o...a=in|
|00001550| 74 28 72 6e 64 2a 34 29 | 0d 0a 09 75 6e 74 69 6c |t(rnd*4)|...until|
|00001560| 20 61 3c 34 20 61 6e 64 | 20 61 3e 30 0d 0a 0d 0a | a<4 and| a>0....|
|00001570| 6e 3d 6e 2b 31 0d 0a 69 | 66 20 61 3d 31 0d 0a 61 |n=n+1..i|f a=1..a|
|00001580| 24 28 6e 29 3d 22 46 65 | 72 72 61 72 69 22 0d 0a |$(n)="Fe|rrari"..|
|00001590| 63 28 6e 29 3d 31 0d 0a | 65 6e 64 69 66 0d 0a 0d |c(n)=1..|endif...|
|000015a0| 0a 69 66 20 61 3d 32 0d | 0a 61 24 28 6e 29 3d 22 |.if a=2.|.a$(n)="|
|000015b0| 46 6f 72 64 22 0d 0a 63 | 28 6e 29 3d 32 0d 0a 65 |Ford"..c|(n)=2..e|
|000015c0| 6e 64 69 66 0d 0a 0d 0a | 69 66 20 61 3d 33 0d 0a |ndif....|if a=3..|
|000015d0| 61 24 28 6e 29 3d 22 53 | 6b 6f 64 61 22 0d 0a 63 |a$(n)="S|koda"..c|
|000015e0| 28 6e 29 3d 34 0d 0a 65 | 6e 64 69 66 0d 0a 0d 0a |(n)=4..e|ndif....|
|000015f0| 75 6e 74 69 6c 20 6e 3d | 33 0d 0a 6e 3d 30 0d 0a |until n=|3..n=0..|
|00001600| 72 3d 30 0d 0a 0d 0a 09 | 64 6f 0d 0a 09 6e 3d 6e |r=0.....|do...n=n|
|00001610| 2b 31 0d 0a 09 72 3d 72 | 2b 63 28 6e 29 0d 0a 09 |+1...r=r|+c(n)...|
|00001620| 75 6e 74 69 6c 20 6e 3d | 33 0d 0a 69 66 20 72 3d |until n=|3..if r=|
|00001630| 33 20 61 6e 64 20 6d 3c | 34 0d 0a 64 69 73 70 6c |3 and m<|4..displ|
|00001640| 61 79 3a 0d 0a 65 6e 64 | 69 66 0d 0a 20 0d 0a 61 |ay:..end|if.. ..a|
|00001650| 74 20 31 2c 31 0d 0a 70 | 72 69 6e 74 22 4e 6f 20 |t 1,1..p|rint"No |
|00001660| 6f 66 20 6a 61 63 6b 70 | 6f 74 73 20 3d 22 3b 6a |of jackp|ots =";j|
|00001670| 61 63 6b 0d 0a 61 74 20 | 31 35 2c 39 0d 0a 70 72 |ack..at |15,9..pr|
|00001680| 69 6e 74 20 61 24 28 31 | 29 0d 0a 61 74 20 32 35 |int a$(1|)..at 25|
|00001690| 2c 39 0d 0a 70 72 69 6e | 74 20 61 24 28 32 29 0d |,9..prin|t a$(2).|
|000016a0| 0a 61 74 20 33 35 2c 39 | 0d 0a 70 72 69 6e 74 20 |.at 35,9|..print |
|000016b0| 61 24 28 33 29 0d 0a 61 | 74 20 31 30 2c 31 35 0d |a$(3)..a|t 10,15.|
|000016c0| 0a 69 66 20 72 3d 33 0d | 0a 70 72 69 6e 74 20 22 |.if r=3.|.print "|
|000016d0| 4a 61 63 6b 70 6f 74 21 | 21 21 21 21 21 21 21 21 |Jackpot!|!!!!!!!!|
|000016e0| 21 21 21 21 21 21 21 21 | 21 21 22 0d 0a 6a 61 63 |!!!!!!!!|!!"..jac|
|000016f0| 6b 20 3d 20 6a 61 63 6b | 20 2b 20 31 0d 0a 65 6e |k = jack| + 1..en|
|00001700| 64 69 66 0d 0a 69 66 20 | 72 3d 36 0d 0a 70 72 69 |dif..if |r=6..pri|
|00001710| 6e 74 20 22 62 6f 6e 75 | 73 20 3a 20 35 20 65 78 |nt "bonu|s : 5 ex|
|00001720| 74 72 61 20 67 6f 65 73 | 22 0d 0a 6d 3d 6d 2b 35 |tra goes|"..m=m+5|
|00001730| 0d 0a 65 6e 64 69 66 0d | 0a 69 66 20 72 3d 31 32 |..endif.|.if r=12|
|00001740| 0d 0a 70 72 69 6e 74 20 | 22 59 6f 75 20 6d 69 67 |..print |"You mig|
|00001750| 68 74 20 61 73 20 77 65 | 6c 6c 20 67 6f 20 68 6f |ht as we|ll go ho|
|00001760| 6d 65 21 22 0d 0a 65 6e | 64 69 66 0d 0a 67 65 74 |me!"..en|dif..get|
|00001770| 0d 0a 75 6e 74 69 6c 20 | 6d 3d 30 0d 0a 64 69 73 |..until |m=0..dis|
|00001780| 70 6c 61 79 3a 0d 0a 45 | 4e 44 50 0d 0a 1a 00 1a |play:..E|NDP.....|
|00001790| 82 6f 70 6f 00 52 04 00 | 00 fe 00 00 00 04 a4 0f |.opo.R..|........|
|000017a0| 00 00 8c 1e 86 44 0b 60 | a4 0f 00 00 46 dc fd ff |.....D.`|....F...|
|000017b0| d7 0c 1e 01 33 00 00 00 | 1a 82 43 41 4c 43 4d 4f |....3...|..CALCMO|
|000017c0| 44 53 2f 4f 50 4f 00 fc | 06 00 00 67 1d 6d b2 a6 |DS/OPO..|...g.m..|
|000017d0| af fc 06 00 00 45 e4 ff | ff f8 02 13 b1 03 00 00 |.....E..|........|
|000017e0| 00 4f 50 4c 4f 62 6a 65 | 63 74 46 69 6c 65 2a 2a |.OPLObje|ctFile**|
|000017f0| 00 01 00 2e 00 19 4c 4f | 43 3a 3a 4d 3a 5c 4f 50 |......LO|C::M:\OP|
|00001800| 4c 5c 43 41 4c 43 4d 4f | 44 53 2e 4f 50 4c 00 fc |L\CALCMO|DS.OPL..|
|00001810| 06 00 00 1f 11 1f 11 8f | 06 00 00 35 00 6f 00 20 |........|...5.o. |
|00001820| 04 3c 00 00 00 00 22 00 | 01 46 01 04 51 52 54 31 |.<....".|.F..QRT1|
|00001830| 03 04 51 52 54 32 03 04 | 53 49 4d 58 06 04 53 49 |..QRT2..|SIMX..SI|
|00001840| 4d 59 06 05 41 52 45 41 | 54 03 00 3c 00 01 00 00 |MY..AREA|T..<....|
|00001850| 00 00 a2 2b 19 43 61 6c | 63 75 6c 61 74 6f 72 20 |...+.Cal|culator |
|00001860| 50 72 6f 63 65 64 75 72 | 65 20 42 61 6e 6b 8b 92 |Procedur|e Bank..|
|00001870| 2b 19 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+.------|--------|
|00001880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 8b 92 2b 0b 31 |--------|---..+.1|
|00001890| 3d 46 61 63 74 6f 72 69 | 61 6c 8b 92 2b 15 32 3d |=Factori|al..+.2=|
|000018a0| 51 75 61 64 72 61 74 69 | 63 20 45 71 61 75 61 74 |Quadrati|c Eqauat|
|000018b0| 69 6f 6e 8b 92 2b 17 33 | 3d 53 69 6d 75 6c 74 61 |ion..+.3|=Simulta|
|000018c0| 6e 65 6f 75 73 20 45 71 | 75 61 74 69 6f 6e 8b 92 |neous Eq|uation..|
|000018d0| 2b 14 34 3d 41 72 65 61 | 20 6f 66 20 61 20 74 72 |+.4=Area| of a tr|
|000018e0| 69 61 6e 67 6c 65 8b 92 | 2b 05 35 3d 45 4e 44 8b |iangle..|+.5=END.|
|000018f0| 92 07 3d 00 57 c7 87 03 | 3d 00 2b 01 31 43 5b 64 |..=.W...|=.+.1C[d|
|00001900| 00 92 2b 10 46 69 6e 64 | 73 20 66 61 63 74 6f 72 |..+.Find|s factor|
|00001910| 69 61 6c 20 8b 92 2b 0f | 2d 2d 2d 2d 2d 2d 2d 2d |ial ..+.|--------|
|00001920| 2d 2d 2d 2d 2d 2d 2d 8b | 92 2b 0f 49 6e 70 75 74 |-------.|.+.Input|
|00001930| 20 6e 75 6d 62 65 72 20 | 3a 20 8b 06 34 00 96 2b | number |: ..4..+|
|00001940| 13 54 68 65 20 66 61 63 | 74 6f 72 69 61 6c 20 69 |.The fac|torial i|
|00001950| 73 20 3a 20 8b 02 34 00 | 4f 02 53 12 00 8a 92 57 |s : ..4.|O.S....W|
|00001960| 0a 80 03 3d 00 2b 01 32 | 43 5b e3 00 92 2b 19 51 |...=.+.2|C[...+.Q|
|00001970| 75 61 64 72 61 74 69 63 | 20 45 71 75 61 74 69 6f |uadratic| Equatio|
|00001980| 6e 20 53 6f 6c 76 65 72 | 8b 92 2b 19 2d 2d 2d 2d |n Solver|..+.----|
|00001990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019a0| 2d 2d 2d 2d 2d 8b 92 2b | 0a 49 6e 70 75 74 20 61 |-----..+|.Input a|
|000019b0| 20 3a 20 8b 06 3f 00 96 | 2b 0a 49 6e 70 75 74 20 | : ..?..|+.Input |
|000019c0| 62 20 3a 20 8b 06 47 00 | 96 2b 0a 49 6e 70 75 74 |b : ..G.|.+.Input|
|000019d0| 20 63 20 3a 20 8b 06 4f | 00 96 92 2b 09 53 6f 6c | c : ..O|...+.Sol|
|000019e0| 76 69 6e 67 20 3a 8b 02 | 3f 00 8a 2b 06 78 5e 32 |ving :..|?..+.x^2|
|000019f0| 20 2b 20 8b 02 47 00 8a | 2b 04 78 20 2b 20 8b 02 | + ..G..|+.x + ..|
|00001a00| 4f 00 8a 92 4f 03 b5 2b | 10 54 68 65 20 32 20 72 |O...O..+|.The 2 r|
|00001a10| 6f 6f 74 73 20 61 72 65 | 20 8b 02 3f 00 4f 02 02 |oots are| ..?.O..|
|00001a20| 47 00 4f 02 02 4f 00 4f | 02 53 15 00 8a 2b 05 20 |G.O..O.O|.S...+. |
|00001a30| 61 6e 64 20 8b 02 3f 00 | 4f 02 02 47 00 4f 02 02 |and ..?.|O..G.O..|
|00001a40| 4f 00 4f 02 53 1b 00 8a | 92 57 0a 80 03 3d 00 2b |O.O.S...|.W...=.+|
|00001a50| 01 33 43 5b 54 01 92 2b | 1c 53 69 6d 75 6c 74 61 |.3C[T..+|.Simulta|
|00001a60| 6e 65 6f 75 73 20 45 71 | 75 61 74 69 6f 6e 20 53 |neous Eq|uation S|
|00001a70| 6f 6c 76 65 72 8b 92 2b | 1c 2d 2d 2d 2d 2d 2d 2d |olver..+|.-------|
|00001a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a90| 2d 2d 2d 2d 2d 8b 92 2b | 0a 49 6e 70 75 74 20 61 |-----..+|.Input a|
|00001aa0| 20 3a 20 8b 06 3f 00 96 | 2b 0a 49 6e 70 75 74 20 | : ..?..|+.Input |
|00001ab0| 62 20 3a 20 8b 06 47 00 | 96 2b 0a 49 6e 70 75 74 |b : ..G.|.+.Input|
|00001ac0| 20 63 20 3a 20 8b 06 4f | 00 96 2b 0a 49 6e 70 75 | c : ..O|..+.Inpu|
|00001ad0| 74 20 64 20 3a 20 8b 06 | 57 00 96 2b 0a 49 6e 70 |t d : ..|W..+.Inp|
|00001ae0| 75 74 20 65 20 3a 20 8b | 06 5f 00 96 2b 0a 49 6e |ut e : .|._..+.In|
|00001af0| 70 75 74 20 66 20 3a 20 | 8b 06 67 00 96 92 2b 09 |put f : |..g...+.|
|00001b00| 53 6f 6c 76 69 6e 67 20 | 3a 8b 02 3f 00 8a 2b 04 |Solving |:..?..+.|
|00001b10| 78 20 2b 20 8b 02 47 00 | 8a 2b 04 79 20 3d 20 8b |x + ..G.|.+.y = .|
|00001b20| 02 4f 00 8a 92 2b 09 20 | 20 20 20 20 20 20 20 20 |.O...+. | |
|00001b30| 8b 02 57 00 8a 2b 04 78 | 20 2b 20 8b 02 5f 00 8a |..W..+.x| + .._..|
|00001b40| 2b 04 79 20 3d 20 8b 02 | 67 00 8a 92 4f 03 b5 92 |+.y = ..|g...O...|
|00001b50| 2b 04 78 20 3d 20 8b 02 | 3f 00 4f 02 02 47 00 4f |+.x = ..|?.O..G.O|
|00001b60| 02 02 4f 00 4f 02 02 57 | 00 4f 02 02 5f 00 4f 02 |..O.O..W|.O.._.O.|
|00001b70| 02 67 00 4f 02 53 21 00 | 8a 92 2b 04 79 20 3d 20 |.g.O.S!.|..+.y = |
|00001b80| 8b 02 3f 00 4f 02 02 47 | 00 4f 02 02 4f 00 4f 02 |..?.O..G|.O..O.O.|
|00001b90| 02 57 00 4f 02 02 5f 00 | 4f 02 02 67 00 4f 02 53 |.W.O.._.|O..g.O.S|
|00001ba0| 27 00 8a 92 57 0a 80 03 | 3d 00 2b 01 34 43 5b b9 |'...W...|=.+.4C[.|
|00001bb0| 00 92 2b 16 46 69 6e 64 | 73 20 41 72 65 61 20 6f |..+.Find|s Area o|
|00001bc0| 66 20 74 72 61 69 6e 67 | 6c 65 8b 92 2b 16 2d 2d |f traing|le..+.--|
|00001bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001be0| 2d 2d 2d 2d 8b 92 2b 11 | 49 6e 70 75 74 20 6c 65 |----..+.|Input le|
|00001bf0| 6e 67 74 68 20 41 20 3a | 20 8b 06 3f 00 96 2b 11 |ngth A :| ..?..+.|
|00001c00| 49 6e 70 75 74 20 6c 65 | 6e 67 74 68 20 42 20 3a |Input le|ngth B :|
|00001c10| 20 8b 06 47 00 96 2b 11 | 49 6e 70 75 74 20 6c 65 | ..G..+.|Input le|
|00001c20| 6e 67 74 68 20 43 20 3a | 20 8b 06 4f 00 96 92 2b |ngth C :| ..O...+|
|00001c30| 1e 54 68 65 20 61 72 65 | 61 20 6f 66 20 74 68 65 |.The are|a of the|
|00001c40| 20 74 72 69 61 6e 67 6c | 65 20 69 73 20 3a 20 8b | triangl|e is : .|
|00001c50| 02 3f 00 4f 02 02 47 00 | 4f 02 02 4f 00 4f 02 53 |.?.O..G.|O..O.O.S|
|00001c60| 2d 00 8a 92 57 0a 80 03 | 3d 00 2b 01 35 43 5b e4 |-...W...|=.+.5C[.|
|00001c70| fb 76 11 00 24 00 36 00 | 1e 00 01 02 00 00 00 00 |.v..$.6.|........|
|00001c80| 00 00 00 00 00 06 1c 00 | 4f 01 7c 86 06 14 00 4f |........|O.|....O|
|00001c90| 00 7c 86 06 1c 00 02 1c | 00 0a 12 00 02 14 00 4e |.|......|.......N|
|00001ca0| 52 86 06 14 00 02 14 00 | 4f 01 7c 4a 86 02 14 00 |R.......|O.|J....|
|00001cb0| 0a 12 00 42 5b df ff 02 | 1c 00 c0 11 00 1c 00 11 |...B[...|........|
|00001cc0| 00 16 00 01 02 00 00 00 | 00 00 00 00 00 00 06 14 |........|........|
|00001cd0| 00 4f 01 7c 0a 12 00 57 | 91 56 86 02 14 00 c0 11 |.O.|...W|.V......|
|00001ce0| 00 1c 00 11 00 16 00 01 | 02 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 06 14 00 4f 01 7c | 0a 12 00 57 8f 56 86 02 |.....O.||...W.V..|
|00001d00| 14 00 c0 11 00 1c 00 11 | 00 16 00 01 02 00 00 00 |........|........|
|00001d10| 00 00 00 00 00 00 06 14 | 00 4f 01 7c 0a 12 00 57 |........|.O.|...W|
|00001d20| 84 56 86 02 14 00 c0 13 | 00 20 00 2a 00 26 00 03 |.V......|. .*.&..|
|00001d30| 02 02 02 00 00 00 00 00 | 00 00 00 00 06 18 00 0a |........|........|
|00001d40| 14 00 6a 0a 14 00 4f 02 | 7c 5a 4f 04 7c 0a 12 00 |..j...O.||ZO.|...|
|00001d50| 52 0a 16 00 52 4e 57 90 | 4a 4f 02 7c 0a 12 00 52 |R...RNW.|JO.|...R|
|00001d60| 56 86 02 18 00 c0 13 00 | 20 00 2a 00 26 00 03 02 |V.......| .*.&...|
|00001d70| 02 02 00 00 00 00 00 00 | 00 00 00 06 18 00 0a 14 |........|........|
|00001d80| 00 6a 0a 14 00 4f 02 7c | 5a 4f 04 7c 0a 12 00 52 |.j...O.||ZO.|...R|
|00001d90| 0a 16 00 52 4e 57 90 4e | 4f 02 7c 0a 12 00 52 56 |...RNW.N|O.|...RV|
|00001da0| 86 02 18 00 c0 13 00 28 | 00 38 00 1e 00 03 02 02 |.......(|.8......|
|00001db0| 02 00 00 00 00 00 00 00 | 00 00 06 18 00 0a 12 00 |........|........|
|00001dc0| 0a 14 00 4a 0a 16 00 4a | 4f 02 7c 56 86 06 20 00 |...J...J|O.|V.. .|
|00001dd0| 02 18 00 02 18 00 0a 12 | 00 4e 52 02 18 00 0a 14 |........|.NR.....|
|00001de0| 00 4e 52 02 18 00 0a 16 | 00 4e 52 57 90 86 02 20 |.NR.....|.NRW... |
|00001df0| 00 c0 16 00 26 00 27 00 | 26 00 06 02 02 02 02 02 |....&.'.|&.......|
|00001e00| 02 00 00 00 00 00 00 00 | 00 00 06 1e 00 0a 16 00 |........|........|
|00001e10| 0a 1a 00 52 0a 14 00 0a | 1c 00 52 4e 0a 12 00 0a |...R....|..RN....|
|00001e20| 1a 00 52 0a 14 00 0a 18 | 00 52 4e 56 86 02 1e 00 |..R.....|.RNV....|
|00001e30| c0 16 00 26 00 27 00 26 | 00 06 02 02 02 02 02 02 |...&.'.&|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 06 1e 00 0a 16 00 0a |........|........|
|00001e50| 18 00 52 0a 12 00 0a 1c | 00 52 4e 0a 14 00 0a 18 |..R.....|.RN.....|
|00001e60| 00 52 0a 12 00 0a 1a 00 | 52 4e 56 86 02 1e 00 c0 |.R......|RNV.....|
|00001e70| 04 4d 41 49 4e 3a 00 00 | 00 00 00 01 46 91 04 00 |.MAIN:..|....F...|
|00001e80| 00 55 00 03 43 4f 54 da | 04 00 00 60 00 05 43 4f |.U..COT.|...`..CO|
|00001e90| 53 45 43 fe 04 00 00 66 | 00 03 53 45 43 22 05 00 |SEC....f|..SEC"..|
|00001ea0| 00 6c 00 04 51 52 54 31 | 46 05 00 00 72 00 04 51 |.l..QRT1|F...r..Q|
|00001eb0| 52 54 32 85 05 00 00 78 | 00 05 41 52 45 41 54 c4 |RT2....x|..AREAT.|
|00001ec0| 05 00 00 7e 00 04 53 49 | 4d 58 11 06 00 00 85 00 |...~..SI|MX......|
|00001ed0| 04 53 49 4d 59 50 06 00 | 00 8b 00 00 00 1a 82 43 |.SIMYP..|.......C|
|00001ee0| 41 4c 43 55 4c 55 53 2f | 4f 50 4f 00 34 06 00 00 |ALCULUS/|OPO.4...|
|00001ef0| 66 1d f5 89 8a 09 34 06 | 00 00 45 e4 ff ff 38 5e |f.....4.|..E...8^|
|00001f00| 73 b0 03 00 00 00 4f 50 | 4c 4f 62 6a 65 63 74 46 |s.....OP|LObjectF|
|00001f10| 69 6c 65 2a 2a 00 01 00 | 2e 00 19 4c 4f 43 3a 3a |ile**...|...LOC::|
|00001f20| 4d 3a 5c 4f 50 4c 5c 43 | 41 4c 43 55 4c 55 53 2e |M:\OPL\C|ALCULUS.|
|00001f30| 4f 50 4c 00 34 06 00 00 | 1f 11 1f 11 23 06 00 00 |OPL.4...|....#...|
|00001f40| 56 00 96 24 91 05 16 00 | 00 09 00 05 46 4f 52 4d |V..$....|....FORM|
|00001f50| 24 03 26 00 0a 00 08 43 | 41 4c 43 55 4c 55 53 00 |$.&....C|ALCULUS.|
|00001f60| 00 5b 00 01 60 00 32 5d | 06 32 62 0c 1e 84 0c 32 |.[..`.2]|.2b....2|
|00001f70| 89 12 32 86 18 32 83 1e | 32 25 00 32 00 00 5e 00 |..2..2..|2%.2..^.|
|00001f80| 1e 00 5b 06 1e 00 82 0c | 1e 00 87 12 1e 00 84 18 |..[.....|........|
|00001f90| 1e 00 81 1e 1e 00 00 00 | 00 59 00 4f 01 44 5b 09 |........|.Y.O.D[.|
|00001fa0| 00 07 26 00 2b 00 87 a2 | 2b 11 41 72 63 61 69 72 |..&.+...|+.Arcair|
|00001fb0| 20 50 72 65 73 65 6e 74 | 73 20 3a 8b 92 92 2b 20 | Present|s :...+ |
|00001fc0| 54 68 65 20 63 61 6c 63 | 75 6c 75 73 20 70 72 6f |The calc|ulus pro|
|00001fd0| 67 72 61 6d 20 6f 66 20 | 74 68 65 20 79 65 61 72 |gram of |the year|
|00001fe0| 8b 92 2b 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..+ ----|--------|
|00001ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002000| 2d 2d 2d 2d 8b 92 92 2b | 12 49 6e 70 75 74 20 74 |----...+|.Input t|
|00002010| 68 65 20 66 75 6e 63 74 | 69 6f 6e ec 01 07 26 00 |he funct|ion...&.|
|00002020| 2b 02 59 3d ed 06 57 37 | 80 06 7e 24 4f 01 7c 86 |+.Y=..W7|..~$O.|.|
|00002030| 06 7f 12 4f 01 7c 86 06 | 7f 12 02 7f 12 4f 01 7c |...O.|..|.....O.||
|00002040| 4a 86 07 63 0c 03 26 00 | 02 7f 12 4f 01 7c 4e 79 |J..c..&.|...O.|Ny|
|00002050| 4f 01 57 cc 87 02 7f 12 | 79 17 85 0c 03 63 0c 87 |O.W.....|y....c..|
|00002060| 02 7f 12 79 13 85 0c 2b | 01 58 43 02 7f 12 79 13 |...y...+|.XC...y.|
|00002070| 85 0c 2b 01 78 43 60 5b | 15 00 02 7f 12 79 17 8a |..+.xC`[|.....y..|
|00002080| 12 2b 05 58 54 45 52 4d | 87 bf 18 00 02 7f 12 79 |.+.XTERM|.......y|
|00002090| 17 8a 12 2b 0b 43 4f 45 | 46 46 49 43 49 45 4e 54 |...+.COE|FFICIENT|
|000020a0| 87 02 7f 12 79 13 85 0c | 2b 01 2b 43 5b 0d 00 04 |....y...|+.+C[...|
|000020b0| 58 0c 00 58 0c 4f 01 48 | 84 02 7f 12 4f 01 7c 4e |X..X.O.H|....O.|N|
|000020c0| 79 13 85 0c 2b 01 5e 43 | 02 7f 12 4f 01 7c 4e 79 |y...+.^C|...O.|Ny|
|000020d0| 13 85 0c 2b 01 5e 43 60 | 5b 17 00 02 7f 12 79 17 |...+.^C`|[.....y.|
|000020e0| 8a 12 2b 0a 50 4f 57 45 | 52 53 54 41 52 54 87 02 |..+.POWE|RSTART..|
|000020f0| 7f 12 79 13 85 0c 2b 01 | 2b 43 5b 15 00 02 7f 12 |..y...+.|+C[.....|
|00002100| 79 17 8a 12 2b 08 50 4f | 57 45 52 45 4e 44 87 03 |y...+.PO|WEREND..|
|00002110| 63 0c 2b 00 43 5b 22 ff | 06 7f 12 02 7f 12 4f 01 |c.+.C[".|......O.|
|00002120| 7c 4a 86 02 7f 12 79 17 | 8a 12 2b 00 87 02 7f 12 ||J....y.|..+.....|
|00002130| 4f 1e 7c 42 5b e4 ff 06 | 7f 12 4f 01 7c 86 06 7e |O.|B[...|..O.|..~|
|00002140| 24 4f 00 7c 86 06 7e 24 | 02 7e 24 4f 01 7c 4a 86 |$O.|..~$|.~$O.|J.|
|00002150| 06 7f 12 02 7f 12 4f 01 | 7c 4a 86 02 7f 12 79 13 |......O.||J....y.|
|00002160| 8a 12 2b 0b 43 4f 45 46 | 46 49 43 49 45 4e 54 43 |..+.COEF|FICIENTC|
|00002170| 5b 1a 00 02 7e 24 79 17 | 84 1e 02 7e 24 79 13 84 |[...~$y.|...~$y..|
|00002180| 1e 02 7f 12 79 13 85 0c | 4b 87 02 7f 12 4f 01 7c |....y...|K....O.||
|00002190| 4a 79 13 85 0c 2b 01 58 | 43 02 7f 12 4f 01 7c 4a |Jy...+.X|C...O.|J|
|000021a0| 79 13 85 0c 2b 01 78 43 | 60 5b a7 ff 06 7f 12 02 |y...+.xC|`[......|
|000021b0| 7f 12 4f 02 7c 4a 86 06 | 7f 12 02 7f 12 4f 01 7c |..O.|J..|.....O.||
|000021c0| 4a 86 02 7f 12 79 13 8a | 12 2b 0b 43 4f 45 46 46 |J....y..|.+.COEFF|
|000021d0| 49 43 49 45 4e 54 47 02 | 7f 12 79 13 8a 12 2b 0a |ICIENTG.|..y...+.|
|000021e0| 50 4f 57 45 52 53 54 41 | 52 54 47 60 5b 1a 00 02 |POWERSTA|RTG`[...|
|000021f0| 7e 24 79 17 87 18 02 7e | 24 79 13 87 18 02 7f 12 |~$y....~|$y......|
|00002200| 79 13 85 0c 4b 87 02 7f | 12 4f 01 7c 4a 79 13 8a |y...K...|.O.|Jy..|
|00002210| 12 2b 00 43 02 7f 12 4f | 01 7c 4a 79 13 8a 12 2b |.+.C...O|.|Jy...+|
|00002220| 08 50 4f 57 45 52 45 4e | 44 43 60 5b 8c ff 02 7e |.POWEREN|DC`[...~|
|00002230| 24 00 58 0c 4f 01 48 7c | 42 5b 0c ff a2 2b 0b 46 |$.X.O.H||B[...+.F|
|00002240| 75 6e 63 74 69 6f 6e 20 | 59 3d 8b 03 26 00 8b 92 |unction |Y=..&...|
|00002250| 92 2b 0b 31 3d 49 6e 74 | 65 67 72 61 74 65 8b 92 |.+.1=Int|egrate..|
|00002260| 2b 0f 32 3d 44 69 66 66 | 65 72 65 6e 74 69 61 74 |+.2=Diff|erentiat|
|00002270| 65 8b 92 2b 1e 33 3d 54 | 79 70 65 20 61 20 64 69 |e..+.3=T|ype a di|
|00002280| 66 66 65 72 65 6e 74 20 | 66 75 6e 63 74 69 6f 6e |fferent |function|
|00002290| 20 69 6e 8b 92 2b 05 34 | 3d 45 4e 44 8b 92 07 5c | in..+.4|=END...\|
|000022a0| 00 57 c7 87 03 5c 00 2b | 01 31 43 5b 2a 01 06 7e |.W...\.+|.1C[*..~|
|000022b0| 24 4f 00 7c 86 06 7e 24 | 02 7e 24 4f 01 7c 4a 86 |$O.|..~$|.~$O.|J.|
|000022c0| 02 7e 24 79 13 87 18 2b | 00 43 5b 0e 00 02 7e 24 |.~$y...+|.C[...~$|
|000022d0| 79 17 87 18 2b 01 31 87 | 02 7e 24 79 13 84 1e 2b |y...+.1.|.~$y...+|
|000022e0| 00 43 5b 0e 00 02 7e 24 | 79 17 84 1e 2b 01 31 87 |.C[...~$|y...+.1.|
|000022f0| 06 86 24 02 7e 24 79 13 | 87 18 2b 02 2b 31 4b 57 |..$.~$y.|..+.+1KW|
|00002300| 99 86 02 7e 24 79 17 5e | 06 02 86 24 4f 02 4f 08 |...~$y.^|...$O.O.|
|00002310| 57 c5 87 06 8e 24 02 7e | 24 79 13 84 1e 2b 01 2f |W....$.~|$y...+./|
|00002320| 4b 02 7e 24 79 13 5e 06 | 4b 57 99 86 02 7e 24 79 |K.~$y.^.|KW...~$y|
|00002330| 17 61 00 02 8e 24 4f 02 | 4f 08 57 c5 87 02 7e 24 |.a...$O.|O.W...~$|
|00002340| 00 58 0c 4f 01 48 7c 42 | 5b 6d ff 92 06 7e 24 4f |.X.O.H|B|[m...~$O|
|00002350| 00 7c 86 2b 10 54 68 65 | 20 69 6e 74 65 67 72 61 |.|.+.The| integra|
|00002360| 6c 20 6f 66 20 8b 03 26 | 00 8b 2b 05 20 69 73 20 |l of ..&|..+. is |
|00002370| 3a 8b 92 92 06 7e 24 02 | 7e 24 4f 01 7c 4a 86 2b |:....~$.|~$O.|J.+|
|00002380| 01 28 8b 02 7e 24 79 13 | 61 00 8b 2b 02 58 5e 8b |.(..~$y.|a..+.X^.|
|00002390| 02 7e 24 79 13 5e 06 8b | 2b 04 29 20 2b 20 8b 02 |.~$y.^..|+.) + ..|
|000023a0| 7e 24 00 58 0c 4f 01 48 | 7c 42 5b 16 00 4f 08 57 |~$.X.O.H||B[..O.W|
|000023b0| c0 8b 4f 08 57 c0 8b 2b | 05 20 2b 20 63 20 8b 92 |..O.W..+|. + c ..|
|000023c0| 02 7e 24 00 58 0c 4f 01 | 48 7c 42 5b a9 ff 06 5a |.~$.X.O.|H|B[...Z|
|000023d0| 0c 57 0a 7c 86 03 5c 00 | 2b 01 32 43 5b 34 01 06 |.W.|..\.|+.2C[4..|
|000023e0| 7e 24 4f 00 7c 86 06 7e | 24 02 7e 24 4f 01 7c 4a |~$O.|..~|$.~$O.|J|
|000023f0| 86 02 7e 24 79 13 87 18 | 2b 00 43 5b 0e 00 02 7e |..~$y...|+.C[...~|
|00002400| 24 79 17 87 18 2b 01 31 | 87 02 7e 24 79 13 84 1e |$y...+.1|..~$y...|
|00002410| 2b 00 43 5b 0e 00 02 7e | 24 79 17 84 1e 2b 01 31 |+.C[...~|$y...+.1|
|00002420| 87 06 86 24 02 7e 24 79 | 13 87 18 2b 02 2d 31 4b |...$.~$y|...+.-1K|
|00002430| 57 99 86 02 7e 24 79 17 | 5e 06 02 86 24 4f 02 4f |W...~$y.|^...$O.O|
|00002440| 08 57 c5 87 06 8e 24 02 | 7e 24 79 13 84 1e 2b 02 |.W....$.|~$y...+.|
|00002450| 2a 28 4b 02 7e 24 79 13 | 5e 06 4b 2b 03 2b 31 29 |*(K.~$y.|^.K+.+1)|
|00002460| 4b 57 99 86 02 7e 24 79 | 17 61 00 02 8e 24 4f 02 |KW...~$y|.a...$O.|
|00002470| 4f 08 57 c5 87 02 7e 24 | 00 58 0c 4f 01 48 7c 42 |O.W...~$|.X.O.H|B|
|00002480| 5b 66 ff 92 06 7e 24 4f | 00 7c 86 2b 14 54 68 65 |[f...~$O|.|.+.The|
|00002490| 20 64 69 66 66 65 72 65 | 6e 74 69 61 6c 20 6f 66 | differe|ntial of|
|000024a0| 20 8b 03 26 00 8b 2b 05 | 20 69 73 20 3a 8b 92 92 | ..&..+.| is :...|
|000024b0| 06 7e 24 02 7e 24 4f 01 | 7c 4a 86 2b 01 28 8b 02 |.~$.~$O.||J.+.(..|
|000024c0| 7e 24 79 13 61 00 8b 2b | 02 58 5e 8b 02 7e 24 79 |~$y.a..+|.X^..~$y|
|000024d0| 13 5e 06 8b 2b 04 29 20 | 2b 20 8b 02 7e 24 00 58 |.^..+.) |+ ..~$.X|
|000024e0| 0c 4f 01 48 7c 42 5b 15 | 00 4f 08 57 c0 8b 4f 08 |.O.H|B[.|.O.W..O.|
|000024f0| 57 c0 8b 2b 04 20 20 20 | 20 8b 92 02 7e 24 00 58 |W..+. | ...~$.X|
|00002500| 0c 4f 01 48 7c 42 5b aa | ff 06 5a 0c 57 0a 7c 86 |.O.H|B[.|..Z.W.|.|
|00002510| 03 5c 00 2b 01 33 43 5b | 07 00 53 1b 00 82 03 5c |.\.+.3C[|..S....\|
|00002520| 00 2b 01 34 43 5b 17 fd | 76 08 43 41 4c 43 55 4c |.+.4C[..|v.CALCUL|
|00002530| 55 53 3a 00 00 00 00 00 | 00 00 1a 82 46 49 4e 44 |US:.....|....FIND|
|00002540| 4c 49 4e 45 2f 4f 50 4f | 00 f7 01 00 00 7e 1e b4 |LINE/OPO|.....~..|
|00002550| a9 2b 29 f7 01 00 00 45 | e4 ff ff 90 87 b1 fa 03 |.+)....E|........|
|00002560| 00 00 00 4f 50 4c 4f 62 | 6a 65 63 74 46 69 6c 65 |...OPLOb|jectFile|
|00002570| 2a 2a 00 01 00 2e 00 19 | 4c 4f 43 3a 3a 4d 3a 5c |**......|LOC::M:\|
|00002580| 4f 50 4c 5c 46 49 4e 44 | 4c 49 4e 45 2e 4f 50 4c |OPL\FIND|LINE.OPL|
|00002590| 00 f7 01 00 00 1f 11 1f | 11 ea 01 00 00 1a 00 7a |........|.......z|
|000025a0| 00 94 01 16 00 00 00 00 | 06 00 04 46 49 4e 44 00 |........|...FIND.|
|000025b0| 00 00 00 60 00 03 00 00 | 00 a2 2b 1c 46 69 6e 64 |...`....|..+.Find|
|000025c0| 20 74 68 65 20 65 71 75 | 61 74 69 6f 6e 20 6f 66 | the equ|ation of|
|000025d0| 20 61 20 6c 69 6e 65 20 | 8b 92 2b 1b 2d 2d 2d 2d | a line |..+.----|
|000025e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025f0| 2d 2d 2d 2d 2d 2d 2d 8b | 92 92 2b 24 54 68 65 20 |-------.|..+$The |
|00002600| 66 69 72 73 74 20 74 68 | 72 65 65 20 76 61 6c 75 |first th|ree valu|
|00002610| 65 73 20 61 72 65 20 6e | 65 63 63 65 73 61 72 79 |es are n|eccesary|
|00002620| 8b 92 92 06 40 00 4f 00 | 7c 86 06 40 00 02 40 00 |....@.O.||..@..@.|
|00002630| 4f 01 7c 4a 86 2b 16 49 | 6e 70 75 74 20 74 68 65 |O.|J.+.I|nput the|
|00002640| 20 76 61 6c 75 65 20 66 | 6f 72 20 6e 3d 8b 02 40 | value f|or n=..@|
|00002650| 00 8a 2b 02 3a 20 8b 02 | 40 00 79 16 62 00 96 02 |..+.: ..|@.y.b...|
|00002660| 40 00 4f 03 7c 42 5b c4 | ff 06 18 00 4f 01 12 62 |@.O.|B[.|....O..b|
|00002670| 00 4f 02 12 62 00 4e 4f | 02 12 62 00 4e 4f 03 12 |.O..b.NO|..b.NO..|
|00002680| 62 00 4a 4f 02 7c 56 86 | 06 20 00 4f 02 12 62 00 |b.JO.|V.|. .O..b.|
|00002690| 4f 01 12 62 00 4e 4f 03 | 12 62 00 4e 4f 02 12 62 |O..b.NO.|.b.NO..b|
|000026a0| 00 4a 4f 02 12 62 00 4a | 4f 01 12 62 00 4e 02 18 |.JO..b.J|O..b.N..|
|000026b0| 00 4e 86 06 28 00 4f 02 | 7c 02 18 00 52 4f 02 12 |.N..(.O.||...RO..|
|000026c0| 62 00 4e 4f 01 12 62 00 | 4a 4f 01 12 62 00 4a 86 |b.NO..b.|JO..b.J.|
|000026d0| 92 2b 10 54 68 65 20 65 | 71 75 61 74 69 6f 6e 20 |.+.The e|quation |
|000026e0| 69 73 20 8b 92 02 18 00 | 4f 00 7c 3a 5b 2a 00 2b |is .....|O.|:[*.+|
|000026f0| 04 79 20 3d 20 8b 02 18 | 00 8a 2b 06 78 5e 32 20 |.y = ...|..+.x^2 |
|00002700| 2b 20 8b 02 20 00 8a 2b | 04 78 20 2b 20 8b 02 28 |+ .. ..+|.x + ..(|
|00002710| 00 8a 92 bf 32 00 02 20 | 00 4f 00 7c 3a 5b 1d 00 |....2.. |.O.|:[..|
|00002720| 2b 04 79 20 3d 20 8b 02 | 20 00 8a 2b 04 78 20 2b |+.y = ..| ..+.x +|
|00002730| 20 8b 02 28 00 8a 92 bf | 0e 00 2b 03 79 3d 20 8b | ..(....|..+.y= .|
|00002740| 02 28 00 8a 92 57 0a 80 | 53 12 00 82 76 04 46 49 |.(...W..|S...v.FI|
|00002750| 4e 44 3a 00 00 00 00 00 | 00 00 1a 00 1a 82 52 65 |ND:.....|......Re|
|00002760| 61 64 4d 65 00 00 14 87 | 03 00 b8 3d 02 00 00 8c |adMe....|...=....|
|00002770| 1e b8 44 c3 55 3d 02 00 | 00 46 ff ff ff 26 32 1e |..D.U=..|.F...&2.|
|00002780| 01 03 00 00 00 54 68 65 | 73 65 20 61 72 65 20 53 |.....The|se are S|
|00002790| 33 61 2f 50 42 32 20 4f | 50 4f 20 66 69 6c 65 73 |3a/PB2 O|PO files|
|000027a0| 2e 20 20 54 68 65 20 4f | 50 4c 20 76 65 72 73 69 |. The O|PL versi|
|000027b0| 6f 6e 73 20 63 61 6e 20 | 62 65 20 6c 6f 61 64 65 |ons can |be loade|
|000027c0| 64 20 6f 6e 74 6f 20 20 | 61 0a 53 33 2f 50 42 31 |d onto |a.S3/PB1|
|000027d0| 20 61 6e 64 20 72 65 74 | 72 61 6e 73 6c 61 74 65 | and ret|ranslate|
|000027e0| 64 2e 20 0a 0a 43 61 6c | 63 4d 6f 64 73 20 63 6f |d. ..Cal|cMods co|
|000027f0| 6e 74 61 69 6e 73 20 73 | 74 61 6e 64 61 72 64 20 |ntains s|tandard |
|00002800| 70 72 6f 63 65 64 75 72 | 65 73 2e 20 20 54 68 65 |procedur|es. The|
|00002810| 79 20 63 61 6e 20 62 65 | 0a 72 75 6e 20 66 72 6f |y can be|.run fro|
|00002820| 6d 20 52 75 6e 4f 50 4c | 20 6f 72 20 63 61 6e 20 |m RunOPL| or can |
|00002830| 62 65 20 6c 6f 61 64 65 | 64 20 69 6e 74 6f 20 74 |be loade|d into t|
|00002840| 68 65 20 63 61 6c 63 75 | 6c 61 74 6f 72 20 70 72 |he calcu|lator pr|
|00002850| 6f 67 72 61 6d 20 61 73 | 20 61 20 70 72 6f 63 65 |ogram as| a proce|
|00002860| 64 75 72 65 2e 0a 46 6f | 72 20 74 68 65 20 72 6f |dure..Fo|r the ro|
|00002870| 6f 74 73 20 6f 66 20 61 | 20 71 75 61 64 72 61 74 |ots of a| quadrat|
|00002880| 69 63 20 3a 20 61 78 5e | 32 20 2b 62 78 20 2b 63 |ic : ax^|2 +bx +c|
|00002890| 0a 51 52 54 31 3a 28 61 | 2c 62 2c 63 29 0a 51 52 |.QRT1:(a|,b,c).QR|
|000028a0| 54 32 3a 28 61 2c 62 2c | 63 29 0a 0a 43 61 6c 63 |T2:(a,b,|c)..Calc|
|000028b0| 75 6c 75 73 20 77 69 6c | 6c 20 69 6e 74 65 67 72 |ulus wil|l integr|
|000028c0| 61 74 65 20 61 6e 64 20 | 64 69 66 66 65 72 65 6e |ate and |differen|
|000028d0| 74 69 61 74 65 20 76 65 | 72 79 20 73 69 6d 70 6c |tiate ve|ry simpl|
|000028e0| 65 20 65 78 70 72 65 73 | 73 69 6f 6e 73 2e 20 20 |e expres|sions. |
|000028f0| 55 73 65 20 5e 0a 66 6f | 72 20 74 68 65 20 70 6f |Use ^.fo|r the po|
|00002900| 77 65 72 20 73 69 67 6e | 2e 20 20 0a 47 61 6d 62 |wer sign|. .Gamb|
|00002910| 6c 65 20 69 73 20 6c 69 | 6b 65 20 61 20 66 72 75 |le is li|ke a fru|
|00002920| 69 74 20 6d 61 63 68 69 | 6e 65 2e 0a 46 69 6e 64 |it machi|ne..Find|
|00002930| 6c 69 6e 65 20 77 69 6c | 6c 20 66 69 6e 64 20 74 |line wil|l find t|
|00002940| 68 65 20 65 71 75 61 74 | 69 6f 6e 20 6f 66 20 61 |he equat|ion of a|
|00002950| 20 6c 69 6e 65 20 61 73 | 20 6c 6f 6e 67 20 61 73 | line as| long as|
|00002960| 20 69 74 20 69 73 20 61 | 20 73 74 72 61 69 67 68 | it is a| straigh|
|00002970| 74 20 6c 69 6e 65 0a 6f | 72 20 61 20 71 75 61 64 |t line.o|r a quad|
|00002980| 72 61 74 69 63 2c 20 62 | 79 20 67 69 76 69 6e 67 |ratic, b|y giving|
|00002990| 20 74 68 65 20 66 69 72 | 73 74 20 74 68 72 65 65 | the fir|st three|
|000029a0| 20 70 6f 69 6e 74 73 20 | 6f 66 20 74 68 65 20 6c | points |of the l|
|000029b0| 69 6e 65 20 28 6e 3d 31 | 2c 6e 3d 32 2c 6e 3d 33 |ine (n=1|,n=2,n=3|
|000029c0| 29 0a 1a 00 | |)... | |
+--------+-------------------------+-------------------------+--------+--------+
