|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »START.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »START.K«
0100 DIM TEK$(25),SVAR1$(1),SVAR2$(1),A$(8),B$(17),N$(6),T(9),T1(9),T2(9) 0110 DIM DAT$(8),T3(9),C$(8),C1$(8) 0120 A$="P641220:";B$=A$+"SYSTEM1" 0140 REPEAT 0145 FEJL1=0 0150 OPEN B$,R 0160 IF STATUS(B$)<>0 THEN 0170 CLEAR 0180 CURSOR 11,11 0190 PRINT "Pladen ";A$(1:7);" er ikke monteret." 0200 CURSOR 11,13 0210 INPUT "Tast RETURN når dette er gjort.",TEK$ 0220 FEJL1=1 0250 ENDIF 0260 UNTIL FEJL1=0 0270 CLEAR 0280 CLOSE B$ 0290 EXEC FEJL(1,2,B$) 0300 B$=A$+"SYSTEM2" 0310 OPEN B$,W 0320 EXEC FEJL(1,3,B$) 0330 GET B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9) 0340 EXEC FEJL(1,4,B$) 0350 CURSOR 21,11 0360 PRINT "Godmorgen. Håber at vi må få en god dag sammen." 0370 CURSOR 21,13 0380 PRINT "Indtast dato som ÅÅMMDD, hvor ÅÅ er året, MM er" 0390 REPEAT 0400 CURSOR 21,15 0410 INPUT "måneden og DD er dagen:",DAT$ 0420 P,TEST2=0 0430 FOR I=1 TO 6 0440 P1=INT(ORD(DAT$(I))-48) 0450 IF P1=>0 AND P1<=9 THEN 0460 P=P*10+P1 0470 ELSE 0480 TEST2=1 0490 ENDIF 0500 NEXT I 0510 IF TEST2=0 THEN I=(P DIV 100) MOD 100 0520 UNTIL TEST2=0 AND I<13 AND P MOD 100<32 AND P DIV 10000>78 0530 T(7)=P 0540 PUT B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9) 0550 EXEC FEJL(1,8,B$) 0560 CLOSE B$ 0570 EXEC FEJL(1,10,B$) 0580 CHAIN "P641210:OPSTART" 0590 PROC FEJL(NR1,NR2,NR3) 0600 IF STATUS(NR3$)<>0 THEN 0610 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0620 STOP 0630 ENDIF 0640 ENDPROC