segunda-feira, 11 de maio de 2009

Turbo Basic

Estava vendo uns códigos antigos, e vou postar esse que fiz em 1995 num PC-XT monitor fósforo verde, no Turbo Basic. Nessa época eu fazia eletrônica no Senai e ouvia heavy metal diariamente. Esse programa desenha o logo do Iron Maiden.

5 REM
10 REM ***********************
15 REM * *
20 REM * THIAGO FRANÇA *
30 REM * SOFTWARE *
40 REM * DATA: 18/01/95 *
45 REM * *
50 REM ***********************
55 REM
60 KEY OFF:CLS:SCREEN 2
65 PSET(80,10):DRAW"D50 R20 U50 L20"
70 PSET(110,10):DRAW"D50 R20 U10 F25 E10 H20 E15 H20 G10 U10 L20"
75 PSET(134,30):DRAW"G7 R15 H7"
80 PSET(200,10):DRAW"G42 F10 R65 E10 H42"
85 PSET(202,30):DRAW"G20 R40 H20"
90 PSET(240,10):DRAW"F10 D40 R20 U30 F15 D20 F17 U72 L20 D15 H15 L27"
95 PSET(80,85):DRAW"F10 D40 R20 U35 F10 E10 D40 F17 U58 H15 G10 H9 L32"
100 PSET(215,85):DRAW"L20 G18 H10 G10 F10 G13 F10 E15 F15 R25 U51 L3"
105 PSET(200,98):DRAW"G10 F10 U20"
110 PSET(230,85):DRAW"D50 R20 U50 L20"
115 PSET(260,85):DRAW"D50 R50 E15 H35 L30"
120 PSET(278,95):DRAW"D30 R30 H30"
125 PSET(330,85):DRAW"D40 F10 R40 U10 L30 U10 R30 U10 L30 U10 R30 U10 L50"
130 PSET(390,85):DRAW"F10 D40 R20 U30 F15 D20 F17 U72 L20 D15 H15 L27"

Nenhum comentário:

Postar um comentário