home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / trac / timesht.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-29  |  2.9 KB  |  68 lines
  1. 1  REM ================================================================
  2. 2  REM == This program was written to use the form capability of the ==
  3. 3  REM == Epson FX-80 printer. The form that will be created by this ==
  4. 4  REM == program is used as a TIMESHEET for Mashell Telephone Co..  ==
  5. 5  REM == The program is simple and straigth  forward and  can  be   ==
  6. 6  REM == altered to create any number of form designs.              ==
  7. 7  REM ================================================================
  8. 9  '
  9. 10  '
  10. 40  WIDTH "lpt1:",125
  11. 50  LPRINT CHR$(27)"1";CHR$(27)"U1";
  12. 150  LPRINT CHR$(27)":"CHR$(0)CHR$(0)CHR$(0);
  13. 250  LPRINT CHR$(27)"%"CHR$(1)CHR$(0);
  14. 350  LPRINT CHR$(27)"&"CHR$(0)"al";
  15. 450  FOR Y = 1 TO 12:LPRINT CHR$(139);
  16. 550  FOR X = 1 TO 11:READ C:LPRINT CHR$(C);:NEXT
  17. 650  NEXT Y
  18. 757  LPRINT CHR$(27)"1";CHR$(27)"p1";
  19. 1000  LPRINT "                                                                           lllll"
  20. 1050  LPRINT "ajjffjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjfjjffjjblajjb"
  21. 1053  FOR I= 1 TO 31
  22. 1055  LPRINT "k  kk  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  kk  klk  k"
  23. 1056  LPRINT "k  kk  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  kk  klk  k"
  24. 1150  LPRINT "gjjiijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjiijjhlk  k"
  25. 1155  NEXT
  26. 1160  LPRINT "gjjiijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjiijjhlllll"
  27. 1445  FOR I = 1 TO 4
  28. 1450  LPRINT "k  kk  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  kk  klk  k"
  29. 1455  NEXT
  30. 1470  LPRINT "gjjiijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjiijjhlk  k"
  31. 1500  FOR I = 1 TO 4
  32. 1505  LPRINT "k  kk  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  kk  klk  k"
  33. 1506  NEXT
  34. 1510  LPRINT "gjjiijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjiijjhlk  k"
  35. 1545  FOR I = 1 TO 4
  36. 1550  LPRINT "k  kk  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  kk  klk  k"
  37. 1555  NEXT
  38. 1570  LPRINT "gjjiijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjijjiijjhlk  k"
  39. 1575  FOR I = 1 TO 10
  40. 1580  LPRINT "k  kk  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  kk  klk  k"
  41. 1585  NEXT
  42. 1650  LPRINT "djjeejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjejjeejjcldjjc"
  43. 1660  LPRINT "                                                                           lllll"
  44. 1670  LPRINT:LPRINT:LPRINT
  45. 1675  LPRINT CHR$(27)"!@"
  46. 1750  LPRINT CHR$(27)"@":STOP
  47. 1850  '<< line graphics shading>>
  48. 1950  DATA 0,0,0,0,15,0,8,0,8,0,8:
  49. 2050  DATA 8,0,8,0,15,0,0,0,0,0,0:
  50. 2150  DATA 8,0,8,0,120,0,0,0,0,0,0:
  51. 2250  DATA 0,0,0,0,120,0,8,0,8,0,8:
  52. 2350  DATA 8,0,8,0,120,0,8,0,8,0,8:
  53. 2450  DATA 8,0,8,0,15,0,8,0,8,0,8:
  54. 2550  DATA 0,0,0,0,127,0,8,0,8,0,8:
  55. 2650  DATA 8,0,8,0,127,0,0,0,0,0,0:
  56. 2750  DATA 8,0,8,0,127,0,8,0,8,0,8:
  57. 2850  DATA 8,0,8,0,8,0,8,0,8,0,8:
  58. 2950  DATA 0,0,0,0,127,0,0,0,0,0,0:
  59. 3050  DATA 84,0,170,0,84,0,170,0,84,0,170:
  60. 3150  DATA 0,121,0,73,0,73,0,73,0,79,0:
  61. 3250  DATA 0,127,0,65,0,65,0,65,0,127,0:
  62. 3350  DATA 0,63,64,8,64,8,64,28,64,32,0:
  63. 3450  DATA 0,32,64,0,64,63,64,0,64,32,0:
  64. 3550  DATA 0,126,1,2,4,8,4,2,1,126,0:
  65. 3650  DATA 7,8,16,36,64,36,16,8,7,0,0:
  66. 3750  DATA 127,0,72,0,72,0,76,2,121,0,0:
  67. 3850  DATA 62,65,8,65,8,65,28,65,34,0,0:
  68.