home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
37.dms
/
37.adf
/
biga5.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
990b
|
25 lines
500 scnclr
505 c = 1 :pena c
510 draw (100,150 to 100,145 to 105,145 to 150,50 to 145,50)
515 draw (145,50 to 145,45 to 175,45 to 175,50 to 170,50 to 185,145)
520 draw (185,145 to 190,145 to 190,150 to 170,150 to 170,145)
525 draw (170,145 to 175,145 to 168,100 to 136,100)
530 draw (136,100 to 115,145 to 120,145 to 120,150 to 100,150)
535 draw (100,150 to 95,148 to 95,143 to 100,143 to 145,50)
540 draw (145,50 to 140,48 to 140,43 to 170,43 to 175,45)
545 draw (95,143 to 100,145)
550 draw (145,45 to 140,43)
555 draw (115,143 to 120,145)
560 draw (100,143 to 105,145)
565 draw (170,150 to 165,148 to 165,143 to 170,143 to 163,100)
570 draw (170,143 to 175,145)
575 draw (166,90 to 162,60 to 155,60 to 141,90 to 166,90)
580 draw (185,143 to 190,145)
585 draw (161,88 to 157,60)
590 draw (161,88 to 142,88)
595 draw (161,88 to 166,90)
600 draw (165,143 to 170,145)
605 paint (10,10)
610 c = c + 1 : pena c : if c = 31 then end
615 goto 510