|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »TVSPIL.K«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »TVSPIL.K«
0100 CLEAR 0110 FOR ROW=1 TO 76 STEP 11 0130 PRINT "<S>***********" 0140 NEXT ROW 0145 PRINT "<S>**" 0150 FOR COL=1 TO 24 0160 CURSOR 79,COL 0170 IF COL<10 OR COL>14 THEN PRINT "<S>*" 0180 NEXT COL 0190 FOR ROW=68 TO 1 STEP -11 0200 CURSOR ROW,24 0210 PRINT "<S>***********" 0220 NEXT ROW 0230 FOR COL=24 TO 2 STEP -1 0240 CURSOR 1,COL 0250 PRINT "<S>*" 0260 NEXT COL 0270 REPEAT 0280 YDELTA=1 0290 XDELTA=1 0300 Z=0 0310 X=INT(RND(Z)*75+2) 0320 Y=INT(RND(Z)*20+2) 0330 REPEAT 0340 IF X>78.5 OR X<2 THEN XDELTA=-XDELTA 0350 IF Y>23 OR Y<2 THEN YDELTA=-YDELTA 0360 IF X=79 AND (Y=>9.5 AND Y<=14.5) THEN EXIT 0370 CURSOR X,Y 0380 Y=Y+YDELTA 0390 X=X+XDELTA 0400 UNTIL 0=1 0410 CURSOR 65,12 0420 PRINT "<S>M A A L !" 0430 FOR VENT=1 TO 10 0440 NEXT VENT 0450 CURSOR 65,12 0460 PRINT " ." 0470 UNTIL 0=1
0x000…00d Line {l1=0x0b, l2=»0100 CLEAR «, l3=0x0b}
0x00d…02b Line {l1=0x1c, l2=»0110 FOR ROW=1 TO 76 STEP 11«, l3=0x1c}
0x02b…048 Line {l1=0x1b, l2=»0130 PRINT "<S>***********"«, l3=0x1b}
0x048…057 Line {l1=0x0d, l2=»0140 NEXT ROW«, l3=0x0d}
0x057…06b Line {l1=0x12, l2=»0145 PRINT "<S>**"«, l3=0x12}
0x06b…081 Line {l1=0x14, l2=»0150 FOR COL=1 TO 24«, l3=0x14}
0x081…095 Line {l1=0x12, l2=»0160 CURSOR 79,COL«, l3=0x12}
0x095…0c1 Line {l1=0x2a, l2=»0170 IF COL<10 OR COL>14 THEN PRINT "<S>*"«, l3=0x2a}
0x0c1…0d0 Line {l1=0x0d, l2=»0180 NEXT COL«, l3=0x0d}
0x0d0…0ef Line {l1=0x1d, l2=»0190 FOR ROW=68 TO 1 STEP -11«, l3=0x1d}
0x0ef…103 Line {l1=0x12, l2=»0200 CURSOR ROW,24«, l3=0x12}
0x103…120 Line {l1=0x1b, l2=»0210 PRINT "<S>***********"«, l3=0x1b}
0x120…12f Line {l1=0x0d, l2=»0220 NEXT ROW«, l3=0x0d}
0x12f…14d Line {l1=0x1c, l2=»0230 FOR COL=24 TO 2 STEP -1«, l3=0x1c}
0x14d…160 Line {l1=0x11, l2=»0240 CURSOR 1,COL«, l3=0x11}
0x160…173 Line {l1=0x11, l2=»0250 PRINT "<S>*"«, l3=0x11}
0x173…182 Line {l1=0x0d, l2=»0260 NEXT COL«, l3=0x0d}
0x182…190 Line {l1=0x0c, l2=»0270 REPEAT «, l3=0x0c}
0x190…19f Line {l1=0x0d, l2=»0280 YDELTA=1«, l3=0x0d}
0x19f…1ae Line {l1=0x0d, l2=»0290 XDELTA=1«, l3=0x0d}
0x1ae…1b8 Line {l1=0x08, l2=»0300 Z=0«, l3=0x08}
0x1b8…1d1 Line {l1=0x17, l2=»0310 X=INT(RND(Z)*75+2)«, l3=0x17}
0x1d1…1ea Line {l1=0x17, l2=»0320 Y=INT(RND(Z)*20+2)«, l3=0x17}
0x1ea…1f8 Line {l1=0x0c, l2=»0330 REPEAT «, l3=0x0c}
0x1f8…223 Line {l1=0x29, l2=»0340 IF X>78.5 OR X<2 THEN XDELTA=-XDELTA«, l3=0x29}
0x223…24c Line {l1=0x27, l2=»0350 IF Y>23 OR Y<2 THEN YDELTA=-YDELTA«, l3=0x27}
0x24c…27e Line {l1=0x30, l2=»0360 IF X=79 AND (Y=>9.5 AND Y<=14.5) THEN EXIT «, l3=0x30}
0x27e…28f Line {l1=0x0f, l2=»0370 CURSOR X,Y«, l3=0x0f}
0x28f…2a0 Line {l1=0x0f, l2=»0380 Y=Y+YDELTA«, l3=0x0f}
0x2a0…2b1 Line {l1=0x0f, l2=»0390 X=X+XDELTA«, l3=0x0f}
0x2b1…2c1 Line {l1=0x0e, l2=»0400 UNTIL 0=1«, l3=0x0e}
0x2c1…2d4 Line {l1=0x11, l2=»0410 CURSOR 65,12«, l3=0x11}
0x2d4…2f3 Line {l1=0x1d, l2=»0420 PRINT "<S>M A A L !"«, l3=0x1d}
0x2f3…30a Line {l1=0x15, l2=»0430 FOR VENT=1 TO 10«, l3=0x15}
0x30a…31a Line {l1=0x0e, l2=»0440 NEXT VENT«, l3=0x0e}
0x31a…32d Line {l1=0x11, l2=»0450 CURSOR 65,12«, l3=0x11}
0x32d…349 Line {l1=0x1a, l2=»0460 PRINT " ."«, l3=0x1a}
0x349…359 Line {l1=0x0e, l2=»0470 UNTIL 0=1«, l3=0x0e}
0x359…360 00 00 00 00 00 00 00 ┆ ┆
0x360…380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]