|
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: 480 (0x1e0)
Types: TextFile
Notes: Mikados_K
Names: »RAMME.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RAMME.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RAMME.K«
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
0x000…021 Line {l1=0x1f, l2=»0010 // -------- ramme --------«, l3=0x1f}
0x021…02e Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x02e…048 Line {l1=0x18, l2=»0030 FOR X:=10 TO 70 DO «, l3=0x18}
0x048…059 Line {l1=0x0f, l2=»0040 CURSOR X,6«, l3=0x0f}
0x059…069 Line {l1=0x0e, l2=»0050 PRINT "*"«, l3=0x0e}
0x069…076 Line {l1=0x0b, l2=»0060 NEXT X«, l3=0x0b}
0x076…08f Line {l1=0x17, l2=»0070 FOR Y:=6 TO 17 DO «, l3=0x17}
0x08f…0a1 Line {l1=0x10, l2=»0080 CURSOR 70,Y«, l3=0x10}
0x0a1…0b1 Line {l1=0x0e, l2=»0090 PRINT "*"«, l3=0x0e}
0x0b1…0be Line {l1=0x0b, l2=»0100 NEXT Y«, l3=0x0b}
0x0be…0e0 Line {l1=0x20, l2=»0110 FOR X:=69 TO 10 STEP -1 DO «, l3=0x20}
0x0e0…0f2 Line {l1=0x10, l2=»0120 CURSOR X,17«, l3=0x10}
0x0f2…102 Line {l1=0x0e, l2=»0130 PRINT "*"«, l3=0x0e}
0x102…10f Line {l1=0x0b, l2=»0140 NEXT X«, l3=0x0b}
0x10f…130 Line {l1=0x1f, l2=»0150 FOR Y:=17 TO 6 STEP -1 DO «, l3=0x1f}
0x130…142 Line {l1=0x10, l2=»0160 CURSOR 10,Y«, l3=0x10}
0x142…152 Line {l1=0x0e, l2=»0170 PRINT "*"«, l3=0x0e}
0x152…15f Line {l1=0x0b, l2=»0180 NEXT Y«, l3=0x0b}
0x15f…171 Line {l1=0x10, l2=»0190 CURSOR 1,22«, l3=0x10}
0x171…180 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccc┆
0x180…1a0 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┆
[…0x2…]