|
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: 1468 (0x5bc)
Types: TextFile
Notes: @.LAGDEM
Names: »@.LAGDEM«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─ ⟦this⟧ »ASS2::@.LAGDEM«
«ff» 0010 REM «so» DUMP AF INDRE LAGER PL 9.9.79 0020 LET LIN=1; BR=80 0030 DIM E$(30),D$(30) 0040 OPEN FILE(1,11)"$SP" 0090 LET M=16 0100 LET N=17 0120 DIM D$(N),E$(N) 0140 PAGE=0 0150 INPUT "FRA ",I1," TIL ",I2 0170 REM 0180 FOR ADR=I1 TO I2 0190 IF (ADR-I1) MOD LIN=0 THEN 0200 LET X=ADR; R=16; M=4; N=5 0210 EXEC RAD 0220 PRINT "<13><10>";D$; 0230 PRINT FILE(1)"<13><10>";D$; 0240 PRINT USING "####### : ",ADR; 0250 PRINT FILE(1)USING "#######: ",ADR; 0260 ENDIF 0270 CALL "GMEM",ADR,LAGER 0280 IF LAGER=0 THEN PRINT E$; 0290 IF LAGER=0 THEN PRINT FILE(1)E$; 0300 IF LAGER=0 THEN GOTO 0420 0310 LET N=16; R=2; X=LAGER 0320 LET M=16 0330 EXEC RAD 0340 PRINT FILE(1)D$; 0350 LET M=6 0360 LET N=6; R=8; X=LAGER 0370 EXEC RAD 0380 PRINT FILE(1)" ";D$; 0383 LET M=4 0390 LET N=4; R=16; X=LAGER 0400 EXEC RAD 0410 PRINT FILE(1)" ";D$; 0420 NEXT ADR 0430 PRINT "<10><7>" 0440 ON ESC THEN CLOSE 0450 GOTO 0150 0460 PROC RAD 0470 LET E$=" "; E$(N-M+1,N)="000000000000000000000000" 0490 LET D$=E$; I=0 0500 REPEAT 0510 LET H=X DIV R; C=X MOD R; I=I+1; X=H 0520 IF C>9 THEN LET C=55+C 0530 IF C>0 AND C<10 THEN LET C=48+C 0540 IF C=0 THEN LET C=C+48 0550 LET D$(N+1-I)=CHR(C) 0560 UNTIL H=0 OR N<I+1 0570 ENDPROC