home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / column.ba < prev    next >
Text File  |  2006-10-19  |  4KB  |  98 lines
  1. 0 'Club 100 Library, modem 415 939-1246
  2. 1 'COLUMN.BA by Robert Benson, ver 2.2
  3. 10 CLEAR1000:CLS:INPUT"Number of files to input";X$:IFX$=""GOTO10ELSEGOSUB102:X=VAL(X$)
  4. 11 MAXFILES=X+1:X=MAXFILES-1:N=X:X$=CHR$(13):W$="Input filename #":ONERRORGOTO78
  5. 12 INPUT"Enter oolumn width";Y$:IFY$=""GOTO10ELSEGOSUB102:Y=VAL(Y$):CLS
  6. 13 PRINTW$"1";:INPUTA$:OPENA$FORINPUTAS2:IFX=1GOTO23
  7. 14 PRINTW$"2";:INPUTB$:OPENB$FORINPUTAS3:IFX=2GOTO23
  8. 15 PRINTW$"3";:INPUTC$:OPENC$FORINPUTAS4:IFX=3GOTO23
  9. 16 PRINTW$"4";:INPUTD$:OPEND$FORINPUTAS5:IFX=4GOTO23
  10. 17 PRINTW$"5";:INPUTE$:OPENE$FORINPUTAS6:IFX=5GOTO23
  11. 18 PRINTW$"6";:INPUTF$:OPENF$FORINPUTAS7:IFX=6GOTO23
  12. 19 PRINTW$"7";:INPUTG$:OPENG$FORINPUTAS8:IFX=7GOTO23
  13. 20 PRINTW$"8";:INPUTH$:OPENH$FORINPUTAS9:IFX=8GOTO23
  14. 21 PRINTW$"9";:INPUTI$:OPENI$FORINPUTAS10:IFX=9GOTO23
  15. 22 PRINTW$"10";:INPUTJ$:OPENJ$FORINPUTAS11:IFX=10GOTO23
  16. 23 PRINT
  17. 24 INPUT"Output filename";K$:IFK$=""GOTO24ELSEGOSUB102:OPENK$FOROUTPUTAS1:CLS:PRINT@136,"Working..."
  18. 25 'Input Routine
  19. 26 IFA=0THENINPUT#2,L$:IFL$=X$GOTO28
  20. 27 IFA=1THENL$=""
  21. 28 IFX=1GOTO46ELSEIFB=0THENINPUT#3,M$:IFM$=X$GOTO30
  22. 29 IFB=1THENM$=""
  23. 30 IFX=2GOTO46ELSEIFC=0THENINPUT#4,N$:IFN$=X$GOTO32
  24. 31 IFC=1THENN$=""
  25. 32 IFX=3GOTO46ELSEIFD=0THENINPUT#5,O$:IFO$=X$GOTO34
  26. 33 IFD=1THENO$=""
  27. 34 IFX=4GOTO46ELSEIFE=0THENINPUT#6,P$:IFP$=X$GOTO36
  28. 35 IFE=1THENP$=""
  29. 36 IFX=5GOTO46ELSEIFF=0THENINPUT#7,Q$:IFQ$=X$GOTO38
  30. 37 IFF=1THENQ$=""
  31. 38 IFX=6GOTO46ELSEIFG=0THENINPUT#8,R$:IFR$=X$GOTO40
  32. 39 IFG=1THENR$=""
  33. 40 IFX=7GOTO46ELSEIFH=0THENINPUT#9,S$:IFS$=X$GOTO42
  34. 41 IFH=1THENS$=""
  35. 42 IFX=8GOTO46ELSEIFI=0THENINPUT#10,T$:IFT$=X$GOTO44
  36. 43 IFI=1THENT$=""
  37. 44 IFX=9GOTO46ELSEIFJ=0THENINPUT#11,U$:IFU$=X$GOTO46
  38. 45 'Output routine
  39. 46 IFX=1THENPRINT#1,L$:GOTO74
  40. 47 PRINT#1,L$;:L=LEN(L$):GOSUB76
  41. 48 IFX=2THENPRINT#1,Z$;M$:GOTO73
  42. 49 PRINT#1,Z$;M$;:L=LEN(M$):GOSUB76
  43. 50 IFX=3THENPRINT#1,Z$;N$:GOTO72
  44. 51 PRINT#1,Z$;N$;:L=LEN(N$):GOSUB76
  45. 52 IFX=4THENPRINT#1,Z$;O$:GOTO71
  46. 53 PRINT#1,Z$;O$;:L=LEN(O$):GOSUB76
  47. 54 IFX=5THENPRINT#1,Z$;P$:GOTO70
  48. 55 PRINT#1,Z$;P$;:L=LEN(P$):GOSUB76
  49. 56 IFX=6THENPRINT#1,Z$;Q$:GOTO69
  50. 57 PRINT#1,Z$;Q$;:L=LEN(Q$):GOSUB76
  51. 58 IFX=7THENPRINT#1,Z$;R$:GOTO68
  52. 59 PRINT#1,Z$;R$;:L=LEN(R$):GOSUB76
  53. 60 IFX=8THENPRINT#1,Z$;S$:GOTO67
  54. 61 PRINT#1,Z$;S$;:L=LEN(S$):GOSUB76
  55. 62 IFX=9THENPRINT#1,Z$;T$:GOTO66
  56. 63 PRINT#1,Z$;T$;:L=LEN(T$):GOSUB76
  57. 64 PRINT#1,Z$;U$
  58. 65 IFJ=0THENIFEOF(11)THENCLOSE11:J=1:N=N-1
  59. 66 IFI=0THENIFEOF(10)THENCLOSE10:I=1:N=N-1
  60. 67 IFH=0THENIFEOF(9)THENCLOSE9:H=1:N=N-1
  61. 68 IFG=0THENIFEOF(8)THENCLOSE8:G=1:N=N-1
  62. 69 IFF=0THENIFEOF(7)THENCLOSE7:F=1:N=N-1
  63. 70 IFE=0THENIFEOF(6)THENCLOSE6:E=1:N=N-1
  64. 71 IFD=0THENIFEOF(5)THENCLOSE5:D=1:N=N-1
  65. 72 IFC=0THENIFEOF(4)THENCLOSE4:C=1:N=N-1
  66. 73 IFB=0THENIFEOF(3)THENCLOSE3:B=1:N=N-1
  67. 74 IFA=0THENIFEOF(2)THENCLOSE2:A=1:N=N-1
  68. 75 IFN<1GOTO104ELSE26
  69. 76 Z=Y-L:Z$=SPACE$(Z):RETURN
  70. 77 'Error Trap
  71. 78 IFERR=5THENPRINT@127,"LINE EXCEEDS COLUMN WIDTH":GOTO101
  72. 79 IFERR=7THENPRINT@134,"OUT of SPACE":GOTO101
  73. 80 IF13=ERLTHENGOSUB102:RESUME13
  74. 81 IF14=ERLTHENGOSUB102:RESUME14
  75. 82 IF15=ERLTHENGOSUB102:RESUME15
  76. 83 IF16=ERLTHENGOSUB102:RESUME16
  77. 84 IF17=ERLTHENGOSUB102:RESUME17
  78. 85 IF18=ERLTHENGOSUB102:RESUME18
  79. 86 IF19=ERLTHENGOSUB102:RESUME19
  80. 87 IF20=ERLTHENGOSUB102:RESUME20
  81. 88 IF21=ERLTHENGOSUB102:RESUME21
  82. 89 IF22=ERLTHENGOSUB102:RESUME22
  83. 90 IF26=ERLTHENV$="1"
  84. 91 IF28=ERLTHENV$="2"
  85. 92 IF30=ERLTHENV$="3"
  86. 93 IF32=ERLTHENV$="4"
  87. 94 IF34=ERLTHENV$="5"
  88. 95 IF36=ERLTHENV$="6"
  89. 96 IF38=ERLTHENV$="7"
  90. 97 IF40=ERLTHENV$="8"
  91. 98 IF42=ERLTHENV$="9"
  92. 99 IF44=ERLTHENV$="10"
  93. 100 PRINT@132,"File #"V$" is empty"
  94. 101 BEEP:FORT=1TO800:NEXT:GOTO104
  95. 102 IFPEEK(1)=171THENQ=64799ELSEQ=65451
  96. 103 IFPEEK(Q)<>7THENRETURN
  97. 104 CLOSE:MAXFILES=1:MENU
  98.