home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / graphic3 / blimp.bas < prev    next >
BASIC Source File  |  1985-11-26  |  2KB  |  53 lines
  1. 10 DIM A(2000)
  2. 20 DIM C(2000)
  3. 30 DIM B(2000)
  4. 35 CLS:INPUT;" What message";L$
  5. 37 F$ = "               "+L$+".............."
  6. 40 IF L$ = "" THEN L$ = "-----introducing ... THE-IBM-personal-computer------"
  7. 50 SCREEN 1,0:COLOR 0,0:KEY OFF
  8. 60 CLS
  9. 70 GET (1,1)-(45,30),B
  10. 80 FOR G =5 TO 1 STEP -1
  11. 90 CIRCLE (130,83),80,2,,,G*.1
  12. 100 IF G/2-INT(G/2)>0 THEN PAINT (130,80),1,2
  13. 110 IF G/2-INT(G/2)<.01 THEN PAINT (130,80),3,2
  14. 120 NEXT G
  15. 130 LINE (124,120)-(138,126),2,BF
  16. 140 DRAW"c2br74bu10nu66br1nu66nl34u66l34run
  17. 150 PAINT (192,54),3,2
  18. 160 LOCATE 11,14:PRINT"  IBM   "
  19. 170 CIRCLE(100,10),6,3,1,4.1
  20. 180 CIRCLE(107,10),7,3,1,2.1
  21. 190 CIRCLE(104,15),6,3,3,4.3
  22. 200 CIRCLE(114,10),7,3,1,2.1
  23. 210 CIRCLE(114,12),8,3,0,1.1
  24. 220 CIRCLE(114,13),8,3,4.6,0
  25. 230 CIRCLE(107,15),8,3,3.7,5.7
  26. 240 CIRCLE(100,17),4,3,2.7,4.7
  27. 250 CIRCLE(94,13),4,,3,3.7,2.7
  28. 260 PAINT(100,10),3,3
  29. 270 GET (80,1)-(130,22),A
  30. 280 PUT (80,1),B,PSET
  31. 290 LINE (0,190)-(320,190),1
  32. 310 PAINT(22,192),1,1
  33. 315 LINE(0,190)-(27,158),1
  34. 320 LINE(56,191)-(35,151),1
  35. 330 LINE(29,162)-(27,158),1
  36. 340 LINE(29,162)-(35,151),1
  37. 350 PAINT(15,182),1,1
  38. 352 GET (0,191)-(56,150),C
  39. 360 FOR I = 1 TO 380
  40. 370 GOSUB 420
  41. 380 PUT (I,1),B,OR
  42. 385 PUT (I,150),C,PSET
  43. 390 IF I > 28 THEN PUT (I-28,1),A,PSET
  44. 392 IF I > 128 THEN PUT (I-128,21),A,PSET
  45. 400 IF I > 2 THEN LOCATE 11,11:PRINT R$
  46. 410 NEXT I
  47. 420 R$ = MID$(F$,I,14)
  48. 421 IF R$ = ".............." THEN F$ = F$ + L$+"..............":IF LEN(F$)> 210 THEN 35
  49. 430 FOR T = 1 TO 50:NEXT T'TIMER FOR LETTERS
  50. 440 RETURN
  51. 450 PAINT (1,1),3
  52. 460 PUT (80,2),B,PSET
  53.