DataMuseum.dk

top - metrics - download

    Length: 1622 (0x656)
    Types: TextFile
    Notes: @.LAG$SP, ASS2::@.LAG$SP
    Names: »@.LAG$SP«

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─⟦this⟧ »ASS2::@.LAG$SP« 

TextFile

«ff»
  0010 REM PL 6.12.79 TOTALDUMP AF INDRE LAGER PÅ 28 SIDER «so»@.LAG $SP
  0020 LET R=16; LIN=24; BR=124; M=4; I1=0; I2=32767
  0025 CLOSE 
  0028 DIM L$(132)
  0030 OPEN FILE(1,11)"$SP"
  0040 LET N=5
  0050 DIM D$(N),E$(N)
  0060 LET E$="                              "; E$(N-M+1,N)="................."
  0070 PAGE=0
  0080 GOTO 0110
  0090 PRINT "TALLGD ";N;" ANTAL/LINIE ";LIN;" RADIX ";R;" ADRESSER ";I1;" - ";I2
  0100 TAB=1
  0110 FOR SIDE=0 TO 27
  0120   LET SIDE=INT(SIDE+.1)
  0130   PRINT FILE(1)USING "<12>(### )  ",SIDE;
  0140   FOR I=SIDE*1200 TO SIDE*1200+1150 STEP 50
  0150     PRINT FILE(1)USING "#####",I;
  0160   NEXT I
  0170   PRINT FILE(1)"<10><10>"
  0195   LET AB=INT(SIDE*1200+.1); AC=INT(SIDE*1200+50.1)
  0200   FOR ADR1=AB TO AC
  0220     PRINT FILE(1)USING "######: ",ADR1;
  0221     LET L$=""
  0230     FOR ADR=ADR1 TO ADR1+23*50 STEP 50
  0235       LET ADR=INT(ADR+.1)
  0240       IF ADR>32767 THEN GOTO 0310
  0250       CALL "GMEM",ADR,LAGER
  0260       IF LAGER=0 THEN LET L$=L$,E$
  0270       IF LAGER=0 THEN GOTO 0310
  0280       LET X=LAGER
  0290       EXEC RAD
  0300       LET L$=L$,D$
  0310     NEXT ADR
  0315     PRINT FILE(1)L$
  0320   NEXT ADR1
  0330 NEXT SIDE
  0340 PRINT "<10><7>"
  0350 ON ESC THEN CLOSE 
  0360 GOTO 0080
  0370 PROC RAD
  0380   LET D$=E$; I=0
  0390   REPEAT
  0400     LET H=X DIV R; C=X MOD R; I=I+1; X=H
  0410     IF C>9 THEN LET C=55+C
  0420     IF C>0 AND C<10 THEN LET C=48+C
  0430     IF C=0 THEN LET C=46
  0440     LET D$(N+1-I)=CHR(C)
  0450   UNTIL H=0 OR N<I+1
  0460 ENDPROC