|
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 - metrics - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »INFO«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »INFO«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »INFO«
0100 // ---------------------------- I N F O -----------------------
0110 DIM TXTLINE$ OF 80,SV$ OF 1,UDSKR$ OF 1
0120 INTEGER I
0130 OPEN "SYSTIME:INFOSCR",R
0140 CLEAR
0150 FOR I:=1 TO 22 DO
0160 GET "SYSTIME:INFOSCR":TXTLINE$
0170 PRINT TXTLINE$
0180 NEXT I
0190 CLOSE "SYSTIME:INFOSCR"
0200 INPUT "<SC1824>- - - - - - Tryk <RETURN>... - - - - - -":SV$
0210 PRINT "<XC1210>* * * * * 4 * COMAL program-oversigt * * * * *"
0220 INPUT "<C1313>Udskrift på (S)kærm eller (P)rinter ? (s/p) ":UDSKR$
0230 IF UDSKR$="P" OR UDSKR$="p" THEN
0240 SELECT OUTPUT "P"
0250 IF STATUS("P")=1 THEN
0260 PRINT "<C1213Z>Printeren er reserveret af anden bruger, "
0270 INPUT "<C1214>skal der ventes på at den bliver ledig ? (j/n) ":SV$
0280 IF SV$="J" OR SV$="j" THEN
0290 PRINT "<C0114Z>"
0300 PRINT "<SC1313Z>Der ventes på at printeren bliver ledig...."
0310 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
0320 PRINT "<SC1313Z>Der udskrives på printeren....."
0330 ELSE
0340 UDSKR$:="S"
0350 ENDIF
0360 ENDIF
0370 ELSE
0380 CLEAR
0390 ENDIF
0400 OPEN "SYSTIME:INFOTXT",R
0410 PCOUNT:=1
0420 GET "SYSTIME:INFOTXT":TXTLINE$
0430 WHILE NOT STATUS("SYSTIME:INFOTXT") DO
0440 IF UDSKR$="S" OR UDSKR$="s" THEN
0450 IF PCOUNT MOD 11=0 AND PCOUNT>11 THEN
0460 PRINT
0470 INPUT "<SC3224>Tryk <RETURN>...":SV$
0480 CURSOR 32,23
0490 PRINT " "
0500 CURSOR 1,22
0510 PRINT TXTLINE$
0520 ELSE
0530 PRINT TXTLINE$
0540 ENDIF
0550 ELSE
0551 IF PCOUNT=58 OR PCOUNT=140 THEN
0552 FOR I:=1 TO 14 DO PRINT
0553 PCOUNT:=PCOUNT+4
0554 ENDIF
0555 PRINT TXTLINE$
0556 ENDIF
0560 PCOUNT:=PCOUNT+1
0570 GET "SYSTIME:INFOTXT":TXTLINE$
0580 ENDWHILE
D0100 // ---------------------------- I N F O -----------------------D,0110 DIM TXTLINE$ OF 80,SV$ OF 1,UDSKR$ OF 1,▶0e◀0120 INTEGER I▶0e◀▶1d◀0130 OPEN "SYSTIME:INFOSCR",R▶1d◀▶0b◀0140 CLEAR ▶0b◀▶17◀0150 FOR I:=1 TO 22 DO ▶17◀#0160 GET "SYSTIME:INFOSCR":TXTLINE$#▶13◀0170 PRINT TXTLINE$▶13◀▶0b◀0180 NEXT I▶0b◀▶1c◀0190 CLOSE "SYSTIME:INFOSCR"▶1c◀A0200 INPUT "<SC1824>- - - - - - Tryk <RETURN>... - - - - - -":SV$AC0210 PRINT "<XC1210>* * * * * 4 * COMAL program-oversigt * * * * *"CG0220 INPUT "<C1313>Udskrift på (S)kærm eller (P)rinter ? (s/p) ":UDSKR$G&0230 IF UDSKR$="P" OR UDSKR$="p" THEN &▶16◀0240 SELECT OUTPUT "P"▶16◀▶1b◀0250 IF STATUS("P")=1 THEN ▶1b◀>0260 PRINT "<C1213Z>Printeren er reserveret af anden bruger, ">G0270 INPUT "<C1214>skal der ventes på at den bliver ledig ? (j/n) ":SV$G 0280 IF SV$="J" OR SV$="j" THEN ▶15◀0290 PRINT "<C0114Z>"▶15◀A0300 PRINT "<SC1313Z>Der ventes på at printeren bliver ledig...."A-0310 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"-50320 PRINT "<SC1313Z>Der udskrives på printeren....."5
0330 ELSE
▶10◀0340 UDSKR$:="S"▶10◀▶0b◀0350 ENDIF ▶0b◀▶0b◀0360 ENDIF ▶0b◀
0370 ELSE
▶0b◀0380 CLEAR ▶0b◀▶0b◀0390 ENDIF ▶0b◀▶1d◀0400 OPEN "SYSTIME:INFOTXT",R▶1d◀▶0e◀0410 PCOUNT:=1▶0e◀#0420 GET "SYSTIME:INFOTXT":TXTLINE$#,0430 WHILE NOT STATUS("SYSTIME:INFOTXT") DO ,&0440 IF UDSKR$="S" OR UDSKR$="s" THEN &+0450 IF PCOUNT MOD 11=0 AND PCOUNT>11 THEN +▶0b◀0460 PRINT ▶0b◀)0470 INPUT "<SC3224>Tryk <RETURN>...":SV$)▶11◀0480 CURSOR 32,23▶11◀00490 PRINT " "0▶10◀0500 CURSOR 1,22▶10◀▶13◀0510 PRINT TXTLINE$▶13◀
0520 ELSE
▶13◀0530 PRINT TXTLINE$▶13◀▶0b◀0540 ENDIF ▶0b◀
0550 ELSE
%0551 IF PCOUNT=58 OR PCOUNT=140 THEN %▶1d◀0552 FOR I:=1 TO 14 DO PRINT ▶1d◀▶15◀0553 PCOUNT:=PCOUNT+4▶15◀▶0b◀0554 ENDIF ▶0b◀▶13◀0555 PRINT TXTLINE$▶13◀▶0b◀0556 ENDIF ▶0b◀▶15◀0560 PCOUNT:=PCOUNT+1▶15◀#0570 GET "SYSTIME:INFOTXT":TXTLINE$#▶0e◀0580 ENDWHILE ▶0e◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc