DataMuseum.dk

top - metrics - download

    Length: 1604 (0x644)
    Notes: Mikados TextFile, Mikados_K
    Names: »INFO«

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

Text

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