|
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: 1408 (0x580)
Names: »SP\RGSYS.CML«
└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
└─ ⟦this⟧ »SP\RGSYS.CML«
0x000…020 39 38 30 30 20 50 52 4f 43 20 53 50 5c 52 47 0d 39 38 30 31 20 20 20 4c 4f 4f 50 20 0d 39 38 30 ┆9800 PROC SPØRG 9801 LOOP 980┆
0x020…040 32 20 20 20 20 20 45 58 45 43 20 53 4c 45 54 28 31 39 2c 32 33 29 0d 39 38 30 33 20 20 20 20 20 ┆2 EXEC SLET(19,23) 9803 ┆
0x040…060 52 45 50 45 41 54 20 0d 39 38 30 34 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 39 38 30 35 20 ┆REPEAT 9804 REPEAT 9805 ┆
0x060…080 20 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 31 35 2c 20 31 39 0d 39 38 30 36 20 20 20 20 20 20 ┆ CURSOR 15, 19 9806 ┆
0x080…0a0 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 54 22 0d 39 38 30 37 20 20 20 20 20 20 20 20 20 50 52 ┆ PRINT ""27"T" 9807 PR┆
0x0a0…0c0 49 4e 54 20 22 22 32 37 22 43 22 0d 39 38 30 38 20 20 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 ┆INT ""27"C" 9808 CURSOR ┆
0x0c0…0e0 31 35 2c 20 31 39 0d 39 38 30 39 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 4b 6f 6f 72 64 ┆15, 19 9809 INPUT "Koord┆
0x0e0…100 69 6e 61 74 73 79 73 74 65 6d 65 74 73 20 58 2d 6d 69 6e 20 28 3c 3d 30 29 3a 20 22 3a 20 54 41 ┆inatsystemets X-min (<=0): ": TA┆
0x100…120 4c 24 28 34 29 0d 39 38 31 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 54 41 4c 4b 4f 4e 54 52 ┆L$(4) 9810 EXEC TALKONTR┆
0x120…140 4f 4c 28 34 29 0d 39 38 31 31 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 4b 3d 54 52 55 45 0d 39 ┆OL(4) 9811 UNTIL OK=TRUE 9┆
0x140…160 38 31 32 20 20 20 20 20 55 4e 54 49 4c 20 49 4e 54 28 54 41 4c 29 3d 54 41 4c 20 41 4e 44 20 54 ┆812 UNTIL INT(TAL)=TAL AND T┆
0x160…180 41 4c 3c 3d 30 0d 39 38 31 33 20 20 20 20 20 58 4d 49 4e 3a 3d 54 41 4c 0d 39 38 31 34 20 20 20 ┆AL<=0 9813 XMIN:=TAL 9814 ┆
0x180…1a0 20 20 52 45 50 45 41 54 20 0d 39 38 31 35 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 39 38 31 ┆ REPEAT 9815 REPEAT 981┆
0x1a0…1c0 36 20 20 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 33 32 2c 20 32 30 0d 39 38 31 37 20 20 20 20 ┆6 CURSOR 32, 20 9817 ┆
0x1c0…1e0 20 20 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 54 22 0d 39 38 31 38 20 20 20 20 20 20 20 20 20 ┆ PRINT ""27"T" 9818 ┆
0x1e0…200 43 55 52 53 4f 52 20 33 32 2c 20 32 30 0d 39 38 31 39 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 ┆CURSOR 32, 20 9819 INPUT┆
0x200…220 20 22 6f 67 20 58 2d 6d 61 78 20 28 3e 30 29 3a 20 22 3a 20 54 41 4c 24 28 34 29 0d 39 38 32 30 ┆ "og X-max (>0): ": TAL$(4) 9820┆
0x220…240 20 20 20 20 20 20 20 20 20 45 58 45 43 20 54 41 4c 4b 4f 4e 54 52 4f 4c 28 34 29 0d 39 38 32 31 ┆ EXEC TALKONTROL(4) 9821┆
0x240…260 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 4b 3d 54 52 55 45 0d 39 38 32 32 20 20 20 20 20 55 4e ┆ UNTIL OK=TRUE 9822 UN┆
0x260…280 54 49 4c 20 49 4e 54 28 54 41 4c 29 3d 54 41 4c 20 41 4e 44 20 54 41 4c 3e 30 0d 39 38 32 33 20 ┆TIL INT(TAL)=TAL AND TAL>0 9823 ┆
0x280…2a0 20 20 20 20 58 4d 41 58 3a 3d 54 41 4c 0d 39 38 32 34 20 20 20 20 20 43 55 52 53 4f 52 20 33 30 ┆ XMAX:=TAL 9824 CURSOR 30┆
0x2a0…2c0 2c 20 32 33 0d 39 38 32 35 20 20 20 20 20 50 52 49 4e 54 20 22 45 72 20 76 7b 72 64 69 65 72 6e ┆, 23 9825 PRINT "Er værdiern┆
0x2c0…2e0 65 20 4f 4b 3f 20 20 3a 20 22 2c 0d 39 38 32 36 20 20 20 20 20 45 58 45 43 20 48 45 4e 54 54 41 ┆e OK? : ", 9826 EXEC HENTTA┆
0x2e0…300 53 54 28 22 4a 6a 4e 6e 22 29 0d 39 38 32 37 20 20 20 20 20 50 52 49 4e 54 20 56 24 0d 39 38 32 ┆ST("JjNn") 9827 PRINT V$ 982┆
0x300…320 38 20 20 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 63 22 0d 39 38 32 39 20 20 20 20 20 49 46 20 ┆8 PRINT ""27"c" 9829 IF ┆
0x320…340 56 24 3d 22 4a 22 20 4f 52 20 56 24 3d 22 6a 22 20 54 48 45 4e 20 45 58 49 54 20 0d 39 38 33 30 ┆V$="J" OR V$="j" THEN EXIT 9830┆
0x340…360 20 20 20 45 4e 44 4c 4f 4f 50 20 0d 39 38 33 31 20 20 20 45 58 45 43 20 53 4c 45 54 28 31 39 2c ┆ ENDLOOP 9831 EXEC SLET(19,┆
0x360…380 32 33 29 0d 39 38 33 32 20 45 4e 44 50 52 4f 43 20 53 50 5c 52 47 0d 39 38 33 33 20 2f 2f 0d 39 ┆23) 9832 ENDPROC SPØRG 9833 // 9┆
0x380…3a0 38 33 34 20 50 52 4f 43 20 53 59 53 54 45 4d 0d 39 38 33 35 20 20 20 59 4d 49 4e 3a 3d 58 4d 49 ┆834 PROC SYSTEM 9835 YMIN:=XMI┆
0x3a0…3c0 4e 3b 20 59 4d 41 58 3a 3d 58 4d 41 58 0d 39 38 33 36 20 20 20 58 45 3a 3d 28 58 4d 41 58 2d 58 ┆N; YMAX:=XMAX 9836 XE:=(XMAX-X┆
0x3c0…3e0 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 38 ┆MIN)/480; YE:=(YMAX-YMIN)/240 98┆
0x3e0…400 33 37 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 49 ┆37 WINDOW XMIN, XMAX+(XMAX-XMI┆
0x400…420 4e 29 2f 33 2c 20 59 4d 49 4e 2c 20 59 4d 41 58 0d 39 38 33 38 20 20 20 53 45 54 4d 41 53 4b 20 ┆N)/3, YMIN, YMAX 9838 SETMASK ┆
0x420…440 32 35 35 0d 39 38 33 39 20 20 20 4d 4f 56 45 54 4f 20 58 4d 49 4e 2c 20 30 0d 39 38 34 30 20 20 ┆255 9839 MOVETO XMIN, 0 9840 ┆
0x440…460 20 44 52 41 57 54 4f 20 58 4d 41 58 2c 20 30 0d 39 38 34 31 20 20 20 4d 4f 56 45 54 4f 20 30 2c ┆ DRAWTO XMAX, 0 9841 MOVETO 0,┆
0x460…480 20 59 4d 49 4e 0d 39 38 34 32 20 20 20 44 52 41 57 54 4f 20 30 2c 20 59 4d 41 58 0d 39 38 34 33 ┆ YMIN 9842 DRAWTO 0, YMAX 9843┆
0x480…4a0 20 20 20 49 46 20 58 4d 41 58 3e 3d 33 2a 59 45 20 54 48 45 4e 20 0d 39 38 34 34 20 20 20 20 20 ┆ IF XMAX>=3*YE THEN 9844 ┆
0x4a0…4c0 4d 4f 56 45 54 4f 20 31 2c 20 33 2a 59 45 0d 39 38 34 35 20 20 20 20 20 45 58 45 43 20 45 4e 48 ┆MOVETO 1, 3*YE 9845 EXEC ENH┆
0x4c0…4e0 45 44 53 50 55 4e 4b 54 45 52 0d 39 38 34 36 20 20 20 45 4e 44 49 46 20 0d 39 38 34 37 20 20 20 ┆EDSPUNKTER 9846 ENDIF 9847 ┆
0x4e0…500 49 46 20 41 42 53 28 58 4d 49 4e 29 3e 3d 32 2a 59 45 20 41 4e 44 20 58 4d 41 58 3e 3d 32 2a 59 ┆IF ABS(XMIN)>=2*YE AND XMAX>=2*Y┆
0x500…520 45 20 54 48 45 4e 20 45 58 45 43 20 50 49 4c 0d 39 38 34 38 20 20 20 47 50 24 3a 3d 22 53 22 0d ┆E THEN EXEC PIL 9848 GP$:="S" ┆
0x520…540 39 38 34 39 20 45 4e 44 50 52 4f 43 20 53 59 53 54 45 4d 0d 20 20 20 20 45 58 45 43 20 45 4e 48 ┆9849 ENDPROC SYSTEM EXEC ENH┆
0x540…560 45 44 53 50 55 4e 4b 54 45 52 0d 39 38 34 36 20 20 20 45 4e 44 49 46 20 0d 39 38 34 37 20 20 20 ┆EDSPUNKTER 9846 ENDIF 9847 ┆
0x560…580 49 46 20 41 42 53 28 58 4d 49 4e 29 3e 3d 32 2a 59 45 20 41 4e 44 20 58 4d 41 58 3e 3d 32 2a 34 ┆IF ABS(XMIN)>=2*YE AND XMAX>=2*4┆