home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n05.zip / THREECOM.ZIP / THREECOM.BAS < prev    next >
BASIC Source File  |  1987-02-22  |  2KB  |  42 lines
  1. 100 'THREECOM.BAS:  Creates FASTOFF.COM, FFEED.COM and NOREPEAT.COM.
  2. 101 'PC Magazine Vol 6 No 5 March 10, 1987 User-to-User
  3. 102 '
  4. 110 CLS:PRINT "Checking DATA ...."
  5. 120 FOR B=1 TO 14:FOR C=1 TO 17:READ A$:IF C<17 THEN 140
  6. 130 Z=Z+VAL(A$)
  7. 140 NEXT:NEXT
  8. 150 IF Z=17482 THEN RESTORE:GOTO 180
  9. 160 PRINT "Error - check last number in"
  10. 170 PRINT "each DATA statement.":END
  11. 180 FOR B=1 TO 14:FOR C=1 TO 16:READ A$:TTL=TTL+VAL("&H"+A$)
  12. 190 NEXT
  13. 200 READ S:IF S=TTL THEN 220
  14. 210 PRINT "DATA error in line";B*10+340:END
  15. 220 TTL=0:NEXT:RESTORE
  16. 230 OPEN "FFEED.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  17. 240 FOR B=1 TO 5:FOR C=1 TO 16:READ A$
  18. 250 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  19. 260 CLOSE:PRINT "FFEED.COM created."
  20. 270 OPEN "FASTOFF.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  21. 280 FOR B=1 TO 4:FOR C=1 TO 16:READ A$
  22. 290 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  23. 300 CLOSE:PRINT "FASTOFF.COM created."
  24. 310 OPEN "NOREPEAT.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  25. 320 FOR B=1 TO 5:FOR C=1 TO 16:READ A$
  26. 330 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  27. 340 CLOSE:PRINT "NOREPEAT.COM created."
  28. 350 DATA eb,30,00,00,00,00,fb,50,52,b4,02,ba,00,00,cd,17,1292
  29. 360 DATA f6,c4,80,74,1a,b4,02,cd,16,24,01,8a,d0,9c,2e,ff,1961
  30. 370 DATA 1e,02,01,80,fa,00,74,07,b8,0c,00,33,d2,cd,17,5a,1309
  31. 380 DATA 58,cf,b8,05,35,cd,21,89,1e,02,01,8c,06,04,01,ba,1282
  32. 390 DATA 06,01,b8,05,25,cd,21,ba,32,01,cd,27,00,00,00,00,952
  33. 400 DATA eb,1d,00,00,00,00,1e,50,b8,40,00,8e,d8,80,3e,40,1234
  34. 410 DATA 00,02,72,04,fe,0e,40,00,58,1f,2e,ff,2e,02,01,b8,1105
  35. 420 DATA 08,35,cd,21,89,1e,02,01,8c,06,04,01,ba,06,01,b8,997
  36. 430 DATA 08,25,cd,21,ba,1f,01,cd,27,00,00,00,00,00,00,00,745
  37. 440 DATA eb,2c,00,00,00,00,ff,fb,50,e4,60,2e,3a,06,06,01,1306
  38. 450 DATA 74,0a,2e,a2,06,01,58,2e,ff,2e,02,01,e4,61,8a,e0,1466
  39. 460 DATA 0c,80,e6,61,86,c4,e6,61,b0,20,e6,20,58,cf,b8,09,2082
  40. 470 DATA 35,cd,21,89,1e,02,01,8c,06,04,01,ba,07,01,b8,09,999
  41. 480 DATA 25,cd,21,ba,2e,01,cd,27,00,00,00,00,00,00,00,00,752
  42.