home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug055.arc / LABELS.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  4KB  |  148 lines
  1.  
  2.  75 PRINT CHR$(12)
  3. 100 ' DISK LABEL GENERATING PROGRAM,
  4. 101 '    BILL BOLTON, Software Tools, Australia
  5. 102 '    27/May/80
  6. 103 '
  7. 105 GOSUB 6000                'SET PRINTER TO DAISY
  8. 110 GOSUB 3000                'CLEAR SCREEN
  9. 120 '
  10. 130 PRINT TAB(24);
  11. 140 GOSUB 3030                'SET REVERSE VIDEO
  12. 150 '
  13. 160 PRINT " DISK LABEL PRINTING PROGRAM ";
  14. 170 '
  15. 180 GOSUB 3060                'CLEAR REVERSE VIDEO
  16. 190 PRINT
  17. 200 PRINT
  18. 210 GOSUB 1110                'PRINT THE FIRST PROMPT
  19. 220 GOSUB 1150                'PRINT THE SECOND PROMPT
  20. 230 GOSUB 1190                'PRINT THE THIRD PROMPT
  21. 240 GOSUB 1230                'PRINT THE FOURTH PROMPT
  22. 250 PRINT
  23. 260 GOSUB 4000                          'DISPLAY THE COMPLETE LABEL
  24. 270 '
  25. 280 LINE INPUT "Do you want to change a line ? (Y/N, CR = N) ";E$
  26. 290 '
  27. 300 IF E$="Y" OR E$="y" THEN 1000
  28. 310 PRINT
  29. 320 PRINT
  30. 330 '
  31. 340 LINE INPUT "Line up the label in your printer and press CR to print";Z$
  32. 350 '
  33. 360 LPRINT A$                           'PRINT THE FIRST LINE ON THE LABEL
  34. 370 LPRINT
  35. 380 LPRINT B$                           'PRINT THE SECOND LINE ON THE LABEL
  36. 390 LPRINT 
  37. 400 LPRINT C$                           'PRINT THE THIRD LINE ON THE LABEL
  38. 410 LPRINT 
  39. 420 LPRINT D$                           'PRINT THE FOURTH LINE ON THE LABEL
  40. 430 LPRINT
  41. 440 LPRINT
  42. 450 PRINT
  43. 460 PRINT
  44. 470 '
  45. 480 LINE INPUT "Another copy of the label ?  (Y/N, CR=N) ";F$
  46. 490 '
  47. 500 IF F$="Y" OR F$="y" THEN 260
  48. 510 PRINT
  49. 520 PRINT
  50. 530 '
  51. 540 LINE INPUT "Do you want to print a NEW label ?  (Y/N, CR=Y) ";G$
  52. 550 '
  53. 560 IF G$="N" OR G$="n" THEN GOTO 600 ELSE GOTO 110
  54. 600 GOSUB 3000
  55. 610 GOSUB 6100
  56. 620 'PRINT "Printer has been set to Daisywheel,
  57. 625 'PRINT "reset if necessary with STAT";CHR$(7)"
  58. 630 END
  59. 640 '
  60. 650 '
  61. 1000 PRINT
  62. 1010 PRINT
  63. 1020 PRINT
  64. 1030 INPUT "Which line do you want to change (1,2,3,4) ";L
  65. 1040 '
  66. 1050 IF L=1 THEN GOSUB 1110
  67. 1060 IF L=2 THEN GOSUB 1150
  68. 1070 IF L=3 THEN GOSUB 1190
  69. 1080 IF L=4 THEN GOSUB 1230
  70. 1090 IF L<1 OR L>4 THEN GOTO 2000 ELSE GOTO 260
  71. 1100 '
  72. 1110 PRINT
  73. 1120 LINE INPUT "Enter the first line  : ";A$
  74. 1130 RETURN
  75. 1140 '
  76. 1150 PRINT
  77. 1160 LINE INPUT "Enter the second line : ";B$
  78. 1170 RETURN
  79. 1180 '
  80. 1190 PRINT
  81. 1200 LINE INPUT "Enter the third line  : ";C$
  82. 1210 RETURN
  83. 1220 '
  84. 1230 PRINT
  85. 1240 LINE INPUT "Enter the fourth line : ";D$
  86. 1250 RETURN
  87. 1260 '
  88. 1270 '
  89. 2000 PRINT
  90. 2010 PRINT
  91. 2020 PRINT CHR$(7);            'RING THE TERMINAL BELL
  92. 2030 '
  93. 2040 GOSUB 3030                'SET REVERSE VIDEO
  94. 2050 '
  95. 2060 PRINT "*********    Answer 1 to 4 only, please    *********";
  96. 2070 '
  97. 2080 GOSUB 3060                'CLEAR REVERSE VIDEO
  98. 2090 PRINT
  99. 2100 PRINT
  100. 2110 GOSUB 5000                'DISPLAY CONTINUE MESSAGE
  101. 2120 GOSUB 4000                'DISPLAY COMPLETE LABLE
  102. 2130 GOTO 1010
  103. 2140 '
  104. 2150 '
  105. 3000 PRINT CHR$(27);CHR$(42)        'CLEAR SCREEN ROUTINE
  106. 3010 RETURN
  107. 3020 '
  108. 3030 PRINT CHR$(27);"G4";        'SET REVERSE VIDEO ROUTINE
  109. 3040 RETURN
  110. 3050 '
  111. 3060 PRINT CHR$(27);"G0";        'CLEAR REVERSE VIDEO ROUTINE
  112. 3070 RETURN
  113. 3080 '
  114. 3090 '
  115. 4000 GOSUB 3000                'CLEAR THE SCREEN
  116. 4010 PRINT "Your Disk Label will look like this :-
  117. 4020 PRINT
  118. 4030 PRINT
  119. 4040 PRINT A$                'DISPLAY THE FIRST LINE
  120. 4050 PRINT
  121. 4060 PRINT B$                'DISPLAY THE SECOND LINE
  122. 4070 PRINT
  123. 4080 PRINT C$                'DISPLAY THE THIRD LINE
  124. 4090 PRINT
  125. 4100 PRINT D$                'DISPLAY THE FOURTH LINE
  126. 4110 PRINT
  127. 4120 PRINT
  128. 4130 PRINT
  129. 4140 RETURN
  130. 4150 '
  131. 4160 '
  132. 5000 PRINT
  133. 5010 LINE INPUT "Hit 'Return' to continue";Z$
  134. 5020 RETURN
  135. 5030 '
  136. 5040 '
  137. 6000 IOBYTE = PEEK(3)
  138. 6010 MASK = 63
  139. 6020 DAISY = 64
  140. 6030 POKE 3,(DAISY + (IOBYTE AND MASK))
  141. 6040 RETURN
  142. 6050 '
  143. 6060 '
  144. 6100 POKE 3,IOBYTE
  145. 6110 RETURN
  146. 6120 '
  147. 6130 END
  148.