DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦827cfa6a6⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »INFO.K«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »INFO.K« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »INFO.K« 

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 

0x000…046 Line {l1=0x44, l2=»0100 // ---------------------------- I N F O -----------------------«, l3=0x44}
0x046…074 Line {l1=0x2c, l2=»0110 DIM TXTLINE$ OF 80,SV$ OF 1,UDSKR$ OF 1«, l3=0x2c}
0x074…084 Line {l1=0x0e, l2=»0120 INTEGER I«, l3=0x0e}
0x084…0a3 Line {l1=0x1d, l2=»0130 OPEN "SYSTIME:INFOSCR",R«, l3=0x1d}
0x0a3…0b0 Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x0b0…0c9 Line {l1=0x17, l2=»0150 FOR I:=1 TO 22 DO «, l3=0x17}
0x0c9…0ee Line {l1=0x23, l2=»0160 GET "SYSTIME:INFOSCR":TXTLINE$«, l3=0x23}
0x0ee…103 Line {l1=0x13, l2=»0170 PRINT TXTLINE$«, l3=0x13}
0x103…110 Line {l1=0x0b, l2=»0180 NEXT I«, l3=0x0b}
0x110…12e Line {l1=0x1c, l2=»0190 CLOSE "SYSTIME:INFOSCR"«, l3=0x1c}
0x12e…171 Line {l1=0x41, l2=»0200 INPUT "<SC1824>- - - - - - Tryk <RETURN>... - - - - - -":SV$«, l3=0x41}
0x171…1b6 Line {l1=0x43, l2=»0210 PRINT "<XC1210>* * * * * 4 * COMAL program-oversigt * * * * *"«, l3=0x43}
0x1b6…1ff Line {l1=0x47, l2=»0220 INPUT "<C1313>Udskrift på (S)kærm eller (P)rinter ? (s/p) ":UDSKR$«, l3=0x47}
0x1ff…227 Line {l1=0x26, l2=»0230 IF UDSKR$="P" OR UDSKR$="p" THEN «, l3=0x26}
0x227…23f Line {l1=0x16, l2=»0240 SELECT OUTPUT "P"«, l3=0x16}
0x23f…25c Line {l1=0x1b, l2=»0250 IF STATUS("P")=1 THEN «, l3=0x1b}
0x25c…29c Line {l1=0x3e, l2=»0260 PRINT "<C1213Z>Printeren er reserveret af anden bruger, "«, l3=0x3e}
0x29c…2e5 Line {l1=0x47, l2=»0270 INPUT "<C1214>skal der ventes på at den bliver ledig ? (j/n) ":SV$«, l3=0x47}
0x2e5…307 Line {l1=0x20, l2=»0280 IF SV$="J" OR SV$="j" THEN «, l3=0x20}
0x307…31e Line {l1=0x15, l2=»0290 PRINT "<C0114Z>"«, l3=0x15}
0x31e…361 Line {l1=0x41, l2=»0300 PRINT "<SC1313Z>Der ventes på at printeren bliver ledig...."«, l3=0x41}
0x361…390 Line {l1=0x2d, l2=»0310 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x390…3c7 Line {l1=0x35, l2=»0320 PRINT "<SC1313Z>Der udskrives på printeren....."«, l3=0x35}
0x3c7…3d3 Line {l1=0x0a, l2=»0330 ELSE «, l3=0x0a}
0x3d3…3e5 Line {l1=0x10, l2=»0340 UDSKR$:="S"«, l3=0x10}
0x3e5…3f2 Line {l1=0x0b, l2=»0350 ENDIF «, l3=0x0b}
0x3f2…3ff Line {l1=0x0b, l2=»0360 ENDIF «, l3=0x0b}
0x3ff…40b Line {l1=0x0a, l2=»0370 ELSE «, l3=0x0a}
0x40b…418 Line {l1=0x0b, l2=»0380 CLEAR «, l3=0x0b}
0x418…425 Line {l1=0x0b, l2=»0390 ENDIF «, l3=0x0b}
0x425…444 Line {l1=0x1d, l2=»0400 OPEN "SYSTIME:INFOTXT",R«, l3=0x1d}
0x444…454 Line {l1=0x0e, l2=»0410 PCOUNT:=1«, l3=0x0e}
0x454…479 Line {l1=0x23, l2=»0420 GET "SYSTIME:INFOTXT":TXTLINE$«, l3=0x23}
0x479…4a7 Line {l1=0x2c, l2=»0430 WHILE NOT STATUS("SYSTIME:INFOTXT") DO «, l3=0x2c}
0x4a7…4cf Line {l1=0x26, l2=»0440 IF UDSKR$="S" OR UDSKR$="s" THEN «, l3=0x26}
0x4cf…4fc Line {l1=0x2b, l2=»0450 IF PCOUNT MOD 11=0 AND PCOUNT>11 THEN «, l3=0x2b}
0x4fc…509 Line {l1=0x0b, l2=»0460 PRINT «, l3=0x0b}
0x509…534 Line {l1=0x29, l2=»0470 INPUT "<SC3224>Tryk <RETURN>...":SV$«, l3=0x29}
0x534…547 Line {l1=0x11, l2=»0480 CURSOR 32,23«, l3=0x11}
0x547…579 Line {l1=0x30, l2=»0490 PRINT "                                   "«, l3=0x30}
0x579…58b Line {l1=0x10, l2=»0500 CURSOR 1,22«, l3=0x10}
0x58b…5a0 Line {l1=0x13, l2=»0510 PRINT TXTLINE$«, l3=0x13}
0x5a0…5ac Line {l1=0x0a, l2=»0520 ELSE «, l3=0x0a}
0x5ac…5c1 Line {l1=0x13, l2=»0530 PRINT TXTLINE$«, l3=0x13}
0x5c1…5ce Line {l1=0x0b, l2=»0540 ENDIF «, l3=0x0b}
0x5ce…5da Line {l1=0x0a, l2=»0550 ELSE «, l3=0x0a}
0x5da…601 Line {l1=0x25, l2=»0551 IF PCOUNT=58 OR PCOUNT=140 THEN «, l3=0x25}
0x601…620 Line {l1=0x1d, l2=»0552 FOR I:=1 TO 14 DO PRINT «, l3=0x1d}
0x620…637 Line {l1=0x15, l2=»0553 PCOUNT:=PCOUNT+4«, l3=0x15}
0x637…644 Line {l1=0x0b, l2=»0554 ENDIF «, l3=0x0b}
0x644…659 Line {l1=0x13, l2=»0555 PRINT TXTLINE$«, l3=0x13}
0x659…666 Line {l1=0x0b, l2=»0556 ENDIF «, l3=0x0b}
0x666…67d Line {l1=0x15, l2=»0560 PCOUNT:=PCOUNT+1«, l3=0x15}
0x67d…6a2 Line {l1=0x23, l2=»0570 GET "SYSTIME:INFOTXT":TXTLINE$«, l3=0x23}
0x6a2…6b2 Line {l1=0x0e, l2=»0580 ENDWHILE «, l3=0x0e}
0x6b2…6c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63                                                         ┆  cccccccccccc┆
0x6c0…6e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x18…]

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

Reduced view