|
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)
Notes: Mikados TextFile, Mikados_K
Names: »BLINK«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BLINK«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BLINK«
0010 // ---------------------- blink ---------------------------- 0020 // 0030 PROC BLINK(PRTXT$,X,Y,GANGE,PRTID) 0040 BLANK$:="" 0050 FOR I:=1 TO LEN(PRTXT$) DO 0060 BLANK$:=BLANK$+" " 0070 NEXT I 0080 FOR I:=1 TO GANGE DO 0090 CURSOR X,Y 0100 PRINT BLANK$ 0110 FOR J:=1 TO 100 DO 0120 NEXT J 0130 CURSOR X,Y 0140 PRINT PRTXT$ 0150 FOR J:=1 TO PRTID*7 DO 0160 NEXT J 0170 NEXT I 0180 ENDPROC BLINK 0190 // 0200 CLEAR 0210 DIM TEKST$ OF 40,BLANK$ OF 40 0220 INPUT "Indtast en tekst (max 40 tegn): ":TEKST$ 0230 INPUT "Indtast tid pr. blink ( i 1/10-sekunder): ":TID 0240 EXEC BLINK(TEKST$,30,8,10,TID)