DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦07d95057a⟧ 

    Length: 1664 (0x680)
    Names: »GEM.CML«

Derivation

└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
    └─ ⟦this⟧ »GEM.CML«

Hex Dump

0x000…020 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 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 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 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┆