home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / dbase2.dif < prev    next >
Text File  |  2006-10-19  |  3KB  |  68 lines
  1. 1,7c1,8
  2. < 1 CLEAR600:GOTO3 'COPR 1987, D.LAPINSKI
  3. < 2 CA=0:D$="":DA=VARPTR(D$):POKE DA+1,186:POKE DA+2,249:POKE DA,19*11:CA=ASC(MID$(D$,IX+1,1))+256*ASC(MID$(D$,IX+2,1)):RETURN
  4. < 3 MAXFILES=3:INPUT"ENTER NAME OF DEVICE FOR OUTPUT";DV$:IF DV$="" THEN DV$="RAM:"
  5. < 4 A$="RAM: CAS: LCD: LPT: 0:": IF INSTR(1,A$,DV$) <> 0 THEN 6
  6. < 5PRINT"ERROR IN DEVICE NAME, MUST BE           ";A$:PRINT" YOU ENTERED '";DV$:GOTO3
  7. < 6 IF RIGHT$(DV$,1)<>":" THEN DV$=DV$+":"
  8. < 7 DIM FN$(15),AL$(15),B(20),BC$(20),NX(20),ST(20): GOSUB7000
  9. ---
  10. > 1 'LUCNV.BA by Dave Lapinski (c) 1987
  11. > 2 CLEAR600:GOTO4
  12. > 3 CA=0:D$="":DA=VARPTR(D$):POKE DA+1,186:POKE DA+2,249:POKE DA,19*11:CA=ASC(MID$(D$,IX+1,1))+256*ASC(MID$(D$,IX+2,1)):RETURN
  13. > 4 MAXFILES=3:INPUT"ENTER NAME OF DEVICE FOR OUTPUT";DV$:IF DV$="" THEN DV$="RAM:"
  14. > 5 A$="RAM: CAS: LCD: LPT: 0:": IF INSTR(1,A$,DV$) <> 0 THEN 7
  15. > 6 PRINT"ERROR IN DEVICE NAME, MUST BE           ";A$:PRINT" YOU ENTERED '";DV$:GOTO4
  16. > 7 IF RIGHT$(DV$,1)<>":" THEN DV$=DV$+":"
  17. > 8 DIM FN$(15),AL$(15),B(20),BC$(20),NX(20),ST(20): GOSUB7000
  18. 14,16c15,17
  19. < 50 GOSUB2:IF PEEK(CA)<>255 OR PEEK(CA+1) <>255 THEN PRINT"Not a Lucid file, does not start with FFFF":CLOSE:RUN
  20. < 60 GOSUB2:CL=PEEK(CA+2)+256*PEEK(CA+3):BE=CL+2:CS=157:PRINT"LENGTH OF FILE IS ";CL;" BYTES":PRINT"FREE SPACE =";FRE(0)-FRE("")
  21. < 61 GOSUB2:IF PEEK(CA+CS-3)<>0 OR PEEK(CA+CS-2)<>0 OR PEEK(CA+CS-1)<>3 THEN CS=263
  22. ---
  23. > 50 GOSUB3:IF PEEK(CA)<>255 OR PEEK(CA+1) <>255 THEN PRINT"Not a Lucid file, does not start with FFFF":CLOSE:RUN
  24. > 60 GOSUB3:CL=PEEK(CA+2)+256*PEEK(CA+3):BE=CL+2:CS=157:PRINT"LENGTH OF FILE IS ";CL;" BYTES":PRINT"FREE SPACE =";FRE(0)-FRE("")
  25. > 61 GOSUB3:IF PEEK(CA+CS-3)<>0 OR PEEK(CA+CS-2)<>0 OR PEEK(CA+CS-1)<>3 THEN CS=263
  26. 18c19
  27. < 110 GOSUB2:BL=PEEK(CA+BE):BB=BE-BL+1:CP=BB-1:VI$=">"
  28. ---
  29. > 110 GOSUB3:BL=PEEK(CA+BE):BB=BE-BL+1:CP=BB-1:VI$=">"
  30. 20,21c21,22
  31. < 130 CP=CP+1:GOSUB2:IF(PEEK(CA+CP) AND 127) <> BL THEN PRINT"Error- block length inconsistent at: ";CP,CA:CLOSE:STOP
  32. < 140 GOSUB2:IF (PEEK(CA+CP) AND 128) <>0 THEN GOTO150 
  33. ---
  34. > 130 CP=CP+1:GOSUB3:IF(PEEK(CA+CP) AND 127) <> BL THEN PRINT"Error- block length inconsistent at: ";CP,CA:CLOSE:STOP
  35. > 140 GOSUB3:IF (PEEK(CA+CP) AND 128) <>0 THEN GOTO150 
  36. 31c32
  37. < 210 CP=CP+1:IF CP>=BE THEN RETURN ELSE GOSUB2:A=PEEK(CA+CP)
  38. ---
  39. > 210 CP=CP+1:IF CP>=BE THEN RETURN ELSE GOSUB3:A=PEEK(CA+CP)
  40. 38c39
  41. < 260 IF A=10 THEN CP=CP+1:GOSUB2:A=PEEK(CA+CP):B(SP)=A-128
  42. ---
  43. > 260 IF A=10 THEN CP=CP+1:GOSUB3:A=PEEK(CA+CP):B(SP)=A-128
  44. 47c48
  45. < 320 CP=CP+1:GOSUB2:A=PEEK(CA+CP):IF CHR$(A)<>")" THEN GOTO330 
  46. ---
  47. > 320 CP=CP+1:GOSUB3:A=PEEK(CA+CP):IF CHR$(A)<>")" THEN GOTO330 
  48. 56c57
  49. < 621IF A$<="9" AND A$>="0" THEN 622 else 623
  50. ---
  51. > 621IF A$<="9" AND A$>="0" THEN 622 ELSE 623
  52. 88c89
  53. < 4000 A$="":FOR I=CP+1 TO BE-1:GOSUB2:IF CHR$(PEEK(CA+I)) =TC$ THEN CP=I:RETURN 
  54. ---
  55. > 4000 A$="":FOR I=CP+1 TO BE-1:GOSUB3:IF CHR$(PEEK(CA+I)) =TC$ THEN CP=I:RETURN 
  56. 90c91
  57. < 4010 A$="":FOR I=CP+1 TO BE:GOSUB2:IF INSTR("0123456789.+-",CHR$(PEEK(CA+I)))=0 THEN CP=I-1:RETURN 
  58. ---
  59. > 4010 A$="":FOR I=CP+1 TO BE:GOSUB3:IF INSTR("0123456789.+-",CHR$(PEEK(CA+I)))=0 THEN CP=I-1:RETURN 
  60. 94c95
  61. < 5001IF A$>"_" THEN MID$(CA$,I,1)=CHR$(ASC(A$) AND 95):NEXT I:CD$=LEFT$(CA$+"      ",6)+"CA":goto5010
  62. ---
  63. > 5001IF A$>"_" THEN MID$(CA$,I,1)=CHR$(ASC(A$) AND 95):NEXT I:CD$=LEFT$(CA$+"      ",6)+"CA":GOTO5010
  64. 100c101
  65. < 6000 CP=CP+2:GOSUB2:R=PEEK(CA+CP-1):C=PEEK(CA+CP)
  66. ---
  67. > 6000 CP=CP+2:GOSUB3:R=PEEK(CA+CP-1):C=PEEK(CA+CP)
  68.