home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc_ham2 / cklstgen.2 next >
Encoding:
Text File  |  1985-09-28  |  2.4 KB  |  66 lines
  1. 10 REM CKLSTGEN VER 820305
  2. 20 ERRSET 590,E1,E2
  3. 30 Q3=0\N1=0\N4=0 \ GOSUB 5010
  4. 40 INPUT"Name of LOG file ? ",L1$\IF L1$=""THEN 40
  5. 50 INPUT"Which drive is it on ? ",D1 \ IF D1<1ORD1>4 THEN50
  6. 55  D1$=STR$(D1) \ D1$=D1$(2,2)
  7. 60 INPUT"Do you want the check list saved on disc ? ",A$\IFA$=""THEN60
  8. 70 IF A$(1,1)="Y"THEN80 ELSE F1=1 \ GOTO 170
  9. 80 INPUT"What is the name of the check list file ? ",L2$\IF L2$=""THEN80
  10. 90 IF LEN(L2$)<8THEN100ELSE!"LENGTH ERROR (max is 7)"\GOTO80
  11. 100 IF L1$<>L2$ THEN110 ELSE PRINT"FILE NAME ERROR"\GOTO80
  12. 110 INPUT"Which drive do you want it put on ? ",D2 \ IF D2<1ORD2>4 THEN110
  13. 120 F1=0
  14. 130 D2$=STR$(D2) \ D2$=D2$(2,2)
  15. 140 IF FILE(L2$+","+D2$)=2 THEN 160 ELSE 150
  16. 150 IF FILE(L2$+","+D2$)=3 THEN 160 ELSE 170
  17. 160 PRINT"FILE ",L2$," ALREADY EXISTS ON DRIVE ",D2$\GOTO 80
  18. 170 OPEN#0,"*"+L1$+","+D1$ \ READ#0,N1 \ CLOSE#0
  19. 180 PRINT"There are ",N1," entries in ",L1$
  20. 190 IF F1=1 THEN210
  21. 200 CREATE L2$+","+D2$ , INT(N1*12/256)+1
  22. 210 OPEN#0,L1$+","+D1$ \ REM OPEN OLD LOG FILE
  23. 220 DIM W$(N1*10),B1(N1)
  24. 230 FOR X=0 TO N1-1
  25. 240 GOSUB 5025 \REM READ ENTRY
  26. 250 PRINT X+1,TAB(5),C$
  27. 260 W$(X*10+1,X*10+10) = C$
  28. 270 NEXT X
  29. 280 PRINT "CHECK LIST LOADED"
  30. 290 GOSUB 430
  31. 300 FOR I=0 TO N1-1
  32. 310 D$=W$(I*10+1,I*10+10)
  33. 320 PRINT D$
  34. 330 NEXT I
  35. 340 IF F1=1 THEN 410
  36. 350 OPEN #2,L2$+","+D2$
  37. 360 FOR I=0 TO N1-1
  38. 370 WRITE #2,W$(I*10+1,I*10+10)
  39. 380 NEXT
  40. 390 WRITE #2,"-*-"
  41. 400 CLOSE#2
  42. 410 GOTO 5045
  43. 420 GOTO 5550 \ REM GET STNDATA
  44. 430 PRINT"STARTING TO SORT"
  45. 440 N9=1
  46. 450 C=0\FORI=N1-1TO N9 STEP -1
  47. 460 IFW$((I-1)*10+1,(I-1)*10+10)<W$(I*10+1,I*10+10)THEN500
  48. 470 A$=W$((I-1)*10+1,(I-1)*10+10)
  49. 480 W$((I-1)*10+1,(I-1)*10+10)=W$(I*10+1,I*10+10)
  50. 490 W$(I*10+1,I*10+10)=A$ \ C=1 \B2=B1(I-1)\B1(I-1)=B1(I)\B1(I)=B2
  51. 500 NEXT \IFC=0THEN510 ELSE N9=N9+1\!N9,\IF N9/20=INT(N9/20)THEN!\GOTO450
  52. 510 PRINT"SORT OVER"
  53. 520 RETURN
  54. 530 FOR I = 1 TO 4รจ540 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 560
  55. 550 NEXT \ GOTO 570
  56. 560 CHAIN "SYSTEM,"+STR$(I)
  57. 570 PRINT"put a system disc in any drive, then hit 'RETURN'"
  58. 580 INPUT" ",A$ \ GOTO 530
  59. 590 ERRSET 590,E1,E2
  60. 600 IF E2=15THEN530
  61. 610 IFE1=540 THENIFI<1ORI>4THEN570ELSE550
  62. 620 IFE2<>7THEN630ELSEPRINT"FILE ERROR"\GOTO530
  63. 630 IFE2<>8THEN640ELSEPRINT"HARD DISC ERROR"\GOTO530
  64. 640 PRINT"ERROR ",E2," AT LINE ",E1\GOTO530
  65. 5000 REM SUBROUTINE PACKAGE VER 790817
  66.