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