DataMuseum.dk

top - download

    Length: 992 (0x3e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »TVSPIL«

└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
    └─ ⟦this⟧ »TVSPIL« 

Text

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