|
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: 3008 (0xbc0)
Types: TextFile
Notes: Mikados_K
Names: »PNKOSYS.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNKOSYS.K«
2040 PROC KOSYS(XI,XX,YI,YX,XC,YC,X0,Y0,XTP,YTP,AK,XTX,YTX) 2050 REM ****************************************************** 2060 REM *KOSYS FORETAGER EN AUTOSKALERING OG EN AUTONULPUNKTS* 2070 REM *BESTEMMELSE, HVIS XC OG/ELLER YC ER MINDRE END ELLER* 2080 REM *LIG MED NUL. SKALERINGEN XC,YC BESTEMMES DA AF XI,XX* 2090 REM *OG YI,YX. ELLERS ANVENDES DE UDEFRA ANGIVNE SKALE- * 2100 REM *RINGER XC,YC OG DE UDEFRA ANGIVNE NULPUNKTER XØ,YØ. * 2110 REM *DESUDEN VIL KOORD, HVIS AK ER LIG MED EEN, UDTEGNE * 2120 REM *KOORDINATAKSERNE, SÆTTE TEKSTERNE XTX OG YTX PÅ * 2130 REM *AKSERNE OG ENDELIG UDSKRIVE EN SKALA, SOM VIL VÆRE * 2140 REM *LINIÆR, HVIS XTP(YTP) ER LIG "LIN" OG EKSPONENTIAL, * 2150 REM *HVIS XTP(YTP) ER FORSKELLIG FRA "LIN". * 2160 REM ****************************************************** 2170 PROC XYDBST(XYC,XYD) 2180 XYD=INT(200/XYC) 2190 IF 200<=XYC AND XYC<400 THEN XYD=0.5 2200 IF 400<=XYC AND XYC<1800 THEN XYD=0.25 2210 IF 1800<=XYC THEN XYD=0.1 2220 ENDPROC ;XYDBST. 2230 SL=3500;SB=2300 2240 IF XC<=0 OR YC<=0 THEN 2250 XC,YC=INT(SB/(YX-YI)) 2260 IF XC=>SL/(XX-XI) THEN XC,YC=INT(SL/(XX-XI)) 2270 XO=-XI*XC;YO=-YI*YC;XF=-20;YF=90 2280 IF 0<=XO AND XO<=SL THEN 2290 XPO=XO 2300 ELSE 2310 IF XO<0 THEN 2320 XPO=0 2330 ELSE 2340 XPO=SL 2350 ENDIF 2360 ENDIF 2370 IF 0<=YO AND YO<=SB THEN 2380 YPO=YO 2390 ELSE 2400 IF YO<0 THEN 2410 YPO=0 2420 ELSE 2430 YPO=SB 2440 ENDIF 2450 ENDIF 2460 ELSE 2470 XC=XC*10;YC=YC*10;XPO,XO=X0*10;YPO,YO=Y0*10;XF=-420;YF=-160 2480 ENDIF 2490 IF AK=1 THEN 2500 EXEC FLYTABS((XPO+XF),(YPO+YF)) 2510 EXEC NULPKT 2520 EXEC XYDBST(XC,XD) 2530 EXEC AKSE(0,1,XC,XD,XI,XX,XTP$,XTX$) 2540 EXEC XYDBST(YC,YD) 2550 EXEC AKSE(90,1,YC,YD,YI,YX,YTP$,YTX$) 2560 ENDIF 2570 X0=XO-XPO;Y0=YO-YPO 2580 ENDPROC ;KOSYS.
0x000…03d Line {l1=0x3b, l2=»2040 PROC KOSYS(XI,XX,YI,YX,XC,YC,X0,Y0,XTP,YTP,AK,XTX,YTX)«, l3=0x3b}
0x03d…07e Line {l1=0x3f, l2=»2050 REM ******************************************************«, l3=0x3f}
0x07e…0bf Line {l1=0x3f, l2=»2060 REM *KOSYS FORETAGER EN AUTOSKALERING OG EN AUTONULPUNKTS*«, l3=0x3f}
0x0bf…100 Line {l1=0x3f, l2=»2070 REM *BESTEMMELSE, HVIS XC OG/ELLER YC ER MINDRE END ELLER*«, l3=0x3f}
0x100…141 Line {l1=0x3f, l2=»2080 REM *LIG MED NUL. SKALERINGEN XC,YC BESTEMMES DA AF XI,XX*«, l3=0x3f}
0x141…182 Line {l1=0x3f, l2=»2090 REM *OG YI,YX. ELLERS ANVENDES DE UDEFRA ANGIVNE SKALE- *«, l3=0x3f}
0x182…1c3 Line {l1=0x3f, l2=»2100 REM *RINGER XC,YC OG DE UDEFRA ANGIVNE NULPUNKTER XØ,YØ. *«, l3=0x3f}
0x1c3…204 Line {l1=0x3f, l2=»2110 REM *DESUDEN VIL KOORD, HVIS AK ER LIG MED EEN, UDTEGNE *«, l3=0x3f}
0x204…245 Line {l1=0x3f, l2=»2120 REM *KOORDINATAKSERNE, SÆTTE TEKSTERNE XTX OG YTX PÅ *«, l3=0x3f}
0x245…286 Line {l1=0x3f, l2=»2130 REM *AKSERNE OG ENDELIG UDSKRIVE EN SKALA, SOM VIL VÆRE *«, l3=0x3f}
0x286…2c7 Line {l1=0x3f, l2=»2140 REM *LINIÆR, HVIS XTP(YTP) ER LIG "LIN" OG EKSPONENTIAL, *«, l3=0x3f}
0x2c7…308 Line {l1=0x3f, l2=»2150 REM *HVIS XTP(YTP) ER FORSKELLIG FRA "LIN". *«, l3=0x3f}
0x308…349 Line {l1=0x3f, l2=»2160 REM ******************************************************«, l3=0x3f}
0x349…364 Line {l1=0x19, l2=»2170 PROC XYDBST(XYC,XYD)«, l3=0x19}
0x364…37b Line {l1=0x15, l2=»2180 XYD=INT(200/XYC)«, l3=0x15}
0x37b…3a6 Line {l1=0x29, l2=»2190 IF 200<=XYC AND XYC<400 THEN XYD=0.5«, l3=0x29}
0x3a6…3d3 Line {l1=0x2b, l2=»2200 IF 400<=XYC AND XYC<1800 THEN XYD=0.25«, l3=0x2b}
0x3d3…3f3 Line {l1=0x1e, l2=»2210 IF 1800<=XYC THEN XYD=0.1«, l3=0x1e}
0x3f3…40a Line {l1=0x15, l2=»2220 ENDPROC ;XYDBST.«, l3=0x15}
0x40a…420 Line {l1=0x14, l2=»2230 SL=3500;SB=2300«, l3=0x14}
0x420…43e Line {l1=0x1c, l2=»2240 IF XC<=0 OR YC<=0 THEN «, l3=0x1c}
0x43e…45a Line {l1=0x1a, l2=»2250 XC,YC=INT(SB/(YX-YI))«, l3=0x1a}
0x45a…48d Line {l1=0x31, l2=»2260 IF XC=>SL/(XX-XI) THEN XC,YC=INT(SL/(XX-XI))«, l3=0x31}
0x48d…4b4 Line {l1=0x25, l2=»2270 XO=-XI*XC;YO=-YI*YC;XF=-20;YF=90«, l3=0x25}
0x4b4…4d4 Line {l1=0x1e, l2=»2280 IF 0<=XO AND XO<=SL THEN «, l3=0x1e}
0x4d4…4e1 Line {l1=0x0b, l2=»2290 XPO=XO«, l3=0x0b}
0x4e1…4ed Line {l1=0x0a, l2=»2300 ELSE «, l3=0x0a}
0x4ed…501 Line {l1=0x12, l2=»2310 IF XO<0 THEN «, l3=0x12}
0x501…50d Line {l1=0x0a, l2=»2320 XPO=0«, l3=0x0a}
0x50d…519 Line {l1=0x0a, l2=»2330 ELSE «, l3=0x0a}
0x519…526 Line {l1=0x0b, l2=»2340 XPO=SL«, l3=0x0b}
0x526…533 Line {l1=0x0b, l2=»2350 ENDIF «, l3=0x0b}
0x533…540 Line {l1=0x0b, l2=»2360 ENDIF «, l3=0x0b}
0x540…560 Line {l1=0x1e, l2=»2370 IF 0<=YO AND YO<=SB THEN «, l3=0x1e}
0x560…56d Line {l1=0x0b, l2=»2380 YPO=YO«, l3=0x0b}
0x56d…579 Line {l1=0x0a, l2=»2390 ELSE «, l3=0x0a}
0x579…58d Line {l1=0x12, l2=»2400 IF YO<0 THEN «, l3=0x12}
0x58d…599 Line {l1=0x0a, l2=»2410 YPO=0«, l3=0x0a}
0x599…5a5 Line {l1=0x0a, l2=»2420 ELSE «, l3=0x0a}
0x5a5…5b2 Line {l1=0x0b, l2=»2430 YPO=SB«, l3=0x0b}
0x5b2…5bf Line {l1=0x0b, l2=»2440 ENDIF «, l3=0x0b}
0x5bf…5cc Line {l1=0x0b, l2=»2450 ENDIF «, l3=0x0b}
0x5cc…5d8 Line {l1=0x0a, l2=»2460 ELSE «, l3=0x0a}
0x5d8…61a Line {l1=0x40, l2=»2470 XC=XC*10;YC=YC*10;XPO,XO=X0*10;YPO,YO=Y0*10;XF=-420;YF=-160«, l3=0x40}
0x61a…627 Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x627…63b Line {l1=0x12, l2=»2490 IF AK=1 THEN «, l3=0x12}
0x63b…661 Line {l1=0x24, l2=»2500 EXEC FLYTABS((XPO+XF),(YPO+YF))«, l3=0x24}
0x661…673 Line {l1=0x10, l2=»2510 EXEC NULPKT«, l3=0x10}
0x673…68c Line {l1=0x17, l2=»2520 EXEC XYDBST(XC,XD)«, l3=0x17}
0x68c…6b7 Line {l1=0x29, l2=»2530 EXEC AKSE(0,1,XC,XD,XI,XX,XTP$,XTX$)«, l3=0x29}
0x6b7…6d0 Line {l1=0x17, l2=»2540 EXEC XYDBST(YC,YD)«, l3=0x17}
0x6d0…6fc Line {l1=0x2a, l2=»2550 EXEC AKSE(90,1,YC,YD,YI,YX,YTP$,YTX$)«, l3=0x2a}
0x6fc…709 Line {l1=0x0b, l2=»2560 ENDIF «, l3=0x0b}
0x709…723 Line {l1=0x18, l2=»2570 X0=XO-XPO;Y0=YO-YPO«, l3=0x18}
0x723…739 Line {l1=0x14, l2=»2580 ENDPROC ;KOSYS.«, l3=0x14}
0x739…740 00 00 2d 59 50 4f 18 ┆ -YPO ┆
0x740…760 14 32 36 36 30 20 45 4e 44 50 52 4f 43 20 3b 4b 4f 53 59 53 2e 14 00 00 00 00 00 00 00 00 00 00 ┆ 2660 ENDPROC ;KOSYS. ┆
0x760…780 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 ┆ ┆
[…0x22…]