home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / OBJTEST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  37 lines
  1. 1  PRINT  CHR$(4)"PR#3"
  2. 5  DIM F$(200),L(200),T$(200)
  3. 10  PRINT  CHR$(4)"PREFIX": INPUT PR$
  4. 15  PRINT "READING DIRECTORY: ";PR$
  5. 17  PRINT 
  6. 20  PRINT  CHR$(4)"OPEN"PR$",TDIR"
  7. 25  PRINT  CHR$(4)"READ"PR$
  8. 30  INPUT J$: INPUT J$: INPUT J$
  9. 40  INPUT L$
  10. 45  IF L$ = ""  THEN 70
  11. 47 I = I +1
  12. 50 F$(I) =  MID$ (L$,2,15)
  13. 51 T$(I) =  MID$ (L$,18,3)
  14. 52  PRINT F$(I);
  15. 53  IF I/5 =  INT(I/5)  THEN  PRINT 
  16. 55 L(I) =  VAL( MID$ (L$,65,7))
  17. 57 R = 15
  18. 58  IF  MID$ (F$(I),R,1) >" "  THEN F$(I) =  LEFT$(F$(I),R): GOTO 60
  19. 59 R = R -1: GOTO 58
  20. 60  GOTO 40
  21. 70  PRINT  CHR$(4)"CLOSE"
  22. 90  PRINT : PRINT 
  23. 95 BAS = 24576
  24. 96  INPUT "START LOADING AT ADRS:";BAS
  25. 100  INPUT "OBJECT TO LOAD (/ TO EXIT): ";O$
  26. 110  IF O$ = "/"  THEN 900
  27. 115 IX = 0
  28. 120  FOR F = 1 TO I
  29. 130  IF F$(F) = O$  THEN IX = F
  30. 140  NEXT F
  31. 150  IF IX = 0  THEN  PRINT "   ===> FILE NOT FOUND": GOTO 100
  32. 155  IF T$(IX) < >"BIN"  THEN  PRINT "   ===> NOT A 'BIN' FILE": GOTO 100
  33. 160  PRINT  CHR$(4)"BRUN "F$(IX)",A";BAS
  34. 170  PRINT "   ===> "F$(IX)" LOADED @ "BAS"  END="BAS +L(IX) -1
  35. 180 BAS = BAS +L(IX)
  36. 190  GOTO 100
  37. 900  END