home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / kpgraph.lbr / GRAP4.BZS / GRAP4.BAS
Encoding:
BASIC Source File  |  1993-10-26  |  768 b   |  38 lines
  1. $INCLUDE GRAPH1
  2. CLEAR.SCREEN
  3. VAR Q, S, V1, H1, RADIUS = INTEGER
  4. VAR NAME = STRING
  5. FOR S = 1 TO 12
  6. IF S = 1 THEN NAME = "TERRY"
  7. IF S = 2 THEN NAME = "TOMMY"
  8. IF S = 3 THEN NAME = "BARRY"
  9. IF S = 4 THEN NAME = "SUSAN"
  10. IF S = 5 THEN NAME = "SHELBY"
  11. IF S = 6 THEN NAME = "CHRIS "
  12. IF S = 7 THEN NAME = "TERRY"
  13. IF S = 8 THEN NAME = "TOMMY"
  14. IF S = 9 THEN NAME = "BARRY"
  15. IF S = 10 THEN NAME = "SUSAN"
  16. IF S = 11 THEN NAME = "SHELBY"
  17. IF S = 12 THEN NAME = "CHRIS "
  18. V1 = 44
  19. H1 = 80
  20. RADIUS = 8
  21. POSITION 11,38
  22. PRINT NAME
  23. POSITION 12,40
  24. FOR Q = 1 TO 10
  25. CIRCLE V1,H1,RADIUS
  26. RADIUS = RADIUS + 4
  27. NEXT Q
  28. V1 = 1
  29. H1 = 1
  30. FOR Q = 1 TO 13250
  31. PIXOFF V1,H1
  32. H1 = H1+1
  33. IF H1 => 150 THEN V1=V1+1
  34. IF H1 => 150 THEN H1=1
  35. NEXT Q
  36. NEXT S
  37. NEXT_VIEW
  38.