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 - metrics - download

⟦563a13752⟧

    Length: 480 (0x1e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »RAMME«

Derivation

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

Text

0010 // -------- ramme --------
0020 CLEAR 
0030 FOR X:=10 TO 70 DO 
0040 CURSOR X,6
0050 PRINT "*"
0060 NEXT X
0070 FOR Y:=6 TO 17 DO 
0080 CURSOR 70,Y
0090 PRINT "*"
0100 NEXT Y
0110 FOR X:=69 TO 10 STEP -1 DO 
0120 CURSOR X,17
0130 PRINT "*"
0140 NEXT X
0150 FOR Y:=17 TO 6 STEP -1 DO 
0160 CURSOR 10,Y
0170 PRINT "*"
0180 NEXT Y
0190 CURSOR 1,22