home *** CD-ROM | disk | FTP | other *** search
/ Personal Computing Magazine 1988 September / SEPT_1988 / PDBASIC / TEXT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-01-01  |  3.9 KB  |  85 lines
  1. 10  REM TEXT
  2. 20  CLS:KEY OFF:SCREEN 0,0,0
  3. 30  VERSION$="Version 1.1a 20.06.1988"
  4. 40  TITLE$="Extended Payroll (PC)"
  5. 50  TITLE2$="Instructions for use of Payroll presented with PCA SEP 1988"
  6. 60  COPY1$="Copyright Colin Chatfield FIAP of Micro-Aid"
  7. 70  COPY1A$="and Roger Valentine of V & H Computer Services"
  8. 80  COPY2$="25 Fore St., Praze, Camborne, Cornwall. TR14 0JX  0209-831274"
  9. 90  R1=1:C1=1:R2=25:C2=79:GOSUB 550
  10. 100  TITLE.POS=40-INT(LEN(TITLE$)/2)
  11. 110  R1=3:C1=TITLE.POS-2:R2=6:C2=TITLE.POS+LEN(TITLE$)+1:GOSUB 700
  12. 120  LOCATE 4,TITLE.POS:PRINT TITLE$
  13. 130  LOCATE 5,40-INT(LEN(VERSION$)/2):PRINT VERSION$;
  14. 140  COPYRIGHT.POS=40-INT(LEN(COPY2$)/2)
  15. 150  R1=18:C1=COPYRIGHT.POS-2:R2=22:C2=COPYRIGHT.POS+LEN(COPY2$)+1:GOSUB 700
  16. 160  TITLE.POS=40-INT(LEN(TITLE2$)/2)
  17. 170  R1=11:C1=TITLE.POS-2:R2=15:C2=TITLE.POS+LEN(TITLE2$)+1:GOSUB 550
  18. 180  LOCATE 13,TITLE.POS:PRINT TITLE2$
  19. 190  LOCATE 19,40-INT(LEN(COPY1$)/2) :PRINT COPY1$;
  20. 200  LOCATE 20,40-INT(LEN(COPY1A$)/2):PRINT COPY1A$;
  21. 210  LOCATE 21,40-INT(LEN(COPY2$)/2) :PRINT COPY2$;
  22. 220  INPUT G$
  23. 230  CLS:R1=1:C1=1:R2=25:C2=79:GOSUB 550
  24. 240  LOCATE 2,3:COLOR 11:PRINT " Extended Payroll - Micro-Aid, 25 Fore St., Praze, Camborne, Cornwall."                                                        
  25. 250  LOCATE 4,3:COLOR 30:PRINT "COPYRIGHT":COLOR 15
  26. 260  LOCATE 5,3:PRINT"This program was originally written by Roger Valentine of V & H Computer":LOCATE 6,3:PRINT"Services and has been adapted under licence for the IBM PC and clones by":LOCATE 7,3:PRINT"Colin Chatfield FIAP of Micro-Aid."
  27. 270  LOCATE 9,3:PRINT"The supply of this British Payroll through the Public Domain means that you":LOCATE 10,3:PRINT"use this program for your own use and or that of one business only. Use in":LOCATE 11,3:PRINT"any other way is contrary to the copyright";
  28. 280  PRINT " law of the land and infringement":LOCATE 12,3:PRINT"will lead to vigorous prosecution.  Prosecution in the past has been":LOCATE 13,3:PRINT"successful because no doubt of the official nature of the program."
  29. 290  COLOR 14:LOCATE 15,3:PRINT "SUPPORT"
  30. 300  COLOR 15:LOCATE 16,3:PRINT"To print out the contract form set up your printer with a piece of A4 paper":LOCATE 17,3:PRINT"and press 'P' at the end of this screen page.  Complete the form and":LOCATE 18,3:PRINT"return it together with #25.00 which ";
  31. 310  PRINT"entitles you to a printed payroll":LOCATE 19,3:PRINT"manual and replacement discs when the government make changes to the":LOCATE 20,3:PRINT"regulations.  You may also ask for support by telephone if required for a"
  32. 320  LOCATE 21,3:PRINT"period of one year."
  33. 330  LOCATE 23,3:PRINT"Press 'P' for form or any key to continue with Extended Payroll ";
  34. 340  IF LEN(G$)=0 THEN G$=INKEY$:GOTO 340
  35. 350  IF INSTR("Pp",G$)THEN GOSUB 370
  36. 360  RUN"SELECTP"
  37. 370  CLS
  38. 380  CLS
  39. 390  PRINT"Update and Extended Payroll Annual Contract"
  40. 400  PRINT"To: Micro-Aid, 25 Fore Street, Praze, Camborne, Cornwall, TR14 0JX."
  41. 410  PRINT
  42. 420  PRINT "I/We the undersigned request that you send us a copy of the Extended Payroll":PRINT"manual for the IBM PC or clones and enter our company name for updates to the":PRINT"program during the following year."
  43. 430  PRINT"I/we acquired our copy of Extended Payroll through:":PRINT:PRINT STRING$(79,"."):PRINT
  44. 440  PRINT "Company Name ......................................................"
  45. 450  PRINT
  46. 460  PRINT"Address ..........................................................."
  47. 470  PRINT:PRINT"        .........................................................."
  48. 480  PRINT:PRINT"        .........................................................."
  49. 490  PRINT:PRINT"Post Code ........................Telephone Number............................"
  50. 500  PRINT:PRINT"I/we enclose payment of #25.00 for manual and contract."
  51. 510  PRINT:PRINT"Signed  ......................................................"
  52. 520  COLOR 30:PRINT"PrtSc";TAB(48)"DATABASE PUBLICATIONS SEP 1988";
  53. 530  G$="":IF LEN(G$)=0 THEN G$=INKEY$:GOTO 340
  54. 540  RETURN
  55. 550  COLOR 5
  56. 560  FOR I=R1+1 TO R2-1
  57. 570   LOCATE I,C1:PRINT CHR$(186);
  58. 580   LOCATE I,C2:PRINT CHR$(186);
  59. 590  NEXT I
  60. 600  FOR J = C1+1TO C2-1
  61. 610   LOCATE R1,J:PRINT CHR$(205);
  62. 620   LOCATE R2,J:PRINT CHR$(205);
  63. 630  NEXT J
  64. 640   LOCATE R1,C1:PRINT CHR$(201);
  65. 650   LOCATE R1,C2:PRINT CHR$(187);
  66. 660   LOCATE R2,C1:PRINT CHR$(200);
  67. 670   LOCATE R2,C2:PRINT CHR$(188);
  68. 680  COLOR 7
  69. 690  RETURN
  70. 700  COLOR 2
  71. 710  FOR I=R1+1 TO R2-1
  72. 720   LOCATE I,C1:PRINT CHR$(179);
  73. 730   LOCATE I,C2:PRINT CHR$(179);
  74. 740  NEXT I
  75. 750  FOR J=C1+1 TO C2-1
  76. 760   LOCATE R1,J:PRINT CHR$(196);
  77. 770   LOCATE R2,J:PRINT CHR$(196);
  78. 780  NEXT J
  79. 790   LOCATE R1,C1:PRINT CHR$(218);
  80. 800   LOCATE R1,C2:PRINT CHR$(191);
  81. 810   LOCATE R2,C1:PRINT CHR$(192);
  82. 820   LOCATE R2,C2:PRINT CHR$(217);
  83. 830  COLOR 7
  84. 840  RETURN
  85.