DataMuseum.dk

top - download

    Length: 2832 (0xb10)
    Types: TextFile
    Notes: RM      
    Names: »RM«

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »ASS::RM« 

TextFile

«ff»
  0010 REM ** RANDOMMANIPULERING ** CB 19.11.79 **
  0015 PRINT "<12><10><10>>RADOMMANU. PROGRAM<13><10><10>NB. HUSK VED START AT SPECIFICERE LD,FIL,INPARA"
  0020 DIM A$(30,10),B$(30,10),F$(8),LD1$(8),LD2$(8),COM$(10),FORM$(132),A(30),B(30),C$(60)
  0030 INPUT "FUNKTION : ",COM$
  0035 IF F$<>"" THEN OPEN FILE(1,0)F$
  0040 CASE COM$ OF 
  0050   PRINT "<13><10>LOVLIGE FUNKTIONER ER  LÆS / RET / COPY<13><10>"
  0060 WHEN "LÆS"
  0080   ON ERR THEN GOTO 0130
  0090   READ FILE(1,I)A(1),A$(1)
  0100   PRINT USING FORM$,A(1),A$(1)
  0110   LET I=I+1
  0120   GOTO 0080
  0130   CLOSE 
  0140 WHEN "RET"
  0160   INPUT "REC : ",R
  0165   IF R=0 THEN GOTO 0215
  0170   READ FILE(1,R)A(1),A$(1)
  0180   PRINT USING FORM$,A(1),A$(1)
  0185   ON ESC THEN GOTO 0160
  0190   INPUT "IN : ",A(1),A$(1)
  0200   WRITE FILE(1,R)A(1),A$(1)
  0210   GOTO 0160
  0215   CLOSE 
  0220 WHEN "COPY"
  0223   INPUT "RECLGN : ",T,"  ANTAL REC : ",S
  0224   CLOSE 
  0225   CONNECT LD2$,KODE2
  0227   CREATE F$,S,T
  0230   CLOSE 
  0235   CONNECT LD1$
  0237   OPEN FILE(1,4)F$
  0240   LET Y=0
  0250   LET Y=Y+1
  0260   ON ERR THEN GOTO 0300
  0270   READ FILE(1,Y)A(I),A$(I)
  0275   IF Y<30 THEN GOTO 0250
  0280   RESET ERR
  0300   CLOSE 
  0310   CONNECT LD2$,KODE
  0315   OPEN FILE(1,0)F$
  0320   FOR I=1 TO Y
  0330     WRITE FILE(1,Y)A(I),A$(I)
  0340   NEXT I
  0350   CLOSE 
  0360   IF Y=30 THEN GOTO 0240
  0370 WHEN "FIL"
  0375   INPUT "FIL : ",F$
  0380 WHEN "LD"
  0400   INPUT "FRALD   : ",LD1$
  0410   INPUT "   KODE : ",KODE2
  0420   INPUT "TILLD   : ",LD2$
  0430   INPUT "   KODE : ",KODE
  0435 WHEN "INPARA"
  0437   PRINT "<13><10>>INPARA<10><13>SPECIFICER FORMAT C$,B$,A,B MÅ BENYTTES<10>"
  0440   INPUT "FILFORM : ",C$
  0441   LET I=0
  0442   REPEAT
  0443     LET I=I+1
  0444     IF C$(I)="," THEN LET FORM$=C$(1,I-1-(C$(I-1)="$")),"(1)",C$(I,LEN(C$)); C$=FORM$; I=I+3
  0445   UNTIL I=LEN(C$)
  0447   LET C$=C$,"(1)"
  0450   INPUT "PRNTFORM: ",FORM$
  0460   CREATE "WORK",10
  0470   OPEN FILE(3,3)"WORK"
  0480   WRITE FILE(3)"  0090 READ FILE(1,I) ",C$,"<13><10>"
  0490   WRITE FILE(3)"  0100 PRINT USING FORM$,",C$,"<13><10>"
  0500   WRITE FILE(3)"  0170 READ FILE(1,R) ",C$,"<13><10>"
  0510   WRITE FILE(3)"  0180 PRINT USING FORM$,",C$,"<13><10>"
  0520   WRITE FILE(3)"  0190 INPUT<34>IN : <34>,",C$,"<13><10>"
  0540   WRITE FILE(3)"  0200 WRITE FILE(1,R) ",C$,"<13><10>"
  0542   FOR I=1 TO LEN(C$)
  0544     IF C$(I)="1" THEN LET C$(I)="I"
  0546   NEXT I
  0550   WRITE FILE(3)"  0270 READ FILE(1,Y) ",C$,"<13><10>"
  0560   WRITE FILE(3)"  0330 WRITE FILE(1,Y) ",C$,"<13><10>"
  0570   CLOSE 
  0580   ENTER "WORK"
  0590   DELETE "WORK"
  0620   CLOSE 
  0630 ENDCASE
  0635 CLOSE 
  0640 GOTO 0030