|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5632 (0x1600)
Names: »B68«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/B68«
0x0000…0020 39 79 7a 63 5d 4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c5 c5 12 c0 00 6b 4c ac ad 65 ┆9yzcÅL kL e┆
0x0020…0040 56 46 46 63 00 00 00 00 00 00 00 00 4b 33 33 64 30 00 00 63 41 00 00 6b 50 00 00 67 00 00 00 64 ┆VFFc K33d0 cA kP g d┆
0x0040…0060 00 00 00 00 16 00 00 68 1b 00 00 69 0c 00 00 66 19 79 7a 60 5d 4c 2c 20 52 5c 47 45 54 00 00 00 ┆ h i f yz`ÅL, RØGET ┆
0x0060…0080 00 00 00 00 00 00 c5 c5 30 40 00 6b 53 33 33 65 5c ac ad 63 00 00 00 00 00 00 00 00 15 79 7a 65 ┆ 0@ kS33eØ c yze┆
0x0080…00a0 00 00 00 64 41 00 00 6b 50 00 00 67 50 00 00 63 00 00 00 00 0c 00 00 68 1b 00 00 69 5c 00 00 66 ┆ dA kP gP c h iØ f┆
0x00a0…00c0 33 33 33 60 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 ┆333` ┆
0x00c0…00e0 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 c5 ┆ ┆
[…0x1…]
0x0100…0120 20 30 30 38 30 20 52 45 4d 20 53 41 54 45 4c 4c 49 54 54 45 52 2c 20 46 47 4b 2c 20 31 35 2d 32 ┆ 0080 REM SATELLITTER, FGK, 15-2┆
0x0120…0140 2d 38 30 0d 0a 20 30 31 30 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 ┆-80 0100 REM //----------// ┆
0x0140…0160 30 31 32 30 20 44 49 4d 20 55 42 49 4c 4c 45 44 24 28 31 30 29 2c 53 56 41 52 24 28 31 29 0d 0a ┆0120 DIM UBILLED$(10),SVAR$(1) ┆
0x0160…0180 20 30 31 34 30 20 52 45 4d 20 48 45 52 20 4d 41 4e 47 4c 45 52 20 50 52 49 4e 54 20 55 53 49 4e ┆ 0140 REM HER MANGLER PRINT USIN┆
0x0180…01a0 47 0d 0a 20 30 31 36 30 20 44 54 49 44 3d 31 30 3b 20 50 4c 41 4e 45 54 52 41 44 49 55 53 3d 36 ┆G 0160 DTID=10; PLANETRADIUS=6┆
0x01a0…01c0 2e 33 37 45 36 0d 0a 20 30 31 38 30 20 50 49 3d 33 2e 31 34 31 35 39 33 3b 20 47 3d 36 2e 36 36 ┆.37E6 0180 PI=3.141593; G=6.66┆
0x01c0…01e0 45 2d 31 31 3b 20 4d 3d 35 2e 39 37 45 32 34 0d 0a 20 30 32 30 30 20 4b 52 41 46 54 3d 47 2a 4d ┆E-11; M=5.97E24 0200 KRAFT=G*M┆
0x01e0…0200 0d 0a 20 30 32 32 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 32 34 ┆ 0220 REM //----------// 024┆
0x0200…0220 30 20 52 45 50 45 41 54 20 0d 0a 20 30 32 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 ┆0 REPEAT 0250 PRINT CHR(12)┆
0x0220…0240 0d 0a 20 30 32 36 30 20 20 20 4e 59 3d 30 0d 0a 20 30 32 38 30 20 20 20 45 58 45 43 20 49 4e 44 ┆ 0260 NY=0 0280 EXEC IND┆
0x0240…0260 53 4b 52 49 56 0d 0a 20 30 33 30 30 20 20 20 45 58 45 43 20 48 4f 56 45 44 0d 0a 20 30 33 32 30 ┆SKRIV 0300 EXEC HOVED 0320┆
0x0260…0280 20 20 20 45 58 45 43 20 4e 55 4c 53 54 49 4c 0d 0a 20 30 33 34 30 20 20 20 45 58 45 43 20 42 45 ┆ EXEC NULSTIL 0340 EXEC BE┆
0x0280…02a0 52 45 47 4e 0d 0a 20 30 33 36 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 33 38 30 20 20 20 20 ┆REGN 0360 REPEAT 0380 ┆
0x02a0…02c0 20 49 46 20 53 54 59 52 54 3d 30 20 54 48 45 4e 20 49 4e 50 55 54 20 22 46 4f 52 54 53 5b 54 54 ┆ IF STYRT=0 THEN INPUT "FORTSÆTT┆
0x02c0…02e0 45 20 3a 20 22 2c 53 56 41 52 24 0d 0a 20 30 34 34 30 20 20 20 20 20 49 46 20 53 56 41 52 24 3d ┆E : ",SVAR$ 0440 IF SVAR$=┆
0x02e0…0300 22 4a 22 20 4f 52 20 53 56 41 52 24 3d 22 4a 22 20 54 48 45 4e 20 0d 0a 20 30 34 36 30 20 20 20 ┆"J" OR SVAR$="J" THEN 0460 ┆
0x0300…0320 20 20 20 20 49 4e 50 55 54 20 22 53 41 4d 4d 45 20 54 49 44 53 49 4e 54 45 52 56 41 4c 20 3a 20 ┆ INPUT "SAMME TIDSINTERVAL : ┆
0x0320…0340 22 2c 53 56 41 52 24 0d 0a 20 30 34 38 30 20 20 20 20 20 20 20 49 46 20 53 56 41 52 24 3d 22 4a ┆",SVAR$ 0480 IF SVAR$="J┆
0x0340…0360 22 20 4f 52 20 53 56 41 52 24 3d 22 4a 22 20 54 48 45 4e 20 0d 0a 20 30 35 30 30 20 20 20 20 20 ┆" OR SVAR$="J" THEN 0500 ┆
0x0360…0380 20 20 20 20 45 58 45 43 20 42 45 52 45 47 4e 0d 0a 20 30 35 32 30 20 20 20 20 20 20 20 45 4c 53 ┆ EXEC BEREGN 0520 ELS┆
0x0380…03a0 45 20 0d 0a 20 30 35 34 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4e 59 55 44 54 49 44 0d 0a ┆E 0540 EXEC NYUDTID ┆
0x03a0…03c0 20 30 35 36 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 42 45 52 45 47 4e 0d 0a 20 30 35 38 30 ┆ 0560 EXEC BEREGN 0580┆
0x03c0…03e0 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 36 30 30 20 20 20 20 20 45 4c 53 45 20 0d 0a ┆ ENDIF 0600 ELSE ┆
0x03e0…0400 20 30 36 32 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 4e 59 20 52 55 4e 44 45 20 3a 20 22 2c ┆ 0620 INPUT "NY RUNDE : ",┆
0x0400…0420 53 56 41 52 24 0d 0a 20 30 36 34 30 20 20 20 20 20 20 20 49 46 20 53 56 41 52 24 3d 22 4a 22 20 ┆SVAR$ 0640 IF SVAR$="J" ┆
0x0420…0440 4f 52 20 53 56 41 52 24 3d 22 4a 22 20 54 48 45 4e 20 0d 0a 20 30 36 36 30 20 20 20 20 20 20 20 ┆OR SVAR$="J" THEN 0660 ┆
0x0440…0460 20 20 4e 59 3d 31 0d 0a 20 30 36 38 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 37 30 30 ┆ NY=1 0680 ELSE 0700┆
0x0460…0480 20 20 20 20 20 20 20 20 20 53 54 4f 50 20 0d 0a 20 30 37 32 30 20 20 20 20 20 20 20 45 4e 44 49 ┆ STOP 0720 ENDI┆
0x0480…04a0 46 20 0d 0a 20 30 37 34 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 37 36 30 20 20 20 55 4e ┆F 0740 ENDIF 0760 UN┆
0x04a0…04c0 54 49 4c 20 4e 59 3d 31 0d 0a 20 30 37 38 30 20 55 4e 54 49 4c 20 31 3d 30 0d 0a 20 30 38 30 30 ┆TIL NY=1 0780 UNTIL 1=0 0800┆
0x04c0…04e0 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 38 32 30 20 50 52 4f 43 20 ┆ REM //----------// 0820 PROC ┆
0x04e0…0500 49 4e 44 53 4b 52 49 56 0d 0a 20 30 38 34 30 20 20 20 45 58 45 43 20 41 46 53 54 41 4e 44 0d 0a ┆INDSKRIV 0840 EXEC AFSTAND ┆
0x0500…0520 20 30 38 36 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 38 38 30 20 20 20 20 20 49 4e 50 55 54 ┆ 0860 REPEAT 0880 INPUT┆
0x0520…0540 20 22 53 41 54 45 4c 4c 49 54 54 45 4e 53 20 53 54 41 52 54 48 5c 4a 44 45 20 28 4b 4d 29 20 20 ┆ "SATELLITTENS STARTHØJDE (KM) ┆
0x0540…0560 20 20 3a 20 22 2c 48 5c 4a 44 45 0d 0a 20 30 38 39 30 20 20 20 20 20 48 5c 4a 44 45 3d 48 5c 4a ┆ : ",HØJDE 0890 HØJDE=HØJ┆
0x0560…0580 44 45 2a 31 30 30 30 0d 0a 20 30 39 30 30 20 20 20 55 4e 54 49 4c 20 48 5c 4a 44 45 3e 30 0d 0a ┆DE*1000 0900 UNTIL HØJDE>0 ┆
0x0580…05a0 20 30 39 32 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 39 34 30 20 20 20 20 20 49 4e 50 55 54 ┆ 0920 REPEAT 0940 INPUT┆
0x05a0…05c0 20 22 53 54 41 52 54 48 41 53 54 49 47 48 45 44 20 49 20 4d 2f 53 20 20 20 20 20 20 20 20 20 20 ┆ "STARTHASTIGHED I M/S ┆
0x05c0…05e0 20 20 3a 20 22 2c 58 48 41 53 54 0d 0a 20 30 39 36 30 20 20 20 55 4e 54 49 4c 20 58 48 41 53 54 ┆ : ",XHAST 0960 UNTIL XHAST┆
0x05e0…0600 3e 30 0d 0a 20 30 39 38 30 20 20 20 45 58 45 43 20 4e 59 55 44 54 49 44 0d 0a 20 31 30 30 30 20 ┆>0 0980 EXEC NYUDTID 1000 ┆
0x0600…0620 20 20 45 58 45 43 20 41 46 53 54 41 4e 44 0d 0a 20 31 30 32 30 20 45 4e 44 50 52 4f 43 20 49 4e ┆ EXEC AFSTAND 1020 ENDPROC IN┆
0x0620…0640 44 53 4b 52 49 56 0d 0a 20 31 30 34 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f ┆DSKRIV 1040 REM //----------//┆
0x0640…0660 0d 0a 20 31 30 36 30 20 50 52 4f 43 20 41 46 53 54 41 4e 44 0d 0a 20 31 30 38 30 20 20 20 46 4f ┆ 1060 PROC AFSTAND 1080 FO┆
0x0660…0680 52 20 41 46 53 3d 31 20 54 4f 20 35 0d 0a 20 31 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 0d 0a ┆R AFS=1 TO 5 1100 PRINT ┆
0x0680…06a0 20 31 31 32 30 20 20 20 4e 45 58 54 20 41 46 53 0d 0a 20 31 31 34 30 20 45 4e 44 50 52 4f 43 20 ┆ 1120 NEXT AFS 1140 ENDPROC ┆
0x06a0…06c0 41 46 53 54 41 4e 44 0d 0a 20 31 31 36 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f ┆AFSTAND 1160 REM //----------/┆
0x06c0…06e0 2f 0d 0a 20 31 31 38 30 20 50 52 4f 43 20 4e 59 55 44 54 49 44 0d 0a 20 31 32 30 30 20 20 20 52 ┆/ 1180 PROC NYUDTID 1200 R┆
0x06e0…0700 45 50 45 41 54 20 0d 0a 20 31 32 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 48 56 4f 52 20 4d 41 ┆EPEAT 1220 PRINT "HVOR MA┆
0x0700…0720 4e 47 45 20 53 45 4b 55 4e 44 45 52 20 4d 45 4c 4c 45 4d 22 0d 0a 20 31 32 34 30 20 20 20 20 20 ┆NGE SEKUNDER MELLEM" 1240 ┆
0x0720…0740 50 52 49 4e 54 20 22 48 56 45 52 20 55 44 53 4b 52 49 46 54 20 28 44 45 4c 45 4c 49 47 20 4d 45 ┆PRINT "HVER UDSKRIFT (DELELIG ME┆
0x0740…0760 44 22 3b 20 44 54 49 44 3b 20 0d 0a 20 31 32 36 30 20 20 20 20 20 49 4e 50 55 54 20 22 29 20 3a ┆D"; DTID; 1260 INPUT ") :┆
0x0760…0780 20 22 2c 55 44 54 49 44 0d 0a 20 31 32 38 30 20 20 20 55 4e 54 49 4c 20 41 42 53 28 55 44 54 49 ┆ ",UDTID 1280 UNTIL ABS(UDTI┆
0x0780…07a0 44 2f 44 54 49 44 29 3d 49 4e 54 28 55 44 54 49 44 2f 44 54 49 44 29 0d 0a 20 31 33 30 30 20 45 ┆D/DTID)=INT(UDTID/DTID) 1300 E┆
0x07a0…07c0 4e 44 50 52 4f 43 20 4e 59 55 44 54 49 44 0d 0a 20 31 33 32 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d ┆NDPROC NYUDTID 1320 REM //----┆
0x07c0…07e0 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 33 34 30 20 50 52 4f 43 20 48 4f 56 45 44 0d 0a 20 31 33 36 ┆------// 1340 PROC HOVED 136┆
0x07e0…0800 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 54 49 44 20 20 20 20 20 20 20 20 ┆0 PRINT " TID ┆
0x0800…0820 20 20 20 20 20 20 20 48 5c 4a 44 45 20 20 20 20 20 20 20 48 41 53 54 49 47 48 45 44 22 3b 20 0d ┆ HØJDE HASTIGHED"; ┆
0x0820…0840 0a 20 31 33 36 35 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 56 49 4e 4b 45 4c 22 0d ┆ 1365 PRINT " VINKEL" ┆
0x0840…0860 0a 20 31 33 38 30 20 20 20 53 55 4d 54 49 44 3d 30 3b 20 56 49 4e 4b 45 4c 3d 30 3b 20 48 41 53 ┆ 1380 SUMTID=0; VINKEL=0; HAS┆
0x0860…0880 54 3d 58 48 41 53 54 3b 20 4c 49 4e 49 45 52 3d 2d 31 0d 0a 20 31 34 30 30 20 20 20 45 58 45 43 ┆T=XHAST; LINIER=-1 1400 EXEC┆
0x0880…08a0 20 54 52 59 4b 4e 49 4e 47 0d 0a 20 31 34 32 30 20 45 4e 44 50 52 4f 43 20 48 4f 56 45 44 0d 0a ┆ TRYKNING 1420 ENDPROC HOVED ┆
0x08a0…08c0 20 31 34 34 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 34 36 30 ┆ 1440 REM //-----------// 1460┆
0x08c0…08e0 20 50 52 4f 43 20 4e 55 4c 53 54 49 4c 0d 0a 20 31 34 38 30 20 20 20 58 3d 30 3b 20 59 3d 48 5c ┆ PROC NULSTIL 1480 X=0; Y=HØ┆
0x08e0…0900 4a 44 45 2b 50 4c 41 4e 45 54 52 41 44 49 55 53 3b 20 52 41 44 49 55 53 3d 59 0d 0a 20 31 35 30 ┆JDE+PLANETRADIUS; RADIUS=Y 150┆
0x0900…0920 30 20 20 20 56 49 4e 4b 45 4c 3d 30 3b 20 53 55 4d 54 49 44 3d 30 0d 0a 20 31 35 32 30 20 20 20 ┆0 VINKEL=0; SUMTID=0 1520 ┆
0x0920…0940 59 48 41 53 54 3d 2d 4b 52 41 46 54 2f 52 41 44 49 55 53 2f 52 41 44 49 55 53 2f 32 2a 44 54 49 ┆YHAST=-KRAFT/RADIUS/RADIUS/2*DTI┆
0x0940…0960 44 0d 0a 20 31 35 34 30 20 45 4e 44 50 52 4f 43 20 4e 55 4c 53 54 49 4c 0d 0a 20 31 35 36 30 20 ┆D 1540 ENDPROC NULSTIL 1560 ┆
0x0960…0980 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 35 38 30 20 50 52 4f 43 20 42 ┆REM //----------// 1580 PROC B┆
0x0980…09a0 45 52 45 47 4e 0d 0a 20 31 36 30 30 20 20 20 4c 49 4e 49 45 52 3d 30 3b 20 44 54 52 49 4e 3d 30 ┆EREGN 1600 LINIER=0; DTRIN=0┆
0x09a0…09c0 3b 20 53 54 59 52 54 3d 30 0d 0a 20 31 36 32 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 36 34 ┆; STYRT=0 1620 REPEAT 164┆
0x09c0…09e0 30 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 36 36 30 20 20 20 20 20 20 20 44 58 3d 58 48 ┆0 REPEAT 1660 DX=XH┆
0x09e0…0a00 41 53 54 2a 44 54 49 44 3b 20 58 3d 58 2b 44 58 0d 0a 20 31 36 38 30 20 20 20 20 20 20 20 44 59 ┆AST*DTID; X=X+DX 1680 DY┆
0x0a00…0a20 3d 59 48 41 53 54 2a 44 54 49 44 3b 20 59 3d 59 2b 44 59 0d 0a 20 31 37 30 30 20 20 20 20 20 20 ┆=YHAST*DTID; Y=Y+DY 1700 ┆
0x0a20…0a40 20 47 41 58 48 41 53 54 3d 58 48 41 53 54 3b 20 47 41 59 48 41 53 54 3d 59 48 41 53 54 0d 0a 20 ┆ GAXHAST=XHAST; GAYHAST=YHAST ┆
0x0a40…0a60 31 37 32 30 20 20 20 20 20 20 20 52 41 44 49 55 53 3d 53 51 52 28 58 5e 32 2b 59 5e 32 29 3b 20 ┆1720 RADIUS=SQR(X^2+Y^2); ┆
0x0a60…0a80 48 5c 4a 44 45 3d 52 41 44 49 55 53 2d 50 4c 41 4e 45 54 52 41 44 49 55 53 0d 0a 20 31 37 34 30 ┆HØJDE=RADIUS-PLANETRADIUS 1740┆
0x0a80…0aa0 20 20 20 20 20 20 20 56 49 4e 4b 45 4c 3d 41 54 4e 28 58 2f 59 29 0d 0a 20 31 37 36 30 20 20 20 ┆ VINKEL=ATN(X/Y) 1760 ┆
0x0aa0…0ac0 20 20 20 20 49 46 20 59 3e 30 20 54 48 45 4e 20 0d 0a 20 31 37 38 30 20 20 20 20 20 20 20 20 20 ┆ IF Y>0 THEN 1780 ┆
0x0ac0…0ae0 49 46 20 58 3c 3d 30 20 54 48 45 4e 20 56 49 4e 4b 45 4c 3d 56 49 4e 4b 45 4c 2b 32 2a 50 49 0d ┆IF X<=0 THEN VINKEL=VINKEL+2*PI ┆
0x0ae0…0b00 0a 20 31 38 30 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 38 32 30 20 20 20 20 20 20 20 ┆ 1800 ELSE 1820 ┆
0x0b00…0b20 20 20 56 49 4e 4b 45 4c 3d 56 49 4e 4b 45 4c 2b 50 49 0d 0a 20 31 38 34 30 20 20 20 20 20 20 20 ┆ VINKEL=VINKEL+PI 1840 ┆
0x0b20…0b40 45 4e 44 49 46 20 0d 0a 20 31 38 36 30 20 20 20 20 20 20 20 49 46 20 48 5c 4a 44 45 3e 30 20 54 ┆ENDIF 1860 IF HØJDE>0 T┆
0x0b40…0b60 48 45 4e 20 0d 0a 20 31 38 38 30 20 20 20 20 20 20 20 20 20 54 4b 52 41 46 54 3d 2d 4b 52 41 46 ┆HEN 1880 TKRAFT=-KRAF┆
0x0b60…0b80 54 2f 52 41 44 49 55 53 2f 52 41 44 49 55 53 2f 52 41 44 49 55 53 0d 0a 20 31 39 30 30 20 20 20 ┆T/RADIUS/RADIUS/RADIUS 1900 ┆
0x0b80…0ba0 20 20 20 20 20 20 58 41 43 43 3d 54 4b 52 41 46 54 2a 58 3b 20 59 41 43 43 3d 54 4b 52 41 46 54 ┆ XACC=TKRAFT*X; YACC=TKRAFT┆
0x0ba0…0bc0 2a 59 0d 0a 20 31 39 32 30 20 20 20 20 20 20 20 20 20 58 48 41 53 54 3d 58 48 41 53 54 2b 58 41 ┆*Y 1920 XHAST=XHAST+XA┆
0x0bc0…0be0 43 43 2a 44 54 49 44 3b 20 59 48 41 53 54 3d 59 48 41 53 54 2b 59 41 43 43 2a 44 54 49 44 0d 0a ┆CC*DTID; YHAST=YHAST+YACC*DTID ┆
0x0be0…0c00 20 31 39 34 30 20 20 20 20 20 20 20 20 20 4d 58 48 41 53 54 3d 28 58 48 41 53 54 2b 47 41 58 48 ┆ 1940 MXHAST=(XHAST+GAXH┆
0x0c00…0c20 41 53 54 29 2f 32 3b 20 4d 59 48 41 53 54 3d 28 59 48 41 53 54 2b 47 41 59 48 41 53 54 29 2f 32 ┆AST)/2; MYHAST=(YHAST+GAYHAST)/2┆
0x0c20…0c40 0d 0a 20 31 39 36 30 20 20 20 20 20 20 20 20 20 48 41 53 54 3d 53 51 52 28 4d 58 48 41 53 54 5e ┆ 1960 HAST=SQR(MXHAST^┆
0x0c40…0c60 32 2b 4d 59 48 41 53 54 5e 32 29 0d 0a 20 31 39 38 30 20 20 20 20 20 20 20 20 20 53 55 4d 54 49 ┆2+MYHAST^2) 1980 SUMTI┆
0x0c60…0c80 44 3d 53 55 4d 54 49 44 2b 44 54 49 44 3b 20 44 54 52 49 4e 3d 44 54 52 49 4e 2b 31 0d 0a 20 32 ┆D=SUMTID+DTID; DTRIN=DTRIN+1 2┆
0x0c80…0ca0 30 30 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 30 32 30 20 20 20 20 20 20 20 20 20 45 ┆000 ELSE 2020 E┆
0x0ca0…0cc0 58 45 43 20 41 46 53 54 41 4e 44 0d 0a 20 32 30 34 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 ┆XEC AFSTAND 2040 PRINT┆
0x0cc0…0ce0 20 22 4e 45 44 53 54 59 52 54 4e 49 4e 47 21 20 56 49 4e 4b 45 4c 3d 22 3b 20 0d 0a 20 32 30 36 ┆ "NEDSTYRTNING! VINKEL="; 206┆
0x0ce0…0d00 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 49 4e 54 28 56 49 4e 4b 45 4c 2a 31 38 30 30 2f ┆0 PRINT INT(VINKEL*1800/┆
0x0d00…0d20 50 49 2b 2e 35 29 2f 31 30 3b 20 22 47 52 41 44 45 52 2e 22 0d 0a 20 32 30 38 30 20 20 20 20 20 ┆PI+.5)/10; "GRADER." 2080 ┆
0x0d20…0d40 20 20 20 20 50 52 49 4e 54 20 22 54 49 44 20 3d 22 3b 20 53 55 4d 54 49 44 2b 44 54 49 44 3b 20 ┆ PRINT "TID ="; SUMTID+DTID; ┆
0x0d40…0d60 22 53 45 4b 55 4e 44 45 52 2e 22 0d 0a 20 32 31 30 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 ┆"SEKUNDER." 2100 EXEC ┆
0x0d60…0d80 41 46 53 54 41 4e 44 0d 0a 20 32 31 32 30 20 20 20 20 20 20 20 20 20 53 54 59 52 54 3d 31 3b 20 ┆AFSTAND 2120 STYRT=1; ┆
0x0d80…0da0 53 56 41 52 24 3d 22 4e 22 0d 0a 20 32 31 34 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 ┆SVAR$="N" 2140 ENDIF ┆
0x0da0…0dc0 32 31 36 30 20 20 20 20 20 55 4e 54 49 4c 20 53 54 59 52 54 3d 31 20 4f 52 20 44 54 52 49 4e 2a ┆2160 UNTIL STYRT=1 OR DTRIN*┆
0x0dc0…0de0 44 54 49 44 3d 3e 55 44 54 49 44 0d 0a 20 32 31 38 30 20 20 20 20 20 49 46 20 53 54 59 52 54 3d ┆DTID=>UDTID 2180 IF STYRT=┆
0x0de0…0e00 30 20 54 48 45 4e 20 45 58 45 43 20 54 52 59 4b 4e 49 4e 47 0d 0a 20 32 32 30 30 20 20 20 55 4e ┆0 THEN EXEC TRYKNING 2200 UN┆
0x0e00…0e20 54 49 4c 20 53 54 59 52 54 3d 31 20 4f 52 20 4c 49 4e 49 45 52 3d 35 0d 0a 20 32 32 32 30 20 45 ┆TIL STYRT=1 OR LINIER=5 2220 E┆
0x0e20…0e40 4e 44 50 52 4f 43 20 42 45 52 45 47 4e 0d 0a 20 32 32 34 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d ┆NDPROC BEREGN 2240 REM //-----┆
0x0e40…0e60 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 32 32 36 30 20 50 52 4f 43 20 54 52 59 4b 4e 49 4e 47 0d 0a 20 32 ┆-----// 2260 PROC TRYKNING 2┆
0x0e60…0e80 32 38 30 20 20 20 54 49 4d 45 52 3d 49 4e 54 28 53 55 4d 54 49 44 2f 33 36 30 30 29 0d 0a 20 32 ┆280 TIMER=INT(SUMTID/3600) 2┆
0x0e80…0ea0 33 30 30 20 20 20 4d 49 4e 55 54 54 45 52 3d 49 4e 54 28 28 53 55 4d 54 49 44 2d 33 36 30 30 2a ┆300 MINUTTER=INT((SUMTID-3600*┆
0x0ea0…0ec0 54 49 4d 45 52 29 2f 36 30 29 0d 0a 20 32 33 32 30 20 20 20 53 45 4b 55 4e 44 45 52 3d 53 55 4d ┆TIMER)/60) 2320 SEKUNDER=SUM┆
0x0ec0…0ee0 54 49 44 2d 33 36 30 30 2a 54 49 4d 45 52 2d 36 30 2a 4d 49 4e 55 54 54 45 52 0d 0a 20 32 33 33 ┆TID-3600*TIMER-60*MINUTTER 233┆
0x0ee0…0f00 30 20 20 20 48 41 53 54 3d 49 4e 54 28 48 41 53 54 2a 31 30 29 2f 31 30 0d 0a 20 32 33 34 30 20 ┆0 HAST=INT(HAST*10)/10 2340 ┆
0x0f00…0f20 20 20 4b 4d 3d 49 4e 54 28 48 5c 4a 44 45 2f 31 30 30 2b 2e 35 29 2f 31 30 3b 20 47 52 41 44 45 ┆ KM=INT(HØJDE/100+.5)/10; GRADE┆
0x0f20…0f40 52 3d 49 4e 54 28 56 49 4e 4b 45 4c 2a 31 38 30 30 2f 50 49 2b 2e 35 29 2f 31 30 0d 0a 20 32 33 ┆R=INT(VINKEL*1800/PI+.5)/10 23┆
0x0f40…0f60 36 30 20 20 20 45 58 45 43 20 55 53 49 4e 28 54 49 4d 45 52 2c 30 2c 33 29 0d 0a 20 32 33 36 35 ┆60 EXEC USIN(TIMER,0,3) 2365┆
0x0f60…0f80 20 20 20 50 52 49 4e 54 20 22 20 54 20 22 3b 20 0d 0a 20 32 33 38 30 20 20 20 45 58 45 43 20 55 ┆ PRINT " T "; 2380 EXEC U┆
0x0f80…0fa0 53 49 4e 28 4d 49 4e 55 54 54 45 52 2c 30 2c 33 29 0d 0a 20 32 33 38 35 20 20 20 50 52 49 4e 54 ┆SIN(MINUTTER,0,3) 2385 PRINT┆
0x0fa0…0fc0 20 22 20 4d 49 4e 22 3b 20 0d 0a 20 32 34 30 30 20 20 20 45 58 45 43 20 55 53 49 4e 28 53 45 4b ┆ " MIN"; 2400 EXEC USIN(SEK┆
0x0fc0…0fe0 55 4e 44 45 52 2c 30 2c 33 29 0d 0a 20 32 34 30 35 20 20 20 50 52 49 4e 54 20 22 20 53 45 4b 20 ┆UNDER,0,3) 2405 PRINT " SEK ┆
0x0fe0…1000 20 20 22 3b 20 0d 0a 20 32 34 32 30 20 20 20 45 58 45 43 20 55 53 49 4e 28 4b 4d 2c 30 2c 37 29 ┆ "; 2420 EXEC USIN(KM,0,7)┆
0x1000…1020 0d 0a 20 32 34 32 35 20 20 20 50 52 49 4e 54 20 22 20 4b 4d 20 20 20 20 22 3b 20 0d 0a 20 32 34 ┆ 2425 PRINT " KM "; 24┆
0x1020…1040 33 30 20 20 20 45 58 45 43 20 55 53 49 4e 28 48 41 53 54 2c 30 2c 37 29 0d 0a 20 32 34 33 35 20 ┆30 EXEC USIN(HAST,0,7) 2435 ┆
0x1040…1060 20 20 50 52 49 4e 54 20 22 20 4d 2f 53 20 20 20 22 3b 20 0d 0a 20 32 34 34 30 20 20 20 45 58 45 ┆ PRINT " M/S "; 2440 EXE┆
0x1060…1080 43 20 55 53 49 4e 28 47 52 41 44 45 52 2c 30 2c 35 29 0d 0a 20 32 34 34 35 20 20 20 50 52 49 4e ┆C USIN(GRADER,0,5) 2445 PRIN┆
0x1080…10a0 54 20 22 20 47 52 41 44 45 52 22 0d 0a 20 32 34 38 30 20 20 20 4c 49 4e 49 45 52 3d 4c 49 4e 49 ┆T " GRADER" 2480 LINIER=LINI┆
0x10a0…10c0 45 52 2b 31 3b 20 44 54 52 49 4e 3d 30 0d 0a 20 32 35 30 30 20 45 4e 44 50 52 4f 43 20 54 52 59 ┆ER+1; DTRIN=0 2500 ENDPROC TRY┆
0x10c0…10e0 4b 4e 49 4e 47 0d 0a 20 32 35 32 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d ┆KNING 2520 REM //----------// ┆
0x10e0…1100 0a 20 39 30 30 30 20 50 52 4f 43 20 55 53 49 4e 28 55 54 41 4c 2c 55 44 45 43 2c 55 43 49 46 52 ┆ 9000 PROC USIN(UTAL,UDEC,UCIFR┆
0x1100…1120 45 29 0d 0a 20 39 30 31 30 20 20 20 55 50 3d 55 43 49 46 52 45 2b 28 55 44 45 43 3e 30 29 2a 31 ┆E) 9010 UP=UCIFRE+(UDEC>0)*1┆
0x1120…1140 3b 20 55 42 49 4c 4c 45 44 24 3d 22 22 0d 0a 20 39 30 33 30 20 20 20 49 46 20 55 54 41 4c 2a 31 ┆; UBILLED$="" 9030 IF UTAL*1┆
0x1140…1160 30 5e 55 44 45 43 3c 31 30 5e 55 43 49 46 52 45 20 54 48 45 4e 20 0d 0a 20 39 30 34 30 20 20 20 ┆0^UDEC<10^UCIFRE THEN 9040 ┆
0x1160…1180 20 20 55 42 49 4c 4c 45 44 24 28 31 20 3a 20 55 50 29 3d 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UBILLED$(1 : UP)=" ┆
0x1180…11a0 20 20 20 22 3b 20 55 4f 4b 3d 30 0d 0a 20 39 30 34 35 20 20 20 20 20 49 46 20 55 54 41 4c 3d 49 ┆ "; UOK=0 9045 IF UTAL=I┆
0x11a0…11c0 4e 54 28 55 54 41 4c 29 20 54 48 45 4e 20 55 42 49 4c 4c 45 44 24 28 55 50 20 3a 20 31 29 3d 22 ┆NT(UTAL) THEN UBILLED$(UP : 1)="┆
0x11c0…11e0 30 22 3b 20 55 4f 4b 3d 31 0d 0a 20 39 30 35 30 20 20 20 20 20 49 46 20 55 44 45 43 3e 30 20 54 ┆0"; UOK=1 9050 IF UDEC>0 T┆
0x11e0…1200 48 45 4e 20 0d 0a 20 39 30 36 30 20 20 20 20 20 20 20 55 52 45 53 54 3d 49 4e 54 28 55 54 41 4c ┆HEN 9060 UREST=INT(UTAL┆
0x1200…1220 2a 31 30 5e 55 44 45 43 2b 2e 35 29 2d 49 4e 54 28 55 54 41 4c 29 2a 31 30 5e 55 44 45 43 0d 0a ┆*10^UDEC+.5)-INT(UTAL)*10^UDEC ┆
0x1220…1240 20 39 30 37 30 20 20 20 20 20 20 20 55 54 41 4c 3d 49 4e 54 28 55 54 41 4c 29 0d 0a 20 39 30 38 ┆ 9070 UTAL=INT(UTAL) 908┆
0x1240…1260 30 20 20 20 20 20 20 20 45 58 45 43 20 55 50 4c 41 44 53 28 55 52 45 53 54 29 0d 0a 20 39 30 38 ┆0 EXEC UPLADS(UREST) 908┆
0x1260…1280 35 20 20 20 20 20 20 20 49 46 20 55 4f 4b 3d 31 20 54 48 45 4e 20 55 50 3d 55 50 2d 31 0d 0a 20 ┆5 IF UOK=1 THEN UP=UP-1 ┆
0x1280…12a0 39 30 39 30 20 20 20 20 20 20 20 55 42 49 4c 4c 45 44 24 28 55 50 20 3a 20 31 29 3d 22 2e 22 3b ┆9090 UBILLED$(UP : 1)=".";┆
0x12a0…12c0 20 55 50 3d 55 50 2d 31 0d 0a 20 39 31 30 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 39 31 31 ┆ UP=UP-1 9100 ENDIF 911┆
0x12c0…12e0 30 20 20 20 20 20 45 58 45 43 20 55 50 4c 41 44 53 28 55 54 41 4c 29 0d 0a 20 39 31 32 30 20 20 ┆0 EXEC UPLADS(UTAL) 9120 ┆
0x12e0…1300 20 45 4c 53 45 20 0d 0a 20 39 31 33 30 20 20 20 20 20 55 42 49 4c 4c 45 44 24 28 31 20 3a 20 55 ┆ ELSE 9130 UBILLED$(1 : U┆
0x1300…1320 50 29 3d 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0d 0a 20 39 31 34 30 20 20 20 45 4e ┆P)="***************" 9140 EN┆
0x1320…1340 44 49 46 20 0d 0a 20 39 31 35 30 20 20 20 50 52 49 4e 54 20 55 42 49 4c 4c 45 44 24 3b 20 0d 0a ┆DIF 9150 PRINT UBILLED$; ┆
0x1340…1360 20 39 31 36 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 39 31 37 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d ┆ 9160 ENDPROC 9170 REM //----┆
0x1360…1380 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 39 31 38 30 20 50 52 4f 43 20 55 50 4c 41 44 53 28 55 50 54 41 ┆------// 9180 PROC UPLADS(UPTA┆
0x1380…13a0 4c 29 0d 0a 20 39 31 39 30 20 20 20 57 48 49 4c 45 20 55 50 54 41 4c 3e 30 20 44 4f 20 0d 0a 20 ┆L) 9190 WHILE UPTAL>0 DO ┆
0x13a0…13c0 39 32 30 30 20 20 20 20 20 55 50 44 45 4c 3d 49 4e 54 28 55 50 54 41 4c 2d 49 4e 54 28 55 50 54 ┆9200 UPDEL=INT(UPTAL-INT(UPT┆
0x13c0…13e0 41 4c 2f 31 30 29 2a 31 30 29 3b 20 55 50 54 41 4c 3d 49 4e 54 28 55 50 54 41 4c 2f 31 30 29 0d ┆AL/10)*10); UPTAL=INT(UPTAL/10) ┆
0x13e0…1400 0a 20 39 32 31 30 20 20 20 20 20 55 42 49 4c 4c 45 44 24 28 55 50 20 3a 20 31 29 3d 43 48 52 28 ┆ 9210 UBILLED$(UP : 1)=CHR(┆
0x1400…1420 55 50 44 45 4c 2b 34 38 29 3b 20 55 50 3d 55 50 2d 31 0d 0a 20 39 32 32 30 20 20 20 45 4e 44 57 ┆UPDEL+48); UP=UP-1 9220 ENDW┆
0x1420…1440 48 49 4c 45 20 0d 0a 20 39 32 33 30 20 45 4e 44 50 52 4f 43 20 0d 0a 19 2d 49 4e 54 28 55 50 54 ┆HILE 9230 ENDPROC -INT(UPT┆
0x1440…1460 41 4c 2f 31 30 29 2a 31 30 29 3b 20 55 50 54 41 4c 3d 49 4e 54 28 55 50 54 41 4c 2f 31 30 29 0d ┆AL/10)*10); UPTAL=INT(UPTAL/10) ┆
0x1460…1480 0a 20 39 32 31 30 20 20 20 20 20 55 42 49 4c 4c 45 44 24 28 55 50 20 3a 20 31 29 3d 43 48 52 28 ┆ 9210 UBILLED$(UP : 1)=CHR(┆
0x1480…14a0 20 30 30 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 20 54 4f 52 42 45 4e 20 47 52 41 56 45 53 ┆ 0010 REM ******** TORBEN GRAVES┆
0x14a0…14c0 45 4e 20 33 55 20 42 4f 58 33 38 38 20 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 30 30 32 30 20 50 52 49 4e ┆EN 3U BOX388 ******* 0020 PRIN┆
0x14c0…14e0 54 20 43 48 52 28 31 32 29 0d 0a 20 30 30 33 30 20 44 45 46 20 46 4e 43 28 5c 29 3d 39 35 2b 5c ┆T CHR(12) 0030 DEF FNC(Ø)=95+Ø┆
0x14e0…1500 2d 28 28 5c 2d 31 29 20 44 49 56 20 33 32 29 2a 36 34 0d 0a 20 30 30 34 30 20 44 45 46 20 46 49 ┆-((Ø-1) DIV 32)*64 0040 DEF FI┆
0x1500…1520 58 28 5c 5c 29 3d 49 4e 54 28 5c 5c 2a 31 30 29 2f 31 30 0d 0a 20 30 31 30 30 20 50 52 49 4e 54 ┆X(ØØ)=INT(ØØ*10)/10 0100 PRINT┆
0x1520…1540 20 22 20 20 20 20 20 44 49 4d 4d 45 4e 54 49 4f 4e 45 52 49 4e 47 20 4f 47 20 53 54 59 52 49 4e ┆ " DIMMENTIONERING OG STYRIN┆
0x1540…1560 47 20 41 46 20 45 4e 20 52 45 41 4b 54 4f 52 22 0d 0a 20 30 31 31 30 20 50 52 49 4e 54 20 0d 0a ┆G AF EN REAKTOR" 0110 PRINT ┆
0x1560…1580 20 30 31 32 30 20 50 52 49 4e 54 20 22 44 45 54 54 45 20 50 4f 47 52 41 4d 20 45 52 20 42 45 52 ┆ 0120 PRINT "DETTE POGRAM ER BER┆
0x1580…15a0 45 47 4e 45 54 20 54 49 4c 20 42 52 55 47 20 53 41 4d 4d 45 4e 20 4d 45 44 20 46 49 4e 4e 40 53 ┆EGNET TIL BRUG SAMMEN MED FINN@S┆
0x15a0…15c0 20 45 4c 4c 45 52 20 5c 4c 47 41 41 52 44 40 53 22 0d 0a 20 30 31 33 30 20 50 52 49 4e 54 20 22 ┆ ELLER ØLGAARD@S" 0130 PRINT "┆
0x15c0…15e0 4e 4f 54 45 52 20 49 20 52 45 41 4b 54 4f 52 46 59 53 49 4b 20 20 50 52 4f 47 52 41 4d 4d 45 54 ┆NOTER I REAKTORFYSIK PROGRAMMET┆
0x15e0…1600 20 47 49 56 45 52 20 4d 55 4c 49 47 48 45 44 20 46 4f 52 20 41 54 22 0d 0a 20 30 31 34 30 20 50 ┆ GIVER MULIGHED FOR AT" 0140 P┆