DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »KODE«

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧ 

TextFile

«ff»
  0010 REM   //  MORTEN JØRGENSEN  81.01.12  //
  0020 PAGE=0
  0030 DIM KO$(50),SÆT$(100),SV$(5)
  0040 INPUT "KODEORD: ",KO$;
  0050 FOR A=1 TO LEN(KO$)+10
  0060   PRINT " <8><8>";
  0070 NEXT A
  0080 INPUT "<10><13>IND,UD ? ",SV$
  0090 CASE SV$ OF 
  0100   PRINT "DU ER DUMMERE END EN SPROGLIG!!!"
  0110   GOTO 0080
  0120 WHEN "IND","I"
  0130   ON ERR THEN GOTO 0150
  0140   DELETE "KODE1"
  0150   CREATE "KODE1",0
  0160   OPEN FILE(0,2)"KODE1"
  0170   REPEAT
  0180     INPUT "> ",SÆT$
  0190     IF SÆT$="SLUT" THEN GOTO 0230
  0200     LET SÆT$=SÆT$,"<10><13>"
  0210     EXEC KODE
  0220     WRITE FILE(0)SÆT$
  0230   UNTIL SÆT$="SLUT"
  0240 WHEN "UD","U"
  0250   OPEN FILE(0,1)"KODE1"
  0260   WHILE NOT EOF(0) DO 
  0270     READ FILE(0)SÆT$
  0280     EXEC KODE
  0290   ENDWHILE
  0300 ENDCASE
  0310 PROC KODE
  0320   LET B=0; H=65*SGN(ORD(SV$(1))-84)
  0330   FOR A=1 TO LEN(SÆT$)
  0340     LET B=B+1
  0350     IF B>LEN(KO$) THEN LET B=1
  0360     LET SÆT$(A)=CHR(ORD(SÆT$(A))+ORD(KO$(B))*SGN(H*(-1))+H)
  0370     IF H=65 THEN PRINT SÆT$(A);
  0380   NEXT A
  0390 ENDPROC
  0400 CLOSE 
«nul»