|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »PNPARKRV.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNPARKRV.K«
3320 PROC PARKRV(TST,TSL,DT,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE) 3330 REM ********************************************************* 3340 REM *PARKRV FORETAGER EN AFBILDNING AF PARAMETERFREMSTILLIN-* 3350 REM *GEN ANGIVET I PROCEDUREN PARM MED PARAMETEREN T LØBENDE* 3360 REM *FRA TST TIL TSL MED ET STEP PÅ DT. HVIS XSKA OG/ELLER * 3370 REM *YSKA ER MINDRE END NUL FORETAGES EN AUTOMATISK BESTEM- * 3380 REM *MELSE AF SKALERINGEN OG NULPUNKTET. ELLERS BENNYTTES EN* 3390 REM *SKALERING BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT * 3400 REM *AF XNUL,YNUL. KURVEN TEGNES MED DEN AF LITY VALGTE LI- * 3410 REM *NIETYPE. HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN * 3420 REM *KOORDINATAKSER MED TEKSTERNE XTE,YTE PÅSAT, OG PLOTTE- * 3430 REM *RENS NULPUNKT FASTSÆTTES. * 3440 REM ********************************************************* 3450 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL 3460 XMI,YMI=9.2E18;XMX,YMX=-9.2E18 3470 FOR TK=TST TO TSL STEP DT 3480 EXEC PARM(TK,XK,YK) 3490 IF XK<=XMI THEN XMI=XK 3500 IF XK=>XMX THEN XMX=XK 3510 IF YK<=YMI THEN YMI=YK 3520 IF YK=>YMX THEN YMX=YK 3530 NEXT TK 3540 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$) 3550 EXEC PARM(T,XK,YK) 3560 EXEC FLYTABS((XK*XS+XØ),(YK*YS+YØ)) 3570 FOR TK=TST TO TSL STEP DT 3580 EXEC PARM(TK,XK,YK) 3590 EXEC TEGNABS(LITY,(XK*XS+XØ),(YK*YS+YØ)) 3600 NEXT TK 3610 EXEC PENOP 3620 ENDPROC ;PARKRV.
0x000…044 Line {l1=0x42, l2=»3320 PROC PARKRV(TST,TSL,DT,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE)«, l3=0x42}
0x044…088 Line {l1=0x42, l2=»3330 REM *********************************************************«, l3=0x42}
0x088…0cc Line {l1=0x42, l2=»3340 REM *PARKRV FORETAGER EN AFBILDNING AF PARAMETERFREMSTILLIN-*«, l3=0x42}
0x0cc…110 Line {l1=0x42, l2=»3350 REM *GEN ANGIVET I PROCEDUREN PARM MED PARAMETEREN T LØBENDE*«, l3=0x42}
0x110…154 Line {l1=0x42, l2=»3360 REM *FRA TST TIL TSL MED ET STEP PÅ DT. HVIS XSKA OG/ELLER *«, l3=0x42}
0x154…198 Line {l1=0x42, l2=»3370 REM *YSKA ER MINDRE END NUL FORETAGES EN AUTOMATISK BESTEM- *«, l3=0x42}
0x198…1dc Line {l1=0x42, l2=»3380 REM *MELSE AF SKALERINGEN OG NULPUNKTET. ELLERS BENNYTTES EN*«, l3=0x42}
0x1dc…220 Line {l1=0x42, l2=»3390 REM *SKALERING BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT *«, l3=0x42}
0x220…264 Line {l1=0x42, l2=»3400 REM *AF XNUL,YNUL. KURVEN TEGNES MED DEN AF LITY VALGTE LI- *«, l3=0x42}
0x264…2a8 Line {l1=0x42, l2=»3410 REM *NIETYPE. HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN *«, l3=0x42}
0x2a8…2ec Line {l1=0x42, l2=»3420 REM *KOORDINATAKSER MED TEKSTERNE XTE,YTE PÅSAT, OG PLOTTE- *«, l3=0x42}
0x2ec…330 Line {l1=0x42, l2=»3430 REM *RENS NULPUNKT FASTSÆTTES. *«, l3=0x42}
0x330…374 Line {l1=0x42, l2=»3440 REM *********************************************************«, l3=0x42}
0x374…3a5 Line {l1=0x2f, l2=»3450 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL«, l3=0x2f}
0x3a5…3ca Line {l1=0x23, l2=»3460 XMI,YMI=9.2E18;XMX,YMX=-9.2E18«, l3=0x23}
0x3ca…3ea Line {l1=0x1e, l2=»3470 FOR TK=TST TO TSL STEP DT«, l3=0x1e}
0x3ea…404 Line {l1=0x18, l2=»3480 EXEC PARM(TK,XK,YK)«, l3=0x18}
0x404…421 Line {l1=0x1b, l2=»3490 IF XK<=XMI THEN XMI=XK«, l3=0x1b}
0x421…43e Line {l1=0x1b, l2=»3500 IF XK=>XMX THEN XMX=XK«, l3=0x1b}
0x43e…45b Line {l1=0x1b, l2=»3510 IF YK<=YMI THEN YMI=YK«, l3=0x1b}
0x45b…478 Line {l1=0x1b, l2=»3520 IF YK=>YMX THEN YMX=YK«, l3=0x1b}
0x478…486 Line {l1=0x0c, l2=»3530 NEXT TK«, l3=0x0c}
0x486…4cd Line {l1=0x45, l2=»3540 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)«, l3=0x45}
0x4cd…4e6 Line {l1=0x17, l2=»3550 EXEC PARM(T,XK,YK)«, l3=0x17}
0x4e6…510 Line {l1=0x28, l2=»3560 EXEC FLYTABS((XK*XS+XØ),(YK*YS+YØ))«, l3=0x28}
0x510…530 Line {l1=0x1e, l2=»3570 FOR TK=TST TO TSL STEP DT«, l3=0x1e}
0x530…54a Line {l1=0x18, l2=»3580 EXEC PARM(TK,XK,YK)«, l3=0x18}
0x54a…579 Line {l1=0x2d, l2=»3590 EXEC TEGNABS(LITY,(XK*XS+XØ),(YK*YS+YØ))«, l3=0x2d}
0x579…587 Line {l1=0x0c, l2=»3600 NEXT TK«, l3=0x0c}
0x587…598 Line {l1=0x0f, l2=»3610 EXEC PENOP«, l3=0x0f}
0x598…5af Line {l1=0x15, l2=»3620 ENDPROC ;PARKRV.«, l3=0x15}
0x5af…5c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccc┆
0x5c0…5e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1f…]
0x9c0…9e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆