home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug179.arc / LABEL.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  4KB  |  100 lines

  1. 10 REM  **************************************************
  2. 20 REM  **************************************************
  3. 30 REM  ***                                            ***
  4. 40 REM  ***    LABEL PROGRAM  ---- HARRY HAWKINS      ***
  5. 50 REM  ***                                            ***
  6. 60 REM  ***            OCT  1983               ***
  7. 70 REM  ***                           ***
  8. 80 REM  ***    1. 4 LINE LABELS,   30 CHAR/LABEL      ***
  9. 90 REM  ***                           ***
  10. 100 REM ***    2. FLUSH  LEFT  OR CENTERED LINES      ***
  11. 110 REM ***                           ***
  12. 120 REM ***    3. CONFIGURED FOR THE OSBORNE EXEC     ***
  13. 130 REM ***                           ***
  14. 140 REM **************************************************
  15. 150 REM **************************************************
  16. 160 REM
  17. 170 REM CHR$(26) *****  CLEARS SCREEN *****
  18. 180 REM
  19. 190 PRINT CHR$(26)
  20. 200 PRINT"       D A T A    L A B E L    P R O G R A M "
  21. 210 PRINT
  22. 220 PRINT"NOTE:  RETURN ONLY WILL ENTER A BLANK LINE."
  23. 230 PRINT
  24. 240 PRINT"ENTER DATA FOR LINE #1 (MAX 30 CHARACTERS)"::LINE INPUT A$
  25. 250 IF LEN(A$)>30 THEN PRINT"LINE TOO LONG":GOTO 240
  26. 260 PRINT CHR$(26)
  27. 270 PRINT"ENTER DATA FOR LINE #2 (MAX 30 CHARACTERS)":LINE INPUT B$
  28. 280 IF LEN(B$)>30 THEN PRINT"LINE TOO LONG":GOTO 270
  29. 290 PRINT CHR$(26)
  30. 300 PRINT"ENTER DATA FOR LINE #3 (MAX 30 CHARACTERS)":LINE INPUT C$
  31. 310 IF LEN(C$)>30 THEN PRINT "LINE TOO LONG":GOTO 300
  32. 320 PRINT CHR$(26)
  33. 330 PRINT"ENTER DATA FOR LINE #4 (MAX 30 CHARACTERS)":LINE INPUT D$
  34. 340 IF LEN(D$)>30 THEN PRINT "LINE TOO LONG":GOTO 330
  35. 350 PRINT CHR$(26)
  36. 360 INPUT "DO YOU WANT PRINTED (P) OR VIDEO (V) OUTPUT?";Z$
  37. 370 IF Z$="P" OR Z$="V" THEN GOTO 380 ELSE PRINT"ENTER P OR V ONLY":GOTO 360
  38. 380 PRINT CHR$(26)
  39. 390 INPUT "DO YOU WANT CENTERED LINES ? <Y OR N>";X$
  40. 400 IF X$="Y" OR X$="N" THEN GOTO 410 ELSE PRINT"ENTER ONLY Y OR N.":GOTO 390
  41. 410 IF X$="Y" AND Z$="P" THEN GOTO 450:REM CENTERED AND PRINTED
  42. 420 IF X$="N" AND Z$="P" THEN GOTO 560:REM FLUSH LEFT AND PRINTED
  43. 430 IF X$="N" AND Z$="V" THEN GOTO 710:REM FLUSH LEFT AND VIDEO
  44. 440 IF X$="Y" AND Z$="V" THEN GOTO 850: REM CENTERED AND VIDEO
  45. 450 PRINT CHR$(26): REM   ***** PRINTED AND CENTERED LABELS *****
  46. 460 INPUT "HOW MANY LABELS DO YOU WANT?";N
  47. 470 FOR Q=1 TO N
  48. 480 LPRINT SPC((34-LEN(A$))/2);A$
  49. 490 LPRINT SPC((34-LEN(B$))/2);B$
  50. 500 LPRINT SPC((34-LEN(C$))/2);C$
  51. 510 LPRINT SPC((34-LEN(D$))/2);D$
  52. 520 LPRINT:LPRINT
  53. 530 NEXT Q
  54. 540 GOTO 660
  55. 550 REM
  56. 560 PRINT CHR$(26): REM   ***** FLUSH LEFT AND PRINTED LABELS *****
  57. 570 REM
  58. 580 INPUT "HOW MANY LABELS DO YOU WANT?";N
  59. 590 FOR Q=1 TO N
  60. 600 LPRINT SPC(10);A$
  61. 610 LPRINT SPC(10);B$
  62. 620 LPRINT SPC(10);C$
  63. 630 LPRINT SPC(10);D$
  64. 640 LPRINT:LPRINT
  65. 650 NEXT Q
  66. 660 INPUT "TO END TYPE <E>, TO RUN MORE OF THE SAME LABELS TYPE <M>";E$
  67. 670 IF E$="E" OR E$="M" THEN GOTO 680 ELSE PRINT "ENTER ONLY E OR M":GOTO 660
  68. 680 IF E$="M" AND X$="N" THEN GOTO 560
  69. 690 IF E$="M" AND X$="Y" THEN GOTO 460 ELSE 980
  70. 700 REM
  71. 710 PRINT CHR$(26):REM   ***** FLUSH LEFT VIDEO DISPLAY OF A LABEL *****
  72. 720 REM
  73. 730 PRINT" THE LABEL YOU DESIGNED WILL LOOK LIKE THE ONE SHOWN BELOW "
  74. 740 PRINT:PRINT:PRINT:PRINT
  75. 750 PRINT"Line #1      ";A$
  76. 760 PRINT"Line #2      ";B$
  77. 770 PRINT"Line #3      ";C$
  78. 780 PRINT"Line #4      ";D$
  79. 790 PRINT:PRINT:PRINT:PRINT
  80. 800 INPUT "TO END TYPE <E>, TO PRINT THIS LABEL TYPE <P>.";F$
  81. 810 IF F$="E" OR F$="P" THEN GOTO 820 ELSE PRINT"ENTER ONLY E OR P":GOTO 800
  82. 820 IF F$="E" THEN GOTO 980
  83. 830 IF F$="P" THEN GOTO 560
  84. 840 REM
  85. 850 PRINT CHR$(26): REM    ***** SHOW CENTERED LABEL ON VIDEO  *****
  86. 860 REM
  87. 870 PRINT"THE LABEL YOU DESIGNED WILL LOOK LIKE THE ONE BELOW "
  88. 880 PRINT:PRINT:PRINT:PRINT
  89. 890 PRINT"Line #1      "; SPC((34-LEN(A$))/2);A$
  90. 900 PRINT"Line #2      "; SPC((34-LEN(B$))/2);B$
  91. 910 PRINT"Line #3      "; SPC((34-LEN(C$))/2);C$
  92. 920 PRINT"Line #4      "; SPC((34-LEN(D$))/2);D$
  93. 930 PRINT:PRINT:PRINT:PRINT
  94. 940 INPUT "TO END TYPE <E>, TO PRINT THIS LABEL ENTER <P>.";G$
  95. 950 IF G$="E" OR G$="P" THEN GOTO 960 ELSE PRINT"ENTER ONLY E OR P":GOTO 940
  96. 960 IF G$="E" THEN 980
  97. 970 GOTO 450
  98. 980 END
  99. 
  100. 950 IF G$="E" OR G$="P" THEN GOTO 960 ELSE PRI