home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DIR (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1995-10-12  |  1.3 KB  |  54 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  TEXT : SPEED= 255
  2. 10 ME$ = "DIR":RM$ = "/HARD/"
  3. 20  IF  PEEK(104) < >8  THEN  POKE 104,8: POKE 2048,0: PRINT  CHR$(4)"-"RM$;ME$
  4. 100  PRINT  CHR$(4)"-"RM$"DIR.OBJ"
  5. 105 KY =  PEEK(16384 +4): IF KY = 27  THEN  PRINT : END 
  6. 110 BAS =  PEEK(14 *16 +13) + PEEK(14 *16 +14) *256
  7. 120 PTR = BAS +2
  8. 130 F$ = ""
  9. 140  IF  PEEK(PTR) < >160  THEN F$ = F$ + CHR$( PEEK(PTR) -128):PTR = PTR +1: IF PTR <BAS +17  THEN 140
  10. 160 FT$ =  CHR$( PEEK(BAS +17) -128) + CHR$( PEEK(BAS +18) -128) + CHR$( PEEK(BAS +19) -128)
  11. 180  PRINT  CHR$(4)"PREFIX": INPUT PR$
  12. 210  PRINT "(FILE=";PR$;F$"): ";
  13. 480  INPUT "L)OAD  R)UN  V)IEW :";CO$:CM$ =  LEFT$(CO$,1)
  14. 485  IF CM$ = "L"  OR CM$ = "R"  OR CM$ = "V"  OR CM$ = "D"  THEN 1000
  15. 486  IF CM$ = "E"  THEN 1000
  16. 490  GOTO 100
  17. 1000 FL$ = F$:TY$ = FT$
  18. 1005  IF CM$ < >"L"  THEN 1100
  19. 1010  IF TY$ = "BAS"  THEN  PRINT  CHR$(4)"LOAD "FL$
  20. 1020  IF TY$ = "BIN"  THEN  PRINT  CHR$(4)"BLOAD"FL$: PRINT "FILE LOADED": END 
  21. 1030  PRINT "CAN'T LOAD TYPE "TY$
  22. 1040  GOTO 9000
  23. 1100  IF CO$ < >"DE"  THEN 1200
  24. 1110  PRINT  CHR$(4)"UNLOCK "FL$
  25. 1120  PRINT  CHR$(4)"DELETE "FL$
  26. 1130  GOTO 490
  27. 1200  IF CM$ < >"R"  THEN 1300
  28. 1205  PRINT  CHR$(21)
  29. 1210  IF TY$ = "BAS"  THEN  POKE 2048,0: POKE 104,8: PRINT  CHR$(4)"RUN"FL$
  30. 1220  IF TY$ = "BIN"  THEN  PRINT  CHR$(4)"BRUN"FL$
  31. 1222  IF TY$ = "SYS"  THEN  PRINT  CHR$(4)"-"FL$
  32. 1225  IF TY$ < >"BIN"  THEN  PRINT "CAN'T RUN TYPE "TY$
  33. 1230  GOTO 9000
  34. 1300  IF CM$ < >"V"  THEN 1400
  35. 1310  IF TY$ < >"TXT"  THEN 1350
  36. 1320  PRINT  CHR$(4)"PR#3"
  37. 1325  ONERR  GOTO 10000
  38. 1330  PRINT  CHR$(4)"SHOWTXT "FL$
  39. 1335  POKE 216,0
  40. 1340  PRINT  CHR$(21): GOTO 490
  41. 1350  IF TY$ < >"TXT"  THEN  PRINT "CAN'T VIEW TYPE "TY$
  42. 1360  GOTO 9000
  43. 1400  IF CM$ < >"E"  THEN 9900
  44. 1410  INPUT "ENTER NEW FILENAME:";NF$
  45. 1420  PRINT  CHR$(4)"RENAME "FL$","NF$
  46. 1490  RUN 
  47. 9000  PRINT "(PRESS ANY KEY TO CONTINUE) : ";: GET KY$
  48. 9900  GOTO 490
  49. 9999  END 
  50. 10000  REM  ERROR WHEN RUNNING SHOWTXT
  51. 10005  POKE 216,0
  52. 10010  PRINT  CHR$(4)"-/HARD/COMMANDS/SHOWTXT"
  53. 10015  HOME 
  54. 10020  GOTO 1330