DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »UDSKRIV.K«

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »UDSKRIV.K« 

Mikados K File

0100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5)
0105 BL$="     "
0130 INPUT "HVILKEN FIL SKAL UDSKRIVES ",FIL$
0160 FIL$=FIL$+" "
0190 OPEN FIL$,R
0220 EXEC FEJL(FIL$)
0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$
0280 OUTPUT P
0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>"
0315 PRINT "<hhhhhhhhhhhhhhhhHHHHHHHHHHHH>"
0320 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>"
0321 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>"
0340 GET FIL$:LINE$
0370 WHILE STATUS(FIL$)=0
0372 IF LINE$(1)="%" THEN 
0374 LINE1$=LINE$
0376 GET FIL$:LINE$
0378 EXEC FEJL(FIL$)
0380 FOR I=2 TO LEN(LINE1$)
0382 IF LINE1$(I)="_" THEN 
0384 LINE$(I)=CHR(ORD(LINE$(I))+128)
0386 ENDIF 
0388 NEXT I
0390 IF LINE1$(2)="_" THEN 
0392 LINE$(1)=CHR(ORD(LINE$(1))+128)
0394 ENDIF 
0396 ENDIF 
0400 I=LEN(LINE$)
0401 IF I<72 THEN GO TO 0408
0402 WHILE LINE$(I)=" "
0404 I=I-1
0406 ENDWHILE 
0408 GAP=77-I
0410 IF GAP>5 OR GAP=0 THEN 
0412 PRINT LINE$
0414 ELSE 
0416 PRINT "<SH>";LINE$(1,12*GAP)
0418 PRINT "<h>";BL$(1,GAP);LINE$(12*GAP+1,77)
0420 ENDIF 
0430 GET FIL$:LINE$
0460 ENDWHILE 
0490 PRINT CHR(12)
0520 OUTPUT T
0550 IF STATUS(FIL$)<>19 THEN 
0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$)
0610 ELSE 
0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT"
0670 ENDIF 
0700 STOP 
0730 PROC FEJL(FILE)
0760 IF STATUS(FILE$) THEN 
0790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$)
0820 PRINT "PAA FIL ";FILE$
0850 STOP 
0880 ENDIF 
0910 ENDPROC