home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / finc / fda.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-01-30  |  3.1 KB  |  72 lines
  1. 100  'FDA.BAS -- creates FDA.COM -- from PC Mag 25 Feb 86 pg 249
  2. 110  DIM T(38):FOR A=1 TO 38:READ S:T(A)=S:G=G+S:NEXT
  3. 120  IF G=69210 THEN 140
  4. 130  PRINT "Error in lines 380-410":END
  5. 140  FOR A=1 TO 38:FOR B=1 TO 16
  6. 150  READ C$:C=VAL("&H"+C$)
  7. 160  TOTAL=TOTAL+C:NEXT
  8. 170  IF TOTAL=T(A) THEN 190
  9. 180  PRINT "Error in line ";A*10+410:END
  10. 190  TOTAL=0:NEXT
  11. 200  RESTORE 420:CLS:KEY OFF:LOCATE 8,1,1:INSERT%=0
  12. 210  ADD%=4:DRIVE$="A":GOSUB 320
  13. 220  ADD%=2:DRIVE$="B":GOSUB 320
  14. 230  ADD%=1:DRIVE$="C":GOSUB 320
  15. 240  IF INSERT%=0 THEN INSERT%=1
  16. 250  LOCATE 16,30,1:PRINT "Writing Byte No."
  17. 260  OPEN "FDA.COM" AS #1 LEN=1:FIELD #1,1 AS BYTE$
  18. 270  FOR I=1 TO 618
  19. 280  LOCATE 16,50,0:PRINT USING "####";I
  20. 290  READ HEXTWO$:IF I=609 THEN HEXTWO$=MID$(STR$(INSERT%),2)
  21. 300  LSET BYTE$=CHR$(VAL("&H" + HEXTWO$)):PUT #1
  22. 310  NEXT:CLOSE #1:LOCATE 18,20:PRINT "Done":PRINT:END
  23. 320  PRINT TAB(20) "Include drive "DRIVE$" in search Y/N ?  ";
  24. 330  A$=INKEY$:IF A$="" THEN 330
  25. 340  IF A$="Y" OR A$="y" THEN INSERT%=INSERT%+ADD%:GOTO 370
  26. 350  IF A$="N" OR A$="n" THEN GOTO 370
  27. 360  BEEP:GOTO 330
  28. 370  PRINT A$:PRINT:RETURN
  29. 380  DATA 1711,1790,2094,1211,1123,1235,1254,1382,1556,2028
  30. 390  DATA 1589,1661,2042,2654,2099,1633,1993,1938,1430,1954
  31. 400  DATA 1826,1736,1970,1533,2312,1760,2439,2081,1989,2097
  32. 410  DATA 2258,1514,2478,1479,1695,1604,2101,1961
  33. 420  DATA B2,0A,E8,E3,01,BE,82,00,BF,B9,03,AC,3C,0D,74,03
  34. 430  DATA AA,EB,F8,30,C0,AA,A0,60,03,24,01,74,14,BF,65,03
  35. 440  DATA 30,C0,FC,B9,40,00,F2,AE,8B,DF,4B,BA,00,00,E8,52
  36. 450  DATA 00,A0,60,03,24,04,74,21,BF,65,03,C7,05,41,00,C7
  37. 460  DATA 45,01,3A,00,C7,45,02,5C,00,C7,45,03,00,00,8B,DF
  38. 470  DATA 83,C3,03,BA,00,00,E8,2A,00,A0,60,03,24,02,74,21
  39. 480  DATA BF,65,03,C7,05,42,00,C7,45,01,3A,00,C7,45,02,5C
  40. 490  DATA 00,C7,45,03,00,00,8B,DF,83,C3,03,BA,00,00,E8,02
  41. 500  DATA 00,CD,20,56,52,E8,65,01,E8,82,01,72,0D,E8,5F,00
  42. 510  DATA E8,98,01,72,05,E8,57,00,EB,F6,5A,52,E8,57,01,E8
  43. 520  DATA 6B,01,72,24,8B,F2,F6,44,15,10,75,0B,E8,7C,01,72
  44. 530  DATA 17,F6,44,15,10,74,F5,80,7C,1E,2E,74,EF,E8,0B,00
  45. 540  DATA 50,B4,1A,CD,21,58,EB,E4,5A,5E,C3,57,56,50,53,FC
  46. 550  DATA 8B,F2,83,C6,1E,8B,FB,AC,AA,08,C0,75,FA,8B,DF,FD
  47. 560  DATA AA,B0,5C,AA,E8,9C,FF,5B,C6,07,00,58,5E,5F,C3,50
  48. 570  DATA 52,56,53,51,83,C2,1A,8B,F2,8B,04,8B,54,02,BF,0A
  49. 580  DATA 00,E8,86,00,B2,20,E8,DF,00,E8,DC,00,83,EE,02,8B
  50. 590  DATA 04,25,E0,01,B1,05,D3,F8,E8,90,00,B2,2D,E8,C8,00
  51. 600  DATA 8B,04,25,1F,00,E8,A5,00,B2,2D,E8,BB,00,8B,04,25
  52. 610  DATA 00,FE,B1,09,D3,E8,05,50,00,E8,91,00,B2,20,E8,A7
  53. 620  DATA 00,E8,A4,00,83,EE,02,8B,04,25,00,F8,B1,0B,D3,E8
  54. 630  DATA E8,58,00,B2,3A,E8,90,00,8B,04,25,E0,07,B1,05,D3
  55. 640  DATA F8,E8,69,00,B2,20,E8,7F,00,E8,7C,00,59,5B,5E,BA
  56. 650  DATA 65,03,8A,07,C6,07,00,E8,CF,00,88,07,5A,52,83,C2
  57. 660  DATA 1E,E8,C5,00,E8,B3,00,5A,58,C3,31,C9,F7,F7,83,C2
  58. 670  DATA 30,52,31,D2,41,09,C0,75,F3,BA,20,00,52,41,83,F9
  59. 680  DATA 07,75,F9,B4,02,5A,CD,21,E2,FB,C3,31,D2,F7,F7,83
  60. 690  DATA C2,30,52,31,D2,F7,F7,09,D2,74,03,83,C2,10,83,C2
  61. 700  DATA 20,52,B9,02,00,B4,02,5A,CD,21,E2,FB,C3,31,D2,F7
  62. 710  DATA f7,83,c2,30,52,31,d2,f7,f7,83,c2,30,52,b9,02,00
  63. 720  DATA b4,02,5a,cd,21,e2,fb,c3,b4,02,cd,21,c3,56,BE,B9
  64. 730  DATA 03,E8,0B,00,5E,C3,56,BE,61,03,E8,02,00,5E,C3,50
  65. 740  DATA 57,8B,FB,FC,AC,AA,08,C0,75,FA,5F,58,C3,51,83,FA
  66. 750  DATA 00,77,03,BA,9B,03,83,C2,2B,B9,10,00,B4,1A,CD,21
  67. 760  DATA 52,BA,65,03,B4,4E,CD,21,5A,59,C3,51,52,BA,65,03
  68. 770  DATA B9,10,00,B4,4F,CD,21,5A,59,C3,50,52,B4,02,B2,0A
  69. 780  DATA CD,21,B2,0D,CD,21,5A,58,C3,50,52,56,FC,8B,F2,B4
  70. 790  DATA 02,AC,8A,D0,CD,21,AC,08,C0,75,F7,5E,5A,58,C3,00
  71. 800  DATA 05,2A,2E,2A,00,43,3A,5C,00,00
  72.