DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

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

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦2c0ec60ca⟧ TextFile

    Length: 579 (0x243)
    Types: TextFile
    Notes: C.L.PRG 
    Names: »C.L.PRG«

Derivation

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »BASIC::C.L.PRG«

TextFile

«ff»
  0010 REM INSKRIVNINGSPROGRAM   TIL  CENTRALLAGERUDSKRIFTPROGRAM
  0020 DIM A$(30,30),F$(8),A(30),A1$(30)
  0030 LET Y=Y+1; F$="C.L.-",CHR(34+Y)
  0040 ON ERR THEN GOTO 0030
  0050 CREATE F$,30,20
  0060 RESET ERR
  0070 OPEN FILE(0,0)F$
  0080 FOR X=1 TO 30
  0090   INPUT "   ",A(X),A$(X)
  0100   FOR Y=1 TO X-1
  0110     IF A(X)>A(Y) THEN LET A1$=A$(X); A$(X)=A$(Y); A$(Y)=A1$; A1=A(X); A(X)=A(Y); A(Y)=A1
  0120   NEXT Y
  0130 NEXT X
  0140 FOR X=30 TO 1 STEP -1
  0150   WRITE FILE(0,X)A(X),A$(X)
  0160   PRINT A(X),A$(X)
  0170 NEXT X
  0180 CLOSE