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