|
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: 1187 (0x4a3)
Types: TextFile
Notes: PÅ
Names: »PÅ«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─ ⟦this⟧ »ASS::PÅ«
«ff»
0010 REM R-FIL LÆSEPROGRAM // CB 9.11.79
0015 DIM A$(80),LD$(8),F$(8),TY$(2,5)
0016 LET TY$(1)="1"; TY$(2)="1,Y"
0020 PRINT "<12><10>FIL-LÆSEPROGRAM TIL CL-SYSTEM<10><10>"
0025 INPUT "LD : ",LD$,"<13><10>FILNAVN : ",F$,"<13><10>(1) SEQ<13><10>(2) RAN : ",T,"<13><10>FORMAT<13><10>(1) A$<13><10>(2) A,A$<13><10>(3) SPEC: ",F
0030 IF F=3 THEN INPUT "FORMAT : ",A$
0035 ON (LD$="")+(F=3)*(LD$="") THEN GOTO 0085, 0025
0040 CONNECT LD$,2610*(F=3)
0045 IF F=3 THEN
0055 OPEN FILE(1,3)"TT"
0060 WRITE FILE(1)"<12> 0130 IF F=3 READ FILE(",TY$(T),") ",A$,"<13><10>"
0065 WRITE FILE(1)" 0140 IF F=3 PRINT ",A$,"<13><10>"
0070 CLOSE
0075 ENTER "TT"
0080 ENDIF
0085 OPEN FILE(1,T*T)F$
0095 LET Y=Y+1
0100 IF F=1 AND T=1 THEN READ FILE(1)A$
0105 IF F=1 AND T=2 THEN READ FILE(1,Y)A$
0110 IF F=2 AND T=1 THEN READ FILE(1)A,A$
0115 IF F=2 AND T=2 THEN READ FILE(1,Y)A,A$
0120 IF F=1 THEN PRINT USING "(###) : #########################",Y,A$
0125 IF F=2 THEN PRINT USING "(###) : ##### ##########################",Y,A,A$
0130 IF F=3 THEN READ FILE(1,Y)A,A$
0140 IF F=3 THEN PRINT A,A$
0160 GOTO 0095