DataMuseum.dk

top - metrics - download

    Length: 4887 (0x1317)
    Types: TextFile
    Notes: BASIC::ENSPALT2, ENSPALT2
    Names: »ENSPALT2«

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─⟦this⟧ »BASIC::ENSPALT2« 

TextFile

«ff»
  0010 REM CB 12.11 - 15.11.79 «so»LAGERANALYSE M. PS  ... "CLPRG"
  0020 REM  SPECIALVERSION MED EN SPALTE TIL BRUG VED MANUEL ANALYSE CB.11.12.79
  0030 REM DENNE VERSION MED ENTRY-SØGNING !!   CB.12.12.79
  0040 CONNECT "ASS",2610
  0050 PROC RADIX
  0060   FOR II=4+(RA=10) TO 1 STEP -1
  0070     LET RAD$(II)=CHR(RA0 MOD RA+(RA0 MOD RA>9)*7+48-16*(SP=1)*(RA0=0)); RA0=RA0 DIV RA
  0080   NEXT II
  0090 ENDPROC
  0100 PROC FIND
  0110   LET MIN=1; MAX=EA*(Ø=1)+PA*(Ø=2); MIDT=MAX*(Å>ADR(Ø,1)) DIV (2-(Å>=ADR(Ø,MAX))); JUMP=0
  0120   IF Å<=ADR(Ø,1) OR Å>=ADR(Ø,MAX) THEN GOTO 0160
  0130   WHILE ADR(Ø,MIDT)>=Å OR ADR(Ø,MIDT+1)<Å DO 
  0140     LET W=(Å>ADR(Ø,MIDT)); S=NOT W; MIN=MIN*S+MIDT*W; MAX=MAX*W+MIDT*S; MIDT=(MIN+MAX) DIV 2
  0150   ENDWHILE
  0160   IF ADR(Ø,MIDT+1)<>Å THEN GOTO 0190
  0170   READ FILE(Ø-1,MIDT+1)S,UD$
  0180   LET JUMP=1; UD$=UD$(1,5+(Ø=2)*(LEN(UD$)-5))
  0190 ENDPROC
  0200 REM MAINPROC START  LAGERUD  // CB 12.11.79
  0210 CLOSE 
  0220 PAGE=0
  0230 DIM DAT$(8),UD$(15),UDSKRIFT$(80),UDSK$(13),T$(12,8),HJÆLP$(10),RAD$(5),PIL$(5),ADR(2,280)
  0240 DEF FNB(X)=ABS(S) MOD 10^X DIV 10^(X-1)+48-16*(ABS(S) DIV 10^(X-1)=0)*(X<>1)
  0250 LET EA=279; PA=138; RAD$="     "; UDSK$="                                 "
  0260 OPEN FILE(0,4)"CO10.ENT"
  0270 OPEN FILE(1,4)"CO...PSE"
  0280 OPEN FILE(3,4)"CO...STA"
  0290 OPEN FILE(4,4)"CO...USE"
  0300 FOR S=1 TO EA+1
  0310   READ FILE(0,S)ADR(1,S)
  0320   IF S<=PA THEN READ FILE(1,S)ADR(2,S)
  0330   IF S<=12 THEN READ T$(S)
  0340 NEXT S
  0350 DATA " ZOC"," LRS"," SCP","BNBZDNDZ","    ",",SKP",",SZC",",SNC",",SZR",",SNR",",SEZ",",SBN"
  0360 INPUT "MODUL : ",UD$,"<13><10>REPEAT : ",UUU
  0370 FOR III=1 TO UUU
  0380   LET POS=0
  0390   REPEAT
  0400     LET POS=POS+1
  0410     READ FILE(0,POS)STS,PIL$
  0420   UNTIL PIL$=UD$ OR POS=280
  0430   IF POS=280 THEN GOTO 0360
  0440   PRINT TAB(36);"_____________________      _________________"
  0450   PRINT "   ADR INDHOLD      INSTRUKTION    !AC0 !AC1 !AC2 !AC3 !      ! ADR ! INDHOLD"
  0460   PRINT "  ---------------------------------!----!----!----!----!------!----------------"
  0470   READ FILE(0,POS+1)SLS,UD$
  0480   LET UDSK$(3,7)=PIL$,"   "; POS=POS+1; B=STS-1+(STS=0)
  0485   LET PIL=STS; SLS=SLS-1
  0490   CALL "GMEM",B,B
  0500   LET CA=(B=3232)*(STS<>0)
  0510   FOR ADRR=STS TO SLS
  0520     LET JUMP=0; UDSK$="               "
  0530     CALL "GMEM",ADRR,B
  0540     LET B1=B DIV 256; B2=B MOD 256; SP=1; RA=10; RA0=B
  0550     EXEC RADIX
  0560     LET UDSK$(9,13)=RAD$
  0570     IF ADRR<>STS THEN 
  0580       LET SP=0; RA0=ADRR
  0590       EXEC RADIX
  0600       LET UDSK$(3,7)=RAD$
  0610     ENDIF
  0620     IF ADRR<22169 THEN GOTO 0680
  0630     LET UD$="               "
  0640     IF ADRR>23172 AND ADRR<23259 THEN GOTO 0680
  0650     IF ADRR>22168 AND ADRR<23173 THEN GOTO 1010
  0660     LET S=B1; UD$=".",CHR(FNB(3)),CHR(FNB(2)),CHR(FNB(1)),"."; S=B2; UD$=UD$,CHR(FNB(3)),CHR(FNB(2)),CHR(FNB(1)),"."
  0670     GOTO 1010
  0680     IF ADRR<>STS THEN GOTO 0700
  0690     LET UDSK$(1,5)=PIL$,"   "; UDSK$(6,8)="   "; POS=POS+1
  0700     IF CA THEN 
  0710       LET Ø=1; Å=B
  0720       EXEC FIND
  0730     ENDIF
  0740     IF NOT (JUMP=0 AND CA OR B<256 OR ADRR<311) THEN GOTO 0780
  0750     LET JUMP=1; SP=(B<256 OR ADRR<311); RA=10; RA0=B
  0760     EXEC RADIX
  0770     LET UD$=RAD$
  0780     LET CA=(B=3232); Ø=2; Å=B
  0790     IF JUMP THEN GOTO 1010
  0800     EXEC FIND
  0810     IF JUMP THEN GOTO 1010
  0820     REM   ALMEN OVERSÆTTELSE
  0830     READ FILE(3,B1+1)UD$
  0840     IF UD$="FEJL" THEN GOTO 0750
  0850     IF B1>127 THEN 
  0860       LET UD$(4)=T$(1,B MOD 64 DIV 16+1); UD$(4+(UD$(4)<>" "))=T$(2,B2 DIV 64+1)
  0870       LET UD$(11,14)=T$(B MOD 8+5); UD$(6)=CHR(32+B MOD 16 DIV 8*3)
  0880     ELSE
  0890       IF B1>95 THEN 
  0900         IF UD$(1)<>"S" THEN LET S=B2 MOD 64; UD$(4)=T$(3,B2 DIV 64+1); UD$(10,11)=CHR(FNB(2)),CHR(FNB(1))
  0910         IF UD$(1)="S" THEN LET S=B2 MOD 64; UD$(4,5)=T$(4,(B2 DIV 64)*2+1,(B2 DIV 64)*2+2)
  0920         IF UD$(1)="S" OR UD$(1)="N" THEN LET UD$(8,15)=CHR(FNB(2)),CHR(FNB(1)),"               "
  0930       ELSE
  0940         LET S=B2-(B MOD 1024 DIV 256<>0)*(B2>127)*256; LS=2*(B1 DIV 32<>0)
  0950         LET UD$(8+LS,11+LS)=CHR(43+2*(S<0)),CHR(FNB(3)),CHR(FNB(2)),CHR(FNB(1))
  0960         IF B1<8 OR S<11 OR S>111 OR B MOD 1024 DIV 256<>3 OR ADRR<4012 THEN GOTO 0990
  0970         READ FILE(4,S)HJÆLP$
  0980         LET UD$(8+LS,15)=HJÆLP$,"           "
  0990       ENDIF
  1000     ENDIF
  1010     REM
  1020     LET UD$=UD$,"               "; UDSKRIFT$=UDSK$,"      ",UD$," !____!____!____!____!      !_____!___________"
  1030     PRINT UDSKRIFT$
  1040   NEXT ADRR
  1050 NEXT III
  1060 GOTO 0360