home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MDUTIL.ZIP / HAMLOG.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-01  |  3.9 KB  |  120 lines
  1. 1  REM
  2. 3  KEY OFF:SCREEN 0,1:WIDTH 40:COLOR 14,0,0:CLS:LOCATE 5,19:PRINT "MDS"
  3. 5  LOCATE 7,8,0:PRINT "Micro Development Software"
  4. 7  LOCATE 8,8:COLOR 12,0,0:PRINT STRING$(26,196)
  5. 9  COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(201)+STRING$(21,205)+CHR$(187)
  6. 11  LOCATE 11,9:PRINT CHR$(186)+"HAM RADIO LOG PROGRAM"+CHR$(186)
  7. 13  LOCATE 12,9:PRINT CHR$(186)+STRING$(21,32)+CHR$(186)
  8. 15  LOCATE 13,9:PRINT CHR$(186)+"    Version 4.5      "+CHR$(186)
  9. 17  LOCATE 14,9:PRINT CHR$(200)+STRING$(21,205)+CHR$(188)
  10. 19  LOCATE 16,10:PRINT"Written By M.D. Smith "
  11. 21  COLOR 14,0:LOCATE 19,7:PRINT "         Circa 1985"
  12. 23  LOCATE 2,2:COLOR 12,0,0:PRINT CHR$(201)+STRING$(35,205)+CHR$(187)
  13. 25  FOR X = 3 TO 21:LOCATE X,2:PRINT CHR$(186):LOCATE X,38:PRINT CHR$(186):NEXT X
  14. 27  LOCATE 21,2:PRINT CHR$(200)+STRING$(35,205)+CHR$(188)
  15. 29  COLOR 9,0:LOCATE 23,7:PRINT "Press space bar to continue"
  16. 31  POKE 106,0:REM CLEAR KYBD BUFFER
  17. 33  A$ = INKEY$:IF A$="" THEN GOTO 33
  18. 35  REM
  19. 37  REM
  20. 39  REM
  21. 41  REM
  22. 43  REM ***************************************************************
  23. 45  REM *                                                             *
  24. 47  REM *   Ham Radio Logging Program to check for Dupe Contacts.     *
  25. 49  REM *                                                             *
  26. 51  REM *   Written by M.D. Smith ,IV  TRS-80 Mod 100  11/7/85        *
  27. 52  REM *   Greatly Modified for IBM by M.D.Smith on 11/9/85          *
  28. 53  REM *   1000 Monte Sano Blvd., S.E.,  Huntsville, AL  35801       *
  29. 55  REM *                                                             *
  30. 57  REM *   First Version 4.3     Nov.  1985                          *
  31. 59  REM *                                                             *
  32. 61  REM *               Version 4.5   Nov. 9, 1985                    *
  33. 63  REM *                                                             *
  34. 65  REM ***************************************************************
  35. 67  REM
  36. 69  REM
  37. 97  COLOR 14,0,1:CLS
  38. 98  DIM CL$(99),CA$(99),NA$(99),Q$(99),D$(99)
  39. 99  PRINT:PRINT"READING FILE `QSOFILE.TXT', STANDBY...":GOSUB 5000
  40. 100  PRINT:PRINT:PRINT:INPUT"WHAT ARE LETTERS PAST # IN CALL";ST$
  41. 140  FOR X=1 TO T
  42. 180    IF ST$=CL$(X) THEN PRINT:PRINT"STATION ALREADY IN FILE."
  43. 220    IF ST$=CL$(X) THEN PRINT:PRINT X;CA$(X),NA$(X),Q$(X),D$(X)
  44. 260    IF ST$=CL$(X) THEN GOTO 3000
  45. 300  NEXT X
  46. 340  PRINT:PRINT:PRINT "THAT STATION IS NOT IN THE FILE."
  47. 380  INPUT"DO YOU WISH TO ADD IT";AL$
  48. 420  IF AL$="N" OR AL$="n" THEN GOTO 3000
  49. 460  PRINT:PRINT "PROCEED TO ADD NEW CALL AND INFO."
  50. 500  T=T+1: REM ADD TO COUNT FOR NEW CALL
  51. 540  INPUT"WHAT ARE LETTERS PAST # IN CALL";CL$(T)
  52. 580  INPUT"WHAT IS FULL CALL";CA$(T)
  53. 620  INPUT"WHAT IS NAME";NA$(T)
  54. 660  INPUT"WHAT IS QTH";Q$(T)
  55. 700  INPUT"DATE OF QSO";D$(T)
  56. 740  PRINT"IS ALL THIS INFO CORRECT AND READY"
  57. 750  INPUT"TO ADD TO FILE (Y/N)";AB$
  58. 780  IF AB$ <> "Y" THEN GOTO 460
  59. 820  OPEN "QSOFILE.TXT" FOR APPEND AS 1
  60. 840  PRINT#1,CL$(T);",";CA$(T);",";NA$(T);",";Q$(T);",";D$(T)
  61. 860  CLOSE
  62. 880  GOTO 3000
  63. 3000  PRINT:INPUT"WANT TO LIST ANOTHER STATION (Y/N)";AC$
  64. 3020  IF AC$="Y" OR AC$="y" THEN GOTO 100
  65. 3022  INPUT"WANT A LIST OF ALL CALLS(Y/N)";AD$
  66. 3023  IF AD$="Y" OR AD$="y" THEN GOSUB 6000
  67. 3040  PRINT:INPUT"DO YOU WANT TO CHANGE A FILE(Y/N)";AF$
  68. 3050  IF AF$="Y" OR AF$="y" THEN GOSUB 8000
  69. 4500  GOTO 49999
  70. 5000  X=0:T=0:OPEN"QSOFILE.TXT" FOR INPUT AS 2
  71. 5020  T=T+1
  72. 5040  INPUT#2,CL$(T),CA$(T),NA$ (T),Q$(T),D$(T)
  73. 5060  IF EOF(2) THEN GOTO 5100
  74. 5080  GOTO 5020
  75. 5100  CLOSE:RETURN
  76. 6000  INPUT"...ON SCREEN OR PRINTER (S/P)";AE$
  77. 6010  IF AE$="P" OR AE$="p" THEN GOSUB 7000:RETURN
  78. 6015  PRINT:PRINT
  79. 6020  FOR X=1 TO T
  80. 6022  XR$ = STR$(X)
  81. 6025  PRINT XR$;".)  ";CL$(X),CA$(X),NA$(X),Q$(X),D$(X)
  82. 6030  PRINT
  83. 6040  FOR Z=1 TO 1000:NEXT Z
  84. 6050  NEXT X
  85. 6060  RETURN
  86. 7000  FOR X=1 TO T
  87. 7007  XR$ = STR$(X)
  88. 7015  LPRINT XR$;".)  ";CL$(X),CA$(X),NA$(X),Q$(X),D$(X)
  89. 7030  LPRINT
  90. 7050  NEXT X
  91. 7060  RETURN
  92. 8000  PRINT:INPUT"WHAT FILE # TO CHANGE";F
  93. 8020  PRINT CA$(F),NA$(F)
  94. 8040  PRINT:INPUT"IS THIS IT (Y/N)";AG$
  95. 8060  IF AG$="N" OR AG$="n" THEN GOTO 3040
  96. 8070  S=F
  97. 8080  INPUT"WHAT ARE LETTERS PAST # IN CALL";CL$(S)
  98. 8100  INPUT"WHAT IS FULL CALL";CA$(S)
  99. 8120  INPUT"WHAT IS NAME";NA$(S)
  100. 8140  INPUT"WHAT IS QTH";Q$(S)
  101. 8150  INPUT"DATE OF QSO";D$(S)
  102. 8160  PRINT"IS ALL THIS INFO CORRECT AND READY"
  103. 8180  INPUT"TO CHANGE FILE (Y/N)";AB$
  104. 8200  IF AB$ <> "Y" THEN GOTO 3040
  105. 8220  OPEN "QSOFILE.TXT" FOR OUTPUT AS 1
  106. 8230  FOR X = 1 TO T
  107. 8240  PRINT#1,CL$(X);",";CA$(X);",";NA$(X);",";Q$(X);",";D$(X)
  108. 8250  NEXT X
  109. 8280  CLOSE
  110. 8290  RETURN
  111. 49999  WIDTH 80:COLOR 14,0,0:CLS:END
  112. 50000  REM ***** AUTO SAVER BELOW ***********
  113. 50005  SAVE"HAMLOG.BAS"
  114. 50015  END
  115. 50020  REM *******  THIS SETS THE PROGRAMMING KEYS ********************
  116. 50100  KEY 5,"DATA "+CHR$(34):KEY 6,"GOTO ":KEY 7,"PRINT:":KEY 8,"PRINT "+CHR$(34):KEY 9,"LPRINT:":KEY 10,"LPRINT "+CHR$(34):KEY ON
  117. 50115  END
  118. 51000  A$=INKEY$:IF A$="" THEN GOTO 51000
  119. 51002  PRINT ASC(A$),A$:PRINT:GOTO 51000
  120.