|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »BLINK.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BLINK.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BLINK.K«
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)
0x000…043 Line {l1=0x41, l2=»0010 // ---------------------- blink ----------------------------«, l3=0x41}
0x043…04d Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04d…076 Line {l1=0x27, l2=»0030 PROC BLINK(PRTXT$,X,Y,GANGE,PRTID)«, l3=0x27}
0x076…087 Line {l1=0x0f, l2=»0040 BLANK$:=""«, l3=0x0f}
0x087…0a9 Line {l1=0x20, l2=»0050 FOR I:=1 TO LEN(PRTXT$) DO «, l3=0x20}
0x0a9…0c2 Line {l1=0x17, l2=»0060 BLANK$:=BLANK$+" "«, l3=0x17}
0x0c2…0cf Line {l1=0x0b, l2=»0070 NEXT I«, l3=0x0b}
0x0cf…0eb Line {l1=0x1a, l2=»0080 FOR I:=1 TO GANGE DO «, l3=0x1a}
0x0eb…0fc Line {l1=0x0f, l2=»0090 CURSOR X,Y«, l3=0x0f}
0x0fc…10f Line {l1=0x11, l2=»0100 PRINT BLANK$«, l3=0x11}
0x10f…129 Line {l1=0x18, l2=»0110 FOR J:=1 TO 100 DO «, l3=0x18}
0x129…136 Line {l1=0x0b, l2=»0120 NEXT J«, l3=0x0b}
0x136…147 Line {l1=0x0f, l2=»0130 CURSOR X,Y«, l3=0x0f}
0x147…15a Line {l1=0x11, l2=»0140 PRINT PRTXT$«, l3=0x11}
0x15a…178 Line {l1=0x1c, l2=»0150 FOR J:=1 TO PRTID*7 DO «, l3=0x1c}
0x178…185 Line {l1=0x0b, l2=»0160 NEXT J«, l3=0x0b}
0x185…192 Line {l1=0x0b, l2=»0170 NEXT I«, l3=0x0b}
0x192…1a6 Line {l1=0x12, l2=»0180 ENDPROC BLINK«, l3=0x12}
0x1a6…1b0 Line {l1=0x08, l2=»0190 // «, l3=0x08}
0x1b0…1bd Line {l1=0x0b, l2=»0200 CLEAR «, l3=0x0b}
0x1bd…1e1 Line {l1=0x22, l2=»0210 DIM TEKST$ OF 40,BLANK$ OF 40«, l3=0x22}
0x1e1…219 Line {l1=0x36, l2=»0220 INPUT "Indtast en tekst (max 40 tegn): ":TEKST$«, l3=0x36}
0x219…257 Line {l1=0x3c, l2=»0230 INPUT "Indtast tid pr. blink ( i 1/10-sekunder): ":TID«, l3=0x3c}
0x257…27c Line {l1=0x23, l2=»0240 EXEC BLINK(TEKST$,30,8,10,TID)«, l3=0x23}
0x27c…280 00 00 63 63 ┆ cc┆
0x280…2a0 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┆
[…0x3a…]