home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / DOSUT-03.ZIP / FCBCRT.BAS < prev    next >
BASIC Source File  |  1983-07-20  |  2KB  |  32 lines
  1.  10 CLS:PRINT"This basic program was created by CONVERT.BAS":KEY OFF:DEFINT A-Z:FALSE=0:TRUE=NOT FALSE
  2.  20 PRINT"Copyright 1983 ,Rich Schinnell Rockville,MD. Not for Sale."
  3.  30 PRINT "This program will create  you a program named FCBREAD.BSV":PRINT
  4.  40 ON ERROR GOTO 5000
  5.  50 INPUT "PLACE the disk to write the file TO in Drive A: Press <ENTER> "; CAPITAL$
  6.  90 CLS:LOCATE 12,5:PRINT "Now writing file named FCBREAD.BSV standby please  "
  7. 100 RESTORE
  8. 110 OPEN "R", #1,"FCBREAD.BSV",1
  9. 120 FIELD #1, 1 AS N$
  10. 130 READ N:LL=(N/28)+1
  11. 140 FOR I = 1 TO N
  12. 150 READ X$,CHECK:FOR C=1 TO LEN(X$) STEP 2:CC$="&H"+MID$(X$,C,2):IF CHECK=9999 THEN 170
  13. 155 LSET N$=CHR$(VAL(CC$)):PUT #1:CHECK=CHECK-VAL(CC$):NEXT C:IF CHECK<>0 THEN 5000
  14. 160 LOCATE 14,5:PRINT TIME$;" Reading data line #";(1000+I);" lines left=";LL-I;:NEXT I:CLOSE
  15. 170 LOCATE 16,5:PRINT "FCBREAD.BSV CREATED * *":GOTO 5010
  16. 1000 DATA  292
  17. 1001 DATA FD001700001C012401EB3590EB6490FF00000000003F000000000000,1571
  18. 1002 DATA 00000000000000000000000000000000000000000000000000000000,0
  19. 1003 DATA 0000000000000000558BEC1E8CC88ED833F6268B5E06268B5F01268A,2211
  20. 1004 DATA 00888410004683FE0B7CF38B7608268B04A20F0032C0A238001F5DCA,2526
  21. 1005 DATA 0400558BEC1E8CC88ED8FA892636008C1634008ED0BCCC01FBBA1D01,3095
  22. 1006 DATA B41ACD21BA0800803E3800007508FE063800B411EB02B412CD213C00,2255
  23. 1007 DATA 7560268B5E0826803F0E7551268B5F0133FF8BF78BCFB06002062401,2561
  24. 1008 DATA 2688014726C6013A478A8425013C20740626880147EB0C80F9007507,2128
  25. 1009 DATA FEC126C6012E474683FE08750C80F9007507FEC126C6012E4783FE0B,3091
  26. 1010 DATA 7CCFA0300132E4EB03B8FFFFEB03B8FEFF268B5E06268907FA8E1634,3606
  27. 1011 DATA 008B263600FB1F5DCA04001A,838
  28. 1012 DATA 000000,9999
  29. 5000 PRINT "* * ERROR VERIFY FOLLOWING DATA * * * "
  30. 5005 PRINT X$;",";CHECK
  31. 5010 KEY ON:CLOSE:END
  32.