DataMuseum.dk

top - download

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »INITLI80«

└─⟦670c0171b⟧ Bits:30005246 COMAL-80 version 1.3 (MIKADOS)
    └─ ⟦this⟧ »INITLI80« 
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
    └─ ⟦this⟧ »INITLI80« 

Text

0100 // INITLI80 -    EGS 791106, PNM 050980, DI 050182, DI 210182
0110 // COMAL80 VERSION AA 27.04.1982
0120 DIM SVAR$ OF 4,SVARK$ OF 4,ETIKETTE$ OF 9
0130 DIM DREVN$ OF 2,NAVN$ OF 18,SIDSTECHAR$ OF 1
0140 INTEGER FLAG,FOREVER,Y
0150 PRINT 
0160 PRINT "INITLI80 - Initialisering af disketter"
0170 PRINT "         - og indsætning af etiketter"
0180 REPEAT 
0190 PRINT 
0200 REPEAT 
0210 ETIKETTE$:="";NAVN$:="";FOREVER,FLAG:=0
0220 INPUT "Indtast etikette: ":NAVN$
0230 EXEC KONVERTOGMOVE(NAVN$,1,ETIKETTE$,SIDSTECHAR$,FLAG)
0240 IF LEN(ETIKETTE$)>8 OR LEN(ETIKETTE$)<1 OR LEN(NAVN$)>8 THEN FLAG:=1
0250 IF SIDSTECHAR$=":" THEN FLAG:=1
0260 UNTIL FLAG=0
0270 REPEAT 
0280 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ":DREVN$
0290 UNTIL DREVN$>"P0" AND DREVN$<="P9"
0300 REPEAT 
0310 PRINT 
0320 PRINT "Indsæt diskette i drev nr. ";DREVN$(2)
0330 PRINT 
0340 PRINT "Tast derefter   I for Initialisering"
0350 PRINT "                E for indsætning af Etikette"
0360 INPUT "              ESC for at stoppe programmet : ":SVAR$
0370 UNTIL SVAR$="E" OR SVAR$="I"
0380 IF SVAR$="I" THEN 
0390 REPEAT 
0400 INPUT "                J for indlæsningskontrol   : ":SVARK$
0410 UNTIL LEN(SVARK$)<2 AND (SVARK$="J" OR SVARK$="N")
0420 ENDIF 
0430 EXEC INIT
0440 UNTIL FOREVER
0450 PROC INIT
0460 IF SVAR$="I" THEN 
0470 PRINT " "
0480 PRINT "Aktuelt spor                   Sidste spor"
0490 PRINT " "
0500 ENDIF 
0510 CALL "SYSPROG:PLINC"
0520 PRINT " "
0530 IF FLAG=250 THEN 
0540 PRINT "Etiketten ";ETIKETTE$;" er nu indsat."
0550 ELSE 
0560 IF FLAG THEN 
0570 PRINT "Initlize mislykkedes. Fejlkode ";FLAG
0580 ELSE 
0590 PRINT "Diskette ";ETIKETTE$;" er nu initialiseret."
0600 ENDIF 
0610 ENDIF 
0620 ENDPROC INIT
0630 PROC KONVERTOGMOVE(NFRA$,I,REF NTIL$,REF CH$,REF F)
0640 Y:=1
0650 REPEAT 
0660 CH$:=NFRA$(I)
0670 IF CH$=>"a" AND CH$<="å" THEN CH$:=CHR$(ORD(CH$)-32)
0680 IF CH$<>":" THEN 
0690 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN 
0700 NTIL$(Y):=CH$;Y:=Y+1;I:=I+1
0710 ELSE 
0720 IF CH$<>"" THEN 
0730 F:=1
0740 EXIT // ULOVLIGT TEGN
0750 ENDIF 
0760 ENDIF 
0770 ENDIF 
0780 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18
0790 ENDPROC KONVERTOGMOVE