DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦1497e2be3⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »DB/SKRIV.UD«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »DB/SKRIV.UD«

TextFile

5000 PROC skrivud(fra,til) CLOSED
5010   IMPORT antalfelter,antalposter,feltnavne$,skærmpå,postlængde
5020   DIM post$ OF postlængde
5030   DIM postindhold$(antalfelter) OF 25,svar$ OF 1
5040   CLEAR 
5050   IF til>antalposter THEN til:= antalposter
5060   IF fra<1 THEN fra:= 1
5070   FOR nr:= fra TO til DO
5080     READ FILE 1,nr: post$
5090     FOR f:= 1 TO antalfelter DO postindhold$(f):= post$((f-1)*25+1:f*25)
5100     PRINT USING "post nr ###:": nr
5110     FOR i:= 1 TO antalfelter DO
5120       PRINT feltnavne$(i);":   ";postindhold$(i)
5130     NEXT i
5140     PRINT 
5150     PRINT 
5160     IF skærmpå THEN
5170       INPUT AT(60,22),"-tast return:": svar$
5180       CLEAR 
5190     ENDIF 
5200   NEXT nr
5210 ENDPROC skrivud
«eof»