DataMuseum.dk

top - download

    Length: 3059 (0xbf3)
    Types: TextFile
    Notes: @.LAGSPC, ASS2::@.LAGSPC
    Names: »@.LAGSPC«

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─⟦this⟧ 

TextFile

«ff»
  0010 REM PL 19.12.79 LAGER-SPECIALUDSKRIFT      @.LAGSPC
  0030 DIM FIL$(8),T(4),L$(132),D$(10)
  0050 MAT READ T
  0060 DATA 32,76,83,47
  0070 LET PAGIN=1024; LINIER=64; KOLON=16
  0080 LET SIDE1=0; SIDE2=31
  0090 CLOSE 
  0100 INPUT "OUTFIL: ",FIL$," KOLONNER: ",KOLON," FØRSTE INTR. ADR ",ADR," SIDER ",SIDE2
  0130 LET PAGIN=LINIER*KOLON; SIDE1=ADR DIV PAGIN; SIDE2=SIDE2+SIDE1
  0170 PAGE=132
  0180 TAB=9
  0190 IF KOLON=16 THEN TAB=8
  0200 OPEN FILE(1,11)FIL$
  0210 FOR SIDE=SIDE1 TO SIDE2
  0220   IF SIDE*PAGIN>23258 THEN ENTER "@.LAGTRM"
  0240   PRINT FILE(1)"<12>";
  0250   FOR I=SIDE*PAGIN TO SIDE*PAGIN+(KOLON-1)*LINIER STEP LINIER
  0260     PRINT FILE(1)I,
  0270   NEXT I
  0280   PRINT FILE(1)
  0290   FOR ADR1=SIDE*PAGIN TO SIDE*PAGIN+LINIER-1
  0300     IF ADR1 MOD 16=0 THEN PRINT FILE(1)"       *"
  0310     LET L$=""
  0320     FOR ADR=ADR1 TO ADR1+(KOLON-1)*LINIER STEP LINIER
  0340       IF ADR>32767 THEN GOTO 0660
  0350       CALL "GMEM",ADR,X
  0360       IF ADR<311 OR (ADR>22168 AND ADR<23173) OR ADR>23258 THEN 
  0370         LET D$=CHR(48+ADR MOD 10),"               "
  0380         FOR I=5 TO 1 STEP -1
  0390           LET D$(I+2)=CHR(48+X MOD 10); X=X DIV 10
  0400         NEXT I
  0410       ELSE
  0420         LET D$=" "
  0430         IF ADR MOD 5=0 THEN LET D$=CHR(34+ADR MOD 10)
  0440         IF X<32768 THEN 
  0450           IF X>4095 THEN 
  0460             LET D$=D$,CHR(T(X MOD 32768 DIV 8192+1))
  0470             LET D$=D$,CHR(48+X MOD 8192 DIV 2048)
  0480           ELSE
  0490             LET D$=D$,CHR(62-(X MOD 4096 DIV 2048)*20)
  0500           ENDIF
  0510           LET D$=D$,CHR(48+X MOD 2048 DIV 256); Y=X MOD 256
  0520           IF X MOD 1024 DIV 256 THEN 
  0530             LET D$=D$,CHR(43+(Y DIV 128)*2); Y=Y+(Y DIV 128)*(256-2*Y)
  0540             LET D$=D$,CHR(48+Y DIV 10+(Y DIV 10>9)*7),CHR(48+Y MOD 10),"  "
  0550           ELSE
  0560             LET D$=D$,"+",CHR(48+Y DIV 100),CHR(48+Y DIV 10 MOD 10),CHR(48+Y MOD 10)," "
  0570           ENDIF
  0580         ELSE
  0590           LET D$=D$,":",CHR(48+X MOD 32768 DIV 8192),CHR(48+X MOD 8192 DIV 2048)
  0600           LET D$=D$,CHR(48+X MOD 2048 DIV 256),CHR(48+X MOD 256 DIV 16+(X MOD 256 DIV 16>9)*7),CHR(48+X MOD 16+(X MOD 16>9)*7)
  0610           LET D$=D$,"  "
  0620         ENDIF
  0625       ENDIF
  0630       IF KOLON<16 THEN LET L$=L$," "
  0640       LET L$=L$,D$(1,8)
  0660     NEXT ADR
  0670     PRINT FILE(1)L$
  0680   NEXT ADR1
  0690 NEXT SIDE
  1000 LET Y=X MOD 256; X=X DIV 256
  1020 LET D$=D$,CHR(32+(X DIV 100)*14+(X DIV 200)*12),CHR(48+X MOD 100 DIV 10),CHR(48+X MOD 10)
  1040 LET D$=D$,CHR(32+(Y DIV 100)*14+(Y DIV 200)*12),CHR(48+Y MOD 100 DIV 10),CHR(48+Y MOD 10)
100 DIV 10),C(48+X MOD 100 DIV 10),CHR(48+X MOD 10)
  1040 LET D$=D$,CHR(32+(Y DIV 100)*14+(Y DIV 200)*12),CHR(48+Y MOD 100 DIV 10),CHR(48+Y MOD 10)
100 DIV 10),CHR(48+X MOD 10)
  1040 LET D$=D$,CHR(32+(Y DIV 100)*14+(Y DIV 200)*12),CHR(48+Y MOD 100 DIV