home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / difcnv.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  53 lines
  1. 1 'DAVE LAPINSKI (c) 1987
  2. 2 'Program converts a comma and CR delimited .DO file to "DIF" format .DO file.
  3. 3 MAXFILES=3:DEFSTR Q :QU=CHR$(34):Q2=QU+QU
  4. 5 PRINT"PROGRAM TO CREATE DIF FILE FROM INPUT TEXT FILE"
  5. 10 INPUT"ENTER NAME OF INPUT FILE";IN$
  6. 12 IF IN$="Files" THEN FILES: GOTO10
  7. 20 INPUT"ENTER NAME OF OUTPUT DIF FILE";OU$
  8. 30 IF OU$="" THEN OU$="DIF.DO"
  9. 40 OPEN IN$ FOR INPUT AS 1
  10. 49 PRINT" DETERMINING LENGTH AND BREADTH OF ";IN$
  11. 50 IF EOF(1) THEN 100
  12. 60 A$="":A$= INPUT$(1,1): IF A$="," THEN CC=CC+1: GOTO 50
  13. 70 IF A$=CHR$(13) THEN 90 ELSE 50
  14. 80 CLOSE
  15. 90 IF CC>CM THEN CM=CC
  16. 92 KV=KV+1
  17. 94 CC=0
  18. 96 GOTO50
  19. 100 KV=KV+1:CM=CM+1:PRINT"ROWS:";CM:PRINT"COLS:";KV
  20. 110 CLOSE
  21. 120 OPENIN$FOR INPUT AS 1
  22. 130 OPEN OU$FOR OUTPUT AS 2
  23. 132 PRINT#2,"TABLE":PRINT#2,"0,1":PRINT#2,Q2
  24. 133 PRINT#2,"VECTORS":PRINT#2,"0,";CM:PRINT#2,Q2
  25. 134 PRINT#2,"TUPLES":PRINT#2,"0,";KV:PRINT#2,Q2
  26. 135 PRINT#2,"DATA":PRINT#2,"0,0":PRINT#2,Q2
  27. 136 PRINT#2,"-1,0":PRINT#2,"BOT"
  28. 139 CC=0:KK=0
  29. 140 IF EOF(1) THEN 300
  30. 150 A$="":A$=INPUT$(1,1): IF A$=","  THEN GOSUB200:GOTO140
  31. 160 IF A$=CHR$(13) THEN GOSUB 220:GOTO140
  32. 165 IF ASC(A$)<32 THEN 180
  33. 170 B$=B$+A$
  34. 180 GOTO140
  35. 200 PRINT#2,"1,0"
  36. 205 PRINT#2,QU+B$+QU
  37. 206 PRINT"1,0 ";QU+B$+QU
  38. 208 CC=CC+1
  39. 210 B$="":RETURN
  40. 220 GOSUB200
  41. 225 GOSUB250
  42. 230 PRINT#2,"-1,0":PRINT#2,"BOT"
  43. 231 PRINT"-1,0 ";"BOT"
  44. 240 RETURN
  45. 250 IF CC=CM THEN CC=0:RETURN 
  46. 260 IF CC>CM THEN PRINT"ERROR CC>CM":CC=0:RETURN
  47. 270 FOR I= CC+1 TO CM:PRINT#2,"1,0":PRINT#2,Q2:PRINT"*1,0 ";Q2;:NEXT I:CC=0:RETURN
  48. 300 GOSUB 250
  49. 310 PRINT#2,"-1,0":PRINT#2,"EOD"
  50. 311 PRINT"-1,0 ";"EOD"
  51. 400 CLOSE
  52. 410 END
  53.