|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »PNINTFAC.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNINTFAC.K«
0100 REM *************************************************** 0110 REM *PROCEDURERNE I DENNE FIL ER DE NØDVENDIGE GRUND- * 0120 REM *ELEMENTER TIL STYRING AF PLOTTEREN, OG ER DEFOR * 0130 REM *DIREKTE AFHÆNGIG AF DEN ANVENDTE PLOTTER. * 0140 REM *PROCEDURERNE HER KAN KUN ANVENDES TIL STYRING AF * 0150 REM * * 0160 REM * HI PLØT * 0170 REM *MODEL DMP-3,DMP-4,DMP-6,DMP-7 * 0180 REM *FRA HOUSTON INSTRUMENT * 0190 REM * * 0200 REM *DDE 1982* 0210 REM *************************************************** 0220 REM LIN ANVENDES I PROCEDUREN LINKRV. 0230 REM XT,YT ANVENDES I PROCEDUREN LOGKRV. 0240 DIM LIN$(3),XT$(3),YT$(3) 0250 REM ROU AFRUNDER ET REELT TAL TIL HELTAL 0260 REM OG ANVENDES I PROCEDURERNE STIPREL OG AKSE. 0270 DEF ROU(Z)=INT(Z+0.5) 0280 PI=3.1415926 0290 PROC PLOTINIT 0300 REM ÅBNER PLOTTEREN OG LØFTER PENNEN, 0310 REM FLYTTER PENNEN TIL (0,0) = HOME. 0320 PRINT "I;: I;: U H" 0330 ENDPROC ;PLOTINIT. 0340 PROC PLOTSLUT 0350 REM AFBRYDER PLOTTEREN. 0360 PRINT "@" 0370 ENDPROC ;PLOTSLUT. 0380 PROC PLOTTEST 0390 REM KØRER PLOTTERENS SELVTEST PROGRAM. 0400 PRINT "T" 0410 ENDPROC ;PLOTTEST. 0420 PROC NULPKT 0430 REM FASTSÆTTER NULPUNKTET. 0440 PRINT "O" 0450 ENDPROC ;NULPKT. 0460 PROC PENNED 0470 REM SÆTTER PENNEN NED PÅ PAPIRET. 0480 PRINT "D" 0490 ENDPROC ;PENNED. 0500 PROC PENOP 0510 REM HÆVER PENNEN OP FRA PAPIRET. 0520 PRINT "U" 0530 ENDPROC ;PENOP. 0540 PROC FLYTABS(X,Y) 0550 REM FLYTTER PENNEN ABSOLUT TIL KOORDINATERNE (X,Y). 0560 X=INT(X);Y=INT(Y) 0570 PRINT "U A";X;",";Y 0580 ENDPROC ;FLYTABS. 0590 PROC TEGNABS(LINTYP,X,Y) 0600 REM TEGNER LINIE ABSOLUT TIL KOORDINATERNE (X,Y) 0610 REM MED DEN ANGIVNE LINIETYPE. 0620 X=INT(X);Y=INT(Y) 0630 PRINT "D A L"+CHR(48+LINTYP);X;",";Y 0640 ENDPROC ;TEGNABS. 0650 PROC FLYTREL(X,Y) 0660 REM FLYTTER PENNEN RELATIVT TIL KOORDINATERNE (X,Y). 0670 X=INT(X);Y=INT(Y) 0680 PRINT "U R";X;",";Y 0690 ENDPROC ;FLYTREL. 0700 PROC TEGNREL(X,Y) 0710 REM TEGNER LINIE RELATIVT TIL KOORDINATERNE (X,Y). 0720 X=INT(X);Y=INT(Y) 0730 PRINT "D R L0";X;",";Y 0740 ENDPROC ;FLYTREL. 0750 PROC FLYTPOL(VINKEL,LÆNGDE) 0760 REM FLYTTER PENNEN DEN ANGIVNE LÆNGDE OG MED DEN 0770 REM ANFGIVNE VINKEL I FORHOLD TIL VANDRET. 0780 X=INT(LÆNGDE*COS(VINKEL/180*PI)) 0790 Y=INT(LÆNGDE*SIN(VINKEL/180*PI)) 0800 PRINT "U R";X;",";Y 0810 ENDPROC ;FLYTPOL. 0820 PROC TEGNPOL(VINKEL,LÆNGDE) 0830 REM TEGNER EN LINIE MED DEN ANGIVNE LÆNGDE OG MED 0840 REM DE ANGIVNE VINKEL I FORHOLD TIL VANDRET. 0850 X=INT(LÆNGDE*COS(VINKEL/180*PI)) 0860 Y=INT(LÆNGDE*SIN(VINKEL/180*PI)) 0870 PRINT "D R";X;",";Y 0880 ENDPROC ;TEGNPOL. 0890 PROC SYMBOL(HØJDE,FIGUR) 0900 REM TEGNER ET AF FIGURERNE:PLUS(0),KORS(1),FIRKANT(2),OTTEKANT(3), 0910 REM TREKANT(4),TIMEGLAS(5), MED EN AF HØJDERNE 0,1,2,3,4,5. 0920 PRINT "M"+CHR(48+HØJDE)+CHR(48+FIGUR)+" U" 0930 ENDPROC ;SYMBOL. 0940 PROC TEKST(VINKEL,HØJDE,TEXT) 0950 REM UDSKRIVER EN TEKST MED DEN ANGIVNE HØJDE 0960 REM OG VINKEL I FORHOLD TIL VANDRET. 0970 V=1+((360-VINKEL) DIV 90) MOD 4 0980 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);" ";TEXT$;"_" 0990 ENDPROC ;TEKST. 1000 PROC TAL(VINKEL,HØJDE,NR) 1010 REM UDSKRIVER ET TAL MED DEN ANGIVNE HØJDE OG VINKEL I 1020 REM FORHOLD TIL VANDRET. 1030 V=1+((360-VINKEL) DIV 90) MOD 4 1040 PRINT "S"+CHR(48+V)+CHR(48+HØJDE); 1050 IF NR<=-1 OR NR=0 OR 1<=NR THEN 1060 PRINT NR;"_" 1070 ELSE 1080 PRINT USING " #.## _":NR 1090 ENDIF 1100 ENDPROC ;TAL.
0x0000…003e Line {l1=0x3c, l2=»0100 REM ***************************************************«, l3=0x3c}
0x003e…007c Line {l1=0x3c, l2=»0110 REM *PROCEDURERNE I DENNE FIL ER DE NØDVENDIGE GRUND- *«, l3=0x3c}
0x007c…00ba Line {l1=0x3c, l2=»0120 REM *ELEMENTER TIL STYRING AF PLOTTEREN, OG ER DEFOR *«, l3=0x3c}
0x00ba…00f8 Line {l1=0x3c, l2=»0130 REM *DIREKTE AFHÆNGIG AF DEN ANVENDTE PLOTTER. *«, l3=0x3c}
0x00f8…0136 Line {l1=0x3c, l2=»0140 REM *PROCEDURERNE HER KAN KUN ANVENDES TIL STYRING AF *«, l3=0x3c}
0x0136…0174 Line {l1=0x3c, l2=»0150 REM * *«, l3=0x3c}
0x0174…01b2 Line {l1=0x3c, l2=»0160 REM * HI PLØT *«, l3=0x3c}
0x01b2…01f0 Line {l1=0x3c, l2=»0170 REM *MODEL DMP-3,DMP-4,DMP-6,DMP-7 *«, l3=0x3c}
0x01f0…022e Line {l1=0x3c, l2=»0180 REM *FRA HOUSTON INSTRUMENT *«, l3=0x3c}
0x022e…026c Line {l1=0x3c, l2=»0190 REM * *«, l3=0x3c}
0x026c…02aa Line {l1=0x3c, l2=»0200 REM *DDE 1982*«, l3=0x3c}
0x02aa…02e8 Line {l1=0x3c, l2=»0210 REM ***************************************************«, l3=0x3c}
0x02e8…0314 Line {l1=0x2a, l2=»0220 REM LIN ANVENDES I PROCEDUREN LINKRV.«, l3=0x2a}
0x0314…0342 Line {l1=0x2c, l2=»0230 REM XT,YT ANVENDES I PROCEDUREN LOGKRV.«, l3=0x2c}
0x0342…0362 Line {l1=0x1e, l2=»0240 DIM LIN$(3),XT$(3),YT$(3)«, l3=0x1e}
0x0362…0391 Line {l1=0x2d, l2=»0250 REM ROU AFRUNDER ET REELT TAL TIL HELTAL«, l3=0x2d}
0x0391…03c7 Line {l1=0x34, l2=»0260 REM OG ANVENDES I PROCEDURERNE STIPREL OG AKSE.«, l3=0x34}
0x03c7…03e3 Line {l1=0x1a, l2=»0270 DEF ROU(Z)=INT(Z+0.5)«, l3=0x1a}
0x03e3…03f6 Line {l1=0x11, l2=»0280 PI=3.1415926«, l3=0x11}
0x03f6…040a Line {l1=0x12, l2=»0290 PROC PLOTINIT«, l3=0x12}
0x040a…0436 Line {l1=0x2a, l2=»0300 REM ÅBNER PLOTTEREN OG LØFTER PENNEN,«, l3=0x2a}
0x0436…0461 Line {l1=0x29, l2=»0310 REM FLYTTER PENNEN TIL (0,0) = HOME.«, l3=0x29}
0x0461…047b Line {l1=0x18, l2=»0320 PRINT "I;: I;: U H"«, l3=0x18}
0x047b…0494 Line {l1=0x17, l2=»0330 ENDPROC ;PLOTINIT.«, l3=0x17}
0x0494…04a8 Line {l1=0x12, l2=»0340 PROC PLOTSLUT«, l3=0x12}
0x04a8…04c6 Line {l1=0x1c, l2=»0350 REM AFBRYDER PLOTTEREN.«, l3=0x1c}
0x04c6…04d6 Line {l1=0x0e, l2=»0360 PRINT "@"«, l3=0x0e}
0x04d6…04ef Line {l1=0x17, l2=»0370 ENDPROC ;PLOTSLUT.«, l3=0x17}
0x04ef…0503 Line {l1=0x12, l2=»0380 PROC PLOTTEST«, l3=0x12}
0x0503…0530 Line {l1=0x2b, l2=»0390 REM KØRER PLOTTERENS SELVTEST PROGRAM.«, l3=0x2b}
0x0530…0540 Line {l1=0x0e, l2=»0400 PRINT "T"«, l3=0x0e}
0x0540…0559 Line {l1=0x17, l2=»0410 ENDPROC ;PLOTTEST.«, l3=0x17}
0x0559…056b Line {l1=0x10, l2=»0420 PROC NULPKT«, l3=0x10}
0x056b…058c Line {l1=0x1f, l2=»0430 REM FASTSÆTTER NULPUNKTET.«, l3=0x1f}
0x058c…059c Line {l1=0x0e, l2=»0440 PRINT "O"«, l3=0x0e}
0x059c…05b3 Line {l1=0x15, l2=»0450 ENDPROC ;NULPKT.«, l3=0x15}
0x05b3…05c5 Line {l1=0x10, l2=»0460 PROC PENNED«, l3=0x10}
0x05c5…05ed Line {l1=0x26, l2=»0470 REM SÆTTER PENNEN NED PÅ PAPIRET.«, l3=0x26}
0x05ed…05fd Line {l1=0x0e, l2=»0480 PRINT "D"«, l3=0x0e}
0x05fd…0614 Line {l1=0x15, l2=»0490 ENDPROC ;PENNED.«, l3=0x15}
0x0614…0625 Line {l1=0x0f, l2=»0500 PROC PENOP«, l3=0x0f}
0x0625…064c Line {l1=0x25, l2=»0510 REM HÆVER PENNEN OP FRA PAPIRET.«, l3=0x25}
0x064c…065c Line {l1=0x0e, l2=»0520 PRINT "U"«, l3=0x0e}
0x065c…0672 Line {l1=0x14, l2=»0530 ENDPROC ;PENOP.«, l3=0x14}
0x0672…068a Line {l1=0x16, l2=»0540 PROC FLYTABS(X,Y)«, l3=0x16}
0x068a…06c4 Line {l1=0x38, l2=»0550 REM FLYTTER PENNEN ABSOLUT TIL KOORDINATERNE (X,Y).«, l3=0x38}
0x06c4…06dc Line {l1=0x16, l2=»0560 X=INT(X);Y=INT(Y)«, l3=0x16}
0x06dc…06f6 Line {l1=0x18, l2=»0570 PRINT "U A";X;",";Y«, l3=0x18}
0x06f6…070e Line {l1=0x16, l2=»0580 ENDPROC ;FLYTABS.«, l3=0x16}
0x070e…072d Line {l1=0x1d, l2=»0590 PROC TEGNABS(LINTYP,X,Y)«, l3=0x1d}
0x072d…0764 Line {l1=0x35, l2=»0600 REM TEGNER LINIE ABSOLUT TIL KOORDINATERNE (X,Y)«, l3=0x35}
0x0764…0789 Line {l1=0x23, l2=»0610 REM MED DEN ANGIVNE LINIETYPE.«, l3=0x23}
0x0789…07a1 Line {l1=0x16, l2=»0620 X=INT(X);Y=INT(Y)«, l3=0x16}
0x07a1…07cc Line {l1=0x29, l2=»0630 PRINT "D A L"+CHR(48+LINTYP);X;",";Y«, l3=0x29}
0x07cc…07e4 Line {l1=0x16, l2=»0640 ENDPROC ;TEGNABS.«, l3=0x16}
0x07e4…07fc Line {l1=0x16, l2=»0650 PROC FLYTREL(X,Y)«, l3=0x16}
0x07fc…0837 Line {l1=0x39, l2=»0660 REM FLYTTER PENNEN RELATIVT TIL KOORDINATERNE (X,Y).«, l3=0x39}
0x0837…084f Line {l1=0x16, l2=»0670 X=INT(X);Y=INT(Y)«, l3=0x16}
0x084f…0869 Line {l1=0x18, l2=»0680 PRINT "U R";X;",";Y«, l3=0x18}
0x0869…0881 Line {l1=0x16, l2=»0690 ENDPROC ;FLYTREL.«, l3=0x16}
0x0881…0899 Line {l1=0x16, l2=»0700 PROC TEGNREL(X,Y)«, l3=0x16}
0x0899…08d2 Line {l1=0x37, l2=»0710 REM TEGNER LINIE RELATIVT TIL KOORDINATERNE (X,Y).«, l3=0x37}
0x08d2…08ea Line {l1=0x16, l2=»0720 X=INT(X);Y=INT(Y)«, l3=0x16}
0x08ea…0907 Line {l1=0x1b, l2=»0730 PRINT "D R L0";X;",";Y«, l3=0x1b}
0x0907…091f Line {l1=0x16, l2=»0740 ENDPROC ;FLYTREL.«, l3=0x16}
0x091f…0941 Line {l1=0x20, l2=»0750 PROC FLYTPOL(VINKEL,LÆNGDE)«, l3=0x20}
0x0941…0978 Line {l1=0x35, l2=»0760 REM FLYTTER PENNEN DEN ANGIVNE LÆNGDE OG MED DEN«, l3=0x35}
0x0978…09a9 Line {l1=0x2f, l2=»0770 REM ANFGIVNE VINKEL I FORHOLD TIL VANDRET.«, l3=0x2f}
0x09a9…09d0 Line {l1=0x25, l2=»0780 X=INT(LÆNGDE*COS(VINKEL/180*PI))«, l3=0x25}
0x09d0…09f7 Line {l1=0x25, l2=»0790 Y=INT(LÆNGDE*SIN(VINKEL/180*PI))«, l3=0x25}
0x09f7…0a11 Line {l1=0x18, l2=»0800 PRINT "U R";X;",";Y«, l3=0x18}
0x0a11…0a29 Line {l1=0x16, l2=»0810 ENDPROC ;FLYTPOL.«, l3=0x16}
0x0a29…0a4b Line {l1=0x20, l2=»0820 PROC TEGNPOL(VINKEL,LÆNGDE)«, l3=0x20}
0x0a4b…0a83 Line {l1=0x36, l2=»0830 REM TEGNER EN LINIE MED DEN ANGIVNE LÆNGDE OG MED«, l3=0x36}
0x0a83…0ab6 Line {l1=0x31, l2=»0840 REM DE ANGIVNE VINKEL I FORHOLD TIL VANDRET.«, l3=0x31}
0x0ab6…0add Line {l1=0x25, l2=»0850 X=INT(LÆNGDE*COS(VINKEL/180*PI))«, l3=0x25}
0x0add…0b04 Line {l1=0x25, l2=»0860 Y=INT(LÆNGDE*SIN(VINKEL/180*PI))«, l3=0x25}
0x0b04…0b1e Line {l1=0x18, l2=»0870 PRINT "D R";X;",";Y«, l3=0x18}
0x0b1e…0b36 Line {l1=0x16, l2=»0880 ENDPROC ;TEGNPOL.«, l3=0x16}
0x0b36…0b55 Line {l1=0x1d, l2=»0890 PROC SYMBOL(HØJDE,FIGUR)«, l3=0x1d}
0x0b55…0b9e Line {l1=0x47, l2=»0900 REM TEGNER ET AF FIGURERNE:PLUS(0),KORS(1),FIRKANT(2),OTTEKANT(3),«, l3=0x47}
0x0b9e…0be0 Line {l1=0x40, l2=»0910 REM TREKANT(4),TIMEGLAS(5), MED EN AF HØJDERNE 0,1,2,3,4,5.«, l3=0x40}
0x0be0…0c11 Line {l1=0x2f, l2=»0920 PRINT "M"+CHR(48+HØJDE)+CHR(48+FIGUR)+" U"«, l3=0x2f}
0x0c11…0c28 Line {l1=0x15, l2=»0930 ENDPROC ;SYMBOL.«, l3=0x15}
0x0c28…0c4c Line {l1=0x22, l2=»0940 PROC TEKST(VINKEL,HØJDE,TEXT)«, l3=0x22}
0x0c4c…0c7f Line {l1=0x31, l2=»0950 REM UDSKRIVER EN TEKST MED DEN ANGIVNE HØJDE«, l3=0x31}
0x0c7f…0caa Line {l1=0x29, l2=»0960 REM OG VINKEL I FORHOLD TIL VANDRET.«, l3=0x29}
0x0caa…0cd0 Line {l1=0x24, l2=»0970 V=1+((360-VINKEL) DIV 90) MOD 4«, l3=0x24}
0x0cd0…0d06 Line {l1=0x34, l2=»0980 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);" ";TEXT$;"_"«, l3=0x34}
0x0d06…0d1c Line {l1=0x14, l2=»0990 ENDPROC ;TEKST.«, l3=0x14}
0x0d1c…0d3c Line {l1=0x1e, l2=»1000 PROC TAL(VINKEL,HØJDE,NR)«, l3=0x1e}
0x0d3c…0d79 Line {l1=0x3b, l2=»1010 REM UDSKRIVER ET TAL MED DEN ANGIVNE HØJDE OG VINKEL I«, l3=0x3b}
0x0d79…0d98 Line {l1=0x1d, l2=»1020 REM FORHOLD TIL VANDRET.«, l3=0x1d}
0x0d98…0dbe Line {l1=0x24, l2=»1030 V=1+((360-VINKEL) DIV 90) MOD 4«, l3=0x24}
0x0dbe…0de7 Line {l1=0x27, l2=»1040 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);«, l3=0x27}
0x0de7…0e0e Line {l1=0x25, l2=»1050 IF NR<=-1 OR NR=0 OR 1<=NR THEN «, l3=0x25}
0x0e0e…0e21 Line {l1=0x11, l2=»1060 PRINT NR;"_"«, l3=0x11}
0x0e21…0e2d Line {l1=0x0a, l2=»1070 ELSE «, l3=0x0a}
0x0e2d…0e4c Line {l1=0x1d, l2=»1080 PRINT USING " #.## _":NR«, l3=0x1d}
0x0e4c…0e59 Line {l1=0x0b, l2=»1090 ENDIF «, l3=0x0b}
0x0e59…0e6d Line {l1=0x12, l2=»1100 ENDPROC ;TAL.«, l3=0x12}
0x0e6d…0e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0e80…0ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x29…]