DataMuseum.dk

top - download

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

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

Mikados K File

0100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5)
0105 BL$="     "
0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$
0260 INPUT "SIDENR ",SNR
0280 OUTPUT P
0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>"
0311 PRINT "<hhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>"
0312 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>"
0313 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>"
0314 EXEC SIDENR
0315 READ NROF
0316 FOR FI=1 TO NROF
0318 READ FIL$
0320 FIL$="ODIN3:"+FIL$+" "
0322 OPEN FIL$,R
0324 EXEC FEJL(FIL$)
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 
0397 IF LINE$(1)="@" THEN 
0398 EXEC SIDENR
0399 ELSE 
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 
0425 ENDIF 
0430 GET FIL$:LINE$
0460 ENDWHILE 
0470 IF STATUS(FIL$)<>19 THEN EXEC FEJL(FIL$)
0480 NEXT FI
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 
0920 PROC SIDENR
0925 FOR L=1 TO 6
0930 PRINT 
0935 NEXT L
0940 PRINT "."
0945 FOR L=1 TO 3
0950 PRINT 
0955 NEXT L
0960 PRINT TAB(35);"-";SNR;"-"
0965 FOR L=1 TO 3
0970 PRINT 
0975 NEXT L
0980 SNR=SNR+1
0985 ENDPROC 
1020 DATA 6,"NKAP44"
1022 DATA "KAP5"
1025 DATA "NAPX11","NAPX12","NAPX13"
1030 DATA "APX21"
1035 END