home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / PRO.BYTER.SHK / PRO.BYTER / NOTES.bas < prev    next >
BASIC Source File  |  2000-01-01  |  7KB  |  63 lines
  1. 50  SPEED= 255:Q$ =  CHR$(34): PRINT  CHR$(21): TEXT : POKE 49166,0:PG = 1: ONERR  GOTO 9900
  2. 70 PMAX = 11: ON PG GOTO 5000,3000,5500,6037,6000,2000,6500,4000,4009,7000,7100
  3. 2000  HOME : INVERSE : PRINT " BYTEZAP.PRO ";: NORMAL : PRINT " DUMMY FILE NAMES ": GOSUB 8000: PRINT "HERE'S HOW YOU MAKE ZERO-BLOCK CATALOG  TITLES LIKE THOSE ON THE PRO-BYTER DISK:";: PRINT 
  4. 2020  PRINT "- MAKE A BACK-UP COPY OF A DISK, AND      DELETE A FILE FROM IT.": PRINT : PRINT "- RUN BYTEZAP.PRO AND FIND THE DELETED    FILE NAME (SEE PAGE 15)."
  5. 2030  PRINT : PRINT "- CHANGE THE DELETED NAME. IF LESS THAN   15 CHARACTERS, END IT WITH SPACES."
  6. 2040  PRINT : PRINT "- REFER TO PAGES 30-31 IN YOUR MANUAL,    AND CHANGE BYTE [C]-[D] TO 1F.                                     --         - CHANGE BYTES [F],[G],[H] & [I] TO 00.   WRITE CHANGES TO DISK.            -- "
  7. 2050  PRINT : PRINT "- ADD $01 TO BYTES [S] BY THE DIRECTORY   NAME. (EXAMPLE: 0900 BECOMES 0A00.)     WRITE THE CHANGE TO DISK."
  8. 2060  GOTO 9000
  9. 3000  HOME : INVERSE : PRINT " PRODOS PROBLEMS ": GOSUB 8000
  10. 3010  PRINT : PRINT "]RUN PROGRAM": PRINT : PRINT "PATH NOT FOUND": PRINT : PRINT : PRINT "]CATALOG": PRINT : PRINT "PATH NOT FOUND": PRINT : PRINT 
  11. 3020  PRINT "IF YOU'RE HAVING <PATH NOT FOUND>       PROBLEMS, READ PAGES 4, 53 AND 54       IN YOUR PRO-BYTER MANUAL.": GOTO 9000
  12. 4000  HOME : INVERSE : PRINT " QSORT ";: NORMAL : PRINT " (PAGE 42)": GOSUB 8000
  13. 4005  PRINT : PRINT "SORTING EXTRA VARIABLES (PRODOS):": PRINT "-----------------------": PRINT "USE QSORT.EXTRA.VAR WITH BEAGLE BROS'   EXTRA-K DISK'S EXTRA.VARIABLES PROGRAM  (STORES VARIABLES IN AUXILIARY MEMORY).": PRINT 
  14. 4007  PRINT "  1. BRUN EXTRA.VARIABLES": PRINT "  2. BRUN QSORT.EXTRA.VAR": PRINT "  3. ";: FLASH : PRINT "IMPORTANT!";: NORMAL : PRINT " NOW TYPE "Q$"CLEAR"Q$".": HTAB 27: PRINT "-----"
  15. 4008  PRINT "DON'T RELOAD QSORT AFTER QSORT.EXTRA.VARIS LOADED.   -----       ---------------": PRINT "TO USE THE EXAMPLE PROGRAM ON PAGE 42 ORTHE QSORT.DEMO PROGRAM, YOU MUST DELETE THE FIRST LINE.": GOTO 9000
  16. 4009  HOME : INVERSE : PRINT " QSORT ";: NORMAL : PRINT " MORE...": GOSUB 8000
  17. 4010  PRINT : PRINT "AND REMEMBER: QSORT ALWAYS INCLUDES THE FIRST ARRAY ELEMENT (#0) AS PART OF ITS SORTING PROCEDURE. DON'T FORGET TO LOOK AT THE ZERO-TH (1ST) ITEM AFTER SORTING."
  18. 4020  RESTORE : FOR I = 0 TO 10: READ A$: POKE 50,63 +192 *(I >0): PRINT "A$("I")" SPC( I <10)"= "A$: NEXT 
  19. 4030  DATA MR.BUBBLE,MR.CHIPS,MR.CLEAN,MR.ED,MR.GOODWRENCH,MR.MAGOO,MR.REE,MR.ROGERS,MR.T,MR.OCTOBER,MR.WIZARD
  20. 4090  TEXT : GOTO 9000
  21. 5000  POKE 1063,160: POKE 1191,160: POKE 1319,160: POKE 1447,160: INVERSE :A$ = ":         :"
  22. 5002  FOR I = 2 TO 15: VTAB 2: HTAB 30 -I: PRINT " PRO-BYTER ": PRINT : HTAB 30 -I: PRINT A$: VTAB 1: HTAB I: PRINT A$: PRINT : HTAB I: PRINT "   NOTES   ": FOR J = 1023 TO 1407  STEP 128: POKE J +I -1,160: POKE J +41 -I,160: NEXT : NEXT : NORMAL : VTAB 4: HTAB 41 - LEN(V$): PRINT V$;
  23. 5010  CALL  -958: FOR I = 1 TO 333: NEXT : PRINT : PRINT "   THESE NOTES ARE AN UPDATE TO YOUR         PRO-BYTER INSTRUCTION MANUAL."
  24. 5020  PRINT : PRINT "      [ANY KEY] ADVANCES TO NEXT PAGE      [LEFT-ARROW] GOES BACK A PAGE                  [ESC] LETS YOU QUIT": PRINT 
  25. 5030  PRINT : INVERSE : PRINT " NOTICE:": NORMAL : PRINT : PRINT "IF YOU DON'T HAVE    NAME...............A PRO-BYTER MANUAL,                     CLIP THIS COUPON---> ADDRESS............";
  26. 5040  PRINT "AND MAIL IT ALONG                       WITH $34.95 (+1.50)  CITY...............TO BEAGLE BROS.                                              STATE....ZIP.......WE SHIP SAME DAY.": PRINT "NEW DISK INCLUDED.";
  27. 5050  FOR I = 24 TO 15  STEP  -1: VTAB I: HTAB 20: INVERSE : PRINT "^"; CHR$(8);: NORMAL : FOR J = 1 TO 9: NEXT : PRINT "!";: NEXT : POKE 1251,190: VTAB 14: HTAB 20: PRINT "+";: FOR I = 21 TO 40: HTAB I: INVERSE : PRINT "="; CHR$(8);: NORMAL : FOR J = 1 TO 9: NEXT : PRINT "-";: NEXT 
  28. 5090  GOTO 9000
  29. 5500  HOME : INVERSE : VTAB 6: PRINT " CONTROL-S ": VTAB 1: PRINT " BYTEZAP.PRO ";: NORMAL : PRINT " (PAGES 5-35)": GOSUB 8000
  30. 5510  PRINT : PRINT "NEW COMMAND:": PRINT "-----------"
  31. 5520  HTAB 13: PRINT "NOW LETS YOU SWITCH TO      ANOTHER DISK DRIVE SLOT."
  32. 5530  PRINT : PRINT "THIS FEATURE IS USELESS, UNLESS YOU HAVEDRIVES CONNECTED TO DIFFERENT SLOTS.    (HARD DISK USERS: SEE NEXT PAGE.)"
  33. 5600  PRINT : PRINT "IF YOU HAVE AN APPLE IIC OR 128K IIE,   YOU CAN SELECT SLOT 3 AND LOOK AT       PRODOS'S BUILT-IN RAM DISK, WHICH IS THESAME AS SLOT 3, DRIVE 2.": HTAB 14: PRINT "-        -"
  34. 5900  GOTO 9000
  35. 6000  HOME : INVERSE : PRINT " BYTEZAP.PRO ";: NORMAL : PRINT " MORE...": GOSUB 8000
  36. 6020  PRINT : PRINT "YOU CAN WRITE A TRACK TO ANY DISK       (NOT JUST THE ONE YOU HAVE READ FROM)   BY REMOVING THE CHECKSUM STATEMENT      (WITH VARIABLE 'CS') NEAR LINE 4000."
  37. 6025  PRINT : PRINT "YOU CAN'T EASILY UNDELETE A PRODOS      FILE LARGER THAN 1 BLOCK, BECAUSE THE   'DELETE' COMMAND ZAPS A FILE'S INDEX    BLOCK (PG.33) FOR NO APPARENT REASON."
  38. 6028  GOTO 9000
  39. 6037  HOME : INVERSE : PRINT " BYTEZAP.PRO ";: NORMAL : PRINT " HARD DISK NOTES": GOSUB 8000
  40. 6039  PRINT : PRINT "BYTEZAP.PRO WAS DESIGNED TO READ FLOPPY DISKS. IT MIGHT WORK WITH YOUR HARD DISKAND IT MIGHT NOT. DIFFERENT BRANDS VARY.";
  41. 6040  PRINT : PRINT "BYTEZAP.PRO NOW AUTOMATICALLY SETS THE<CTRL-M>MAXIMUM BLOCKS, SO TRY IT WITH YOUR HARDDISK BEFORE MAKING ANY OF THE CHANGES ONPAGE 77 OF THE MANUAL."
  42. 6041  PRINT : PRINT "THE DISK MAP WILL ONLY READ THE FIRST   279 BLOCKS ON YOUR HARD DISK.": PRINT : PRINT "DOS 3.3 DIRECTORIES AND FILES MIGHT NOT BE READABLE AT ALL."
  43. 6100  GOTO 9000
  44. 6500  HOME : INVERSE : PRINT " TYPE ";: NORMAL : PRINT " (PAGE 36)": GOSUB 8000
  45. 6510  PRINT : PRINT "TYPE NOW WORKS WITH ANY VERSION OF": PRINT "PRODOS BECAUSE IT RELOCATES ABOVE HIMEM INSTEAD OF WITHIN BASIC.SYSTEM.": PRINT 
  46. 6515  PRINT "THE NEW TYPE MAY BE USED FROM WITHIN": PRINT "AN APPLESOFT PROGRAM.": PRINT 
  47. 6520  PRINT : PRINT "BONUS": PRINT "-----": PRINT "APPLEWORKS (AWP) FILES CAN BE TYPED": PRINT "JUST LIKE NORMAL TEXT FILES."
  48. 6540  GOTO 9000
  49. 7000  HOME : INVERSE : PRINT " MEM.ZAP ";: NORMAL : PRINT " (PAGE 45)": GOSUB 8000
  50. 7005  PRINT : PRINT "MEM.ZAP.1000 HAS BEEN DROPPED. THE NEW": PRINT "MEM.ZAP RELOCATES ITSELF ABOVE HIMEM.": PRINT 
  51. 7007  PRINT : PRINT "PAGE 48": PRINT "MEM.ZAP NOW LISTS AUXILIARY MEMORY."
  52. 7008  GOTO 9000
  53. 7100  HOME : INVERSE : PRINT " ERRATA ";: NORMAL : PRINT " (PAGE 21)": GOSUB 8000
  54. 7105  PRINT : PRINT Q$"EXAMPLE: 25-JAN-42 06:42"Q$" SHOULD BE": PRINT Q$"EXAMPLE: 25-JAN-42 06:21"Q$"
  55. 7108  GOTO 9000
  56. 8000  NORMAL : FOR I = 1 TO 40: PRINT "-";: NEXT : RETURN 
  57. 9000  POKE  -16368,0: POKE 2037,75: POKE 2038,69: POKE 2039,89
  58. 9002 K =  PEEK( -16384): ON K <128 GOTO 9002: POKE  -16368,0:K = K -128: IF K = 27  THEN  VTAB 23: PRINT : CALL  -868: VTAB 23: PRINT  CHR$(4)"-/PRO.BYTER/STARTUP"
  59. 9010  IF K = 8  OR K = 10  THEN PG = PG -1: IF PG <1  THEN PG = PMAX
  60. 9020  IF K < >8  THEN PG = PG +1: IF PG >PMAX  THEN PG = 1
  61. 9030  GOTO 70
  62. 9900  IF  PEEK(222) = 6  THEN  END 
  63. 9910  POKE 216,0: RESUME