home *** CD-ROM | disk | FTP | other *** search
/ Personal Computing Magazine 1988 September / SEPT_1988 / PDBASIC / SELECTP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-01-01  |  1.8 KB  |  67 lines
  1. 10  REM SELECTP  -  PAYROLL  V PC4.0  06.04.1987
  2. 20  REM MICRO-AID COPYRIGHT 1985
  3. 30  REM 25 FORE STREET, PRAZE, CAMBORNE, CORNWALL, TR14 0JX
  4. 50  :
  5. 70  SCREEN 0,1,0:WIDTH 80:COLOR 1,7,3
  6. 80  KEY OFF
  7. 90  ON ERROR GOTO 1000
  8. 100  CLS
  9. 110  PRINT:PRINT:PRINT:PRINT:PRINT:TEXT$ = "MICRO-AID" : GOSUB 2000 :PRINT: TEXT$ = "25 Fore Street, Praze, Camborne, Cornwall. TR14 0JX" : GOSUB 2000 : PRINT   :PRINT
  10. 115  TEXT$="EXTENDED PAYROLL (c)":GOSUB 2000:PRINT
  11. 120  PRINT:TEXT$="Select option for PC computers":GOSUB 2000:PRINT
  12. 130  COLOR 4
  13. 140  PRINT:TEXT$="0  -  END - PRESS ANY KEY":GOSUB 2000:PRINT:TEXT$="1  -  PAYE1  DATABASE    ":GOSUB 2000:PRINT:TEXT$="2  -  PAYE2  PAYROLL RUN":GOSUB 2000
  14. 150  GOSUB 5000:GOSUB 6000:COLOR 1
  15. 160  Q$=INKEY$:IF Q$="" THEN 160
  16. 180  A%=VAL(Q$):IF A%<0 OR A%>2 THEN 160
  17. 190  CLS
  18. 210  IF A%=1 THEN RUN "PAYE1"
  19. 220  IF A%=2 THEN RUN "PAYE2"
  20. 230  SCREEN 0,0,0:SYSTEM
  21. 1000  CLS:PRINT:PRINT "AN ERROR HAS BEEN FOUND AS FOLLOWS:_":PRINT:
  22. 1010  PRINT "PROGRAM LINE "ERL
  23. 1020  PRINT "ERROR TYPE "ERR
  24. 1030  PRINT
  25. 1040  IF ERR=53 THEN PRINT "FILE NOT FOUND - CHECK THAT THE CORRECT DISC IS IN DRIVE A":PRINT:PRINT "THE FILES ON THE DISC ARES AS FOLLOWS:-":PRINT:FILES:PRINT:PRINT STRING$(80,"_"):PRINT
  26. 1050  PRINT:PRINT"Press any key to continue ";
  27. 1055  G$=INKEY$:IF G$="" THEN 1055
  28. 1060  CLS:RESUME 120
  29. 2000  PRINT TAB(((80-LEN(TEXT$))/2));TEXT$
  30. 2010  RETURN
  31. 5000  REM Draw a double box
  32. 5020  R1=1:C1=1:R2=24:C2=79
  33. 5040  COLOR 2
  34. 5050  FOR I=R1+1 TO R2-1
  35. 5060   LOCATE I,C1:PRINT CHR$(186);
  36. 5070   LOCATE I,C2:PRINT CHR$(186);
  37. 5080  NEXT I
  38. 5090  FOR J=C1+1 TO C2-1
  39. 5100   LOCATE R1,J:PRINT CHR$(205);
  40. 5110   LOCATE R2,J:PRINT CHR$(205);
  41. 5120  NEXT J
  42. 5130   LOCATE R1,C1:PRINT CHR$(201);
  43. 5140   LOCATE R1,C2:PRINT CHR$(187);
  44. 5150   LOCATE R2,C1:PRINT CHR$(200);
  45. 5160   LOCATE R2,C2:PRINT CHR$(188);
  46. 5170  COLOR 0
  47. 5180  P$="Enter choice to proceed, 1 or 2, or press any key to abort.":GOSUB 6200
  48. 5190  RETURN
  49. 6000  REM draw a single box
  50. 6010  TITLE.POS=40-INT(LEN(TEXT$)/2)
  51. 6020  R1=16:C1=TITLE.POS-2:R2=22:C2=TITLE.POS+LEN(TEXT$)+1:GOSUB 6030
  52. 6030  COLOR 1
  53. 6040  FOR I=R1+1 TO R2-1
  54. 6050   LOCATE I,C1:PRINT CHR$(179);
  55. 6060   LOCATE I,C2:PRINT CHR$(179);
  56. 6070  NEXT I
  57. 6080  FOR J=C1+1 TO C2-1
  58. 6090   LOCATE R1,J:PRINT CHR$(196);
  59. 6100   LOCATE R2,J:PRINT CHR$(196);
  60. 6110  NEXT J
  61. 6120   LOCATE R1,C1:PRINT CHR$(218);
  62. 6130   LOCATE R1,C2:PRINT CHR$(191);
  63. 6140   LOCATE R2,C1:PRINT CHR$(192);
  64. 6150   LOCATE R2,C2:PRINT CHR$(217);
  65. 6160  RETURN
  66. 6200  COLOR 14,0:LOCATE 25,2:PRINT STRING$(78," ");:LOCATE 25,2:PRINT TAB((78-LEN(P$))/2)P$;:COLOR 1,7:RETURN
  67.