|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15104 (0x3b00)
Names: »GRAFER2.CML«
└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
└─ ⟦this⟧ »GRAFER2.CML«
0x0000…0020 30 30 31 30 20 2f 2f 20 47 52 41 46 45 52 32 0d 30 30 32 30 20 2f 2f 0d 30 30 33 30 20 43 4c 45 ┆0010 // GRAFER2 0020 // 0030 CLE┆
0x0020…0040 41 52 20 0d 30 30 34 30 20 50 52 49 4e 54 20 22 22 32 37 22 63 22 0d 30 30 35 30 20 44 49 4d 20 ┆AR 0040 PRINT ""27"c" 0050 DIM ┆
0x0040…0060 53 56 24 20 4f 46 20 31 2c 20 47 50 24 20 4f 46 20 31 2c 20 54 41 4c 24 20 4f 46 20 32 30 2c 20 ┆SV$ OF 1, GP$ OF 1, TAL$ OF 20, ┆
0x0060…0080 56 54 41 4c 24 20 4f 46 20 31 32 2c 20 48 54 41 4c 24 20 4f 46 20 31 32 0d 30 30 36 30 20 44 49 ┆VTAL$ OF 12, HTAL$ OF 12 0060 DI┆
0x0080…00a0 4d 20 56 24 20 4f 46 20 31 2c 20 53 54 52 45 4e 47 24 20 4f 46 20 31 34 0d 30 30 37 30 20 2f 2f ┆M V$ OF 1, STRENG$ OF 14 0070 //┆
0x00a0…00c0 0d 30 30 38 30 20 46 55 4e 43 20 46 28 58 29 0d 30 30 39 30 20 20 20 52 45 54 55 52 4e 20 2d 31 ┆ 0080 FUNC F(X) 0090 RETURN -1┆
0x00c0…00e0 2f 32 2a 58 5e 33 2b 32 2a 58 5e 32 2b 33 2a 58 2b 31 0d 30 31 30 30 20 45 4e 44 46 55 4e 43 20 ┆/2*X^3+2*X^2+3*X+1 0100 ENDFUNC ┆
0x00e0…0100 46 0d 30 31 31 30 20 2f 2f 0d 30 31 32 30 20 43 55 52 53 4f 52 20 38 2c 20 33 0d 30 31 33 30 20 ┆F 0110 // 0120 CURSOR 8, 3 0130 ┆
0x0100…0120 50 52 49 4e 54 20 22 49 20 70 72 6f 67 72 61 6d 6d 65 74 20 69 6e 64 74 61 73 74 65 73 20 66 75 ┆PRINT "I programmet indtastes fu┆
0x0120…0140 6e 6b 74 69 6f 6e 73 75 64 74 72 79 6b 6b 65 74 2c 20 73 6f 6d 20 61 6e 67 69 76 65 74 20 68 65 ┆nktionsudtrykket, som angivet he┆
0x0140…0160 72 75 6e 64 65 72 2e 22 0d 30 31 34 30 20 50 52 49 4e 54 20 0d 30 31 35 30 20 50 52 49 4e 54 20 ┆runder." 0140 PRINT 0150 PRINT ┆
0x0160…0180 54 41 42 28 38 29 2c 22 44 65 74 20 67 72 61 66 69 73 6b 65 20 62 69 6c 6c 65 64 65 20 74 65 67 ┆TAB(8),"Det grafiske billede teg┆
0x0180…01a0 6e 65 73 2c 20 6f 67 20 64 65 72 20 65 72 20 6e 75 20 66 6c 67 2e 20 6d 75 6c 69 67 68 65 64 65 ┆nes, og der er nu flg. mulighede┆
0x01a0…01c0 72 3a 22 0d 30 31 36 30 20 50 52 49 4e 54 20 0d 30 31 37 30 20 50 52 49 4e 54 20 54 41 42 28 38 ┆r:" 0160 PRINT 0170 PRINT TAB(8┆
0x01c0…01e0 29 2c 22 2d 20 6c 6f 6b 61 6c 74 20 6d 61 78 69 6d 75 6d 2d 62 65 72 65 67 6e 69 6e 67 22 3b 0d ┆),"- lokalt maximum-beregning"; ┆
0x01e0…0200 30 31 38 30 20 50 52 49 4e 54 20 54 41 42 28 34 30 29 2c 22 2d 20 62 65 72 65 67 6e 69 6e 67 20 ┆0180 PRINT TAB(40),"- beregning ┆
0x0200…0220 61 66 20 66 75 6e 6b 74 69 6f 6e 73 76 7b 72 64 69 65 72 22 0d 30 31 39 30 20 50 52 49 4e 54 20 ┆af funktionsværdier" 0190 PRINT ┆
0x0220…0240 54 41 42 28 38 29 2c 22 2d 20 6c 6f 6b 61 6c 74 20 6d 69 6e 69 6d 75 6d 2d 62 65 72 65 67 6e 69 ┆TAB(8),"- lokalt minimum-beregni┆
0x0240…0260 6e 67 22 3b 0d 30 32 30 30 20 50 52 49 4e 54 20 54 41 42 28 34 30 29 2c 22 2d 20 74 65 67 6e 69 ┆ng"; 0200 PRINT TAB(40),"- tegni┆
0x0260…0280 6e 67 20 61 66 20 74 61 6e 67 65 6e 74 20 74 69 6c 20 67 72 61 66 65 6e 22 0d 30 32 31 30 20 50 ┆ng af tangent til grafen" 0210 P┆
0x0280…02a0 52 49 4e 54 20 54 41 42 28 38 29 2c 22 2d 20 6e 75 6c 70 75 6e 6b 74 2d 62 65 73 74 65 6d 6d 65 ┆RINT TAB(8),"- nulpunkt-bestemme┆
0x02a0…02c0 6c 73 65 22 3b 0d 30 32 32 30 20 50 52 49 4e 54 20 54 41 42 28 34 30 29 2c 22 2d 20 62 65 73 74 ┆lse"; 0220 PRINT TAB(40),"- best┆
0x02c0…02e0 65 6d 74 20 69 6e 74 65 67 72 61 74 69 6f 6e 2e 22 0d 30 32 33 30 20 45 58 45 43 20 42 4f 58 28 ┆emt integration." 0230 EXEC BOX(┆
0x02e0…0300 36 2c 32 2c 36 38 2c 39 29 0d 30 32 34 30 20 2f 2f 0d 30 32 35 30 20 54 52 41 50 20 45 52 52 2d ┆6,2,68,9) 0240 // 0250 TRAP ERR-┆
0x0300…0320 0d 30 32 36 30 20 50 52 49 4e 54 20 22 22 32 37 22 43 22 0d 30 32 37 30 20 43 55 52 53 4f 52 20 ┆ 0260 PRINT ""27"C" 0270 CURSOR ┆
0x0320…0340 31 35 2c 20 31 32 0d 30 32 38 30 20 50 52 49 4e 54 20 22 46 75 6e 6b 74 69 6f 6e 65 6e 20 69 6e ┆15, 12 0280 PRINT "Funktionen in┆
0x0340…0360 64 74 61 73 74 65 73 20 76 65 64 20 61 74 20 73 6b 72 69 76 65 20 45 44 49 54 20 39 30 2c 22 0d ┆dtastes ved at skrive EDIT 90," ┆
0x0360…0380 30 32 39 30 20 43 55 52 53 4f 52 20 31 35 2c 20 31 33 0d 30 33 30 30 20 50 52 49 4e 54 20 22 68 ┆0290 CURSOR 15, 13 0300 PRINT "h┆
0x0380…03a0 76 6f 72 65 66 74 65 72 20 64 65 74 20 75 6e 64 65 72 73 74 72 65 67 65 64 65 20 72 65 74 74 65 ┆vorefter det understregede rette┆
0x03a0…03c0 73 2e 22 0d 30 33 31 30 20 43 55 52 53 4f 52 20 32 35 2c 20 31 35 0d 30 33 32 30 20 50 52 49 4e ┆s." 0310 CURSOR 25, 15 0320 PRIN┆
0x03c0…03e0 54 20 22 39 30 20 52 45 54 55 52 4e 20 22 2c 22 22 32 37 22 55 58 5e 33 2d 32 2a 58 2b 33 22 32 ┆T "90 RETURN ",""27"UX^3-2*X+3"2┆
0x03e0…0400 37 22 75 22 2c 22 20 20 20 20 20 3c 52 45 54 55 52 4e 3e 22 0d 30 33 33 30 20 43 55 52 53 4f 52 ┆7"u"," <RETURN>" 0330 CURSOR┆
0x0400…0420 20 32 30 2c 20 31 37 0d 30 33 34 30 20 50 52 49 4e 54 20 22 41 66 73 6c 75 74 20 6d 65 64 20 61 ┆ 20, 17 0340 PRINT "Afslut med a┆
0x0420…0440 74 20 73 6b 72 69 76 65 3a 20 22 2c 22 22 32 37 22 49 20 43 4f 4e 20 22 32 37 22 69 22 0d 30 33 ┆t skrive: ",""27"I CON "27"i" 03┆
0x0440…0460 35 30 20 45 58 45 43 20 42 4f 58 28 32 33 2c 31 34 2c 32 33 2c 33 29 0d 30 33 36 30 20 4c 4f 4f ┆50 EXEC BOX(23,14,23,3) 0360 LOO┆
0x0460…0480 50 20 0d 30 33 37 30 20 20 20 43 55 52 53 4f 52 20 31 2c 20 31 38 0d 30 33 38 30 20 20 20 53 54 ┆P 0370 CURSOR 1, 18 0380 ST┆
0x0480…04a0 4f 50 20 0d 30 33 39 30 20 20 20 43 55 52 53 4f 52 20 33 30 2c 20 32 33 0d 30 34 30 30 20 20 20 ┆OP 0390 CURSOR 30, 23 0400 ┆
0x04a0…04c0 50 52 49 4e 54 20 22 45 72 20 66 75 6e 6b 74 69 6f 6e 73 75 64 74 72 79 6b 6b 65 74 20 4f 4b 3f ┆PRINT "Er funktionsudtrykket OK?┆
0x04c0…04e0 20 20 28 4a 2f 4e 29 3a 20 20 22 2c 0d 30 34 31 30 20 20 20 45 58 45 43 20 48 45 4e 54 54 41 53 ┆ (J/N): ", 0410 EXEC HENTTAS┆
0x04e0…0500 54 28 22 4a 6a 4e 6e 22 29 0d 30 34 32 30 20 20 20 49 46 20 56 24 20 49 4e 20 22 4a 6a 22 20 54 ┆T("JjNn") 0420 IF V$ IN "Jj" T┆
0x0500…0520 48 45 4e 20 45 58 49 54 20 0d 30 34 33 30 20 20 20 46 4f 52 20 4c 4e 3a 3d 31 39 20 54 4f 20 32 ┆HEN EXIT 0430 FOR LN:=19 TO 2┆
0x0520…0540 33 20 44 4f 20 0d 30 34 34 30 20 20 20 20 20 43 55 52 53 4f 52 20 31 2c 20 4c 4e 0d 30 34 35 30 ┆3 DO 0440 CURSOR 1, LN 0450┆
0x0540…0560 20 20 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 54 22 0d 30 34 36 30 20 20 20 4e 45 58 54 20 4c ┆ PRINT ""27"T" 0460 NEXT L┆
0x0560…0580 4e 0d 30 34 37 30 20 45 4e 44 4c 4f 4f 50 20 0d 30 34 38 30 20 2f 2f 0d 30 34 39 30 20 43 4c 45 ┆N 0470 ENDLOOP 0480 // 0490 CLE┆
0x0580…05a0 41 52 20 0d 30 35 30 30 20 58 4d 49 4e 3a 3d 2d 31 30 3b 20 58 4d 41 58 3a 3d 31 30 0d 30 35 31 ┆AR 0500 XMIN:=-10; XMAX:=10 051┆
0x05a0…05c0 30 20 45 58 45 43 20 53 59 53 54 45 4d 0d 30 35 32 30 20 45 58 45 43 20 47 49 54 54 45 52 0d 30 ┆0 EXEC SYSTEM 0520 EXEC GITTER 0┆
0x05c0…05e0 35 33 30 20 45 58 45 43 20 4b 55 52 56 45 0d 30 35 34 30 20 2f 2f 0d 30 35 35 30 20 4e 4f 3a 3d ┆530 EXEC KURVE 0540 // 0550 NO:=┆
0x05e0…0600 30 0d 30 35 36 30 20 4c 4f 4f 50 20 0d 30 35 37 30 20 20 20 45 58 45 43 20 56 41 4c 47 0d 30 35 ┆0 0560 LOOP 0570 EXEC VALG 05┆
0x0600…0620 38 30 20 20 20 49 46 20 56 24 3d 22 20 22 20 54 48 45 4e 20 45 58 49 54 20 0d 30 35 39 30 20 45 ┆80 IF V$=" " THEN EXIT 0590 E┆
0x0620…0640 4e 44 4c 4f 4f 50 20 0d 30 36 30 30 20 2f 2f 0d 30 36 31 30 20 54 52 41 50 20 45 52 52 2b 0d 30 ┆NDLOOP 0600 // 0610 TRAP ERR+ 0┆
0x0640…0660 36 32 30 20 45 4e 44 20 0d 30 36 33 30 20 2f 2f 0d 30 36 34 30 20 2f 2f 20 2a 2a 2a 2a 2a 2a 2a ┆620 END 0630 // 0640 // *******┆
0x0660…0680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0680…06a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 2f 2f 0d 30 36 35 30 20 50 52 4f 43 20 ┆****************** // 0650 PROC ┆
0x06a0…06c0 53 50 5c 52 47 0d 30 36 36 30 20 20 20 4c 4f 4f 50 20 0d 30 36 37 30 20 20 20 20 20 52 45 50 45 ┆SPØRG 0660 LOOP 0670 REPE┆
0x06c0…06e0 41 54 20 0d 30 36 38 30 20 20 20 20 20 20 20 45 58 45 43 20 53 4c 45 54 28 31 39 2c 32 33 29 0d ┆AT 0680 EXEC SLET(19,23) ┆
0x06e0…0700 30 36 39 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 43 22 0d 30 37 30 30 20 20 20 ┆0690 PRINT ""27"C" 0700 ┆
0x0700…0720 20 20 20 20 43 55 52 53 4f 52 20 31 35 2c 20 31 39 0d 30 37 31 30 20 20 20 20 20 20 20 49 4e 50 ┆ CURSOR 15, 19 0710 INP┆
0x0720…0740 55 54 20 22 4b 6f 6f 72 64 69 6e 61 74 73 79 73 74 65 6d 65 74 73 20 58 2d 6d 69 6e 20 28 3c 3d ┆UT "Koordinatsystemets X-min (<=┆
0x0740…0760 30 29 3a 20 22 3a 20 58 4d 49 4e 0d 30 37 32 30 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 33 37 ┆0): ": XMIN 0720 CURSOR 37┆
0x0760…0780 2c 20 32 30 0d 30 37 33 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 6f 67 20 58 2d 6d 61 78 3a ┆, 20 0730 INPUT "og X-max:┆
0x0780…07a0 20 22 3a 20 58 4d 41 58 0d 30 37 34 30 20 20 20 20 20 55 4e 54 49 4c 20 58 4d 49 4e 3c 3d 30 20 ┆ ": XMAX 0740 UNTIL XMIN<=0 ┆
0x07a0…07c0 41 4e 44 20 49 4e 54 28 58 4d 49 4e 29 3d 58 4d 49 4e 20 41 4e 44 20 58 4d 41 58 3e 30 20 41 4e ┆AND INT(XMIN)=XMIN AND XMAX>0 AN┆
0x07c0…07e0 44 20 49 4e 54 28 58 4d 41 58 29 3d 58 4d 41 58 0d 30 37 35 30 20 20 20 20 20 43 55 52 53 4f 52 ┆D INT(XMAX)=XMAX 0750 CURSOR┆
0x07e0…0800 20 33 30 2c 20 32 33 0d 30 37 36 30 20 20 20 20 20 50 52 49 4e 54 20 22 45 72 20 76 7b 72 64 69 ┆ 30, 23 0760 PRINT "Er værdi┆
0x0800…0820 65 72 6e 65 20 4f 4b 3f 20 20 3a 20 22 2c 0d 30 37 37 30 20 20 20 20 20 45 58 45 43 20 48 45 4e ┆erne OK? : ", 0770 EXEC HEN┆
0x0820…0840 54 54 41 53 54 28 22 4a 6a 4e 6e 22 29 0d 30 37 38 30 20 20 20 20 20 50 52 49 4e 54 20 22 22 32 ┆TTAST("JjNn") 0780 PRINT ""2┆
0x0840…0860 37 22 63 22 0d 30 37 39 30 20 20 20 20 20 49 46 20 56 24 20 49 4e 20 22 4a 6a 22 20 54 48 45 4e ┆7"c" 0790 IF V$ IN "Jj" THEN┆
0x0860…0880 20 45 58 49 54 20 0d 30 38 30 30 20 20 20 45 4e 44 4c 4f 4f 50 20 0d 30 38 31 30 20 20 20 45 58 ┆ EXIT 0800 ENDLOOP 0810 EX┆
0x0880…08a0 45 43 20 53 4c 45 54 28 31 39 2c 32 33 29 0d 30 38 32 30 20 45 4e 44 50 52 4f 43 20 53 50 5c 52 ┆EC SLET(19,23) 0820 ENDPROC SPØR┆
0x08a0…08c0 47 0d 30 38 33 30 20 2f 2f 0d 30 38 34 30 20 50 52 4f 43 20 53 59 53 54 45 4d 0d 30 38 35 30 20 ┆G 0830 // 0840 PROC SYSTEM 0850 ┆
0x08c0…08e0 20 20 59 4d 49 4e 3a 3d 58 4d 49 4e 3b 20 59 4d 41 58 3a 3d 58 4d 41 58 0d 30 38 36 30 20 20 20 ┆ YMIN:=XMIN; YMAX:=XMAX 0860 ┆
0x08e0…0900 58 45 3a 3d 28 58 4d 41 58 2d 58 4d 49 4e 29 2f 34 38 30 3b 20 59 45 3a 3d 28 59 4d 41 58 2d 59 ┆XE:=(XMAX-XMIN)/480; YE:=(YMAX-Y┆
0x0900…0920 4d 49 4e 29 2f 32 34 30 0d 30 38 37 30 20 20 20 57 49 4e 44 4f 57 20 58 4d 49 4e 2c 20 58 4d 41 ┆MIN)/240 0870 WINDOW XMIN, XMA┆
0x0920…0940 58 2b 28 58 4d 41 58 2d 58 4d 49 4e 29 2f 33 2c 20 59 4d 49 4e 2c 20 59 4d 41 58 0d 30 38 38 30 ┆X+(XMAX-XMIN)/3, YMIN, YMAX 0880┆
0x0940…0960 20 20 20 53 45 54 4d 41 53 4b 20 32 35 35 0d 30 38 39 30 20 20 20 4d 4f 56 45 54 4f 20 58 4d 49 ┆ SETMASK 255 0890 MOVETO XMI┆
0x0960…0980 4e 2c 20 30 0d 30 39 30 30 20 20 20 44 52 41 57 54 4f 20 58 4d 41 58 2c 20 30 0d 30 39 31 30 20 ┆N, 0 0900 DRAWTO XMAX, 0 0910 ┆
0x0980…09a0 20 20 4d 4f 56 45 54 4f 20 30 2c 20 59 4d 49 4e 0d 30 39 32 30 20 20 20 44 52 41 57 54 4f 20 30 ┆ MOVETO 0, YMIN 0920 DRAWTO 0┆
0x09a0…09c0 2c 20 59 4d 41 58 0d 30 39 33 30 20 20 20 4d 4f 56 45 54 4f 20 31 2c 20 33 2a 59 45 0d 30 39 34 ┆, YMAX 0930 MOVETO 1, 3*YE 094┆
0x09c0…09e0 30 20 20 20 45 58 45 43 20 45 4e 48 45 44 53 50 55 4e 4b 54 45 52 0d 30 39 35 30 20 20 20 49 46 ┆0 EXEC ENHEDSPUNKTER 0950 IF┆
0x09e0…0a00 20 41 42 53 28 58 4d 49 4e 29 3e 3d 32 2a 59 45 20 54 48 45 4e 20 45 58 45 43 20 50 49 4c 0d 30 ┆ ABS(XMIN)>=2*YE THEN EXEC PIL 0┆
0x0a00…0a20 39 36 30 20 20 20 47 50 24 3a 3d 22 53 22 0d 30 39 37 30 20 45 4e 44 50 52 4f 43 20 53 59 53 54 ┆960 GP$:="S" 0970 ENDPROC SYST┆
0x0a20…0a40 45 4d 0d 30 39 38 30 20 2f 2f 0d 30 39 39 30 20 50 52 4f 43 20 4e 59 54 53 59 53 54 45 4d 0d 31 ┆EM 0980 // 0990 PROC NYTSYSTEM 1┆
0x0a40…0a60 30 30 30 20 20 20 45 58 45 43 20 53 4c 45 54 28 31 2c 32 33 29 0d 31 30 31 30 20 20 20 43 55 52 ┆000 EXEC SLET(1,23) 1010 CUR┆
0x0a60…0a80 53 4f 52 20 31 2c 20 32 34 0d 31 30 32 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 59 22 0d 31 ┆SOR 1, 24 1020 PRINT ""27"Y" 1┆
0x0a80…0aa0 30 33 30 20 20 20 45 58 45 43 20 53 50 5c 52 47 0d 31 30 34 30 20 20 20 45 58 45 43 20 53 59 53 ┆030 EXEC SPØRG 1040 EXEC SYS┆
0x0aa0…0ac0 54 45 4d 0d 31 30 35 30 20 20 20 49 46 20 58 4d 41 58 2d 58 4d 49 4e 3c 3d 35 30 20 54 48 45 4e ┆TEM 1050 IF XMAX-XMIN<=50 THEN┆
0x0ac0…0ae0 20 45 58 45 43 20 5b 4e 44 52 45 47 49 54 54 45 52 0d 31 30 36 30 20 20 20 45 58 45 43 20 4b 55 ┆ EXEC ÆNDREGITTER 1060 EXEC KU┆
0x0ae0…0b00 52 56 45 0d 31 30 37 30 20 45 4e 44 50 52 4f 43 20 4e 59 54 53 59 53 54 45 4d 0d 31 30 38 30 20 ┆RVE 1070 ENDPROC NYTSYSTEM 1080 ┆
0x0b00…0b20 2f 2f 0d 31 30 39 30 20 50 52 4f 43 20 5b 4e 44 52 45 47 49 54 54 45 52 0d 31 31 30 30 20 20 20 ┆// 1090 PROC ÆNDREGITTER 1100 ┆
0x0b20…0b40 45 58 45 43 20 4b 4c 41 52 28 32 32 2c 32 33 29 0d 31 31 31 30 20 20 20 50 52 49 4e 54 20 22 22 ┆EXEC KLAR(22,23) 1110 PRINT ""┆
0x0b40…0b60 32 37 22 43 22 0d 31 31 32 30 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 32 32 0d 31 31 33 30 20 ┆27"C" 1120 CURSOR 62, 22 1130 ┆
0x0b60…0b80 20 20 50 52 49 4e 54 20 22 47 69 74 74 65 72 70 75 6e 6b 74 65 72 6e 65 22 0d 31 31 34 30 20 20 ┆ PRINT "Gitterpunkterne" 1140 ┆
0x0b80…0ba0 20 49 46 20 47 50 24 3d 22 54 22 20 54 48 45 4e 20 0d 31 31 35 30 20 20 20 20 20 43 55 52 53 4f ┆ IF GP$="T" THEN 1150 CURSO┆
0x0ba0…0bc0 52 20 36 32 2c 20 32 33 0d 31 31 36 30 20 20 20 20 20 50 52 49 4e 54 20 22 73 6c 65 74 74 65 73 ┆R 62, 23 1160 PRINT "slettes┆
0x0bc0…0be0 3f 20 28 4a 2f 4e 29 3a 20 22 2c 0d 31 31 37 30 20 20 20 20 20 45 58 45 43 20 48 45 4e 54 54 41 ┆? (J/N): ", 1170 EXEC HENTTA┆
0x0be0…0c00 53 54 28 22 4a 6a 4e 6e 22 29 0d 31 31 38 30 20 20 20 20 20 50 52 49 4e 54 20 56 24 0d 31 31 39 ┆ST("JjNn") 1180 PRINT V$ 119┆
0x0c00…0c20 30 20 20 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 63 22 0d 31 32 30 30 20 20 20 20 20 49 46 20 ┆0 PRINT ""27"c" 1200 IF ┆
0x0c20…0c40 56 24 20 49 4e 20 22 4a 6a 22 20 54 48 45 4e 20 0d 31 32 31 30 20 20 20 20 20 20 20 47 50 24 3a ┆V$ IN "Jj" THEN 1210 GP$:┆
0x0c40…0c60 3d 22 53 22 0d 31 32 32 30 20 20 20 20 20 20 20 46 4f 52 20 58 3a 3d 58 4d 49 4e 20 54 4f 20 58 ┆="S" 1220 FOR X:=XMIN TO X┆
0x0c60…0c80 4d 41 58 20 44 4f 20 0d 31 32 33 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 59 3a 3d 59 4d 49 4e ┆MAX DO 1230 FOR Y:=YMIN┆
0x0c80…0ca0 20 54 4f 20 59 4d 41 58 20 44 4f 20 0d 31 32 34 30 20 20 20 20 20 20 20 20 20 20 20 55 4e 50 4c ┆ TO YMAX DO 1240 UNPL┆
0x0ca0…0cc0 4f 54 20 58 2c 20 59 0d 31 32 35 30 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 59 0d 31 32 36 30 ┆OT X, Y 1250 NEXT Y 1260┆
0x0cc0…0ce0 20 20 20 20 20 20 20 4e 45 58 54 20 58 0d 31 32 37 30 20 20 20 20 20 45 4e 44 49 46 20 0d 31 32 ┆ NEXT X 1270 ENDIF 12┆
0x0ce0…0d00 38 30 20 20 20 45 4c 49 46 20 47 50 24 3d 22 53 22 20 54 48 45 4e 20 0d 31 32 39 30 20 20 20 20 ┆80 ELIF GP$="S" THEN 1290 ┆
0x0d00…0d20 20 43 55 52 53 4f 52 20 36 32 2c 20 32 33 0d 31 33 30 30 20 20 20 20 20 50 52 49 4e 54 20 22 74 ┆ CURSOR 62, 23 1300 PRINT "t┆
0x0d20…0d40 65 67 6e 65 73 3f 20 28 4a 2f 4e 29 3a 20 22 2c 0d 31 33 31 30 20 20 20 20 20 45 58 45 43 20 48 ┆egnes? (J/N): ", 1310 EXEC H┆
0x0d40…0d60 45 4e 54 54 41 53 54 28 22 4a 6a 4e 6e 22 29 0d 31 33 32 30 20 20 20 20 20 50 52 49 4e 54 20 56 ┆ENTTAST("JjNn") 1320 PRINT V┆
0x0d60…0d80 24 0d 31 33 33 30 20 20 20 20 20 49 46 20 56 24 20 49 4e 20 22 4a 6a 22 20 54 48 45 4e 20 45 58 ┆$ 1330 IF V$ IN "Jj" THEN EX┆
0x0d80…0da0 45 43 20 47 49 54 54 45 52 0d 31 33 34 30 20 20 20 45 4e 44 49 46 20 0d 31 33 35 30 20 20 20 45 ┆EC GITTER 1340 ENDIF 1350 E┆
0x0da0…0dc0 58 45 43 20 4b 4c 41 52 28 32 32 2c 32 33 29 0d 31 33 36 30 20 45 4e 44 50 52 4f 43 20 5b 4e 44 ┆XEC KLAR(22,23) 1360 ENDPROC ÆND┆
0x0dc0…0de0 52 45 47 49 54 54 45 52 0d 31 33 37 30 20 2f 2f 0d 31 33 38 30 20 50 52 4f 43 20 47 49 54 54 45 ┆REGITTER 1370 // 1380 PROC GITTE┆
0x0de0…0e00 52 0d 31 33 39 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 63 22 0d 31 34 30 30 20 20 20 47 50 ┆R 1390 PRINT ""27"c" 1400 GP┆
0x0e00…0e20 24 3a 3d 22 54 22 0d 31 34 31 30 20 20 20 46 4f 52 20 58 3a 3d 58 4d 49 4e 20 54 4f 20 58 4d 41 ┆$:="T" 1410 FOR X:=XMIN TO XMA┆
0x0e20…0e40 58 20 44 4f 20 0d 31 34 32 30 20 20 20 20 20 46 4f 52 20 59 3a 3d 59 4d 49 4e 20 54 4f 20 59 4d ┆X DO 1420 FOR Y:=YMIN TO YM┆
0x0e40…0e60 41 58 20 44 4f 20 0d 31 34 33 30 20 20 20 20 20 20 20 50 4c 4f 54 20 58 2c 20 59 0d 31 34 34 30 ┆AX DO 1430 PLOT X, Y 1440┆
0x0e60…0e80 20 20 20 20 20 4e 45 58 54 20 59 0d 31 34 35 30 20 20 20 4e 45 58 54 20 58 0d 31 34 36 30 20 45 ┆ NEXT Y 1450 NEXT X 1460 E┆
0x0e80…0ea0 4e 44 50 52 4f 43 20 47 49 54 54 45 52 0d 31 34 37 30 20 2f 2f 0d 31 34 38 30 20 50 52 4f 43 20 ┆NDPROC GITTER 1470 // 1480 PROC ┆
0x0ea0…0ec0 45 4e 48 45 44 53 50 55 4e 4b 54 45 52 0d 31 34 39 30 20 20 20 4d 4f 56 45 54 4f 20 31 2c 20 33 ┆ENHEDSPUNKTER 1490 MOVETO 1, 3┆
0x0ec0…0ee0 2a 59 45 0d 31 35 30 30 20 20 20 49 46 20 58 4d 49 4e 3c 30 20 54 48 45 4e 20 0d 31 35 31 30 20 ┆*YE 1500 IF XMIN<0 THEN 1510 ┆
0x0ee0…0f00 20 20 20 20 44 52 41 57 20 30 2c 20 2d 36 2a 59 45 0d 31 35 32 30 20 20 20 45 4c 53 45 20 0d 31 ┆ DRAW 0, -6*YE 1520 ELSE 1┆
0x0f00…0f20 35 33 30 20 20 20 20 20 44 52 41 57 20 30 2c 20 2d 33 2a 59 45 0d 31 35 34 30 20 20 20 45 4e 44 ┆530 DRAW 0, -3*YE 1540 END┆
0x0f20…0f40 49 46 20 0d 31 35 35 30 20 20 20 4d 4f 56 45 54 4f 20 33 2a 58 45 2c 20 31 0d 31 35 36 30 20 20 ┆IF 1550 MOVETO 3*XE, 1 1560 ┆
0x0f40…0f60 20 49 46 20 58 4d 49 4e 3c 30 20 54 48 45 4e 20 0d 31 35 37 30 20 20 20 20 20 44 52 41 57 20 2d ┆ IF XMIN<0 THEN 1570 DRAW -┆
0x0f60…0f80 36 2a 58 45 2c 20 30 0d 31 35 38 30 20 20 20 45 4c 53 45 20 0d 31 35 39 30 20 20 20 20 20 44 52 ┆6*XE, 0 1580 ELSE 1590 DR┆
0x0f80…0fa0 41 57 20 2d 33 2a 58 45 2c 20 30 0d 31 36 30 30 20 20 20 45 4e 44 49 46 20 0d 31 36 31 30 20 45 ┆AW -3*XE, 0 1600 ENDIF 1610 E┆
0x0fa0…0fc0 4e 44 50 52 4f 43 20 45 4e 48 45 44 53 50 55 4e 4b 54 45 52 0d 31 36 32 30 20 2f 2f 0d 31 36 33 ┆NDPROC ENHEDSPUNKTER 1620 // 163┆
0x0fc0…0fe0 30 20 50 52 4f 43 20 50 49 4c 0d 31 36 34 30 20 20 20 4d 4f 56 45 54 4f 20 58 4d 41 58 2c 20 30 ┆0 PROC PIL 1640 MOVETO XMAX, 0┆
0x0fe0…1000 0d 31 36 35 30 20 20 20 44 52 41 57 20 2d 35 2a 58 45 2c 20 32 2a 59 45 0d 31 36 36 30 20 20 20 ┆ 1650 DRAW -5*XE, 2*YE 1660 ┆
0x1000…1020 44 52 41 57 20 30 2c 20 2d 34 2a 59 45 0d 31 36 37 30 20 20 20 44 52 41 57 20 35 2a 58 45 2c 20 ┆DRAW 0, -4*YE 1670 DRAW 5*XE, ┆
0x1020…1040 32 2a 59 45 0d 31 36 38 30 20 20 20 4d 4f 56 45 54 4f 20 30 2c 20 59 4d 41 58 0d 31 36 39 30 20 ┆2*YE 1680 MOVETO 0, YMAX 1690 ┆
0x1040…1060 20 20 44 52 41 57 20 2d 33 2a 58 45 2c 20 2d 33 2a 59 45 0d 31 37 30 30 20 20 20 44 52 41 57 20 ┆ DRAW -3*XE, -3*YE 1700 DRAW ┆
0x1060…1080 36 2a 58 45 2c 20 30 0d 31 37 31 30 20 20 20 44 52 41 57 20 2d 33 2a 58 45 2c 20 33 2a 59 45 0d ┆6*XE, 0 1710 DRAW -3*XE, 3*YE ┆
0x1080…10a0 31 37 32 30 20 45 4e 44 50 52 4f 43 20 50 49 4c 0d 31 37 33 30 20 2f 2f 0d 31 37 34 30 20 50 52 ┆1720 ENDPROC PIL 1730 // 1740 PR┆
0x10a0…10c0 4f 43 20 53 4c 45 54 28 46 52 41 2c 20 54 49 4c 29 0d 31 37 35 30 20 20 20 50 52 49 4e 54 20 22 ┆OC SLET(FRA, TIL) 1750 PRINT "┆
0x10c0…10e0 22 32 37 22 63 22 0d 31 37 36 30 20 20 20 46 4f 52 20 5a 3a 3d 46 52 41 20 54 4f 20 54 49 4c 20 ┆"27"c" 1760 FOR Z:=FRA TO TIL ┆
0x10e0…1100 44 4f 20 0d 31 37 37 30 20 20 20 20 20 43 55 52 53 4f 52 20 31 2c 20 5a 0d 31 37 38 30 20 20 20 ┆DO 1770 CURSOR 1, Z 1780 ┆
0x1100…1120 20 20 50 52 49 4e 54 20 53 50 43 24 28 36 31 29 0d 31 37 39 30 20 20 20 4e 45 58 54 20 5a 0d 31 ┆ PRINT SPC$(61) 1790 NEXT Z 1┆
0x1120…1140 38 30 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 43 22 0d 31 38 31 30 20 45 4e 44 50 52 4f 43 ┆800 PRINT ""27"C" 1810 ENDPROC┆
0x1140…1160 20 53 4c 45 54 0d 31 38 32 30 20 2f 2f 0d 31 38 33 30 20 50 52 4f 43 20 4b 4c 41 52 28 46 52 41 ┆ SLET 1820 // 1830 PROC KLAR(FRA┆
0x1160…1180 2c 20 54 49 4c 29 0d 31 38 34 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 63 22 0d 31 38 35 30 ┆, TIL) 1840 PRINT ""27"c" 1850┆
0x1180…11a0 20 20 20 46 4f 52 20 49 3a 3d 46 52 41 20 54 4f 20 54 49 4c 20 44 4f 20 0d 31 38 36 30 20 20 20 ┆ FOR I:=FRA TO TIL DO 1860 ┆
0x11a0…11c0 20 20 43 55 52 53 4f 52 20 36 32 2c 20 49 0d 31 38 37 30 20 20 20 20 20 50 52 49 4e 54 20 22 22 ┆ CURSOR 62, I 1870 PRINT ""┆
0x11c0…11e0 32 37 22 54 22 0d 31 38 38 30 20 20 20 4e 45 58 54 20 49 0d 31 38 39 30 20 20 20 50 52 49 4e 54 ┆27"T" 1880 NEXT I 1890 PRINT┆
0x11e0…1200 20 22 22 32 37 22 43 22 0d 31 39 30 30 20 45 4e 44 50 52 4f 43 20 4b 4c 41 52 0d 31 39 31 30 20 ┆ ""27"C" 1900 ENDPROC KLAR 1910 ┆
0x1200…1220 2f 2f 0d 31 39 32 30 20 50 52 4f 43 20 4b 55 52 56 45 0d 31 39 33 30 20 20 20 50 52 49 4e 54 20 ┆// 1920 PROC KURVE 1930 PRINT ┆
0x1220…1240 22 22 32 37 22 63 22 0d 31 39 34 30 20 20 20 49 3a 3d 58 4d 49 4e 0d 31 39 35 30 20 20 20 57 48 ┆""27"c" 1940 I:=XMIN 1950 WH┆
0x1240…1260 49 4c 45 20 49 3c 3d 58 4d 41 58 20 44 4f 20 0d 31 39 36 30 20 20 20 20 20 49 3a 3d 49 2b 33 2a ┆ILE I<=XMAX DO 1960 I:=I+3*┆
0x1260…1280 58 45 0d 31 39 37 30 20 20 20 20 20 49 46 20 46 28 49 29 3e 3d 59 4d 49 4e 20 41 4e 44 20 46 28 ┆XE 1970 IF F(I)>=YMIN AND F(┆
0x1280…12a0 49 29 3c 3d 59 4d 41 58 20 54 48 45 4e 20 0d 31 39 38 30 20 20 20 20 20 20 20 4d 4f 56 45 54 4f ┆I)<=YMAX THEN 1980 MOVETO┆
0x12a0…12c0 20 49 2c 20 46 28 49 29 0d 31 39 39 30 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 45 52 52 28 29 ┆ I, F(I) 1990 IF NOT ERR()┆
0x12c0…12e0 20 54 48 45 4e 20 0d 32 30 30 30 20 20 20 20 20 20 20 20 20 4c 4f 4f 50 20 0d 32 30 31 30 20 20 ┆ THEN 2000 LOOP 2010 ┆
0x12e0…1300 20 20 20 20 20 20 20 20 20 49 3a 3d 49 2b 58 45 0d 32 30 32 30 20 20 20 20 20 20 20 20 20 20 20 ┆ I:=I+XE 2020 ┆
0x1300…1320 49 46 20 46 28 49 29 3c 59 4d 49 4e 20 4f 52 20 46 28 49 29 3e 59 4d 41 58 20 4f 52 20 49 3e 3d ┆IF F(I)<YMIN OR F(I)>YMAX OR I>=┆
0x1320…1340 58 4d 41 58 20 54 48 45 4e 20 45 58 49 54 20 0d 32 30 33 30 20 20 20 20 20 20 20 20 20 20 20 49 ┆XMAX THEN EXIT 2030 I┆
0x1340…1360 46 20 45 52 52 28 29 20 54 48 45 4e 20 4d 4f 56 45 54 4f 20 49 2c 20 46 28 49 29 0d 32 30 34 30 ┆F ERR() THEN MOVETO I, F(I) 2040┆
0x1360…1380 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 45 52 52 28 29 20 54 48 45 4e 20 44 52 41 ┆ IF NOT ERR() THEN DRA┆
0x1380…13a0 57 54 4f 20 49 2c 20 46 28 49 29 0d 32 30 35 30 20 20 20 20 20 20 20 20 20 45 4e 44 4c 4f 4f 50 ┆WTO I, F(I) 2050 ENDLOOP┆
0x13a0…13c0 20 0d 32 30 36 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 32 30 37 30 20 20 20 20 20 45 4e 44 ┆ 2060 ENDIF 2070 END┆
0x13c0…13e0 49 46 20 0d 32 30 38 30 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 32 30 39 30 20 20 20 50 52 49 4e ┆IF 2080 ENDWHILE 2090 PRIN┆
0x13e0…1400 54 20 22 22 32 37 22 43 22 0d 32 31 30 30 20 45 4e 44 50 52 4f 43 20 4b 55 52 56 45 0d 32 31 31 ┆T ""27"C" 2100 ENDPROC KURVE 211┆
0x1400…1420 30 20 2f 2f 0d 32 31 32 30 20 50 52 4f 43 20 50 41 55 53 45 28 54 49 44 29 0d 32 31 33 30 20 20 ┆0 // 2120 PROC PAUSE(TID) 2130 ┆
0x1420…1440 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 54 49 44 2a 31 30 30 30 20 44 4f 20 0d 32 31 34 30 20 20 ┆ FOR I:=1 TO TID*1000 DO 2140 ┆
0x1440…1460 20 4e 45 58 54 20 49 0d 32 31 35 30 20 45 4e 44 50 52 4f 43 20 50 41 55 53 45 0d 32 31 36 30 20 ┆ NEXT I 2150 ENDPROC PAUSE 2160 ┆
0x1460…1480 2f 2f 0d 32 31 37 30 20 50 52 4f 43 20 4d 41 58 49 4d 55 4d 0d 32 31 38 30 20 20 20 4e 4f 3a 2b ┆// 2170 PROC MAXIMUM 2180 NO:+┆
0x1480…14a0 31 0d 32 31 39 30 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 4e 4f 0d 32 32 30 30 20 20 20 50 52 ┆1 2190 CURSOR 62, NO 2200 PR┆
0x14a0…14c0 49 4e 54 20 22 22 32 37 22 55 4c 6f 6b 61 6c 74 20 6d 61 78 69 6d 75 6d 22 32 37 22 75 22 0d 32 ┆INT ""27"ULokalt maximum"27"u" 2┆
0x14c0…14e0 32 31 30 20 20 20 4c 4f 4f 50 20 0d 32 32 32 30 20 20 20 20 20 4e 4f 3a 2b 31 0d 32 32 33 30 20 ┆210 LOOP 2220 NO:+1 2230 ┆
0x14e0…1500 20 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 31 39 0d 32 32 34 30 20 20 20 20 20 50 52 49 4e 54 ┆ CURSOR 62, 19 2240 PRINT┆
0x1500…1520 20 22 4d 61 78 2e 70 6b 74 2e 20 6d 65 6c 6c 65 6d 22 0d 32 32 35 30 20 20 20 20 20 43 55 52 53 ┆ "Max.pkt. mellem" 2250 CURS┆
0x1520…1540 4f 52 20 36 32 2c 20 32 30 0d 32 32 36 30 20 20 20 20 20 49 4e 50 55 54 20 22 22 3a 20 50 2c 20 ┆OR 62, 20 2260 INPUT "": P, ┆
0x1540…1560 0d 32 32 37 30 20 20 20 20 20 49 4e 50 55 54 20 22 20 6f 67 20 22 3a 20 51 0d 32 32 38 30 20 20 ┆ 2270 INPUT " og ": Q 2280 ┆
0x1560…1580 20 20 20 45 58 45 43 20 4b 4c 41 52 28 31 37 2c 31 38 29 0d 32 32 39 30 20 20 20 20 20 2f 2f 0d ┆ EXEC KLAR(17,18) 2290 // ┆
0x1580…15a0 32 33 30 30 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 30 20 44 4f 20 0d 32 33 31 30 ┆2300 FOR I:=1 TO 50 DO 2310┆
0x15a0…15c0 20 20 20 20 20 20 20 58 31 3a 3d 50 2b 28 51 2d 50 29 2f 33 0d 32 33 32 30 20 20 20 20 20 20 20 ┆ X1:=P+(Q-P)/3 2320 ┆
0x15c0…15e0 58 32 3a 3d 51 2d 28 51 2d 50 29 2f 33 0d 32 33 33 30 20 20 20 20 20 20 20 49 46 20 46 28 58 31 ┆X2:=Q-(Q-P)/3 2330 IF F(X1┆
0x15e0…1600 29 3c 46 28 58 32 29 20 54 48 45 4e 20 0d 32 33 34 30 20 20 20 20 20 20 20 20 20 50 3a 3d 58 31 ┆)<F(X2) THEN 2340 P:=X1┆
0x1600…1620 0d 32 33 35 30 20 20 20 20 20 20 20 45 4c 49 46 20 46 28 58 31 29 3e 3d 46 28 58 32 29 20 54 48 ┆ 2350 ELIF F(X1)>=F(X2) TH┆
0x1620…1640 45 4e 20 0d 32 33 36 30 20 20 20 20 20 20 20 20 20 51 3a 3d 58 32 0d 32 33 37 30 20 20 20 20 20 ┆EN 2360 Q:=X2 2370 ┆
0x1640…1660 20 20 45 4e 44 49 46 20 0d 32 33 38 30 20 20 20 20 20 4e 45 58 54 20 49 0d 32 33 38 32 20 20 20 ┆ ENDIF 2380 NEXT I 2382 ┆
0x1660…1680 20 20 58 58 3a 3d 30 2e 35 2a 28 50 2b 51 29 3b 20 59 59 3a 3d 46 28 58 58 29 0d 32 33 38 33 20 ┆ XX:=0.5*(P+Q); YY:=F(XX) 2383 ┆
0x1680…16a0 20 20 20 20 45 58 45 43 20 44 45 43 49 4d 41 4c 45 52 28 58 58 2c 34 29 0d 32 33 38 34 20 20 20 ┆ EXEC DECIMALER(XX,4) 2384 ┆
0x16a0…16c0 20 20 45 58 45 43 20 44 45 43 49 4d 41 4c 45 52 28 59 59 2c 34 29 0d 32 33 39 30 20 20 20 20 20 ┆ EXEC DECIMALER(YY,4) 2390 ┆
0x16c0…16e0 2f 2f 0d 32 34 30 30 20 20 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 4e 4f 0d 32 34 31 30 20 20 ┆// 2400 CURSOR 62, NO 2410 ┆
0x16e0…1700 20 20 20 50 52 49 4e 54 20 22 28 22 2c 58 58 2c 22 2c 22 2c 59 59 2c 22 29 22 0d 32 34 32 30 20 ┆ PRINT "(",XX,",",YY,")" 2420 ┆
0x1700…1720 20 20 20 20 45 58 45 43 20 4b 4c 41 52 28 31 39 2c 32 30 29 0d 32 34 33 30 20 20 20 20 20 43 55 ┆ EXEC KLAR(19,20) 2430 CU┆
0x1720…1740 52 53 4f 52 20 36 32 2c 20 32 32 0d 32 34 34 30 20 20 20 20 20 50 52 49 4e 54 20 22 4e 79 20 6d ┆RSOR 62, 22 2440 PRINT "Ny m┆
0x1740…1760 61 78 2e 62 65 72 65 67 6e 2e 3f 3a 20 22 2c 0d 32 34 35 30 20 20 20 20 20 45 58 45 43 20 48 45 ┆ax.beregn.?: ", 2450 EXEC HE┆
0x1760…1780 4e 54 54 41 53 54 28 22 4a 6a 4e 6e 22 29 0d 32 34 36 30 20 20 20 20 20 45 58 45 43 20 4b 4c 41 ┆NTTAST("JjNn") 2460 EXEC KLA┆
0x1780…17a0 52 28 31 39 2c 32 33 29 0d 32 34 37 30 20 20 20 20 20 49 46 20 56 24 20 49 4e 20 22 4e 6e 22 20 ┆R(19,23) 2470 IF V$ IN "Nn" ┆
0x17a0…17c0 54 48 45 4e 20 45 58 49 54 20 0d 32 34 38 30 20 20 20 45 4e 44 4c 4f 4f 50 20 0d 32 34 39 30 20 ┆THEN EXIT 2480 ENDLOOP 2490 ┆
0x17c0…17e0 20 20 4e 4f 3a 2b 31 0d 32 35 30 30 20 45 4e 44 50 52 4f 43 20 4d 41 58 49 4d 55 4d 0d 32 35 31 ┆ NO:+1 2500 ENDPROC MAXIMUM 251┆
0x17e0…1800 30 20 2f 2f 0d 32 35 32 30 20 50 52 4f 43 20 4d 49 4e 49 4d 55 4d 0d 32 35 33 30 20 20 20 4e 4f ┆0 // 2520 PROC MINIMUM 2530 NO┆
0x1800…1820 3a 2b 31 0d 32 35 34 30 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 4e 4f 0d 32 35 35 30 20 20 20 ┆:+1 2540 CURSOR 62, NO 2550 ┆
0x1820…1840 50 52 49 4e 54 20 22 22 32 37 22 55 4c 6f 6b 61 6c 74 20 6d 69 6e 69 6d 75 6d 22 32 37 22 75 22 ┆PRINT ""27"ULokalt minimum"27"u"┆
0x1840…1860 0d 32 35 36 30 20 20 20 4c 4f 4f 50 20 0d 32 35 37 30 20 20 20 20 20 4e 4f 3a 2b 31 0d 32 35 38 ┆ 2560 LOOP 2570 NO:+1 258┆
0x1860…1880 30 20 20 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 31 39 0d 32 35 39 30 20 20 20 20 20 50 52 49 ┆0 CURSOR 62, 19 2590 PRI┆
0x1880…18a0 4e 54 20 22 4d 69 6e 2e 70 6b 74 2e 20 6d 65 6c 6c 65 6d 22 0d 32 36 30 30 20 20 20 20 20 43 55 ┆NT "Min.pkt. mellem" 2600 CU┆
0x18a0…18c0 52 53 4f 52 20 36 32 2c 20 32 30 0d 32 36 31 30 20 20 20 20 20 49 4e 50 55 54 20 22 22 3a 20 50 ┆RSOR 62, 20 2610 INPUT "": P┆
0x18c0…18e0 2c 20 0d 32 36 32 30 20 20 20 20 20 49 4e 50 55 54 20 22 20 6f 67 20 22 3a 20 51 0d 32 36 33 30 ┆, 2620 INPUT " og ": Q 2630┆
0x18e0…1900 20 20 20 20 20 2f 2f 0d 32 36 34 30 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 30 20 ┆ // 2640 FOR I:=1 TO 50 ┆
0x1900…1920 44 4f 20 0d 32 36 35 30 20 20 20 20 20 20 20 58 31 3a 3d 50 2b 28 51 2d 50 29 2f 33 0d 32 36 36 ┆DO 2650 X1:=P+(Q-P)/3 266┆
[…truncated at 200 lines…]