|
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 - metrics - download
Length: 1664 (0x680)
Names: »GEM.CML«
└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
└─⟦this⟧ »GEM.CML«
0x000…020 (0,) 39 30 30 30 20 50 52 4f 43 20 53 59 53 54 45 4d 0d 39 30 31 30 20 20 20 59 4d 49 4e 3a 3d 58 4d ┆9000 PROC SYSTEM 9010 YMIN:=XM┆
0x020…040 49 4e 3b 20 59 4d 41 58 3a 3d 58 4d 41 58 0d 39 30 32 30 20 20 20 58 45 3a 3d 28 58 4d 41 58 2d ┆IN; YMAX:=XMAX 9020 XE:=(XMAX-┆
0x040…060 58 4d 49 4e 29 2f 34 38 30 3b 20 59 45 3a 3d 28 59 4d 41 58 2d 59 4d 49 4e 29 2f 32 34 30 0d 39 ┆XMIN)/480; YE:=(YMAX-YMIN)/240 9┆
0x060…080 30 33 30 20 20 20 57 49 4e 44 4f 57 20 58 4d 49 4e 2c 20 58 4d 41 58 2b 28 58 4d 41 58 2d 58 4d ┆030 WINDOW XMIN, XMAX+(XMAX-XM┆
0x080…0a0 49 4e 29 2f 33 2c 20 59 4d 49 4e 2c 20 59 4d 41 58 0d 39 30 34 30 20 20 20 53 45 54 4d 41 53 4b ┆IN)/3, YMIN, YMAX 9040 SETMASK┆
0x0a0…0c0 20 32 35 35 0d 39 30 35 30 20 20 20 4d 4f 56 45 54 4f 20 58 4d 49 4e 2c 20 30 0d 39 30 36 30 20 ┆ 255 9050 MOVETO XMIN, 0 9060 ┆
0x0c0…0e0 20 20 44 52 41 57 54 4f 20 58 4d 41 58 2c 20 30 0d 39 30 37 30 20 20 20 4d 4f 56 45 54 4f 20 30 ┆ DRAWTO XMAX, 0 9070 MOVETO 0┆
0x0e0…100 2c 20 59 4d 49 4e 0d 39 30 38 30 20 20 20 44 52 41 57 54 4f 20 30 2c 20 59 4d 41 58 0d 39 30 39 ┆, YMIN 9080 DRAWTO 0, YMAX 909┆
0x100…120 30 20 20 20 4d 4f 56 45 54 4f 20 31 2c 20 33 2a 59 45 0d 39 31 30 30 20 20 20 45 58 45 43 20 45 ┆0 MOVETO 1, 3*YE 9100 EXEC E┆
0x120…140 4e 48 45 44 53 50 55 4e 4b 54 45 52 0d 39 31 31 30 20 20 20 49 46 20 41 42 53 28 58 4d 49 4e 29 ┆NHEDSPUNKTER 9110 IF ABS(XMIN)┆
0x140…160 3e 3d 32 2a 59 45 20 54 48 45 4e 20 45 58 45 43 20 50 49 4c 0d 39 31 32 30 20 20 20 47 50 24 3a ┆>=2*YE THEN EXEC PIL 9120 GP$:┆
0x160…180 3d 22 53 22 0d 39 31 33 30 20 45 4e 44 50 52 4f 43 20 53 59 53 54 45 4d 0d 39 31 34 30 20 2f 2f ┆="S" 9130 ENDPROC SYSTEM 9140 //┆
0x180…1a0 0d 39 31 35 30 20 50 52 4f 43 20 4e 59 54 53 59 53 54 45 4d 0d 39 31 36 30 20 20 20 45 58 45 43 ┆ 9150 PROC NYTSYSTEM 9160 EXEC┆
0x1a0…1c0 20 53 4c 45 54 28 31 2c 32 33 29 0d 39 31 37 30 20 20 20 43 55 52 53 4f 52 20 31 2c 20 32 34 0d ┆ SLET(1,23) 9170 CURSOR 1, 24 ┆
0x1c0…1e0 39 31 38 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 59 22 0d 39 31 39 30 20 20 20 45 58 45 43 ┆9180 PRINT ""27"Y" 9190 EXEC┆
0x1e0…200 20 53 50 5c 52 47 0d 39 32 30 30 20 20 20 45 58 45 43 20 53 59 53 54 45 4d 0d 39 32 31 30 20 20 ┆ SPØRG 9200 EXEC SYSTEM 9210 ┆
0x200…220 (1,) 20 49 46 20 58 4d 41 58 2d 58 4d 49 4e 3c 3d 35 30 20 54 48 45 4e 20 45 58 45 43 20 5b 4e 44 52 ┆ IF XMAX-XMIN<=50 THEN EXEC ÆNDR┆
0x220…240 45 47 49 54 54 45 52 0d 39 32 32 30 20 20 20 54 54 3a 3d 30 0d 39 32 33 30 20 20 20 4c 4f 4f 50 ┆EGITTER 9220 TT:=0 9230 LOOP┆
0x240…260 20 0d 39 32 34 30 20 20 20 20 20 54 54 3a 2b 31 0d 39 32 35 30 20 20 20 20 20 45 58 45 43 20 4b ┆ 9240 TT:+1 9250 EXEC K┆
0x260…280 55 52 56 45 28 54 54 29 0d 39 32 36 30 20 20 20 20 20 49 46 20 54 54 3d 4e 52 20 54 48 45 4e 20 ┆URVE(TT) 9260 IF TT=NR THEN ┆
0x280…2a0 45 58 49 54 20 0d 39 32 37 30 20 20 20 45 4e 44 4c 4f 4f 50 20 0d 39 32 38 30 20 45 4e 44 50 52 ┆EXIT 9270 ENDLOOP 9280 ENDPR┆
0x2a0…2c0 4f 43 20 4e 59 54 53 59 53 54 45 4d 0d 39 32 39 30 20 2f 2f 0d 39 33 30 30 20 50 52 4f 43 20 5b ┆OC NYTSYSTEM 9290 // 9300 PROC Æ┆
0x2c0…2e0 4e 44 52 45 47 49 54 54 45 52 0d 39 33 31 30 20 20 20 45 58 45 43 20 4b 4c 41 52 28 32 32 2c 32 ┆NDREGITTER 9310 EXEC KLAR(22,2┆
0x2e0…300 33 29 0d 39 33 32 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 43 22 0d 39 33 33 30 20 20 20 43 ┆3) 9320 PRINT ""27"C" 9330 C┆
0x300…320 55 52 53 4f 52 20 36 32 2c 20 32 32 0d 39 33 34 30 20 20 20 50 52 49 4e 54 20 22 47 69 74 74 65 ┆URSOR 62, 22 9340 PRINT "Gitte┆
0x320…340 72 70 75 6e 6b 74 65 72 6e 65 22 0d 39 33 35 30 20 20 20 49 46 20 47 50 24 3d 22 54 22 20 54 48 ┆rpunkterne" 9350 IF GP$="T" TH┆
0x340…360 45 4e 20 0d 39 33 36 30 20 20 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 32 33 0d 39 33 37 30 20 ┆EN 9360 CURSOR 62, 23 9370 ┆
0x360…380 20 20 20 20 50 52 49 4e 54 20 22 73 6c 65 74 74 65 73 3f 20 28 4a 2f 4e 29 3a 20 22 2c 0d 39 33 ┆ PRINT "slettes? (J/N): ", 93┆
0x380…3a0 38 30 20 20 20 20 20 45 58 45 43 20 48 45 4e 54 54 41 53 54 28 22 4a 6a 4e 6e 22 29 0d 39 33 39 ┆80 EXEC HENTTAST("JjNn") 939┆
0x3a0…3c0 30 20 20 20 20 20 50 52 49 4e 54 20 56 24 0d 39 34 30 30 20 20 20 20 20 50 52 49 4e 54 20 22 22 ┆0 PRINT V$ 9400 PRINT ""┆
0x3c0…3e0 32 37 22 63 22 0d 39 34 31 30 20 20 20 20 20 49 46 20 56 24 20 49 4e 20 22 4a 6a 22 20 54 48 45 ┆27"c" 9410 IF V$ IN "Jj" THE┆
0x3e0…400 4e 20 0d 39 34 32 30 20 20 20 20 20 20 20 47 50 24 3a 3d 22 53 22 0d 39 34 33 30 20 20 20 20 20 ┆N 9420 GP$:="S" 9430 ┆
0x400…420 (2,) 20 20 46 4f 52 20 58 3a 3d 58 4d 49 4e 20 54 4f 20 58 4d 41 58 20 44 4f 20 0d 39 34 34 30 20 20 ┆ FOR X:=XMIN TO XMAX DO 9440 ┆
0x420…440 20 20 20 20 20 20 20 46 4f 52 20 59 3a 3d 59 4d 49 4e 20 54 4f 20 59 4d 41 58 20 44 4f 20 0d 39 ┆ FOR Y:=YMIN TO YMAX DO 9┆
0x440…460 34 35 30 20 20 20 20 20 20 20 20 20 20 20 55 4e 50 4c 4f 54 20 58 2c 20 59 0d 39 34 36 30 20 20 ┆450 UNPLOT X, Y 9460 ┆
0x460…480 20 20 20 20 20 20 20 4e 45 58 54 20 59 0d 39 34 37 30 20 20 20 20 20 20 20 4e 45 58 54 20 58 0d ┆ NEXT Y 9470 NEXT X ┆
0x480…4a0 39 34 38 30 20 20 20 20 20 45 4e 44 49 46 20 0d 39 34 39 30 20 20 20 45 4c 49 46 20 47 50 24 3d ┆9480 ENDIF 9490 ELIF GP$=┆
0x4a0…4c0 22 53 22 20 54 48 45 4e 20 0d 39 35 30 30 20 20 20 20 20 43 55 52 53 4f 52 20 36 32 2c 20 32 33 ┆"S" THEN 9500 CURSOR 62, 23┆
0x4c0…4e0 0d 39 35 31 30 20 20 20 20 20 50 52 49 4e 54 20 22 74 65 67 6e 65 73 3f 20 28 4a 2f 4e 29 3a 20 ┆ 9510 PRINT "tegnes? (J/N): ┆
0x4e0…500 22 2c 0d 39 35 32 30 20 20 20 20 20 45 58 45 43 20 48 45 4e 54 54 41 53 54 28 22 4a 6a 4e 6e 22 ┆", 9520 EXEC HENTTAST("JjNn"┆
0x500…520 29 0d 39 35 33 30 20 20 20 20 20 50 52 49 4e 54 20 56 24 0d 39 35 34 30 20 20 20 20 20 49 46 20 ┆) 9530 PRINT V$ 9540 IF ┆
0x520…540 56 24 20 49 4e 20 22 4a 6a 22 20 54 48 45 4e 20 45 58 45 43 20 47 49 54 54 45 52 0d 39 35 35 30 ┆V$ IN "Jj" THEN EXEC GITTER 9550┆
0x540…560 20 20 20 45 4e 44 49 46 20 0d 39 35 36 30 20 20 20 45 58 45 43 20 4b 4c 41 52 28 32 32 2c 32 33 ┆ ENDIF 9560 EXEC KLAR(22,23┆
0x560…580 29 0d 39 35 37 30 20 45 4e 44 50 52 4f 43 20 5b 4e 44 52 45 47 49 54 54 45 52 0d 39 35 38 30 20 ┆) 9570 ENDPROC ÆNDREGITTER 9580 ┆
0x580…5a0 2f 2f 0d 39 35 39 30 20 50 52 4f 43 20 47 49 54 54 45 52 0d 39 36 30 30 20 20 20 50 52 49 4e 54 ┆// 9590 PROC GITTER 9600 PRINT┆
0x5a0…5c0 20 22 22 32 37 22 63 22 0d 39 36 31 30 20 20 20 47 50 24 3a 3d 22 54 22 0d 39 36 32 30 20 20 20 ┆ ""27"c" 9610 GP$:="T" 9620 ┆
0x5c0…5e0 46 4f 52 20 58 3a 3d 58 4d 49 4e 20 54 4f 20 58 4d 41 58 20 44 4f 20 0d 39 36 33 30 20 20 20 20 ┆FOR X:=XMIN TO XMAX DO 9630 ┆
0x5e0…600 20 46 4f 52 20 59 3a 3d 59 4d 49 4e 20 54 4f 20 59 4d 41 58 20 44 4f 20 0d 39 36 34 30 20 20 20 ┆ FOR Y:=YMIN TO YMAX DO 9640 ┆
0x600…620 (3,) 20 20 20 20 50 4c 4f 54 20 58 2c 20 59 0d 39 36 35 30 20 20 20 20 20 4e 45 58 54 20 59 0d 39 36 ┆ PLOT X, Y 9650 NEXT Y 96┆
0x620…640 36 30 20 20 20 4e 45 58 54 20 58 0d 39 36 37 30 20 45 4e 44 50 52 4f 43 20 47 49 54 54 45 52 0d ┆60 NEXT X 9670 ENDPROC GITTER ┆
0x640…660 39 36 38 30 20 2f 2f 0d 4d 49 4e 20 54 4f 20 58 4d 41 58 20 44 4f 20 0d 39 36 33 30 20 20 20 20 ┆9680 // MIN TO XMAX DO 9630 ┆
0x660…680 20 46 4f 52 20 59 3a 3d 59 4d 49 4e 20 54 4f 20 59 4d 41 58 20 44 4f 20 0d 39 36 34 30 20 20 48 ┆ FOR Y:=YMIN TO YMAX DO 9640 H┆