home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / soft4ham.arc / STNINFO.2 < prev    next >
Text File  |  1985-09-28  |  2KB  |  59 lines
  1. 10 PRINT CHR$(26),CHR$(12)\REM VER 790906
  2. 20 PRINT"Station Customising Program, Version 0.2"
  3. 30 ERRSET 495,E1,E2
  4. 40 PRINT
  5. 50 PRINT"(C) Copyright Snow Micro System Inc. 1979"
  6. 60 REM By Joe Kasser G3ZCZ June 1979
  7. 70 PRINT \ PRINT\ X$="STNDATA,"
  8. 80 FOR I=1 TO 4 \ I$=STR$(I) \ I$=I$(2,2)
  9. 90 IF FILE(X$+I$)=3 THEN EXIT 120
  10. 100 NEXT
  11. 110 PRINT"file STNDATA - station data file missing"\ GOTO 400
  12. 120 OPEN#0,X$+STR$(I)
  13. 130 READ#0,L$,C$,L1,L2
  14. 140 CLOSE#0
  15. 150 PRINT"Station configuration for   ",C$
  16. 160 PRINT
  17. 170 PRINT"Current Log file is         ",L$
  18. 180 PRINT
  19. 190 INPUT"Do you want to update any information ? ",A$\IFA$="" THEN190
  20. 200 IF A$(1,1)="Y" THEN 210 ELSE 400
  21. 210 PRINT
  22. 220 INPUT"Do you want to update the callsign ? ",A$\IFA$=""THEN220
  23. 230 IF A$(1,1)="N" THEN 250
  24. 240 INPUT"What is your Call Sign ? ",C$\IFA$=""THEN240
  25. 250 PRINT"Current latitude is ",L1," Longitude is ",L2
  26. 260 INPUT"Do you want to update the Geographical Co-ordinates ?",A$
  27. 270 IF A$="" THEN 260
  28. 280 IF A$(1,1)="Y" THEN 290 ELSE 310
  29. 290 INPUT"Your Station Latitude ? ",L1
  30. 300 INPUT"Your Station Longitude ? ",L2
  31. 310 INPUT"Do you want to change the current log file ?",A$\IFA$=""THEN310
  32. 320 IF A$(1,1)="Y" THEN 330 ELSE 360
  33. 330 INPUT"What is the name of the new log file ? ",L$\IFL$=""THEN330
  34. 340 INPUT"is it current ? ",A$\IFA$=""THEN340
  35. 350 IF A$(1,1)="Y" THEN A=0 ELSE A=1
  36. 360 OPEN #0,X$+I$
  37. 370 WRITE#0,L$,C$,L1,L2
  38. 380 CLOSE#0
  39. 390 IF A=1 THEN 460
  40. 400 FOR I=1TO4 \ I$=STR$(I)
  41. 410 IF FILE("SYSTEM,"+I$)=2 THEN EXIT 450
  42. 420 NEXT
  43. 430 PRINT"Put a system disc in any drive, then hit 'RETURN'"
  44. 440 INPUT"", A$ \ GOTO 400
  45. 450 CHAIN "SYSTEM,"+I$
  46. 460 FOR I=1TO4 \ I$=STR$(I)
  47. 470 IF FILE("NEWLOG,"+I$)=2 THEN EXIT 490
  48. 475 NEXT
  49. 480 PRINT "File NEWLOG is not in any drive, put it in, then hit 'RETURN'"
  50. 485 INPUT"",A$\ GOTO 460
  51. 490 CHAIN "NEWLOG,"+I$
  52. 495 ERRSET 495,E1,E2
  53. 500 IFE2=15 THEN 400
  54. 510 IFE1=470 THEN 475
  55. 520 IF E1=410 THEN 420è550 IFE1=90 THEN100
  56. 560 IFE2<>7THEN580 ELSE PRINT"FILE ERROR"\GOTO400
  57. 580 IFE2<>8THEN590 ELSE PRINT"HARD DISC ERROR"\GOTO400
  58. 590 PRINT"ERROR ",E2,"AT LINE ",E1\GOTO400
  59.