|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »PNGRAFIK.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNGRAFIK.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;: 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. 1440 PROC AKSE(VI,HØ,SK,SE,MIN,MAX,TYP,TEX) 1450 REM ********************************************************** 1460 REM *AKSE TEGNER EN AKSE MED VINKLEN VI I FORHOLD TIL VANDRET* 1470 REM *FRA MIN TIL MAX. SÆTTER TEKSTEN TEX MED BOGSTAVHØJDEN HØ* 1480 REM *PÅ AKSEN. SKALERINGEN BESTEMMES AF SK ANGIVET I ANTAL * 1490 REM *STEPS PR. ENHED. ANTALLET AF DELSTREGER PR. ENHED BE- * 1500 REM *STEMMES AF 1/SE. * 1510 REM ********************************************************** 1520 KX=COS(VI/180*PI);KY=SIN(VI/180*PI);HB=(18*2**(HØ-1)) 1530 IF SGN(MIN)<>SGN(MAX) THEN 1540 MI=MIN;MX=MAX 1550 ELSE 1560 IF SGN(MIN)=1 THEN 1570 MI=0;MX=MAX-MIN 1580 ELSE 1590 MX=0;MI=MIN-MAX 1600 ENDIF 1610 ENDIF 1620 XMAX=(MX*SK+100)*KX;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*KX;YMIN=MI*SK*KY 1630 EXEC FLYTABS(XMIN,YMIN) 1640 EXEC TEGNABS(0,XMAX,YMAX) 1650 EXEC TEGNREL((KY*20),(-KX*20)) 1660 EXEC TEGNREL((KX-KY)*20,(KX+KY)*20) 1670 EXEC TEGNREL((-KX-KY)*20,(KX-KY)*20) 1680 EXEC TEGNREL((KY*20),(-KX*20)) 1690 IF 0<=KY AND KY<=1 THEN 1700 EXEC FLYTREL((KY*30),(-KX*30-HB*(SGN(KX-KY)+1)/2)) 1710 ELSE 1720 EXEC FLYTREL((-KY*30),(KX*30-HB*(SGN(-KX+KY)+1)/2)) 1730 ENDIF 1740 EXEC TEKST(0,HØ,TEX$) 1750 IF TYP$<>"" THEN 1760 SI=(MAX DIV SE)*SE 1770 FOR I=(SI+MI-MIN)*SK TO MI*SK STEP -SE*SK 1780 EXEC FLYTABS((KX*I-KY*10),(KY*I+KX*10)) 1790 EXEC TEGNREL((KY*20),(-KX*20)) 1800 IF 0<=KY AND KY<=1 THEN 1810 EXEC FLYTREL((KY*20),(-KX*20-HB*(SGN(KX)+1)/2)) 1820 ELSE 1830 EXEC FLYTREL((-KY)*40,(KX)*40+HB*(SGN(KX)-1)/2) 1840 ENDIF 1850 IF TYP$="LIN" THEN 1860 SII=SI 1870 ELSE 1880 SII=10**SI 1890 ENDIF 1900 IF ABS(SII)<=9999 THEN 1910 SJ=ROU(SII*100)/100 1920 ELSE 1930 IF 9999<ABS(SII) AND ABS(SII)<=999999 THEN 1940 SJ=ROU(SII) 1950 ELSE 1960 SJ=SII 1970 ENDIF 1980 ENDIF 1990 IF SJ<>0 THEN EXEC TAL(0,HØ,SJ) 2000 SI=SI-SE 2010 NEXT I 2020 ENDIF 2030 ENDPROC ;AKSE. 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=1450;SB=1000 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. 4000 PROC PARKRV(TST,TSL,DT,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE) 4010 REM ********************************************************* 4020 REM *PARKRV FORETAGER EN AFBILDNING AF PARAMETERFREMSTILLIN-* 4030 REM *GEN ANGIVET I PROCEDUREN PARM MED PARAMETEREN T LØBENDE* 4040 REM *FRA TST TIL TSL MED ET STEP PÅ DT. HVIS XSKA OG/ELLER * 4050 REM *YSKA ER MINDRE END NUL FORETAGES EN AUTOMATISK BESTEM- * 4060 REM *MELSE AF SKALERINGEN OG NULPUNKTET. ELLERS BENNYTTES EN* 4070 REM *SKALERING BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT * 4080 REM *AF XNUL,YNUL. KURVEN TEGNES MED DEN AF LITY VALGTE LI- * 4090 REM *NIETYPE. HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN * 4100 REM *KOORDINATAKSER MED TEKSTERNE XTE,YTE PÅSAT, OG PLOTTE- * 4110 REM *RENS NULPUNKT FASTSÆTTES. * 4120 REM ********************************************************* 4130 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL 4140 XMI,YMI=9.2E18;XMX,YMX=-9.2E18 4150 FOR TK=TST TO TSL STEP DT 4160 EXEC PARM(TK,XK,YK) 4170 IF XK<=XMI THEN XMI=XK 4180 IF XK=>XMX THEN XMX=XK 4190 IF YK<=YMI THEN YMI=YK 4200 IF YK=>YMX THEN YMX=YK 4210 NEXT TK 4220 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$) 4230 EXEC PARM(T,XK,YK) 4240 EXEC FLYTABS((XK*XS+XØ),(YK*YS+YØ)) 4250 FOR TK=TST TO TSL STEP DT 4260 EXEC PARM(TK,XK,YK) 4270 EXEC TEGNABS(LITY,(XK*XS+XØ),(YK*YS+YØ)) 4280 NEXT TK 4290 EXEC PENOP 4300 ENDPROC ;PARKRV. 4310 PROC PARM(T,X,Y) 4320 X=5*R*COS(T/180*PI) 4330 Y=2*R*SIN(T/180*PI) 4340 ENDPROC ;PARM. 4350 DIM XTEKST$(1),YTEKST$(1) 4360 XTEKST$="X";YTEKST$="Y" 4370 OUTPUT P1 4380 EXEC PLOTINIT 4385 FOR R=5 TO 1 STEP -1 4390 EXEC PARKRV(0,360,1,3,3,110,130,R,(R-4),XTEKST$,YTEKST$) 4395 NEXT R 4400 STOP
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…0477 Line {l1=0x14, l2=»0320 PRINT "I;: U H"«, l3=0x14}
0x0477…0490 Line {l1=0x17, l2=»0330 ENDPROC ;PLOTINIT.«, l3=0x17}
0x0490…04a4 Line {l1=0x12, l2=»0340 PROC PLOTSLUT«, l3=0x12}
0x04a4…04c2 Line {l1=0x1c, l2=»0350 REM AFBRYDER PLOTTEREN.«, l3=0x1c}
0x04c2…04d2 Line {l1=0x0e, l2=»0360 PRINT "@"«, l3=0x0e}
0x04d2…04eb Line {l1=0x17, l2=»0370 ENDPROC ;PLOTSLUT.«, l3=0x17}
0x04eb…04ff Line {l1=0x12, l2=»0380 PROC PLOTTEST«, l3=0x12}
0x04ff…052c Line {l1=0x2b, l2=»0390 REM KØRER PLOTTERENS SELVTEST PROGRAM.«, l3=0x2b}
0x052c…053c Line {l1=0x0e, l2=»0400 PRINT "T"«, l3=0x0e}
0x053c…0555 Line {l1=0x17, l2=»0410 ENDPROC ;PLOTTEST.«, l3=0x17}
0x0555…0567 Line {l1=0x10, l2=»0420 PROC NULPKT«, l3=0x10}
0x0567…0588 Line {l1=0x1f, l2=»0430 REM FASTSÆTTER NULPUNKTET.«, l3=0x1f}
0x0588…0598 Line {l1=0x0e, l2=»0440 PRINT "O"«, l3=0x0e}
0x0598…05af Line {l1=0x15, l2=»0450 ENDPROC ;NULPKT.«, l3=0x15}
0x05af…05c1 Line {l1=0x10, l2=»0460 PROC PENNED«, l3=0x10}
0x05c1…05e9 Line {l1=0x26, l2=»0470 REM SÆTTER PENNEN NED PÅ PAPIRET.«, l3=0x26}
0x05e9…05f9 Line {l1=0x0e, l2=»0480 PRINT "D"«, l3=0x0e}
0x05f9…0610 Line {l1=0x15, l2=»0490 ENDPROC ;PENNED.«, l3=0x15}
0x0610…0621 Line {l1=0x0f, l2=»0500 PROC PENOP«, l3=0x0f}
0x0621…0648 Line {l1=0x25, l2=»0510 REM HÆVER PENNEN OP FRA PAPIRET.«, l3=0x25}
0x0648…0658 Line {l1=0x0e, l2=»0520 PRINT "U"«, l3=0x0e}
0x0658…066e Line {l1=0x14, l2=»0530 ENDPROC ;PENOP.«, l3=0x14}
0x066e…0686 Line {l1=0x16, l2=»0540 PROC FLYTABS(X,Y)«, l3=0x16}
0x0686…06c0 Line {l1=0x38, l2=»0550 REM FLYTTER PENNEN ABSOLUT TIL KOORDINATERNE (X,Y).«, l3=0x38}
0x06c0…06d8 Line {l1=0x16, l2=»0560 X=INT(X);Y=INT(Y)«, l3=0x16}
0x06d8…06f2 Line {l1=0x18, l2=»0570 PRINT "U A";X;",";Y«, l3=0x18}
0x06f2…070a Line {l1=0x16, l2=»0580 ENDPROC ;FLYTABS.«, l3=0x16}
0x070a…0729 Line {l1=0x1d, l2=»0590 PROC TEGNABS(LINTYP,X,Y)«, l3=0x1d}
0x0729…0760 Line {l1=0x35, l2=»0600 REM TEGNER LINIE ABSOLUT TIL KOORDINATERNE (X,Y)«, l3=0x35}
0x0760…0785 Line {l1=0x23, l2=»0610 REM MED DEN ANGIVNE LINIETYPE.«, l3=0x23}
0x0785…079d Line {l1=0x16, l2=»0620 X=INT(X);Y=INT(Y)«, l3=0x16}
0x079d…07c8 Line {l1=0x29, l2=»0630 PRINT "D A L"+CHR(48+LINTYP);X;",";Y«, l3=0x29}
0x07c8…07e0 Line {l1=0x16, l2=»0640 ENDPROC ;TEGNABS.«, l3=0x16}
0x07e0…07f8 Line {l1=0x16, l2=»0650 PROC FLYTREL(X,Y)«, l3=0x16}
0x07f8…0833 Line {l1=0x39, l2=»0660 REM FLYTTER PENNEN RELATIVT TIL KOORDINATERNE (X,Y).«, l3=0x39}
0x0833…084b Line {l1=0x16, l2=»0670 X=INT(X);Y=INT(Y)«, l3=0x16}
0x084b…0865 Line {l1=0x18, l2=»0680 PRINT "U R";X;",";Y«, l3=0x18}
0x0865…087d Line {l1=0x16, l2=»0690 ENDPROC ;FLYTREL.«, l3=0x16}
0x087d…0895 Line {l1=0x16, l2=»0700 PROC TEGNREL(X,Y)«, l3=0x16}
0x0895…08ce Line {l1=0x37, l2=»0710 REM TEGNER LINIE RELATIVT TIL KOORDINATERNE (X,Y).«, l3=0x37}
0x08ce…08e6 Line {l1=0x16, l2=»0720 X=INT(X);Y=INT(Y)«, l3=0x16}
0x08e6…0903 Line {l1=0x1b, l2=»0730 PRINT "D R L0";X;",";Y«, l3=0x1b}
0x0903…091b Line {l1=0x16, l2=»0740 ENDPROC ;FLYTREL.«, l3=0x16}
0x091b…093d Line {l1=0x20, l2=»0750 PROC FLYTPOL(VINKEL,LÆNGDE)«, l3=0x20}
0x093d…0974 Line {l1=0x35, l2=»0760 REM FLYTTER PENNEN DEN ANGIVNE LÆNGDE OG MED DEN«, l3=0x35}
0x0974…09a5 Line {l1=0x2f, l2=»0770 REM ANFGIVNE VINKEL I FORHOLD TIL VANDRET.«, l3=0x2f}
0x09a5…09cc Line {l1=0x25, l2=»0780 X=INT(LÆNGDE*COS(VINKEL/180*PI))«, l3=0x25}
0x09cc…09f3 Line {l1=0x25, l2=»0790 Y=INT(LÆNGDE*SIN(VINKEL/180*PI))«, l3=0x25}
0x09f3…0a0d Line {l1=0x18, l2=»0800 PRINT "U R";X;",";Y«, l3=0x18}
0x0a0d…0a25 Line {l1=0x16, l2=»0810 ENDPROC ;FLYTPOL.«, l3=0x16}
0x0a25…0a47 Line {l1=0x20, l2=»0820 PROC TEGNPOL(VINKEL,LÆNGDE)«, l3=0x20}
0x0a47…0a7f Line {l1=0x36, l2=»0830 REM TEGNER EN LINIE MED DEN ANGIVNE LÆNGDE OG MED«, l3=0x36}
0x0a7f…0ab2 Line {l1=0x31, l2=»0840 REM DE ANGIVNE VINKEL I FORHOLD TIL VANDRET.«, l3=0x31}
0x0ab2…0ad9 Line {l1=0x25, l2=»0850 X=INT(LÆNGDE*COS(VINKEL/180*PI))«, l3=0x25}
0x0ad9…0b00 Line {l1=0x25, l2=»0860 Y=INT(LÆNGDE*SIN(VINKEL/180*PI))«, l3=0x25}
0x0b00…0b1a Line {l1=0x18, l2=»0870 PRINT "D R";X;",";Y«, l3=0x18}
0x0b1a…0b32 Line {l1=0x16, l2=»0880 ENDPROC ;TEGNPOL.«, l3=0x16}
0x0b32…0b51 Line {l1=0x1d, l2=»0890 PROC SYMBOL(HØJDE,FIGUR)«, l3=0x1d}
0x0b51…0b9a Line {l1=0x47, l2=»0900 REM TEGNER ET AF FIGURERNE:PLUS(0),KORS(1),FIRKANT(2),OTTEKANT(3),«, l3=0x47}
0x0b9a…0bdc Line {l1=0x40, l2=»0910 REM TREKANT(4),TIMEGLAS(5), MED EN AF HØJDERNE 0,1,2,3,4,5.«, l3=0x40}
0x0bdc…0c0d Line {l1=0x2f, l2=»0920 PRINT "M"+CHR(48+HØJDE)+CHR(48+FIGUR)+" U"«, l3=0x2f}
0x0c0d…0c24 Line {l1=0x15, l2=»0930 ENDPROC ;SYMBOL.«, l3=0x15}
0x0c24…0c48 Line {l1=0x22, l2=»0940 PROC TEKST(VINKEL,HØJDE,TEXT)«, l3=0x22}
0x0c48…0c7b Line {l1=0x31, l2=»0950 REM UDSKRIVER EN TEKST MED DEN ANGIVNE HØJDE«, l3=0x31}
0x0c7b…0ca6 Line {l1=0x29, l2=»0960 REM OG VINKEL I FORHOLD TIL VANDRET.«, l3=0x29}
0x0ca6…0ccc Line {l1=0x24, l2=»0970 V=1+((360-VINKEL) DIV 90) MOD 4«, l3=0x24}
0x0ccc…0d02 Line {l1=0x34, l2=»0980 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);" ";TEXT$;"_"«, l3=0x34}
0x0d02…0d18 Line {l1=0x14, l2=»0990 ENDPROC ;TEKST.«, l3=0x14}
0x0d18…0d38 Line {l1=0x1e, l2=»1000 PROC TAL(VINKEL,HØJDE,NR)«, l3=0x1e}
0x0d38…0d75 Line {l1=0x3b, l2=»1010 REM UDSKRIVER ET TAL MED DEN ANGIVNE HØJDE OG VINKEL I«, l3=0x3b}
0x0d75…0d94 Line {l1=0x1d, l2=»1020 REM FORHOLD TIL VANDRET.«, l3=0x1d}
0x0d94…0dba Line {l1=0x24, l2=»1030 V=1+((360-VINKEL) DIV 90) MOD 4«, l3=0x24}
0x0dba…0de3 Line {l1=0x27, l2=»1040 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);«, l3=0x27}
0x0de3…0e0a Line {l1=0x25, l2=»1050 IF NR<=-1 OR NR=0 OR 1<=NR THEN «, l3=0x25}
0x0e0a…0e1d Line {l1=0x11, l2=»1060 PRINT NR;"_"«, l3=0x11}
0x0e1d…0e29 Line {l1=0x0a, l2=»1070 ELSE «, l3=0x0a}
0x0e29…0e48 Line {l1=0x1d, l2=»1080 PRINT USING " #.## _":NR«, l3=0x1d}
0x0e48…0e55 Line {l1=0x0b, l2=»1090 ENDIF «, l3=0x0b}
0x0e55…0e69 Line {l1=0x12, l2=»1100 ENDPROC ;TAL.«, l3=0x12}
0x0e69…0e96 Line {l1=0x2b, l2=»1440 PROC AKSE(VI,HØ,SK,SE,MIN,MAX,TYP,TEX)«, l3=0x2b}
0x0e96…0edb Line {l1=0x43, l2=»1450 REM **********************************************************«, l3=0x43}
0x0edb…0f20 Line {l1=0x43, l2=»1460 REM *AKSE TEGNER EN AKSE MED VINKLEN VI I FORHOLD TIL VANDRET*«, l3=0x43}
0x0f20…0f65 Line {l1=0x43, l2=»1470 REM *FRA MIN TIL MAX. SÆTTER TEKSTEN TEX MED BOGSTAVHØJDEN HØ*«, l3=0x43}
0x0f65…0faa Line {l1=0x43, l2=»1480 REM *PÅ AKSEN. SKALERINGEN BESTEMMES AF SK ANGIVET I ANTAL *«, l3=0x43}
0x0faa…0fef Line {l1=0x43, l2=»1490 REM *STEPS PR. ENHED. ANTALLET AF DELSTREGER PR. ENHED BE- *«, l3=0x43}
0x0fef…1034 Line {l1=0x43, l2=»1500 REM *STEMMES AF 1/SE. *«, l3=0x43}
0x1034…1079 Line {l1=0x43, l2=»1510 REM **********************************************************«, l3=0x43}
0x1079…10b5 Line {l1=0x3a, l2=»1520 KX=COS(VI/180*PI);KY=SIN(VI/180*PI);HB=(18*2**(HØ-1))«, l3=0x3a}
0x10b5…10d7 Line {l1=0x20, l2=»1530 IF SGN(MIN)<>SGN(MAX) THEN «, l3=0x20}
0x10d7…10eb Line {l1=0x12, l2=»1540 MI=MIN;MX=MAX«, l3=0x12}
0x10eb…10f7 Line {l1=0x0a, l2=»1550 ELSE «, l3=0x0a}
0x10f7…1111 Line {l1=0x18, l2=»1560 IF SGN(MIN)=1 THEN «, l3=0x18}
0x1111…1127 Line {l1=0x14, l2=»1570 MI=0;MX=MAX-MIN«, l3=0x14}
0x1127…1133 Line {l1=0x0a, l2=»1580 ELSE «, l3=0x0a}
0x1133…1149 Line {l1=0x14, l2=»1590 MX=0;MI=MIN-MAX«, l3=0x14}
0x1149…1156 Line {l1=0x0b, l2=»1600 ENDIF «, l3=0x0b}
0x1156…1163 Line {l1=0x0b, l2=»1610 ENDIF «, l3=0x0b}
0x1163…11ad Line {l1=0x48, l2=»1620 XMAX=(MX*SK+100)*KX;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*KX;YMIN=MI*SK*KY«, l3=0x48}
0x11ad…11cb Line {l1=0x1c, l2=»1630 EXEC FLYTABS(XMIN,YMIN)«, l3=0x1c}
0x11cb…11eb Line {l1=0x1e, l2=»1640 EXEC TEGNABS(0,XMAX,YMAX)«, l3=0x1e}
0x11eb…1210 Line {l1=0x23, l2=»1650 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x1210…123a Line {l1=0x28, l2=»1660 EXEC TEGNREL((KX-KY)*20,(KX+KY)*20)«, l3=0x28}
0x123a…1265 Line {l1=0x29, l2=»1670 EXEC TEGNREL((-KX-KY)*20,(KX-KY)*20)«, l3=0x29}
0x1265…128a Line {l1=0x23, l2=»1680 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x128a…12a9 Line {l1=0x1d, l2=»1690 IF 0<=KY AND KY<=1 THEN «, l3=0x1d}
0x12a9…12e2 Line {l1=0x37, l2=»1700 EXEC FLYTREL((KY*30),(-KX*30-HB*(SGN(KX-KY)+1)/2))«, l3=0x37}
0x12e2…12ee Line {l1=0x0a, l2=»1710 ELSE «, l3=0x0a}
0x12ee…1328 Line {l1=0x38, l2=»1720 EXEC FLYTREL((-KY*30),(KX*30-HB*(SGN(-KX+KY)+1)/2))«, l3=0x38}
0x1328…1335 Line {l1=0x0b, l2=»1730 ENDIF «, l3=0x0b}
0x1335…1351 Line {l1=0x1a, l2=»1740 EXEC TEKST(0,HØ,TEX$)«, l3=0x1a}
0x1351…1369 Line {l1=0x16, l2=»1750 IF TYP$<>"" THEN «, l3=0x16}
0x1369…1382 Line {l1=0x17, l2=»1760 SI=(MAX DIV SE)*SE«, l3=0x17}
0x1382…13b2 Line {l1=0x2e, l2=»1770 FOR I=(SI+MI-MIN)*SK TO MI*SK STEP -SE*SK«, l3=0x2e}
0x13b2…13e0 Line {l1=0x2c, l2=»1780 EXEC FLYTABS((KX*I-KY*10),(KY*I+KX*10))«, l3=0x2c}
0x13e0…1405 Line {l1=0x23, l2=»1790 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x1405…1424 Line {l1=0x1d, l2=»1800 IF 0<=KY AND KY<=1 THEN «, l3=0x1d}
0x1424…145a Line {l1=0x34, l2=»1810 EXEC FLYTREL((KY*20),(-KX*20-HB*(SGN(KX)+1)/2))«, l3=0x34}
0x145a…1466 Line {l1=0x0a, l2=»1820 ELSE «, l3=0x0a}
0x1466…149c Line {l1=0x34, l2=»1830 EXEC FLYTREL((-KY)*40,(KX)*40+HB*(SGN(KX)-1)/2)«, l3=0x34}
0x149c…14a9 Line {l1=0x0b, l2=»1840 ENDIF «, l3=0x0b}
0x14a9…14c3 Line {l1=0x18, l2=»1850 IF TYP$="LIN" THEN «, l3=0x18}
0x14c3…14d0 Line {l1=0x0b, l2=»1860 SII=SI«, l3=0x0b}
0x14d0…14dc Line {l1=0x0a, l2=»1870 ELSE «, l3=0x0a}
0x14dc…14ed Line {l1=0x0f, l2=»1880 SII=10**SI«, l3=0x0f}
0x14ed…14fa Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x14fa…1518 Line {l1=0x1c, l2=»1900 IF ABS(SII)<=9999 THEN «, l3=0x1c}
0x1518…1532 Line {l1=0x18, l2=»1910 SJ=ROU(SII*100)/100«, l3=0x18}
0x1532…153e Line {l1=0x0a, l2=»1920 ELSE «, l3=0x0a}
0x153e…1570 Line {l1=0x30, l2=»1930 IF 9999<ABS(SII) AND ABS(SII)<=999999 THEN «, l3=0x30}
0x1570…1582 Line {l1=0x10, l2=»1940 SJ=ROU(SII)«, l3=0x10}
0x1582…158e Line {l1=0x0a, l2=»1950 ELSE «, l3=0x0a}
0x158e…159b Line {l1=0x0b, l2=»1960 SJ=SII«, l3=0x0b}
0x159b…15a8 Line {l1=0x0b, l2=»1970 ENDIF «, l3=0x0b}
0x15a8…15b5 Line {l1=0x0b, l2=»1980 ENDIF «, l3=0x0b}
0x15b5…15db Line {l1=0x24, l2=»1990 IF SJ<>0 THEN EXEC TAL(0,HØ,SJ)«, l3=0x24}
0x15db…15ea Line {l1=0x0d, l2=»2000 SI=SI-SE«, l3=0x0d}
0x15ea…15f7 Line {l1=0x0b, l2=»2010 NEXT I«, l3=0x0b}
0x15f7…1604 Line {l1=0x0b, l2=»2020 ENDIF «, l3=0x0b}
0x1604…1619 Line {l1=0x13, l2=»2030 ENDPROC ;AKSE.«, l3=0x13}
0x1619…1656 Line {l1=0x3b, l2=»2040 PROC KOSYS(XI,XX,YI,YX,XC,YC,X0,Y0,XTP,YTP,AK,XTX,YTX)«, l3=0x3b}
0x1656…1697 Line {l1=0x3f, l2=»2050 REM ******************************************************«, l3=0x3f}
0x1697…16d8 Line {l1=0x3f, l2=»2060 REM *KOSYS FORETAGER EN AUTOSKALERING OG EN AUTONULPUNKTS*«, l3=0x3f}
0x16d8…1719 Line {l1=0x3f, l2=»2070 REM *BESTEMMELSE, HVIS XC OG/ELLER YC ER MINDRE END ELLER*«, l3=0x3f}
0x1719…175a Line {l1=0x3f, l2=»2080 REM *LIG MED NUL. SKALERINGEN XC,YC BESTEMMES DA AF XI,XX*«, l3=0x3f}
0x175a…179b Line {l1=0x3f, l2=»2090 REM *OG YI,YX. ELLERS ANVENDES DE UDEFRA ANGIVNE SKALE- *«, l3=0x3f}
0x179b…17dc Line {l1=0x3f, l2=»2100 REM *RINGER XC,YC OG DE UDEFRA ANGIVNE NULPUNKTER XØ,YØ. *«, l3=0x3f}
0x17dc…181d Line {l1=0x3f, l2=»2110 REM *DESUDEN VIL KOORD, HVIS AK ER LIG MED EEN, UDTEGNE *«, l3=0x3f}
0x181d…185e Line {l1=0x3f, l2=»2120 REM *KOORDINATAKSERNE, SÆTTE TEKSTERNE XTX OG YTX PÅ *«, l3=0x3f}
0x185e…189f Line {l1=0x3f, l2=»2130 REM *AKSERNE OG ENDELIG UDSKRIVE EN SKALA, SOM VIL VÆRE *«, l3=0x3f}
0x189f…18e0 Line {l1=0x3f, l2=»2140 REM *LINIÆR, HVIS XTP(YTP) ER LIG "LIN" OG EKSPONENTIAL, *«, l3=0x3f}
0x18e0…1921 Line {l1=0x3f, l2=»2150 REM *HVIS XTP(YTP) ER FORSKELLIG FRA "LIN". *«, l3=0x3f}
0x1921…1962 Line {l1=0x3f, l2=»2160 REM ******************************************************«, l3=0x3f}
0x1962…197d Line {l1=0x19, l2=»2170 PROC XYDBST(XYC,XYD)«, l3=0x19}
0x197d…1994 Line {l1=0x15, l2=»2180 XYD=INT(200/XYC)«, l3=0x15}
0x1994…19bf Line {l1=0x29, l2=»2190 IF 200<=XYC AND XYC<400 THEN XYD=0.5«, l3=0x29}
0x19bf…19ec Line {l1=0x2b, l2=»2200 IF 400<=XYC AND XYC<1800 THEN XYD=0.25«, l3=0x2b}
0x19ec…1a0c Line {l1=0x1e, l2=»2210 IF 1800<=XYC THEN XYD=0.1«, l3=0x1e}
0x1a0c…1a23 Line {l1=0x15, l2=»2220 ENDPROC ;XYDBST.«, l3=0x15}
0x1a23…1a39 Line {l1=0x14, l2=»2230 SL=1450;SB=1000«, l3=0x14}
0x1a39…1a57 Line {l1=0x1c, l2=»2240 IF XC<=0 OR YC<=0 THEN «, l3=0x1c}
0x1a57…1a73 Line {l1=0x1a, l2=»2250 XC,YC=INT(SB/(YX-YI))«, l3=0x1a}
0x1a73…1aa6 Line {l1=0x31, l2=»2260 IF XC=>SL/(XX-XI) THEN XC,YC=INT(SL/(XX-XI))«, l3=0x31}
0x1aa6…1acd Line {l1=0x25, l2=»2270 XO=-XI*XC;YO=-YI*YC;XF=-20;YF=90«, l3=0x25}
0x1acd…1aed Line {l1=0x1e, l2=»2280 IF 0<=XO AND XO<=SL THEN «, l3=0x1e}
0x1aed…1afa Line {l1=0x0b, l2=»2290 XPO=XO«, l3=0x0b}
0x1afa…1b06 Line {l1=0x0a, l2=»2300 ELSE «, l3=0x0a}
0x1b06…1b1a Line {l1=0x12, l2=»2310 IF XO<0 THEN «, l3=0x12}
0x1b1a…1b26 Line {l1=0x0a, l2=»2320 XPO=0«, l3=0x0a}
0x1b26…1b32 Line {l1=0x0a, l2=»2330 ELSE «, l3=0x0a}
0x1b32…1b3f Line {l1=0x0b, l2=»2340 XPO=SL«, l3=0x0b}
0x1b3f…1b4c Line {l1=0x0b, l2=»2350 ENDIF «, l3=0x0b}
0x1b4c…1b59 Line {l1=0x0b, l2=»2360 ENDIF «, l3=0x0b}
0x1b59…1b79 Line {l1=0x1e, l2=»2370 IF 0<=YO AND YO<=SB THEN «, l3=0x1e}
0x1b79…1b86 Line {l1=0x0b, l2=»2380 YPO=YO«, l3=0x0b}
0x1b86…1b92 Line {l1=0x0a, l2=»2390 ELSE «, l3=0x0a}
0x1b92…1ba6 Line {l1=0x12, l2=»2400 IF YO<0 THEN «, l3=0x12}
0x1ba6…1bb2 Line {l1=0x0a, l2=»2410 YPO=0«, l3=0x0a}
0x1bb2…1bbe Line {l1=0x0a, l2=»2420 ELSE «, l3=0x0a}
0x1bbe…1bcb Line {l1=0x0b, l2=»2430 YPO=SB«, l3=0x0b}
0x1bcb…1bd8 Line {l1=0x0b, l2=»2440 ENDIF «, l3=0x0b}
0x1bd8…1be5 Line {l1=0x0b, l2=»2450 ENDIF «, l3=0x0b}
0x1be5…1bf1 Line {l1=0x0a, l2=»2460 ELSE «, l3=0x0a}
0x1bf1…1c33 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}
0x1c33…1c40 Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x1c40…1c54 Line {l1=0x12, l2=»2490 IF AK=1 THEN «, l3=0x12}
0x1c54…1c7a Line {l1=0x24, l2=»2500 EXEC FLYTABS((XPO+XF),(YPO+YF))«, l3=0x24}
0x1c7a…1c8c Line {l1=0x10, l2=»2510 EXEC NULPKT«, l3=0x10}
0x1c8c…1ca5 Line {l1=0x17, l2=»2520 EXEC XYDBST(XC,XD)«, l3=0x17}
0x1ca5…1cd0 Line {l1=0x29, l2=»2530 EXEC AKSE(0,1,XC,XD,XI,XX,XTP$,XTX$)«, l3=0x29}
0x1cd0…1ce9 Line {l1=0x17, l2=»2540 EXEC XYDBST(YC,YD)«, l3=0x17}
0x1ce9…1d15 Line {l1=0x2a, l2=»2550 EXEC AKSE(90,1,YC,YD,YI,YX,YTP$,YTX$)«, l3=0x2a}
0x1d15…1d22 Line {l1=0x0b, l2=»2560 ENDIF «, l3=0x0b}
0x1d22…1d3c Line {l1=0x18, l2=»2570 X0=XO-XPO;Y0=YO-YPO«, l3=0x18}
0x1d3c…1d52 Line {l1=0x14, l2=»2580 ENDPROC ;KOSYS.«, l3=0x14}
0x1d52…1d96 Line {l1=0x42, l2=»4000 PROC PARKRV(TST,TSL,DT,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE)«, l3=0x42}
0x1d96…1dda Line {l1=0x42, l2=»4010 REM *********************************************************«, l3=0x42}
0x1dda…1e1e Line {l1=0x42, l2=»4020 REM *PARKRV FORETAGER EN AFBILDNING AF PARAMETERFREMSTILLIN-*«, l3=0x42}
0x1e1e…1e62 Line {l1=0x42, l2=»4030 REM *GEN ANGIVET I PROCEDUREN PARM MED PARAMETEREN T LØBENDE*«, l3=0x42}
0x1e62…1ea6 Line {l1=0x42, l2=»4040 REM *FRA TST TIL TSL MED ET STEP PÅ DT. HVIS XSKA OG/ELLER *«, l3=0x42}
0x1ea6…1eea Line {l1=0x42, l2=»4050 REM *YSKA ER MINDRE END NUL FORETAGES EN AUTOMATISK BESTEM- *«, l3=0x42}
0x1eea…1f2e Line {l1=0x42, l2=»4060 REM *MELSE AF SKALERINGEN OG NULPUNKTET. ELLERS BENNYTTES EN*«, l3=0x42}
0x1f2e…1f72 Line {l1=0x42, l2=»4070 REM *SKALERING BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT *«, l3=0x42}
0x1f72…1fb6 Line {l1=0x42, l2=»4080 REM *AF XNUL,YNUL. KURVEN TEGNES MED DEN AF LITY VALGTE LI- *«, l3=0x42}
0x1fb6…1ffa Line {l1=0x42, l2=»4090 REM *NIETYPE. HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN *«, l3=0x42}
0x1ffa…203e Line {l1=0x42, l2=»4100 REM *KOORDINATAKSER MED TEKSTERNE XTE,YTE PÅSAT, OG PLOTTE- *«, l3=0x42}
0x203e…2082 Line {l1=0x42, l2=»4110 REM *RENS NULPUNKT FASTSÆTTES. *«, l3=0x42}
0x2082…20c6 Line {l1=0x42, l2=»4120 REM *********************************************************«, l3=0x42}
0x20c6…20f7 Line {l1=0x2f, l2=»4130 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL«, l3=0x2f}
0x20f7…211c Line {l1=0x23, l2=»4140 XMI,YMI=9.2E18;XMX,YMX=-9.2E18«, l3=0x23}
0x211c…213c Line {l1=0x1e, l2=»4150 FOR TK=TST TO TSL STEP DT«, l3=0x1e}
0x213c…2156 Line {l1=0x18, l2=»4160 EXEC PARM(TK,XK,YK)«, l3=0x18}
0x2156…2173 Line {l1=0x1b, l2=»4170 IF XK<=XMI THEN XMI=XK«, l3=0x1b}
0x2173…2190 Line {l1=0x1b, l2=»4180 IF XK=>XMX THEN XMX=XK«, l3=0x1b}
0x2190…21ad Line {l1=0x1b, l2=»4190 IF YK<=YMI THEN YMI=YK«, l3=0x1b}
0x21ad…21ca Line {l1=0x1b, l2=»4200 IF YK=>YMX THEN YMX=YK«, l3=0x1b}
0x21ca…21d8 Line {l1=0x0c, l2=»4210 NEXT TK«, l3=0x0c}
0x21d8…221f Line {l1=0x45, l2=»4220 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)«, l3=0x45}
0x221f…2238 Line {l1=0x17, l2=»4230 EXEC PARM(T,XK,YK)«, l3=0x17}
0x2238…2262 Line {l1=0x28, l2=»4240 EXEC FLYTABS((XK*XS+XØ),(YK*YS+YØ))«, l3=0x28}
0x2262…2282 Line {l1=0x1e, l2=»4250 FOR TK=TST TO TSL STEP DT«, l3=0x1e}
0x2282…229c Line {l1=0x18, l2=»4260 EXEC PARM(TK,XK,YK)«, l3=0x18}
0x229c…22cb Line {l1=0x2d, l2=»4270 EXEC TEGNABS(LITY,(XK*XS+XØ),(YK*YS+YØ))«, l3=0x2d}
0x22cb…22d9 Line {l1=0x0c, l2=»4280 NEXT TK«, l3=0x0c}
0x22d9…22ea Line {l1=0x0f, l2=»4290 EXEC PENOP«, l3=0x0f}
0x22ea…2301 Line {l1=0x15, l2=»4300 ENDPROC ;PARKRV.«, l3=0x15}
0x2301…2318 Line {l1=0x15, l2=»4310 PROC PARM(T,X,Y)«, l3=0x15}
0x2318…2332 Line {l1=0x18, l2=»4320 X=5*R*COS(T/180*PI)«, l3=0x18}
0x2332…234c Line {l1=0x18, l2=»4330 Y=2*R*SIN(T/180*PI)«, l3=0x18}
0x234c…2361 Line {l1=0x13, l2=»4340 ENDPROC ;PARM.«, l3=0x13}
0x2361…2381 Line {l1=0x1e, l2=»4350 DIM XTEKST$(1),YTEKST$(1)«, l3=0x1e}
0x2381…239f Line {l1=0x1c, l2=»4360 XTEKST$="X";YTEKST$="Y"«, l3=0x1c}
0x239f…23af Line {l1=0x0e, l2=»4370 OUTPUT P1«, l3=0x0e}
0x23af…23c3 Line {l1=0x12, l2=»4380 EXEC PLOTINIT«, l3=0x12}
0x23c3…23de Line {l1=0x19, l2=»4385 FOR R=5 TO 1 STEP -1«, l3=0x19}
0x23de…241d Line {l1=0x3d, l2=»4390 EXEC PARKRV(0,360,1,3,3,110,130,R,(R-4),XTEKST$,YTEKST$)«, l3=0x3d}
0x241d…242a Line {l1=0x0b, l2=»4395 NEXT R«, l3=0x0b}
0x242a…2436 Line {l1=0x0a, l2=»4400 STOP «, l3=0x0a}
0x2436…2440 00 00 63 63 63 63 63 63 63 63 ┆ cccccccc┆
0x2440…2460 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┆
[…0x18…]
0x2760…2780 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 ┆