home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FOURVOIC.DSK / INFOCOM.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  69 lines
  1. 10  HGR 
  2. 20  HCOLOR= 3
  3. 30  FOR A = 10 TO 15: HPLOT A,9 TO A,26: NEXT A
  4. 40  HPLOT 11,8 TO 14,8
  5. 50  HPLOT 11,27 TO 14,27
  6. 60  FOR A = 18 TO 38: HPLOT A,8 TO A,12: NEXT A
  7. 70  FOR A = 18 TO 23: HPLOT A,8 TO A,26: NEXT A
  8. 80  HPLOT 19,27 TO 22,27
  9. 90  FOR A = 34 TO 39: HPLOT A,9 TO A,26
  10. 100  NEXT A
  11. 110  HPLOT 35,27 TO 38,27
  12. 120  FOR A = 43 TO 47: HPLOT A,8 TO A,26: NEXT A: HPLOT 43,27 TO 46,27: HPLOT 42,9 TO 42,26
  13. 130  FOR A = 43 TO 63: HPLOT A,8 TO A,12: NEXT A: HPLOT 64,9 TO 64,11
  14. 140  FOR A = 43 TO 63: HPLOT A,15 TO A,19: NEXT A: HPLOT 64,16 TO 64,18
  15. 150  FOR A = 67 TO 72: HPLOT A,13 TO A,22: NEXT A
  16. 160  FOR A = 83 TO 88: HPLOT A,13 TO A,22: NEXT A
  17. 170  FOR A = 73 TO 82: HPLOT A,8 TO A,12: NEXT A
  18. 180  FOR A = 73 TO 82: HPLOT A,22 TO A,26: NEXT A
  19. 190  FOR A = 0 TO 2
  20. 200  HPLOT 67 +A,11 TO 71,8 +A
  21. 210  HPLOT 88 -A,11 TO 84,8 +A
  22. 220  HPLOT 67 +A,24 TO 71,26 -A
  23. 230  HPLOT 88 -A,24 TO 84,26 -A
  24. 240  NEXT A
  25. 250  HPLOT 72,8 TO 72,12
  26. 260  HPLOT 67,12 TO 72,12
  27. 270  HPLOT 72,23 TO 67,23
  28. 280  HPLOT 72,23 TO 72,26
  29. 290  HPLOT 83,8 TO 83,12 TO 88,12
  30. 300  HPLOT 88,23 TO 83,23 TO 83,26
  31. 310  FOR A = 96 TO 111: HPLOT A,8 TO A,12: NEXT A: HPLOT 112,9 TO 112,11
  32. 320  FOR A = 91 TO 95: HPLOT A,13 TO A,21: NEXT A
  33. 330  FOR A = 96 TO 111: HPLOT A,22 TO A,26: NEXT A: HPLOT 112,23 TO 112,25
  34. 340  FOR A = 0 TO 2
  35. 350  HPLOT 91 +A,11 TO 94,8 +A
  36. 360  HPLOT 91 +A,23 TO 94,26 -A
  37. 365  NEXT A
  38. 370  HPLOT 91,22 TO 95,22: HPLOT 91,12 TO 95,12
  39. 380  HPLOT 95,8 TO 95,26
  40. 390  HCOLOR= 0: HPLOT 0,27 TO 279,27
  41. 400  HPLOT 10,26: HPLOT 15,26
  42. 410  HPLOT 18,26: HPLOT 23,26
  43. 420  HPLOT 39,26: HPLOT 34,26
  44. 430  HCOLOR= 3
  45. 440  FOR A = 67 +48 TO 72 +48: HPLOT A,13 TO A,22: NEXT A
  46. 450  FOR A = 83 +48 TO 88 +48: HPLOT A,13 TO A,22: NEXT A
  47. 460  FOR A = 73 +48 TO 82 +48: HPLOT A,8 TO A,12: NEXT A
  48. 470  FOR A = 73 +48 TO 82 +48: HPLOT A,22 TO A,26: NEXT A
  49. 480  FOR A = 0 TO 2
  50. 490  HPLOT 67 +48 +A,11 TO 71 +48,8 +A
  51. 500  HPLOT 88 +48 -A,11 TO 84 +48,8 +A
  52. 510  HPLOT 67 +48 +A,24 TO 71 +48,26 -A
  53. 520  HPLOT 88 +48 -A,24 TO 84 +48,26 -A
  54. 530  NEXT A
  55. 540  HPLOT 72 +48,8 TO 72 +48,12: HPLOT 67 +48,12 TO 72 +48,12: HPLOT 72 +48,23 TO 67 +48,23: HPLOT 72 +48,23 TO 72 +48,26: HPLOT 83 +48,8 TO 83 +48,12 TO 88 +48,12: HPLOT 88 +48,23 TO 83 +48,23 TO 83 +48,26
  56. 550  FOR A = 139 TO 160: HPLOT A,8 TO A,12: NEXT A
  57. 560  FOR A = 139 TO 144: HPLOT A,8 TO A,25: NEXT A: HPLOT 140,26 TO 143,26
  58. 570  FOR A = 147 TO 152: HPLOT A,8 TO A,25: NEXT A: HPLOT 148,26 TO 151,26
  59. 580  FOR A = 0 TO 5: HPLOT A +155,12 TO A +159,25: NEXT A
  60. 590  HCOLOR= 0: FOR A = 0 TO 5: HPLOT 159 +A,8 TO 168 +A,25: NEXT A
  61. 600  HCOLOR= 3: HPLOT 163,26 TO 165,26
  62. 610  HCOLOR= 0: HPLOT 160,8
  63. 620  HPLOT 159,8
  64. 630  HPLOT 158,8
  65. 640  HPLOT 40,26 TO 50,26
  66. 650  HCOLOR= 3: HPLOT 43,26 TO 46,26
  67. 660  HPLOT 164,26 TO 161,26
  68. 670  HCOLOR= 0: HPLOT 165,26
  69. 680  HCOLOR= 3: HPLOT 160,26