home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AD.ZIP / ADDELETE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-02-13  |  11.3 KB  |  237 lines
  1. 1  DEF SEG = &H40:POKE &H17, PEEK(&H17) AND 223:POKE &H17,0
  2. 5  ARR$=CHR$(17)+CHR$(196)+CHR$(217)
  3. 10  DIM DQ$(12):FOR I= 1 TO 12:READ DQ$(I):NEXT
  4. 20  DATA JANUARY, FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  5. 21  O3$=CHR$(218)+CHR$(196)+CHR$(191):O4$=CHR$(179)+" "+CHR$(179):O5$=CHR$(192)+CHR$(196)+CHR$(217)
  6. 22  O$=CHR$(219):O2$=CHR$(221):O1$="F KEYS:"+O$+O$+"F1:MAIN menu"+O2$+"F3:DELETE menu"+O2$+"F7:NAMES"+O2$+"F8:NOTES"+O2$+"F9:SAVE/cont"
  7. 25  DIM W$(14),B$(14),V$(16),V1$(16),Z(3),W(13)
  8. 35  FOR I=1 TO 13:READ W(I):NEXT
  9. 45  DATA 2,1,12,3,4,5,6,7,10,11,8,9,13
  10. 50  REM         TEMPORARY FILE
  11. 55  OPEN "TEMPOR.TEM" FOR INPUT AS #1
  12. 56  INPUT #1, FILE$,FILM$,FIL$:CLOSE #1:DIM ZK(40)
  13. 60  OPEN FILM$ FOR INPUT AS #3
  14. 70  INPUT #3,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$
  15. 72  FOR I=1 TO 36:INPUT #3, ZK(I):NEXT:CLOSE #3
  16. 75  SDEL=0:DIM D$(NN),D(NN)
  17. 85  OPEN FILE$ AS #4 LEN = 356
  18. 90  FIELD #4, 19 AS V$(1), 19 AS V$(2), 18 AS V$(13), 34 AS V$(12), 34 AS V$(3), 34 AS V$(4), 19 AS V$(5), 14 AS V$(6), 16 AS V$(7), 12 AS V$(8), 84 AS V$(9), 19 AS V$(10), 19 AS V$(11), 5 AS V$(14), 5 AS V$(15), 5 AS V$(16)
  19. 110  REM
  20. 111  ON ERROR GOTO 800
  21. 118  GOTO 190
  22. 120  A$="EDIT":Y1=2:GOTO 125
  23. 121  A$="SORT":Y1=4:GOTO 125
  24. 122  A$="SEARCH":Y1=5:GOTO 125
  25. 123  A$="PRINT":Y1=6:GOTO 125
  26. 124  A$="MAIN":Y1=1
  27. 125  IF SDEL=1 THEN CLS:LOCATE 1,70:COLOR 16,7:PRINT " WORKING ":COLOR 3,0:GOSUB 970:GOSUB 141
  28. 126  CLS:LOCATE 25,25:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 12,21:PRINT "PLEASE WAIT, LOADING ";A$;" ROUTINES"
  29. 127  A$="AD"+A$:RUN A$
  30. 136  CLS:COLOR 3,0,1:LOCATE  12,30:PRINT "QUIT?  <Y>es or <N>o?":COLOR 14,0:LOCATE 12,38:PRINT "Y":LOCATE 12,47:PRINT "N":COLOR 3,0
  31. 137  GOSUB 180
  32. 138  IF Y$="N" THEN 190
  33. 140  CLS:A$="d":GOSUB 970:LOCATE 12,30:PRINT "   GOODBYE   ":SYSTEM
  34. 141  GOSUB 5210
  35. 142  LOCATE 12,22:PRINT "Do you want to create a backup file?":LOCATE 14,33:PRINT " <Y>es or <N>o? " :COLOR 14,0:LOCATE 14,35:PRINT "Y":LOCATE 14,44:PRINT "N":COLOR 3,0
  36. 143  GOSUB 180
  37. 144  IF Y$="N" THEN CLS:RETURN ELSE GOSUB 970:CLOSE:CHAIN "ADFILES",10,ALL
  38. 170  A$="DELETE":Y1=3:GOSUB 141:RETURN 190
  39. 180  GOSUB 35040:DEF SEG=0: POKE 1050, PEEK(1052)
  40. 181  Y$=INKEY$:IF Y$="" THEN 181 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  41. 182  IF Y$="N" OR Y$="Y" THEN RETURN ELSE 180
  42. 190  ON KEY(1) GOSUB 124:ON KEY(2) GOSUB 120:KEY(1) ON:KEY(2) ON:ON KEY(3) GOSUB 190:KEY(3) ON:ON KEY(4) GOSUB 121:KEY(4) ON:ON KEY(5) GOSUB 122:KEY(5) ON:ON KEY(6) GOSUB 123: KEY(6) ON:ON KEY(7) GOSUB 20000:KEY(7) ON
  43. 191  ON KEY(8) GOSUB 4000:KEY(8) ON:ON KEY(9) GOSUB 170:KEY(9) ON
  44. 210   X1$="DELETE ":X3$="FILE = ":X5$="FUNCTION = ":X4$=SPACE$(26):Q$=CHR$(27)
  45. 220  GOSUB 5210
  46. 230  GET #4,NN+1:K1=VAL(V$(16)):IFIRST=K1:IEND=VAL(V$(14))
  47. 280  GOSUB 5300
  48. 349  DEF SEG=0: POKE 1050, PEEK(1052)
  49. 350  Y$=INKEY$:IF Y$="" THEN LOCATE 3,69:PRINT TIME$:GOTO 350 ELSE 353
  50. 353  IF LEN(Y$)=2 THEN 380
  51. 354  IF Y$="r" OR Y$="R" THEN 400
  52. 355  IF Y$="!" THEN S$="!":MX=NN:GOTO 382
  53. 360  IF Y$="S" OR Y$="s" THEN 600 ELSE GOSUB 35040:GOTO 349
  54. 380  IF ASC(RIGHT$(Y$,1))=68 THEN 30000
  55. 381  IF ASC(RIGHT$(Y$,1))=113 THEN 136 ELSE 190
  56. 382  GOSUB 5000:K=K1:II=1
  57. 383  GET #4,K
  58. 384  COLOR 14,0:LOCATE 3,16:PRINT II;SPACE$(4):LOCATE 5,5:AA$=SPACE$(50):FOR J=1 TO 7:PRINT AA$:NEXT :LOCATE 5,5:GOSUB 460
  59. 385  IF Y$="I" THEN K=VAL(V$(15)) ELSE 387
  60. 386  IF II=1  THEN II=NN:GOTO 383 ELSE II=II-1:GOTO 383
  61. 387  IF (Y$="N" OR Y$="n" OR Y$="Q")  THEN K=VAL(V$(14)) ELSE 389
  62. 388  IF II=NN THEN II=1:GOTO 383 ELSE II=II+1 :GOTO 383
  63. 389  IF Y$="G" THEN K=IFIRST:II=1:GOTO 383
  64. 390  IF Y$="=" THEN GOSUB 1100:GOTO 383
  65. 391  IF Y$="-" THEN GOSUB 1000:GOTO 385
  66. 392  IF Y$="+" THEN GOSUB 1000:GOTO 385
  67. 395  IF Y$="O" THEN GET #4,IFIRST:K=VAL(V$(15)):II=NN:GOTO 383
  68. 397  COLOR 3,0:GOTO 220
  69. 400  GOSUB 5200:LOCATE 1,1:PRINT "EDIT:  DELETE ...  ":LOCATE 5,28 :PRINT "ENTER:  ADDRESS  # & ";ARR$:
  70. 410  LOCATE 8,39:PRINT "OR":LOCATE 10,28:PRINT ARR$;"  return to DELETE menu"
  71. 411  GOSUB 35030:DEF SEG =&H40:POKE &H17,PEEK(&H17) OR 32:LOCATE 15,10:COLOR 14,0:INPUT "Address number ...",NUM:DEF SEG=&H40:POKE &H17,PEEK(&H17) AND 223:COLOR 3,0
  72. 415  IF NUM=0 OR NUM>NN THEN 220
  73. 420  IF NUM>NN THEN 390 ELSE GOSUB 5000
  74. 421  NZ=INT((NN/10)+0.5):FOR IZ=1 TO 10:IF NUM=<IZ*NZ THEN K=ZK(IZ+26):NZ=(IZ-1)*NZ:IZ=10
  75. 422  NEXT
  76. 423  IF NZ=0 THEN NZ=1
  77. 424  LOCATE 1,70:COLOR 16,7:PRINT " WORKING ":COLOR 3,0
  78. 430  FOR I=NZ TO NUM:GET #4,K:K=VAL(V$(14)):NEXT
  79. 435  LOCATE 1,70:PRINT SPACE$(9)
  80. 440  A1$=MID$(V$(2),5,VAL(V$(2)))
  81. 450  LOCATE 3,16:PRINT NUM:PRINT:PRINT:I=NUM:GOSUB 460:GOTO 220
  82. 460  GOSUB 5400
  83. 470  IF Y$="-" OR Y$="+" THEN RETURN
  84. 510  GOSUB 35040:DEF SEG=0: POKE 1050, PEEK(1052)
  85. 520  Y$=INKEY$:IF Y$="" THEN 520
  86. 521  DEF SEG=&H40:POKE  &H17,0
  87. 522  IF LEN(Y$)=2 THEN Y$=RIGHT$(Y$,1)
  88. 525  IF Y$="Y" OR Y$="y" THEN 543
  89. 526  IF (Y$="N" OR Y$="n" OR Y$="Q") THEN :RETURN
  90. 527  IF S$<>"!" THEN 510 ELSE IF Y$="r" OR Y$="R" THEN RETURN 190
  91. 530  IF Y$="=" THEN COLOR 14,0:LOCATE 21,20:PRINT "Jump to (1 - ";NN;" ) ... ";ARR$; ELSE 532
  92. 531  GOSUB 35030:DEF SEG =&H40:POKE &H17,PEEK(&H17) OR 32:INPUT NUM:DEF SEG=&H40:POKE &H17,PEEK(&H17) AND 223:RETURN
  93. 532  IF Y$="G" THEN RETURN
  94. 533  IF Y$="O" THEN RETURN
  95. 534  IF Y$="I" AND I>0 THEN RETURN
  96. 535  IF Y$="-" THEN COLOR 14,0:LOCATE 23,20:PRINT "GO back #? ";ARR$;:GOTO 537
  97. 536  IF Y$="+" THEN COLOR 14,0:LOCATE 23,20:PRINT "GO forward #? ";ARR$; ELSE 510
  98. 537  GOSUB 35030:DEF SEG =&H40:POKE &H17,PEEK(&H17) OR 32
  99. 538  INPUT " ",NI:JJ=I:I=NI:NI=ABS(NI):COLOR 3,0
  100. 539  IF ABS(NI)>NN THEN LOCATE 23,20:GOSUB 35030:PRINT "OUTSIDE DATA RANGE.  1 TO";NN;:FOR K=1 TO 900:NEXT:LOCATE 23,10:PRINT SPACE$(68):I=JJ:GOTO 510
  101. 540  DEF SEG=&H40:POKE &H17,PEEK(&H17) AND 223:LOCATE 23,10:PRINT SPACE$(65):LOCATE 23,21:COLOR 0,7:PRINT "Hit <Scroll Lock> to stop at a RECORD.":COLOR 3,0:RETURN
  102. 543  LOCATE 22,10:COLOR 14,0:PRINT "PLEASE CONFIRM BY ENTERING <OK>. ":Y$=INPUT$(2):IF Y$="OK" OR Y$="ok" OR Y$="Ok" THEN 550 ELSE LOCATE 22,10:PRINT SPACE$(35):GOTO 520
  103. 550  SDEL=1:LOCATE 22,10:PRINT "PLEASE WAIT, DELETING . . . ";:GOSUB 5500
  104. 551  A=0:A$=MID$(V$(2),5,1):IF IEND=VAL(V$(16)) THEN IEND=VAL(V$(15))
  105. 552  IF VAL(V$(16))<>NN THEN 555 ELSE L1=VAL(V$(14)):L2=VAL(V$(15)):Z$(2)=V$(15):Z$(1)=V$(14)
  106. 553  IF IFIRST=VAL(V$(16)) THEN IFIRST =L1:GOTO 577 ELSE 577
  107. 555  Z(1)=VAL(V$(14)):Z(2)=VAL(V$(15)):Z(3)=VAL(V$(16)):Z$(1)=V$(14):Z$(2)=V$(15):Z$(3)=V$(16):IF IFIRST=Z(3) THEN IFIRST = Z(1):IEND=Z(2)
  108. 556  IF IEND = NN THEN IEND =Z(3)
  109. 558  GET #4,Z(2):LSET V$(14)=Z$(1):LSET V$(16)=V$(16):LSET V$(15)=V$(15):FOR J=1 TO 13:LSET V$(J)=V$(J):NEXT:PUT #4,Z(2):IF A$=MID$(V$(2),5,1) THEN A=1
  110. 560  GET #4,Z(1):LSET V$(15)=Z$(2):LSET V$(14)=V$(14):LSET V$(16)=V$(16):FOR J=1 TO 13:LSET V$(J)=V$(J):NEXT:PUT #4,Z(1):IF A=1 THEN 565
  111. 562  IF A$=MID$(V$(2),5,1) THEN ZK(QK-64)=Z(1):A=2
  112. 565  GET #4,NN:LSET V$(16)=Z$(3):LSET V$(14)=V$(14):LSET V$(15)=V$(15):FOR J=1 TO 13:LSET V$(J)=V$(J):NEXT:L1=VAL(V$(14)):L2=VAL(V$(15)):L3=VAL(V$(16)):PUT #4,Z(3)
  113. 567  IF A1<>0 THEN 570 ELSE QK1=ASC(MID$(V$(2),5,1)):IF NN=ZK(QK1-64) THEN ZK(QK1-64)=Z(3)
  114. 570  GET #4,L1:LSET V$(15)=Z$(3):LSET V$(14)=V$(14):LSET V$(16)=V$(16):FOR J=1 TO 13:LSET V$(J)=V$(J):NEXT:PUT #4,L1
  115. 575  GET #4,L2:LSET V$(14)=Z$(3):LSET V$(16)=V$(16):LSET V$(15)=V$(15):FOR J=1 TO 13:LSET V$(J)=V$(J):NEXT:PUT #4,L2:GOTO 580
  116. 577  GET #4,L1:LSET V$(15)=Z$(2):LSET V$(14)=V$(14):LSET V$(16)=V$(16):FOR J=1 TO 13:LSET V$(J)=V$(J):NEXT:PUT #4,L1
  117. 578  GET #4,L2:LSET V$(14)=Z$(1):LSET V$(16)=V$(16):LSET V$(15)=V$(15):FOR J=1 TO 13:LSET V$(J)=V$(J):NEXT:PUT #4,L2
  118. 580  NMID=INT(NN/2+0.5):GET #4,NN+1:LSET V$(14)=STR$(IEND):LSET V$(16)=STR$(IFIRST):LSET V$(15)=STR$(NMID):FOR J=3 TO 13:LSET V$(J)=V$(J):NEXT:LSET V$(1) = DATE$:LSET V$(2) = TIME$:PUT #4,NN
  119. 585  MX=MX-1:NN=NN-1:LOCATE 22,1:PRINT SPACE$(70)
  120. 590  IF S$<>"!" THEN RETURN ELSE K=VAL(Z$(1)):RETURN 383
  121. 600  GOSUB 5200
  122. 610  LOCATE 1,1:PRINT "EDIT:  DELETE ...  ":LOCATE 5,28 :PRINT "ENTER:  SURNAME & ";ARR$:LOCATE 6,15:PRINT  "(full name or any part starting from left most character)"
  123. 620  LOCATE 8,39:PRINT "OR":LOCATE 10,28:PRINT ARR$;"  return to DELETE menu":LOCATE 15,10:COLOR 14,0:INPUT "SURNAME ... ",S$
  124. 630  MS=0:MM=LEN(S$): IF MM = 0 THEN 210
  125. 635  GOSUB 5200:GOSUB 5000:QK=ASC(LEFT$(S$,1)):IF QK>90 OR QK<65 THEN 790 ELSE K=ZK(QK-64)
  126. 636  IF K=0 THEN 790
  127. 637  LOCATE 1,70:COLOR 16,7:PRINT "WORKING ":COLOR 3,0
  128. 640  FOR IK=1 TO NN:GET #4,K
  129. 650  IF S$<>MID$(V$(2),5,MM) THEN 665
  130. 655  LOCATE 1,70:PRINT SPACE$(9)
  131. 660  MS=1:LOCATE 3,16:PRINT IK:LOCATE 5,5:AA$=SPACE$(50):FOR J=1 TO 5:PRINT AA$:NEXT :LOCATE 5,5:GOSUB 460:GOTO 668
  132. 665  IF ASC(MID$(V$(2),5,1))<>QK THEN 780
  133. 668  K=VAL(V$(14))
  134. 670  NEXT
  135. 780  IF MS=1 THEN 210
  136. 790  LOCATE 22,23:PRINT "Name cannot be found.  Try again.":FOR I= 1 TO 500:NEXT I: GOTO 600
  137. 800  IF ERL =4010 THEN CLS:LOCATE 10,15:PRINT "File containing KEYS used in NOTES does not exist.":LOCATE 12,22:PRINT "Return to EDIT program to create file." :LOCATE 18,30:PRINT "HIT ANY KEY TO CONTINUE":GOSUB 35030 ELSE 805
  138. 802  Y$=INKEY$:IF Y$="" THEN 802
  139. 803  RESUME 190
  140. 805  CLS:LOCATE 8,31: PRINT "ERROR ENCOUNTERED.":FOR I= 1 TO 300:NEXT
  141. 808  IF ERR = 61 THEN CLS:LOCATE 25,10:COLOR 1,7,0:PRINT "FILE = ";FILE$;SPACE$(10);"DISK FULL ":COLOR 7,1:LOCATE 1,1
  142. 810  IF ERR = 61 THEN LOCATE 10,35:PRINT "DISK FULL.":LOCATE 12,17:PRINT "LOAD FORMATTED DISK AND TYPE <CONT> AND RETURN.":COLOR 14,0:LOCATE 12,47:PRINT "CONT":BEEP:COLOR 3,0:STOP
  143. 820  IF ERR = 61 THEN RESUME 190
  144. 825  RESUME 190
  145. 970  Y$=LEFT$(A$,1)
  146. 972  OPEN FILM$ FOR OUTPUT AS #3
  147. 974  WRITE #3, Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$
  148. 975  FOR I=1 TO 36:WRITE #3, ZK(I):NEXT
  149. 978  CLOSE #3:RETURN
  150. 1000  IS=II:LOCATE 1,70:COLOR 16,7:PRINT " WORKING ":COLOR 3,0
  151. 1010  NII=ABS(NI):FOR NF = 1 TO NII
  152. 1015  DEF SEG=&H40:IF PEEK(&H17) AND 16 THEN 1070
  153. 1020  IF NI<0 OR Y$="-" THEN II=IS-NF:K=VAL(V$(15)):GET #4,K:GOTO 1025 ELSE K=VAL(V$(14)):GET #4,K:II=IS+NF
  154. 1025  IF II=<0 THEN II=NN+II
  155. 1026  IF II>NN THEN II=ABS(II-NN)
  156. 1030  COLOR 14,0:LOCATE 3,16:PRINT II;SPACE$(4):LOCATE 5,5:AA$=SPACE$(50):FOR J=1 TO 7:PRINT AA$:NEXT :LOCATE 5,5
  157. 1031  GOSUB 460:NEXT
  158. 1055  LOCATE 23,20:PRINT SPACE$(40)
  159. 1060  Y$="":LOCATE 1,70:PRINT SPACE$(9):GOTO 510
  160. 1070  LOCATE 23,20:PRINT SPACE$(40)
  161. 1080  Y$="":LOCATE 1,70:PRINT SPACE$(9):GOTO 510
  162. 1100  IF NUM=<0 OR NUM>NN THEN GOSUB 35040:LOCATE 21,20:PRINT "REENTER NUMBER BETWEEN 1 - ";NN;"  ";SPACE$(5) ELSE 1105
  163. 1103  GOSUB 35030:DEF SEG =&H40:POKE &H17,PEEK(&H17) OR 32:LOCATE 21,51:INPUT NUM:DEF SEG=&H40:POKE &H17,PEEK(&H17) AND 223
  164. 1105  IF NUM=<0 OR NUM>NN THEN 1100 ELSE LOCATE 21,20:PRINT SPACE$(50):LOCATE 22,20:PRINT SPACE$(58)
  165. 1110  IF ABS(NUM-II)<10 AND NUM-II<0 THEN NZ=II-1:K=VAL(V$(15)):GOTO 1190
  166. 1115  IF NUM-II<10 AND NUM-II >=0 THEN NZ=II+1:K=VAL(V$(14)):LOCATE 23,20:PRINT SPACE$(50):GOTO 1150
  167. 1120  NZ=INT((NN/10)+0.5):FOR IZ=1 TO 10:IF NUM=<IZ*NZ THEN K=ZK(IZ+26):NZ=(IZ-1)*NZ:IZ=10
  168. 1125  NEXT
  169. 1140  IF NZ=0 THEN NZ=1
  170. 1150  LOCATE 1,70:COLOR 16,7:PRINT " WORKING ":COLOR 3,0
  171. 1160  FOR II=NZ TO NUM-1:GET #4,K:K=VAL(V$(14)):NEXT
  172. 1170  LOCATE 1,70:PRINT SPACE$(9)
  173. 1180  RETURN
  174. 1190  LOCATE 23,20:PRINT SPACE$(50)
  175. 1195  LOCATE 1,70:COLOR 16,7:PRINT " WORKING ":COLOR 3,0
  176. 1200  FOR II=NZ TO NUM-1 STEP -1:GET #4,K:K=VAL(V$(15)):NEXT
  177. 1210  LOCATE 1,70:PRINT SPACE$(9):RETURN
  178. 4000  FILN$ =FIL$+".NTE"
  179. 4010  OPEN FILN$ FOR INPUT AS #2
  180. 4030  FOR I= 1 TO 20:INPUT #2, NKEY$(I),NOTE$(I):IF NKEY$(I)=CHR$(15) THEN 4035 ELSE NEXT
  181. 4035  NP=I-1:CLOSE #2
  182. 4040  GOSUB 5200
  183. 4050  LOCATE 1,1:PRINT "NOTES:  KEYS":LOCATE 1,30:COLOR 14,0:PRINT "KEYS       ";:COLOR 3,0:PRINT " DESCRIPTION":FOR I=1 TO NP:COLOR 14,0:LOCATE 4+I,30:PRINT NKEY$(I);:COLOR 3,0:LOCATE ,40:PRINT " = ";NOTE$(I):NEXT
  184. 4060  LOCATE 20,28:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE":GOSUB 35030
  185. 4065  Y$=INKEY$:IF Y$="" THEN 4065
  186. 4066  COLOR 3,0
  187. 4070  RETURN 190
  188. 5000  REM
  189. 5004  GOSUB 5200
  190. 5006  PRINT "EDIT:  DELETE ...":PRINT:PRINT TAB(5);"RECORD # "
  191. 5100  LOCATE 15,1:PRINT "OK TO DELETE?  <";:COLOR 14,0:PRINT "Y";:COLOR 3,0:PRINT ">es ":COLOR 3,0
  192. 5110  A=CSRLIN:IF S$="!" THEN LOCATE A,16:PRINT "<PgDn> or <N>o - next record.":LOCATE A,27:COLOR 14,0:PRINT "N" :LOCATE A,17:PRINT "PgDn" ELSE LOCATE A,16:PRINT "<N>o.":LOCATE A,17:COLOR 14,0:PRINT "N"
  193. 5120  IF S$<>"!" THEN RETURN ELSE COLOR 3,0:LOCATE A+1,16:PRINT "<PgUp> - previous record":LOCATE A+2,16:PRINT "<+> Scan forward ":COLOR 14,0:LOCATE A+1,17:PRINT "PgUp":LOCATE A+2,17:PRINT "+"
  194. 5125  COLOR 3,0:LOCATE A,54:PRINT "<Home> - First record.":LOCATE A,55:COLOR 14,0:PRINT "Home" :LOCATE A+1,54:COLOR 3,0:PRINT "<End> - Last record.":COLOR 14,0:LOCATE A+1,55:PRINT "End"
  195. 5126  COLOR 3,0:LOCATE A+2,54:PRINT "<-> Scan backward":LOCATE A+2,55:COLOR 14,0:PRINT "-":COLOR 3,0
  196. 5128  LOCATE A+3,16:PRINT "<=> Jump ":LOCATE A+3,17:COLOR 14,0:PRINT "=":COLOR 3,0
  197. 5130  LOCATE A+3,54:PRINT "<";:COLOR 14,0:PRINT "R";:COLOR 3,0:PRINT "> Return to Menu";:COLOR 14,0:PRINT "?":COLOR 3,0:RETURN ELSE RETURN
  198. 5200  CLS:LOCATE 25,1:COLOR 0,7,1:PRINT O1$;:COLOR 3,0:LOCATE 1,1:RETURN
  199. 5210  CLS:LOCATE 25,10:COLOR 1,7,1:PRINT X3$;FILE$;X4$;X5$;X1$;:COLOR 3,0:LOCATE 1,1:RETURN
  200. 5300  PRINT TAB(4);"EDIT - DELETE - MENU":PRINT:PRINT "CHOOSE ONE OF THE FOLLOWING:  "
  201. 5310  PRINT:COLOR 14,0
  202. 5320  PRINT "   ";CHR$(186);"     ";O3$:PRINT "   ";CHR$(186);"     ";O4$:PRINT "   ";CHR$(25);"     ";O5$:COLOR 3,0
  203. 5330  PRINT :PRINT TAB(4);"R)ecord number":PRINT TAB(4);"S)URNAME":PRINT TAB(4);"!)EXAMINE complete file"
  204. 5340  COLOR 14,0:LOCATE 9,4:PRINT "R":LOCATE 10,4:PRINT "S":LOCATE 11,4:PRINT "!
  205. 5350  COLOR 31,0:LOCATE 6,11:PRINT "?":COLOR 3,0
  206. 5355  LOCATE 17,40:PRINT " KEY F1 = Return to MAIN menu"
  207. 5360  LOCATE 18,40:COLOR 14,0:PRINT "     F3";:COLOR 3,0:PRINT " = Return to DELETE menu"
  208. 5370  LOCATE 19,40:PRINT "     F7 = List of names in Address Book"
  209. 5375  LOCATE 20,40:PRINT "     F8 = KEYS used in NOTES"
  210. 5380  LOCATE 21,40:PRINT "     F9 = Save/Continue"
  211. 5385  LOCATE 22,40:PRINT "    F10 = HELP"
  212. 5390  LOCATE 23,40:PRINT "ALT F10 = QUIT"
  213. 5395  LOCATE 1,67:PRINT "(C) 1983":LOCATE 2,62:PRINT "Date:  ";DATE$:LOCATE 3,62:PRINT "Time:  ":S$="":RETURN
  214. 5400  COLOR 11,0:LOCATE 5,1:PRINT SPACE$(60):LOCATE 5,1:PRINT TAB(10);MID$(V$(13),5,VAL(V$(13)));MID$(V$(1),5,VAL(V$(1)));" ";MID$(V$(2),5,VAL(V$(2)))
  215. 5410  LOCATE 6,1:FOR J= 3 TO 8:K=W(J)
  216. 5420  IF VAL(V$(K))=0 THEN 5425 ELSE PRINT TAB(10);MID$(V$(K),5,VAL(V$(K)));SPACE$(30)
  217. 5425  NEXT
  218. 5440  RETURN
  219. 5500  COLOR 14,0:PRINT MID$(V$(13),5,VAL(V$(13)));MID$(V$(1),5,VAL(V$(1)));" ";MID$(V$(2),5,VAL(V$(2))):RETURN
  220. 5510  FOR J= 3 TO 11:K=W(J):IF J>8 THEN JJ=J+2 ELSE JJ=J+1
  221. 5520  LOCATE JJ,15:PRINT D$(K);SPACE$(35-LEN(D$(K))):NEXT
  222. 5530  LOCATE 14,15:PRINT SPACE$(64):PRINT SPACE$(80):LOCATE 14,15:PRINT D$(9):RETURN
  223. 20000  GOSUB 970:A$="ADDELETE":CHAIN "ADNAME",20000,ALL
  224. 30000  CLS:LOCATE 25,25:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 1,1
  225. 30010  OPEN "AD.HLP" AS #2 LEN=78
  226. 30020  FIELD #2, 78 AS A$
  227. 30030  I=1:M=1
  228. 30040  GET #2,I
  229. 30090  IF LEFT$(A$,1) <> CHR$(15) THEN PRINT A$ :I=I+1:GOTO 30040 ELSE 30130
  230. 30130  LOCATE 24,27:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE";:COLOR 3,0:GOSUB 35030
  231. 30140  Y$=INKEY$:IF Y$="" THEN 30140
  232. 30150  CLOSE #2:GOTO 190
  233. 35000  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 4:SOUND 500*SS%,2:NEXT:RETURN
  234. 35010  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 3:SOUND 1000*SS%,1:NEXT:FOR SS%= 3 TO 1:SOUND 1000*SS%,1:NEXT:RETURN
  235. 35030  IF SND$="N" THEN RETURN ELSE SOUND 523.25,2:SOUND 30000,2:SOUND 523.25,2:RETURN
  236. 35040  IF SND$="N" THEN RETURN ELSE BEEP:RETURN
  237.