|
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: 1248 (0x4e0)
Notes: Mikados TextFile, Mikados_K
Names: »BALLON«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─ ⟦this⟧ »BALLON«
0010 REM BALLONOPSTIGNING 0020 G=21 0030 H=12 0040 N=23 0050 DEF RADIAN(DEGREES)=DEGREES*(2*3.141592/360) 0060 DEF SINUS(ANGLE)=SIN(RADIAN(ANGLE))*25+G 0070 DEF COSINUS(ANGLE)=COS(RADIAN(ANGLE))*10+H 0080 CLEAR 0085 REPEAT 0088 PRINT TAB(55);"Ballonopstigning." 0090 FOR B=1 TO 5 0100 G=G+5 0110 FOR V=1 TO 360 STEP 2 0120 CURSOR SINUS(V),COSINUS(V) 0130 PRINT "<S>";"*" 0140 NEXT V 0150 NEXT B 0160 FOR J=1 TO 11 0170 CURSOR 36,J 0180 PRINT "<S>";"ø" 0190 LET N=N-1 0200 CURSOR 36,N 0210 PRINT "<S>";"ø" 0220 NEXT J 0230 FOR K=1 TO 71 0240 IF K=36 THEN 0250 K=K+1 0260 ENDIF 0270 CURSOR K,12 0280 PRINT "<S>";"-" 0290 NEXT K 0300 FOR L=1 TO 11 0310 FOR M=1 TO 100 0320 REM VENTETID 0330 NEXT M 0340 CASE L OF 0350 CURSOR 36,12 0360 PRINT " " 0370 WHEN 1,3,5,7,9,11 0380 CURSOR 36,12 0390 PRINT "*" 0400 ENDCASE 0410 NEXT L 0420 O=RND(-1) 0430 FOR N=1 TO 24 0440 FOR P=1 TO 100 0450 REM VENTE 0460 NEXT P 0470 O=RND(0)*20 0480 O=O+20 0490 CURSOR O,24 0500 PRINT "ü^ ` @ø # üü $ ..,Æ )" 0510 NEXT N 0520 FOR Q=1 TO 25 0530 PRINT 0540 NEXT Q 0550 LET G=21;H=12;N=23 0560 CLEAR 0565 UNTIL 1=0 0570 END