home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / inst / indexlbl.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-07-06  |  2.1 KB  |  82 lines
  1. 100  '         _____________________________________________________
  2. 200  '
  3. 300  '         If you find this progam useful send $5.00 to cover
  4. 400  '         the cost of development and as an inducement to write
  5. 500  '         more programs for Public Domain use.
  6. 600  '         SEND TO:
  7. 700  '                  STEPHEN M. FRISBY
  8. 800  '                  1021 COLLEGE DR. APT. 2045
  9. 900  '                  TEXARKANA, TEXAS  75503
  10. 1000  '        _____________________________________________________
  11. 1100  '
  12. 1200  SCREEN 0,1,0,0
  13. 1300  COLOR 7,1
  14. 1400  CLS
  15. 1500  COLOR 0,11
  16. 1600  FOR R=1 TO 5
  17. 1700  FOR C=1 TO 41:PRINT" ";:NEXT C:PRINT""
  18. 1800  NEXT R
  19. 1900  LOCATE 1,1
  20. 2000  PRINT
  21. 2100  PRINT"  FILL IN LABLE BLOCK WITH DESIRED DATA:"
  22. 2200  PRINT"  BACKSPACE KEY MAY BE USED:"
  23. 2300  PRINT"  ALL SPACES MUST BE FILLED:"
  24. 2400  LOCATE 8,35:COLOR 7,0:PRINT"LABLE BLOCK"
  25. 2500  COLOR 0,14:LOCATE 13,55:PRINT" HOME KEY=ERASE "
  26. 2600  COLOR 6,1
  27. 2700  LOCATE 10,30:PRINT CHR$(201);
  28. 2800  FOR T=1 TO 19:PRINT CHR$(205);:NEXT
  29. 2900  PRINT CHR$(187)
  30. 3000  FOR T=1 TO 5
  31. 3100  LOCATE 10+T,30:PRINT CHR$(186):LOCATE 10+T,50:PRINT CHR$(186)
  32. 3200  NEXT
  33. 3300  LOCATE 16,30:PRINT CHR$(200);
  34. 3400  FOR T=1 TO 19:PRINT CHR$(205);:NEXT
  35. 3500  PRINT CHR$(188)
  36. 3600  COLOR 2,1
  37. 3700  FOR ROW=1 TO 5
  38. 3800  LOCATE 10+ROW,33
  39. 3900  FOR COL=1 TO 15:PRINT"-";:NEXT COL
  40. 4000  NEXT ROW
  41. 4100  COLOR 7,1
  42. 4200  LOCATE 11,33
  43. 4300  FOR R=1 TO 5
  44. 4400  A$=INKEY$
  45. 4500  IF A$=CHR$(0)+"G" THEN CLEAR:GOTO 3600
  46. 4600  IF LEFT$(A$,1)=CHR$(0) THEN GOTO 4400
  47. 4700  IF R<6 THEN GOSUB 7800
  48. 4800  IF A$="" THEN 4400
  49. 4900  IF A$=CHR$(8) THEN GOTO 7300
  50. 5000  IF A$=CHR$(13) THEN GOTO 4400
  51. 5100  A$(R)=A$(R)+A$
  52. 5200  PRINT A$;
  53. 5300  IF R=5 AND LEN(A$(5))=15 THEN LOCATE 20,20                                      :PRINT"*** PREPARE PRINTER, HIT ENTER KEY ***":GOTO 5600
  54. 5400  IF LEN(A$(R))=15 THEN LOCATE 11+R,33:C=1:NEXT R
  55. 5500  GOTO 4400
  56. 5600  A$=INKEY$
  57. 5700  IF A$=CHR$(13) THEN 5900
  58. 5800  GOTO 5600
  59. 5900  LOCATE 20,20:PRINT"***   PRINTING LABLE AT THIS TIME    ***"
  60. 6000  E$=CHR$(27)
  61. 6100  LPRINT E$;CHR$(69);
  62. 6200  FOR T=1 TO 5
  63. 6300  LPRINT E$;CHR$(14);
  64. 6400  LPRINT A$(T)
  65. 6500  NEXT
  66. 6600  LOCATE 22,4:PRINT"  *** do you want to Make another, Print this one or Quit M/P/Q ***"
  67. 6700  A$=INKEY$
  68. 6800  IF A$="M" THEN LPRINT"":CLEAR:LOCATE 20,20:PRINT SPC(40):LOCATE 22,4            :PRINT SPC(75):GOTO 3600
  69. 6900  IF A$="P" THEN LPRINT"":GOTO 5900
  70. 7000  IF A$="Q" THEN LPRINT:FOR T=1 TO 5:LPRINT:NEXT:COLOR 7,0:CLS:END
  71. 7100  GOTO 6700
  72. 7200  END
  73. 7300  IF LEN(A$(R))=0 THEN GOTO 4400
  74. 7400  LOCATE 10+R,33+LEN(A$(R))-1:COLOR 2,1:PRINT"--";:COLOR 7,1
  75. 7500  LOCATE 10+R,33+LEN(A$(R))-1
  76. 7600  A$(R)=LEFT$(A$(R),LEN(A$(R))-1)
  77. 7700  GOTO 4400
  78. 7800  LOCATE 10+R,LEN(A$(R))+33:COLOR 11,1:PRINT CHR$(178)
  79. 7900  LOCATE 10+R,LEN(A$(R))+33
  80. 8000  COLOR 7,1
  81. 8100  RETURN
  82.