home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / LINEBUG1.ZIP / LINEBUG.BAS next >
BASIC Source File  |  1989-03-20  |  896b  |  36 lines
  1. 10  CLS
  2. 13  LOCATE 3,29
  3. 16  PRINT "LINEBUG BY COMFAX"
  4. 20  LOCATE 5,25
  5. 30  PRINT "COPYRIGHT (C) 1984 COMFAX"
  6. 40  LOCATE 10,1
  7. 50  INPUT "ENTER PROGRAM NAME TO BE CHECKED ";PRG$
  8. 100 OPEN "I",#1,PRG$
  9. 250 OLDLINNO$="00000"
  10. 300 GOTO 500
  11. 400 IF EOF(1) GOTO 2300
  12. 500 LINE INPUT #1,IMAGE$
  13. 550 LINNO$="00000"
  14. 600 XX=1
  15. 700 IF MID$(IMAGE$,XX,1)=" " GOTO 1100
  16. 750 IF MID$(IMAGE$,XX,1) < "0" GOTO 2100
  17. 760 IF MID$(IMAGE$,XX,1) > "9" GOTO 2100
  18. 800 XX=XX+1
  19. 900 IF XX>6 GOTO 2100
  20. 1000 GOTO 700
  21. 1100 IF XX<2 GOTO 2100
  22. 1200 XX=XX-1
  23. 1300 YY=6-XX
  24. 1400 HLIN$ = MID$(IMAGE$,1,XX)
  25. 1500 MID$(LINNO$,YY)=HLIN$
  26. 1600 IF OLDLINNO$ >= LINNO$ GOTO 1900
  27. 1700 OLDLINNO$=LINNO$
  28. 1800 GOTO 400
  29. 1900 PRINT "LINE NO. ERROR ";LINNO$
  30. 2000 GOTO 1700
  31. 2100 HLD$=MID$(IMAGE$,1,20)
  32. 2150 PRINT "ILLEGAL LINE NO. ";HLD$
  33. 2200 GOTO 400
  34. 2300 CLOSE #1
  35. 2400 SYSTEM
  36.