|
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: 5111 (0x13f7)
Notes: .CLPRG-2
Names: ».CLPRG-2«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─ ⟦this⟧ »ASS::.CLPRG-2«
0x0000…0020 0a 0d 20 30 30 30 31 20 52 45 4d 20 0d 0a 0d 20 30 30 30 31 2c 39 39 39 39 0d 0a 0d 00 0c 20 20 ┆ 0001 REM 0001,9999 ┆ 0x0020…0040 30 30 33 30 20 50 52 4f 43 20 52 41 44 49 58 0d 0a 20 20 30 30 34 30 20 20 20 46 4f 52 20 49 49 ┆0030 PROC RADIX 0040 FOR II┆ 0x0040…0060 3d 34 2b 28 52 41 3d 31 30 29 20 54 4f 20 31 20 53 54 45 50 20 2d 31 0d 0a 20 20 30 30 35 30 20 ┆=4+(RA=10) TO 1 STEP -1 0050 ┆ 0x0060…0080 20 20 20 20 4c 45 54 20 52 41 44 24 28 49 49 29 3d 43 48 52 28 52 41 30 20 4d 4f 44 20 52 41 2b ┆ LET RAD$(II)=CHR(RA0 MOD RA+┆ 0x0080…00a0 28 52 41 30 20 4d 4f 44 20 52 41 3e 39 29 2a 37 2b 34 38 2d 31 36 2a 28 53 50 3d 31 29 2a 28 52 ┆(RA0 MOD RA>9)*7+48-16*(SP=1)*(R┆ 0x00a0…00c0 41 30 3d 30 29 29 3b 20 52 41 30 3d 52 41 30 20 44 49 56 20 52 41 0d 0a 20 20 30 30 36 30 20 20 ┆A0=0)); RA0=RA0 DIV RA 0060 ┆ 0x00c0…00e0 20 4e 45 58 54 20 49 49 0d 0a 20 20 30 30 37 30 20 45 4e 44 50 52 4f 43 0d 0a 20 20 30 30 38 30 ┆ NEXT II 0070 ENDPROC 0080┆ 0x00e0…0100 20 50 52 4f 43 20 46 49 4e 44 0d 0a 20 20 30 30 39 30 20 20 20 4c 45 54 20 4d 49 4e 3d 31 3b 20 ┆ PROC FIND 0090 LET MIN=1; ┆ 0x0100…0120 4d 41 58 3d 45 41 2a 28 5c 3d 31 29 2b 50 41 2a 28 5c 3d 32 29 3b 20 4d 49 44 54 3d 4d 41 58 2a ┆MAX=EA*(Ø=1)+PA*(Ø=2); MIDT=MAX*┆ 0x0120…0140 28 5d 3e 41 44 52 28 5c 2c 31 29 29 20 44 49 56 20 28 32 2d 28 5d 3e 3d 41 44 52 28 5c 2c 4d 41 ┆(Å>ADR(Ø,1)) DIV (2-(Å>=ADR(Ø,MA┆ 0x0140…0160 58 29 29 29 3b 20 4a 55 4d 50 3d 30 0d 0a 20 20 30 31 30 30 20 20 20 49 46 20 5d 3c 3d 41 44 52 ┆X))); JUMP=0 0100 IF Å<=ADR┆ 0x0160…0180 28 5c 2c 31 29 20 4f 52 20 5d 3e 3d 41 44 52 28 5c 2c 4d 41 58 29 20 54 48 45 4e 20 47 4f 54 4f ┆(Ø,1) OR Å>=ADR(Ø,MAX) THEN GOTO┆ 0x0180…01a0 20 30 31 34 30 0d 0a 20 20 30 31 31 30 20 20 20 57 48 49 4c 45 20 41 44 52 28 5c 2c 4d 49 44 54 ┆ 0140 0110 WHILE ADR(Ø,MIDT┆ 0x01a0…01c0 29 3e 3d 5d 20 4f 52 20 41 44 52 28 5c 2c 4d 49 44 54 2b 31 29 3c 5d 20 44 4f 20 0d 0a 20 20 30 ┆)>=Å OR ADR(Ø,MIDT+1)<Å DO 0┆ 0x01c0…01e0 31 32 30 20 20 20 20 20 4c 45 54 20 57 3d 28 5d 3e 41 44 52 28 5c 2c 4d 49 44 54 29 29 3b 20 53 ┆120 LET W=(Å>ADR(Ø,MIDT)); S┆ 0x01e0…0200 3d 4e 4f 54 20 57 3b 20 4d 49 4e 3d 4d 49 4e 2a 53 2b 4d 49 44 54 2a 57 3b 20 4d 41 58 3d 4d 41 ┆=NOT W; MIN=MIN*S+MIDT*W; MAX=MA┆ 0x0200…0220 58 2a 57 2b 4d 49 44 54 2a 53 3b 20 4d 49 44 54 3d 28 4d 49 4e 2b 4d 41 58 29 20 44 49 56 20 32 ┆X*W+MIDT*S; MIDT=(MIN+MAX) DIV 2┆ 0x0220…0240 0d 0a 20 20 30 31 33 30 20 20 20 45 4e 44 57 48 49 4c 45 0d 0a 20 20 30 31 34 30 20 20 20 49 46 ┆ 0130 ENDWHILE 0140 IF┆ 0x0240…0260 20 41 44 52 28 5c 2c 4d 49 44 54 2b 31 29 3c 3e 5d 20 54 48 45 4e 20 47 4f 54 4f 20 30 31 37 30 ┆ ADR(Ø,MIDT+1)<>Å THEN GOTO 0170┆ 0x0260…0280 0d 0a 20 20 30 31 35 30 20 20 20 52 45 41 44 20 46 49 4c 45 28 5c 2d 31 2c 4d 49 44 54 2b 31 29 ┆ 0150 READ FILE(Ø-1,MIDT+1)┆ 0x0280…02a0 53 2c 55 44 24 0d 0a 20 20 30 31 36 30 20 20 20 4c 45 54 20 4a 55 4d 50 3d 31 3b 20 55 44 24 3d ┆S,UD$ 0160 LET JUMP=1; UD$=┆ 0x02a0…02c0 55 44 24 28 31 2c 35 2b 28 5c 3d 32 29 2a 28 4c 45 4e 28 55 44 24 29 2d 35 29 29 0d 0a 20 20 30 ┆UD$(1,5+(Ø=2)*(LEN(UD$)-5)) 0┆ 0x02c0…02e0 31 37 30 20 45 4e 44 50 52 4f 43 0d 0a 20 20 30 31 38 30 20 50 52 4f 43 20 4f 56 45 52 53 4b 52 ┆170 ENDPROC 0180 PROC OVERSKR┆ 0x02e0…0300 49 0d 0a 20 20 30 31 39 30 20 20 20 4c 45 54 20 55 44 53 4b 52 49 46 54 24 3d 22 3c 31 33 3e 22 ┆I 0190 LET UDSKRIFT$="<13>"┆ 0x0300…0320 2c 43 48 52 28 31 30 2b 32 2a 28 58 58 2a 32 35 36 3d 58 29 29 3b 20 52 41 3d 31 36 3b 20 53 50 ┆,CHR(10+2*(XX*256=X)); RA=16; SP┆ 0x0320…0340 3d 30 0d 0a 20 20 30 32 30 30 20 20 20 46 4f 52 20 59 3d 30 20 54 4f 20 33 0d 0a 20 20 30 32 31 ┆=0 0200 FOR Y=0 TO 3 021┆ 0x0340…0360 30 20 20 20 20 20 4c 45 54 20 52 41 30 3d 58 2b 36 34 2a 59 3b 20 55 44 28 59 2b 31 29 3d 52 41 ┆0 LET RA0=X+64*Y; UD(Y+1)=RA┆ 0x0360…0380 30 3b 20 53 3d 52 41 30 2d 31 2b 28 52 41 30 3d 30 29 0d 0a 20 20 30 32 32 30 20 20 20 20 20 49 ┆0; S=RA0-1+(RA0=0) 0220 I┆ 0x0380…03a0 46 20 58 3d 58 58 2a 32 35 36 20 54 48 45 4e 20 43 41 4c 4c 20 22 47 4d 45 4d 22 2c 53 2c 53 0d ┆F X=XX*256 THEN CALL "GMEM",S,S ┆ 0x03a0…03c0 0a 20 20 30 32 33 30 20 20 20 20 20 49 46 20 58 3d 58 58 2a 32 35 36 20 54 48 45 4e 20 4c 45 54 ┆ 0230 IF X=XX*256 THEN LET┆ 0x03c0…03e0 20 43 41 28 59 2b 31 29 3d 28 53 3d 33 32 33 32 29 0d 0a 20 20 30 32 34 30 20 20 20 20 20 45 58 ┆ CA(Y+1)=(S=3232) 0240 EX┆ 0x03e0…0400 45 43 20 52 41 44 49 58 0d 0a 20 20 30 32 35 30 20 20 20 20 20 4c 45 54 20 55 44 53 4b 52 49 46 ┆EC RADIX 0250 LET UDSKRIF┆ 0x0400…0420 54 24 3d 55 44 53 4b 52 49 46 54 24 2c 22 20 20 20 20 20 20 20 20 20 23 23 23 23 23 20 22 2c 52 ┆T$=UDSKRIFT$," ##### ",R┆ 0x0420…0440 41 44 24 28 31 2c 34 29 2c 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 20 55 44 53 4b 52 ┆AD$(1,4)," "; UDSKR┆ 0x0440…0460 49 46 54 24 3d 55 44 53 4b 52 49 46 54 24 28 31 2c 31 32 38 29 0d 0a 20 20 30 32 36 30 20 20 20 ┆IFT$=UDSKRIFT$(1,128) 0260 ┆ 0x0460…0480 4e 45 58 54 20 59 0d 0a 20 20 30 32 37 30 20 20 20 4c 45 54 20 55 44 53 4b 52 49 46 54 24 28 36 ┆NEXT Y 0270 LET UDSKRIFT$(6┆ 0x0480…04a0 34 2c 36 33 2b 4c 45 4e 28 44 41 54 24 29 29 3d 44 41 54 24 0d 0a 20 20 30 32 38 30 20 20 20 49 ┆4,63+LEN(DAT$))=DAT$ 0280 I┆ 0x04a0…04c0 46 20 58 3d 58 58 2a 32 35 36 20 54 48 45 4e 20 4c 45 54 20 55 44 53 4b 52 49 46 54 24 28 33 2c ┆F X=XX*256 THEN LET UDSKRIFT$(3,┆ 0x04c0…04e0 37 29 3d 22 28 23 23 23 29 22 3b 20 55 44 53 4b 52 49 46 54 24 28 31 32 34 2c 31 32 38 29 3d 22 ┆7)="(###)"; UDSKRIFT$(124,128)="┆ 0x04e0…0500 28 23 23 23 29 22 0d 0a 20 20 30 32 39 30 20 20 20 49 46 20 58 3d 58 58 2a 32 35 36 20 54 48 45 ┆(###)" 0290 IF X=XX*256 THE┆ 0x0500…0520 4e 20 50 52 49 4e 54 20 55 53 49 4e 47 20 55 44 53 4b 52 49 46 54 24 2c 58 58 2c 55 44 28 31 29 ┆N PRINT USING UDSKRIFT$,XX,UD(1)┆ 0x0520…0540 2c 55 44 28 32 29 2c 55 44 28 33 29 2c 55 44 28 34 29 2c 58 58 0d 0a 20 20 30 33 30 30 20 20 20 ┆,UD(2),UD(3),UD(4),XX 0300 ┆ 0x0540…0560 49 46 20 58 3d 58 58 2a 32 35 36 2b 33 32 20 54 48 45 4e 20 50 52 49 4e 54 20 55 53 49 4e 47 20 ┆IF X=XX*256+32 THEN PRINT USING ┆ 0x0560…0580 55 44 53 4b 52 49 46 54 24 2c 55 44 28 31 29 2c 55 44 28 32 29 2c 55 44 28 33 29 2c 55 44 28 34 ┆UDSKRIFT$,UD(1),UD(2),UD(3),UD(4┆ 0x0580…05a0 29 0d 0a 20 20 30 33 31 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 20 30 33 32 30 20 45 4e 44 50 52 ┆) 0310 PRINT 0320 ENDPR┆ 0x05a0…05c0 4f 43 0d 0a 20 20 30 33 39 30 20 44 45 46 20 46 4e 42 28 58 29 3d 41 42 53 28 53 29 20 4d 4f 44 ┆OC 0390 DEF FNB(X)=ABS(S) MOD┆ 0x05c0…05e0 20 31 30 5e 58 20 44 49 56 20 31 30 5e 28 58 2d 31 29 2b 34 38 2d 31 36 2a 28 41 42 53 28 53 29 ┆ 10^X DIV 10^(X-1)+48-16*(ABS(S)┆ 0x05e0…0600 20 44 49 56 20 31 30 5e 28 58 2d 31 29 3d 30 29 2a 28 58 3c 3e 31 29 0d 0a 20 20 30 35 33 30 20 ┆ DIV 10^(X-1)=0)*(X<>1) 0530 ┆ 0x0600…0620 49 4e 50 55 54 20 22 46 52 41 20 53 49 44 45 20 3a 20 22 2c 53 54 53 2c 22 20 20 54 49 4c 20 53 ┆INPUT "FRA SIDE : ",STS," TIL S┆ 0x0620…0640 49 44 45 20 3a 20 22 2c 53 4c 53 0d 0a 20 20 30 35 34 30 20 49 4e 50 55 54 20 22 41 4e 54 41 4c ┆IDE : ",SLS 0540 INPUT "ANTAL┆ 0x0640…0660 20 42 5c 47 45 52 20 3a 20 22 2c 41 42 0d 0a 20 20 30 35 35 30 20 4c 45 54 20 50 4f 53 28 34 29 ┆ BØGER : ",AB 0550 LET POS(4)┆ 0x0660…0680 3d 31 0d 0a 20 20 30 35 38 30 20 46 4f 52 20 55 55 55 3d 31 20 54 4f 20 41 42 0d 0a 20 20 30 35 ┆=1 0580 FOR UUU=1 TO AB 05┆ 0x0680…06a0 39 30 20 20 20 46 4f 52 20 58 58 3d 53 54 53 20 54 4f 20 53 4c 53 0d 0a 20 20 30 36 30 30 20 20 ┆90 FOR XX=STS TO SLS 0600 ┆ 0x06a0…06c0 20 20 20 46 4f 52 20 53 3d 31 20 54 4f 20 34 0d 0a 20 20 30 36 31 30 20 20 20 20 20 20 20 4c 45 ┆ FOR S=1 TO 4 0610 LE┆ 0x06c0…06e0 54 20 50 4f 53 28 53 29 3d 50 4f 53 28 34 29 2d 31 0d 0a 20 20 30 36 32 30 20 20 20 20 20 20 20 ┆T POS(S)=POS(4)-1 0620 ┆ 0x06e0…0700 52 45 50 45 41 54 0d 0a 20 20 30 36 33 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 50 4f 53 28 53 ┆REPEAT 0630 LET POS(S┆ 0x0700…0720 29 3d 50 4f 53 28 53 29 2b 31 0d 0a 20 20 30 36 34 30 20 20 20 20 20 20 20 55 4e 54 49 4c 20 41 ┆)=POS(S)+1 0640 UNTIL A┆ 0x0720…0740 44 52 28 31 2c 50 4f 53 28 53 29 29 3e 3d 58 58 2a 32 35 36 2b 28 53 2d 31 29 2a 36 34 0d 0a 20 ┆DR(1,POS(S))>=XX*256+(S-1)*64 ┆ 0x0740…0760 20 30 36 35 30 20 20 20 20 20 20 20 49 46 20 50 4f 53 28 53 29 3c 32 38 30 20 54 48 45 4e 20 52 ┆ 0650 IF POS(S)<280 THEN R┆ 0x0760…0780 45 41 44 20 46 49 4c 45 28 30 2c 50 4f 53 28 53 29 29 50 49 4c 28 53 29 2c 50 49 4c 24 28 53 29 ┆EAD FILE(0,POS(S))PIL(S),PIL$(S)┆ 0x0780…07a0 0d 0a 20 20 30 36 36 30 20 20 20 20 20 4e 45 58 54 20 53 0d 0a 20 20 30 36 36 35 20 20 20 20 20 ┆ 0660 NEXT S 0665 ┆ 0x07a0…07c0 52 45 4d 0c 0e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 20 22 ┆REM ... "┆ 0x07c0…07e0 43 4c 50 52 47 22 20 20 53 49 44 45 20 32 0d 0a 20 20 30 36 37 30 20 20 20 20 20 46 4f 52 20 58 ┆CLPRG" SIDE 2 0670 FOR X┆ 0x07e0…0800 3d 58 58 2a 32 35 36 20 54 4f 20 58 58 2a 32 35 36 2b 36 33 0d 0a 20 20 30 36 38 30 20 20 20 20 ┆=XX*256 TO XX*256+63 0680 ┆ 0x0800…0820 20 20 20 49 46 20 58 20 4d 4f 44 20 33 32 3d 30 20 54 48 45 4e 20 45 58 45 43 20 4f 56 45 52 53 ┆ IF X MOD 32=0 THEN EXEC OVERS┆ 0x0820…0840 4b 52 49 0d 0a 20 20 30 36 39 30 20 20 20 20 20 20 20 4c 45 54 20 55 44 53 4b 52 49 46 54 24 3d ┆KRI 0690 LET UDSKRIFT$=┆ 0x0840…0860 22 22 0d 0a 20 20 30 37 30 30 20 20 20 20 20 20 20 46 4f 52 20 59 3d 31 20 54 4f 20 34 0d 0a 20 ┆"" 0700 FOR Y=1 TO 4 ┆ 0x0860…0880 20 30 37 31 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 41 44 52 52 3d 58 2b 28 59 2d 31 29 2a 36 ┆ 0710 LET ADRR=X+(Y-1)*6┆ 0x0880…08a0 34 3b 20 4a 55 4d 50 3d 30 3b 20 50 24 3d 22 20 21 20 22 0d 0a 20 20 30 37 32 30 20 20 20 20 20 ┆4; JUMP=0; P$=" ! " 0720 ┆ 0x08a0…08c0 20 20 20 20 43 41 4c 4c 20 22 47 4d 45 4d 22 2c 41 44 52 52 2c 42 0d 0a 20 20 30 37 33 30 20 20 ┆ CALL "GMEM",ADRR,B 0730 ┆ 0x08c0…08e0 20 20 20 20 20 20 20 4c 45 54 20 42 31 3d 42 20 44 49 56 20 32 35 36 3b 20 42 32 3d 42 20 4d 4f ┆ LET B1=B DIV 256; B2=B MO┆ 0x08e0…0900 44 20 32 35 36 3b 20 53 50 3d 30 3b 20 52 41 3d 31 36 3b 20 52 41 30 3d 42 0d 0a 20 20 30 37 34 ┆D 256; SP=0; RA=16; RA0=B 074┆ 0x0900…0920 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 52 41 44 49 58 0d 0a 20 20 30 37 35 30 20 20 20 20 ┆0 EXEC RADIX 0750 ┆ 0x0920…0940 20 20 20 20 20 4c 45 54 20 55 44 53 4b 24 28 31 30 2c 31 33 29 3d 52 41 44 24 0d 0a 20 20 30 37 ┆ LET UDSK$(10,13)=RAD$ 07┆ 0x0940…0960 36 30 20 20 20 20 20 20 20 20 20 49 46 20 41 44 52 52 3c 3e 50 49 4c 28 59 29 20 54 48 45 4e 20 ┆60 IF ADRR<>PIL(Y) THEN ┆ 0x0960…0980 0d 0a 20 20 30 37 37 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 53 50 3d 31 3b 20 52 41 3d ┆ 0770 LET SP=1; RA=┆ 0x0980…09a0 31 30 3b 20 52 41 30 3d 42 0d 0a 20 20 30 37 38 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 ┆10; RA0=B 0780 EXEC┆ 0x09a0…09c0 20 52 41 44 49 58 0d 0a 20 20 30 37 39 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 55 44 53 ┆ RADIX 0790 LET UDS┆ 0x09c0…09e0 4b 24 28 31 2c 38 29 3d 43 48 52 28 41 44 52 52 20 4d 4f 44 20 31 30 30 20 44 49 56 20 31 30 2b ┆K$(1,8)=CHR(ADRR MOD 100 DIV 10+┆ 0x09e0…0a00 34 38 29 2c 43 48 52 28 41 44 52 52 20 4d 4f 44 20 31 30 2b 34 38 29 2c 22 20 22 2c 52 41 44 24 ┆48),CHR(ADRR MOD 10+48)," ",RAD$┆ 0x0a00…0a20 0d 0a 20 20 30 38 30 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 38 31 30 20 20 ┆ 0800 ENDIF 0810 ┆ 0x0a20…0a40 20 20 20 20 20 20 20 49 46 20 41 44 52 52 3c 32 32 31 36 39 20 54 48 45 4e 20 47 4f 54 4f 20 30 ┆ IF ADRR<22169 THEN GOTO 0┆ 0x0a40…0a60 38 34 30 0d 0a 20 20 30 38 31 32 20 20 20 20 20 20 20 20 20 4c 45 54 20 55 44 24 3d 22 20 20 20 ┆840 0812 LET UD$=" ┆ 0x0a60…0a80 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 20 20 30 38 31 33 20 20 20 20 20 20 20 20 20 49 46 ┆ " 0813 IF┆ 0x0a80…0aa0 20 41 44 52 52 3e 32 33 31 37 32 20 41 4e 44 20 41 44 52 52 3c 32 33 32 35 39 20 54 48 45 4e 20 ┆ ADRR>23172 AND ADRR<23259 THEN ┆ 0x0aa0…0ac0 47 4f 54 4f 20 30 38 34 30 0d 0a 20 20 30 38 31 35 20 20 20 20 20 20 20 20 20 49 46 20 41 44 52 ┆GOTO 0840 0815 IF ADR┆ 0x0ac0…0ae0 52 3e 32 32 31 36 38 20 41 4e 44 20 41 44 52 52 3c 32 33 31 37 33 20 54 48 45 4e 20 47 4f 54 4f ┆R>22168 AND ADRR<23173 THEN GOTO┆ 0x0ae0…0b00 20 30 38 33 30 0d 0a 20 20 30 38 32 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 53 3d 42 31 3b 20 ┆ 0830 0820 LET S=B1; ┆ 0x0b00…0b20 55 44 24 3d 22 2e 22 2c 43 48 52 28 46 4e 42 28 33 29 29 2c 43 48 52 28 46 4e 42 28 32 29 29 2c ┆UD$=".",CHR(FNB(3)),CHR(FNB(2)),┆ 0x0b20…0b40 43 48 52 28 46 4e 42 28 31 29 29 2c 22 2e 22 3b 20 53 3d 42 32 3b 20 55 44 24 3d 55 44 24 2c 43 ┆CHR(FNB(1)),"."; S=B2; UD$=UD$,C┆ 0x0b40…0b60 48 52 28 46 4e 42 28 33 29 29 2c 43 48 52 28 46 4e 42 28 32 29 29 2c 43 48 52 28 46 4e 42 28 31 ┆HR(FNB(3)),CHR(FNB(2)),CHR(FNB(1┆ 0x0b60…0b80 29 29 2c 22 2e 22 0d 0a 20 20 30 38 33 30 20 20 20 20 20 20 20 20 20 47 4f 54 4f 20 31 31 39 30 ┆)),"." 0830 GOTO 1190┆ 0x0b80…0ba0 0d 0a 20 20 30 38 34 30 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 41 44 52 52 3d 50 49 4c 28 ┆ 0840 WHILE ADRR=PIL(┆ 0x0ba0…0bc0 59 29 20 44 4f 20 0d 0a 20 20 30 38 35 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 55 44 53 ┆Y) DO 0850 LET UDS┆ 0x0bc0…0be0 4b 24 28 31 2c 35 29 3d 50 49 4c 24 28 59 29 2c 22 20 20 20 22 3b 20 55 44 53 4b 24 28 36 2c 38 ┆K$(1,5)=PIL$(Y)," "; UDSK$(6,8┆ 0x0be0…0c00 29 3d 22 20 20 20 22 3b 20 50 4f 53 28 59 29 3d 50 4f 53 28 59 29 2b 31 0d 0a 20 20 30 38 36 30 ┆)=" "; POS(Y)=POS(Y)+1 0860┆ 0x0c00…0c20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 30 2c 50 4f 53 28 59 29 29 50 49 ┆ READ FILE(0,POS(Y))PI┆ 0x0c20…0c40 4c 28 59 29 2c 50 49 4c 24 28 59 29 0d 0a 20 20 30 38 37 30 20 20 20 20 20 20 20 20 20 45 4e 44 ┆L(Y),PIL$(Y) 0870 END┆ 0x0c40…0c60 57 48 49 4c 45 0d 0a 20 20 30 38 38 30 20 20 20 20 20 20 20 20 20 49 46 20 43 41 28 59 29 20 54 ┆WHILE 0880 IF CA(Y) T┆ 0x0c60…0c80 48 45 4e 20 0d 0a 20 20 30 38 39 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 5c 3d 31 3b 20 ┆HEN 0890 LET Ø=1; ┆ 0x0c80…0ca0 5d 3d 42 0d 0a 20 20 30 39 30 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 46 49 4e 44 0d ┆Å=B 0900 EXEC FIND ┆ 0x0ca0…0cc0 0a 20 20 30 39 31 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 39 32 30 20 20 20 ┆ 0910 ENDIF 0920 ┆ 0x0cc0…0ce0 20 20 20 20 20 20 49 46 20 4e 4f 54 20 28 4a 55 4d 50 3d 30 20 41 4e 44 20 43 41 28 59 29 20 4f ┆ IF NOT (JUMP=0 AND CA(Y) O┆ 0x0ce0…0d00 52 20 42 3c 32 35 36 20 4f 52 20 41 44 52 52 3c 33 31 31 29 20 54 48 45 4e 20 47 4f 54 4f 20 30 ┆R B<256 OR ADRR<311) THEN GOTO 0┆ 0x0d00…0d20 39 36 30 0d 0a 20 20 30 39 33 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 4a 55 4d 50 3d 31 3b 20 ┆960 0930 LET JUMP=1; ┆ 0x0d20…0d40 53 50 3d 28 42 3c 32 35 36 20 4f 52 20 41 44 52 52 3c 33 31 31 29 3b 20 52 41 3d 31 30 3b 20 52 ┆SP=(B<256 OR ADRR<311); RA=10; R┆ 0x0d40…0d60 41 30 3d 42 0d 0a 20 20 30 39 34 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 52 41 44 49 58 0d ┆A0=B 0940 EXEC RADIX ┆ 0x0d60…0d80 0a 20 20 30 39 35 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 55 44 24 3d 52 41 44 24 0d 0a 20 20 ┆ 0950 LET UD$=RAD$ ┆ 0x0d80…0da0 30 39 36 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 43 41 28 59 29 3d 28 42 3d 33 32 33 32 29 3b ┆0960 LET CA(Y)=(B=3232);┆ 0x0da0…0dc0 20 5c 3d 32 3b 20 5d 3d 42 0d 0a 20 20 30 39 37 30 20 20 20 20 20 20 20 20 20 49 46 20 4a 55 4d ┆ Ø=2; Å=B 0970 IF JUM┆ 0x0dc0…0de0 50 20 54 48 45 4e 20 47 4f 54 4f 20 31 31 39 30 0d 0a 20 20 30 39 38 30 20 20 20 20 20 20 20 20 ┆P THEN GOTO 1190 0980 ┆ 0x0de0…0e00 20 45 58 45 43 20 46 49 4e 44 0d 0a 20 20 30 39 39 30 20 20 20 20 20 20 20 20 20 49 46 20 4a 55 ┆ EXEC FIND 0990 IF JU┆ 0x0e00…0e20 4d 50 20 54 48 45 4e 20 47 4f 54 4f 20 31 31 39 30 0d 0a 20 20 31 30 30 30 20 20 20 20 20 20 20 ┆MP THEN GOTO 1190 1000 ┆ 0x0e20…0e40 20 20 52 45 4d 20 20 20 41 4c 4d 45 4e 20 4f 56 45 52 53 5b 54 54 45 4c 53 45 0d 0a 20 20 31 30 ┆ REM ALMEN OVERSÆTTELSE 10┆ 0x0e40…0e60 31 30 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 33 2c 42 31 2b 31 29 55 44 24 0d ┆10 READ FILE(3,B1+1)UD$ ┆ 0x0e60…0e80 0a 20 20 31 30 32 30 20 20 20 20 20 20 20 20 20 49 46 20 55 44 24 3d 22 46 45 4a 4c 22 20 54 48 ┆ 1020 IF UD$="FEJL" TH┆ 0x0e80…0ea0 45 4e 20 47 4f 54 4f 20 30 39 33 30 0d 0a 20 20 31 30 33 30 20 20 20 20 20 20 20 20 20 49 46 20 ┆EN GOTO 0930 1030 IF ┆ 0x0ea0…0ec0 42 31 3e 31 32 37 20 54 48 45 4e 20 0d 0a 20 20 31 30 34 30 20 20 20 20 20 20 20 20 20 20 20 4c ┆B1>127 THEN 1040 L┆ 0x0ec0…0ee0 45 54 20 55 44 24 28 34 29 3d 54 24 28 31 2c 42 20 4d 4f 44 20 36 34 20 44 49 56 20 31 36 2b 31 ┆ET UD$(4)=T$(1,B MOD 64 DIV 16+1┆ 0x0ee0…0f00 29 3b 20 55 44 24 28 34 2b 28 55 44 24 28 34 29 3c 3e 22 20 22 29 29 3d 54 24 28 32 2c 42 32 20 ┆); UD$(4+(UD$(4)<>" "))=T$(2,B2 ┆ 0x0f00…0f20 44 49 56 20 36 34 2b 31 29 0d 0a 20 20 31 30 35 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 ┆DIV 64+1) 1050 LET ┆ 0x0f20…0f40 55 44 24 28 31 31 2c 31 34 29 3d 54 24 28 42 20 4d 4f 44 20 38 2b 35 29 3b 20 55 44 24 28 36 29 ┆UD$(11,14)=T$(B MOD 8+5); UD$(6)┆ 0x0f40…0f60 3d 43 48 52 28 33 32 2b 42 20 4d 4f 44 20 31 36 20 44 49 56 20 38 2a 33 29 0d 0a 20 20 31 30 36 ┆=CHR(32+B MOD 16 DIV 8*3) 106┆ 0x0f60…0f80 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 31 30 37 30 20 20 20 20 20 20 20 20 20 20 ┆0 ELSE 1070 ┆ 0x0f80…0fa0 20 49 46 20 42 31 3e 39 35 20 54 48 45 4e 20 0d 0a 20 20 31 30 38 30 20 20 20 20 20 20 20 20 20 ┆ IF B1>95 THEN 1080 ┆ 0x0fa0…0fc0 20 20 20 20 49 46 20 55 44 24 28 31 29 3c 3e 22 53 22 20 54 48 45 4e 20 4c 45 54 20 53 3d 42 32 ┆ IF UD$(1)<>"S" THEN LET S=B2┆ 0x0fc0…0fe0 20 4d 4f 44 20 36 34 3b 20 55 44 24 28 34 29 3d 54 24 28 33 2c 42 32 20 44 49 56 20 36 34 2b 31 ┆ MOD 64; UD$(4)=T$(3,B2 DIV 64+1┆ 0x0fe0…1000 29 3b 20 55 44 24 28 31 30 2c 31 31 29 3d 43 48 52 28 46 4e 42 28 32 29 29 2c 43 48 52 28 46 4e ┆); UD$(10,11)=CHR(FNB(2)),CHR(FN┆ 0x1000…1020 42 28 31 29 29 0d 0a 20 20 31 30 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 55 44 24 ┆B(1)) 1090 IF UD$┆ 0x1020…1040 28 31 29 3d 22 53 22 20 54 48 45 4e 20 4c 45 54 20 53 3d 42 32 20 4d 4f 44 20 36 34 3b 20 55 44 ┆(1)="S" THEN LET S=B2 MOD 64; UD┆ 0x1040…1060 24 28 34 2c 35 29 3d 54 24 28 34 2c 28 42 32 20 44 49 56 20 36 34 29 2a 32 2b 31 2c 28 42 32 20 ┆$(4,5)=T$(4,(B2 DIV 64)*2+1,(B2 ┆ 0x1060…1080 44 49 56 20 36 34 29 2a 32 2b 32 29 0d 0a 20 20 31 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆DIV 64)*2+2) 1100 ┆ 0x1080…10a0 20 49 46 20 55 44 24 28 31 29 3d 22 53 22 20 4f 52 20 55 44 24 28 31 29 3d 22 4e 22 20 54 48 45 ┆ IF UD$(1)="S" OR UD$(1)="N" THE┆ 0x10a0…10c0 4e 20 4c 45 54 20 55 44 24 28 38 2c 31 35 29 3d 43 48 52 28 46 4e 42 28 32 29 29 2c 43 48 52 28 ┆N LET UD$(8,15)=CHR(FNB(2)),CHR(┆ 0x10c0…10e0 46 4e 42 28 31 29 29 2c 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 20 20 31 31 31 ┆FNB(1))," " 111┆ 0x10e0…1100 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 31 31 32 30 20 20 20 20 20 20 20 20 ┆0 ELSE 1120 ┆ 0x1100…1120 20 20 20 20 20 4c 45 54 20 53 3d 42 32 2d 28 42 20 4d 4f 44 20 31 30 32 34 20 44 49 56 20 32 35 ┆ LET S=B2-(B MOD 1024 DIV 25┆ 0x1120…1140 36 3c 3e 30 29 2a 28 42 32 3e 31 32 37 29 2a 32 35 36 3b 20 4c 53 3d 32 2a 28 42 31 20 44 49 56 ┆6<>0)*(B2>127)*256; LS=2*(B1 DIV┆ 0x1140…1160 20 33 32 3c 3e 30 29 0d 0a 20 20 31 31 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 ┆ 32<>0) 1130 LET ┆ 0x1160…1180 55 44 24 28 38 2b 4c 53 2c 31 31 2b 4c 53 29 3d 43 48 52 28 34 33 2b 32 2a 28 53 3c 30 29 29 2c ┆UD$(8+LS,11+LS)=CHR(43+2*(S<0)),┆ 0x1180…11a0 43 48 52 28 46 4e 42 28 33 29 29 2c 43 48 52 28 46 4e 42 28 32 29 29 2c 43 48 52 28 46 4e 42 28 ┆CHR(FNB(3)),CHR(FNB(2)),CHR(FNB(┆ 0x11a0…11c0 31 29 29 0d 0a 20 20 31 31 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 31 3c 38 20 ┆1)) 1140 IF B1<8 ┆ 0x11c0…11e0 4f 52 20 53 3c 31 31 20 4f 52 20 53 3e 31 31 31 20 4f 52 20 42 20 4d 4f 44 20 31 30 32 34 20 44 ┆OR S<11 OR S>111 OR B MOD 1024 D┆ 0x11e0…1200 49 56 20 32 35 36 3c 3e 33 20 4f 52 20 41 44 52 52 3c 34 30 31 32 20 54 48 45 4e 20 47 4f 54 4f ┆IV 256<>3 OR ADRR<4012 THEN GOTO┆ 0x1200…1220 20 31 31 37 30 0d 0a 20 20 31 31 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 ┆ 1170 1150 READ F┆ 0x1220…1240 49 4c 45 28 34 2c 53 29 48 4a 5b 4c 50 24 0d 0a 20 20 31 31 36 30 20 20 20 20 20 20 20 20 20 20 ┆ILE(4,S)HJÆLP$ 1160 ┆ 0x1240…1260 20 20 20 4c 45 54 20 55 44 24 28 38 2b 4c 53 2c 31 35 29 3d 48 4a 5b 4c 50 24 2c 22 20 20 20 20 ┆ LET UD$(8+LS,15)=HJÆLP$," ┆ 0x1260…1280 20 20 20 20 20 20 20 22 0d 0a 20 20 31 31 37 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 ┆ " 1170 ENDIF┆ 0x1280…12a0 0d 0a 20 20 31 31 38 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 31 31 39 30 20 20 ┆ 1180 ENDIF 1190 ┆ 0x12a0…12c0 20 20 20 20 20 20 20 49 46 20 42 31 3e 34 37 20 41 4e 44 20 42 31 3c 39 34 20 54 48 45 4e 20 4c ┆ IF B1>47 AND B1<94 THEN L┆ 0x12c0…12e0 45 54 20 50 24 28 31 29 3d 43 48 52 28 42 31 29 0d 0a 20 20 31 32 30 30 20 20 20 20 20 20 20 20 ┆ET P$(1)=CHR(B1) 1200 ┆ 0x12e0…1300 20 49 46 20 42 32 3e 34 37 20 41 4e 44 20 42 32 3c 39 34 20 54 48 45 4e 20 4c 45 54 20 50 24 28 ┆ IF B2>47 AND B2<94 THEN LET P$(┆ 0x1300…1320 32 29 3d 43 48 52 28 42 32 29 0d 0a 20 20 31 32 31 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 55 ┆2)=CHR(B2) 1210 LET U┆ 0x1320…1340 44 24 3d 55 44 24 2c 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 20 55 44 53 4b 52 49 ┆D$=UD$," "; UDSKRI┆ 0x1340…1360 46 54 24 3d 55 44 53 4b 52 49 46 54 24 2c 55 44 53 4b 24 2c 22 20 22 2c 55 44 24 2c 22 20 22 2c ┆FT$=UDSKRIFT$,UDSK$," ",UD$," ",┆ 0x1360…1380 50 24 0d 0a 20 20 31 32 32 30 20 20 20 20 20 20 20 4e 45 58 54 20 59 0d 0a 20 20 31 32 33 30 20 ┆P$ 1220 NEXT Y 1230 ┆ 0x1380…13a0 20 20 20 20 20 20 50 52 49 4e 54 20 55 44 53 4b 52 49 46 54 24 0d 0a 20 20 31 32 34 30 20 20 20 ┆ PRINT UDSKRIFT$ 1240 ┆ 0x13a0…13c0 20 20 4e 45 58 54 20 58 0d 0a 20 20 31 32 35 30 20 20 20 4e 45 58 54 20 58 58 0d 0a 20 20 31 32 ┆ NEXT X 1250 NEXT XX 12┆ 0x13c0…13e0 35 35 20 20 20 4c 45 54 20 50 4f 53 28 34 29 3d 31 0d 0a 20 20 31 32 36 30 20 4e 45 58 54 20 55 ┆55 LET POS(4)=1 1260 NEXT U┆ 0x13e0…13f7 55 55 0d 0a 20 20 31 32 37 30 20 47 4f 54 4f 20 30 35 33 30 0d 0a 00 ┆UU 1270 GOTO 0530 ┆