|
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
0x000…04b Line {l1=0x49, l2=»0100 DIM TEK$(25),SVAR1$(1),SVAR2$(1),A$(8),B$(17),N$(6),T(9),T1(9),T2(9)«, l3=0x49}
0x04b…070 Line {l1=0x23, l2=»0110 DIM DAT$(8),T3(9),C$(8),C1$(8)«, l3=0x23}
0x070…094 Line {l1=0x22, l2=»0120 A$="P641220:";B$=A$+"SYSTEM1"«, l3=0x22}
0x094…0a2 Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x0a2…0b0 Line {l1=0x0c, l2=»0145 FEJL1=0«, l3=0x0c}
0x0b0…0c0 Line {l1=0x0e, l2=»0150 OPEN B$,R«, l3=0x0e}
0x0c0…0dd Line {l1=0x1b, l2=»0160 IF STATUS(B$)<>0 THEN «, l3=0x1b}
0x0dd…0ea Line {l1=0x0b, l2=»0170 CLEAR «, l3=0x0b}
0x0ea…0fd Line {l1=0x11, l2=»0180 CURSOR 11,11«, l3=0x11}
0x0fd…130 Line {l1=0x31, l2=»0190 PRINT "Pladen ";A$(1:7);" er ikke monteret."«, l3=0x31}
0x130…143 Line {l1=0x11, l2=»0200 CURSOR 11,13«, l3=0x11}
0x143…176 Line {l1=0x31, l2=»0210 INPUT "Tast RETURN når dette er gjort.",TEK$«, l3=0x31}
0x176…184 Line {l1=0x0c, l2=»0220 FEJL1=1«, l3=0x0c}
0x184…191 Line {l1=0x0b, l2=»0250 ENDIF «, l3=0x0b}
0x191…1a5 Line {l1=0x12, l2=»0260 UNTIL FEJL1=0«, l3=0x12}
0x1a5…1b2 Line {l1=0x0b, l2=»0270 CLEAR «, l3=0x0b}
0x1b2…1c1 Line {l1=0x0d, l2=»0280 CLOSE B$«, l3=0x0d}
0x1c1…1d9 Line {l1=0x16, l2=»0290 EXEC FEJL(1,2,B$)«, l3=0x16}
0x1d9…1ef Line {l1=0x14, l2=»0300 B$=A$+"SYSTEM2"«, l3=0x14}
0x1ef…1ff Line {l1=0x0e, l2=»0310 OPEN B$,W«, l3=0x0e}
0x1ff…217 Line {l1=0x16, l2=»0320 EXEC FEJL(1,3,B$)«, l3=0x16}
0x217…253 Line {l1=0x3a, l2=»0330 GET B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)«, l3=0x3a}
0x253…26b Line {l1=0x16, l2=»0340 EXEC FEJL(1,4,B$)«, l3=0x16}
0x26b…27e Line {l1=0x11, l2=»0350 CURSOR 21,11«, l3=0x11}
0x27e…2bc Line {l1=0x3c, l2=»0360 PRINT "Godmorgen. Håber at vi må få en god dag sammen."«, l3=0x3c}
0x2bc…2cf Line {l1=0x11, l2=»0370 CURSOR 21,13«, l3=0x11}
0x2cf…30d Line {l1=0x3c, l2=»0380 PRINT "Indtast dato som ÅÅMMDD, hvor ÅÅ er året, MM er"«, l3=0x3c}
0x30d…31b Line {l1=0x0c, l2=»0390 REPEAT «, l3=0x0c}
0x31b…32e Line {l1=0x11, l2=»0400 CURSOR 21,15«, l3=0x11}
0x32e…359 Line {l1=0x29, l2=»0410 INPUT "måneden og DD er dagen:",DAT$«, l3=0x29}
0x359…369 Line {l1=0x0e, l2=»0420 P,TEST2=0«, l3=0x0e}
0x369…37c Line {l1=0x11, l2=»0430 FOR I=1 TO 6«, l3=0x11}
0x37c…39a Line {l1=0x1c, l2=»0440 P1=INT(ORD(DAT$(I))-48)«, l3=0x1c}
0x39a…3b9 Line {l1=0x1d, l2=»0450 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x3b9…3c9 Line {l1=0x0e, l2=»0460 P=P*10+P1«, l3=0x0e}
0x3c9…3d5 Line {l1=0x0a, l2=»0470 ELSE «, l3=0x0a}
0x3d5…3e3 Line {l1=0x0c, l2=»0480 TEST2=1«, l3=0x0c}
0x3e3…3f0 Line {l1=0x0b, l2=»0490 ENDIF «, l3=0x0b}
0x3f0…3fd Line {l1=0x0b, l2=»0500 NEXT I«, l3=0x0b}
0x3fd…429 Line {l1=0x2a, l2=»0510 IF TEST2=0 THEN I=(P DIV 100) MOD 100«, l3=0x2a}
0x429…46a Line {l1=0x3f, l2=»0520 UNTIL TEST2=0 AND I<13 AND P MOD 100<32 AND P DIV 10000>78«, l3=0x3f}
0x46a…477 Line {l1=0x0b, l2=»0530 T(7)=P«, l3=0x0b}
0x477…4b3 Line {l1=0x3a, l2=»0540 PUT B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)«, l3=0x3a}
0x4b3…4cb Line {l1=0x16, l2=»0550 EXEC FEJL(1,8,B$)«, l3=0x16}
0x4cb…4da Line {l1=0x0d, l2=»0560 CLOSE B$«, l3=0x0d}
0x4da…4f3 Line {l1=0x17, l2=»0570 EXEC FEJL(1,10,B$)«, l3=0x17}
0x4f3…511 Line {l1=0x1c, l2=»0580 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x511…52e Line {l1=0x1b, l2=»0590 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x52e…54d Line {l1=0x1d, l2=»0600 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x54d…573 Line {l1=0x24, l2=»0610 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x573…57f Line {l1=0x0a, l2=»0620 STOP «, l3=0x0a}
0x57f…58c Line {l1=0x0b, l2=»0630 ENDIF «, l3=0x0b}
0x58c…59b Line {l1=0x0d, l2=»0640 ENDPROC «, l3=0x0d}
0x59b…5a0 00 00 00 00 00 ┆ ┆
0x5a0…5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]