home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / SCRNCODE.ZIP / FIRE1.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-09-30  |  4.0 KB  |  111 lines
  1. 8000 REM   Screen Code (input subroutine)
  2. 8010 COLOR 8,2
  3. 8020 LOCATE  4, 7 : PRINT USING "\        \";$
  4. 8030 LOCATE  4,26 : PRINT USING "\        \";$
  5. 8040 LOCATE  4,45 : PRINT USING "\        \";$
  6. 8050 LOCATE  4,64 : PRINT USING "\         \";$
  7. 8060 LOCATE  4, 7 : INPUT; "",variable$
  8. 8070 LOCATE  4,26 : INPUT; "",variable$
  9. 8080 LOCATE  4,45 : INPUT; "",variable$
  10. 8090 LOCATE  4,64 : INPUT; "",variable$
  11. 8100 RETURN
  12. 9000 REM   Screen Code (print subroutine)
  13. 9010 COLOR 7,0
  14. 9020 LOCATE  1, 1 : PRINT "┌──────────────────────────────────────────────────────────────────────────────┐";
  15. 9030 LOCATE  2, 1 : PRINT "│";
  16. 9040 LOCATE  2,27 : PRINT "EQUIPMENT    INVENTORY";
  17. 9050 LOCATE  2,80 : PRINT "│";
  18. 9060 LOCATE  3, 1 : PRINT "├───┬──────────────┬───┬──────────────┬───┬──────────────┬───┬─────────────────┤";
  19. 9070 LOCATE  4, 1 : PRINT "│ IN│";
  20. 9080 LOCATE  4,20 : PRINT "│OUT│";
  21. 9090 LOCATE  4,39 : PRINT "│ IN│";
  22. 9100 LOCATE  4,58 : PRINT "│OUT│";
  23. 9110 LOCATE  4,80 : PRINT "│";
  24. 9120 LOCATE  5, 1 : PRINT "│   │";
  25. 9130 LOCATE  5,20 : PRINT "│   │";
  26. 9140 LOCATE  5,39 : PRINT "│   │";
  27. 9150 LOCATE  5,58 : PRINT "│   │";
  28. 9160 LOCATE  5,80 : PRINT "│";
  29. 9170 LOCATE  6, 1 : PRINT "│   │";
  30. 9180 LOCATE  6,20 : PRINT "│   │";
  31. 9190 LOCATE  6,39 : PRINT "│   │";
  32. 9200 LOCATE  6,58 : PRINT "│   │";
  33. 9210 LOCATE  6,80 : PRINT "│";
  34. 9220 LOCATE  7, 1 : PRINT "│   │";
  35. 9230 LOCATE  7,20 : PRINT "│   │";
  36. 9240 LOCATE  7,39 : PRINT "│   │";
  37. 9250 LOCATE  7,58 : PRINT "│   │";
  38. 9260 LOCATE  7,80 : PRINT "│";
  39. 9270 LOCATE  8, 1 : PRINT "│   │";
  40. 9280 LOCATE  8,20 : PRINT "│   │";
  41. 9290 LOCATE  8,39 : PRINT "│   │";
  42. 9300 LOCATE  8,58 : PRINT "│   │";
  43. 9310 LOCATE  8,80 : PRINT "│";
  44. 9320 LOCATE  9, 1 : PRINT "│   │";
  45. 9330 LOCATE  9,20 : PRINT "│   │";
  46. 9340 LOCATE  9,39 : PRINT "│   │";
  47. 9350 LOCATE  9,58 : PRINT "│   │";
  48. 9360 LOCATE  9,80 : PRINT "│";
  49. 9370 LOCATE 10, 1 : PRINT "│   │";
  50. 9380 LOCATE 10,20 : PRINT "│   │";
  51. 9390 LOCATE 10,39 : PRINT "│   │";
  52. 9400 LOCATE 10,58 : PRINT "│   │";
  53. 9410 LOCATE 10,80 : PRINT "│";
  54. 9420 LOCATE 11, 1 : PRINT "│   │";
  55. 9430 LOCATE 11,20 : PRINT "│   │";
  56. 9440 LOCATE 11,39 : PRINT "│   │";
  57. 9450 LOCATE 11,58 : PRINT "│   │";
  58. 9460 LOCATE 11,80 : PRINT "│";
  59. 9470 LOCATE 12, 1 : PRINT "│   │";
  60. 9480 LOCATE 12,20 : PRINT "│   │";
  61. 9490 LOCATE 12,39 : PRINT "│   │";
  62. 9500 LOCATE 12,58 : PRINT "│   │";
  63. 9510 LOCATE 12,80 : PRINT "│";
  64. 9520 LOCATE 13, 1 : PRINT "│   │";
  65. 9530 LOCATE 13,20 : PRINT "│   │";
  66. 9540 LOCATE 13,39 : PRINT "│   │";
  67. 9550 LOCATE 13,58 : PRINT "│   │";
  68. 9560 LOCATE 13,80 : PRINT "│";
  69. 9570 LOCATE 14, 1 : PRINT "│   │";
  70. 9580 LOCATE 14,20 : PRINT "│   │";
  71. 9590 LOCATE 14,39 : PRINT "│   │";
  72. 9600 LOCATE 14,58 : PRINT "│   │";
  73. 9610 LOCATE 14,80 : PRINT "│";
  74. 9620 LOCATE 15, 1 : PRINT "│   │";
  75. 9630 LOCATE 15,20 : PRINT "│   │";
  76. 9640 LOCATE 15,39 : PRINT "│   │";
  77. 9650 LOCATE 15,58 : PRINT "│   │";
  78. 9660 LOCATE 15,80 : PRINT "│";
  79. 9670 LOCATE 16, 1 : PRINT "│   │";
  80. 9680 LOCATE 16,20 : PRINT "│   │";
  81. 9690 LOCATE 16,39 : PRINT "│   │";
  82. 9700 LOCATE 16,58 : PRINT "│   │";
  83. 9710 LOCATE 16,80 : PRINT "│";
  84. 9720 LOCATE 17, 1 : PRINT "│   │";
  85. 9730 LOCATE 17,20 : PRINT "│   │";
  86. 9740 LOCATE 17,39 : PRINT "│   │";
  87. 9750 LOCATE 17,58 : PRINT "│   │";
  88. 9760 LOCATE 17,80 : PRINT "│";
  89. 9770 LOCATE 18, 1 : PRINT "│   │";
  90. 9780 LOCATE 18,20 : PRINT "│   │";
  91. 9790 LOCATE 18,39 : PRINT "│   │";
  92. 9800 LOCATE 18,58 : PRINT "│   │";
  93. 9810 LOCATE 18,80 : PRINT "│";
  94. 9820 LOCATE 19, 1 : PRINT "│   │";
  95. 9830 LOCATE 19,20 : PRINT "│   │";
  96. 9840 LOCATE 19,39 : PRINT "│   │";
  97. 9850 LOCATE 19,58 : PRINT "│   │";
  98. 9860 LOCATE 19,80 : PRINT "│";
  99. 9870 LOCATE 20, 1 : PRINT "│   │";
  100. 9880 LOCATE 20,20 : PRINT "│   │";
  101. 9890 LOCATE 20,39 : PRINT "│   │";
  102. 9900 LOCATE 20,58 : PRINT "│   │";
  103. 9910 LOCATE 20,80 : PRINT "│";
  104. 9920 LOCATE 21, 1 : PRINT "│   │";
  105. 9930 LOCATE 21,20 : PRINT "│   │";
  106. 9940 LOCATE 21,39 : PRINT "│   │";
  107. 9950 LOCATE 21,58 : PRINT "│   │";
  108. 9960 LOCATE 21,80 : PRINT "│";
  109. 9970 LOCATE 22, 1 : PRINT "└───┴──────────────┴───┴──────────────┴───┴──────────────┴───┴─────────────────┘";
  110. 9980 RETURN
  111.