|
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)
Types: TextFile
Notes: Mikados_K
Names: »BALLON.K«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »BALLON.K«
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
0x000…01b Line {l1=0x19, l2=»0010 REM BALLONOPSTIGNING«, l3=0x19}
0x01b…026 Line {l1=0x09, l2=»0020 G=21«, l3=0x09}
0x026…031 Line {l1=0x09, l2=»0030 H=12«, l3=0x09}
0x031…03c Line {l1=0x09, l2=»0040 N=23«, l3=0x09}
0x03c…06f Line {l1=0x31, l2=»0050 DEF RADIAN(DEGREES)=DEGREES*(2*3.141592/360)«, l3=0x31}
0x06f…09e Line {l1=0x2d, l2=»0060 DEF SINUS(ANGLE)=SIN(RADIAN(ANGLE))*25+G«, l3=0x2d}
0x09e…0cf Line {l1=0x2f, l2=»0070 DEF COSINUS(ANGLE)=COS(RADIAN(ANGLE))*10+H«, l3=0x2f}
0x0cf…0dc Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x0dc…0ea Line {l1=0x0c, l2=»0085 REPEAT «, l3=0x0c}
0x0ea…112 Line {l1=0x26, l2=»0088 PRINT TAB(55);"Ballonopstigning."«, l3=0x26}
0x112…125 Line {l1=0x11, l2=»0090 FOR B=1 TO 5«, l3=0x11}
0x125…131 Line {l1=0x0a, l2=»0100 G=G+5«, l3=0x0a}
0x131…14d Line {l1=0x1a, l2=»0110 FOR V=1 TO 360 STEP 2«, l3=0x1a}
0x14d…16e Line {l1=0x1f, l2=»0120 CURSOR SINUS(V),COSINUS(V)«, l3=0x1f}
0x16e…184 Line {l1=0x14, l2=»0130 PRINT "<S>";"*"«, l3=0x14}
0x184…191 Line {l1=0x0b, l2=»0140 NEXT V«, l3=0x0b}
0x191…19e Line {l1=0x0b, l2=»0150 NEXT B«, l3=0x0b}
0x19e…1b2 Line {l1=0x12, l2=»0160 FOR J=1 TO 11«, l3=0x12}
0x1b2…1c4 Line {l1=0x10, l2=»0170 CURSOR 36,J«, l3=0x10}
0x1c4…1da Line {l1=0x14, l2=»0180 PRINT "<S>";"ø"«, l3=0x14}
0x1da…1ea Line {l1=0x0e, l2=»0190 LET N=N-1«, l3=0x0e}
0x1ea…1fc Line {l1=0x10, l2=»0200 CURSOR 36,N«, l3=0x10}
0x1fc…212 Line {l1=0x14, l2=»0210 PRINT "<S>";"ø"«, l3=0x14}
0x212…21f Line {l1=0x0b, l2=»0220 NEXT J«, l3=0x0b}
0x21f…233 Line {l1=0x12, l2=»0230 FOR K=1 TO 71«, l3=0x12}
0x233…247 Line {l1=0x12, l2=»0240 IF K=36 THEN «, l3=0x12}
0x247…253 Line {l1=0x0a, l2=»0250 K=K+1«, l3=0x0a}
0x253…260 Line {l1=0x0b, l2=»0260 ENDIF «, l3=0x0b}
0x260…272 Line {l1=0x10, l2=»0270 CURSOR K,12«, l3=0x10}
0x272…288 Line {l1=0x14, l2=»0280 PRINT "<S>";"-"«, l3=0x14}
0x288…295 Line {l1=0x0b, l2=»0290 NEXT K«, l3=0x0b}
0x295…2a9 Line {l1=0x12, l2=»0300 FOR L=1 TO 11«, l3=0x12}
0x2a9…2be Line {l1=0x13, l2=»0310 FOR M=1 TO 100«, l3=0x13}
0x2be…2d1 Line {l1=0x11, l2=»0320 REM VENTETID«, l3=0x11}
0x2d1…2de Line {l1=0x0b, l2=»0330 NEXT M«, l3=0x0b}
0x2de…2ef Line {l1=0x0f, l2=»0340 CASE L OF «, l3=0x0f}
0x2ef…302 Line {l1=0x11, l2=»0350 CURSOR 36,12«, l3=0x11}
0x302…312 Line {l1=0x0e, l2=»0360 PRINT " "«, l3=0x0e}
0x312…32a Line {l1=0x16, l2=»0370 WHEN 1,3,5,7,9,11«, l3=0x16}
0x32a…33d Line {l1=0x11, l2=»0380 CURSOR 36,12«, l3=0x11}
0x33d…34d Line {l1=0x0e, l2=»0390 PRINT "*"«, l3=0x0e}
0x34d…35c Line {l1=0x0d, l2=»0400 ENDCASE «, l3=0x0d}
0x35c…369 Line {l1=0x0b, l2=»0410 NEXT L«, l3=0x0b}
0x369…379 Line {l1=0x0e, l2=»0420 O=RND(-1)«, l3=0x0e}
0x379…38d Line {l1=0x12, l2=»0430 FOR N=1 TO 24«, l3=0x12}
0x38d…3a2 Line {l1=0x13, l2=»0440 FOR P=1 TO 100«, l3=0x13}
0x3a2…3b2 Line {l1=0x0e, l2=»0450 REM VENTE«, l3=0x0e}
0x3b2…3bf Line {l1=0x0b, l2=»0460 NEXT P«, l3=0x0b}
0x3bf…3d1 Line {l1=0x10, l2=»0470 O=RND(0)*20«, l3=0x10}
0x3d1…3de Line {l1=0x0b, l2=»0480 O=O+20«, l3=0x0b}
0x3de…3f0 Line {l1=0x10, l2=»0490 CURSOR O,24«, l3=0x10}
0x3f0…415 Line {l1=0x23, l2=»0500 PRINT "ü^ ` @ø # üü $ ..,Æ )"«, l3=0x23}
0x415…422 Line {l1=0x0b, l2=»0510 NEXT N«, l3=0x0b}
0x422…436 Line {l1=0x12, l2=»0520 FOR Q=1 TO 25«, l3=0x12}
0x436…443 Line {l1=0x0b, l2=»0530 PRINT «, l3=0x0b}
0x443…450 Line {l1=0x0b, l2=»0540 NEXT Q«, l3=0x0b}
0x450…469 Line {l1=0x17, l2=»0550 LET G=21;H=12;N=23«, l3=0x17}
0x469…476 Line {l1=0x0b, l2=»0560 CLEAR «, l3=0x0b}
0x476…486 Line {l1=0x0e, l2=»0565 UNTIL 1=0«, l3=0x0e}
0x486…491 Line {l1=0x09, l2=»0570 END «, l3=0x09}
0x491…4a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x4a0…4c0 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 ┆ ┆
[…0x1…]