home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 33MASTER.DSK / RENUMBER.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  25 lines
  1. 1000  REM        RENUMBER  
  2. 1010  TEXT : HOME : INVERSE : SPEED= 255
  3. 1020 S$ = "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
  4. 1030 SS$ = "&                                      &"
  5. 1040  PRINT S$;SS$;
  6. 1050  PRINT "&"; TAB( 11);"APPLESOFT RENUMBER"; TAB( 40);"&";
  7. 1060  PRINT SS$;
  8. 1070  PRINT "&"; TAB( 4);"COPYRIGHT 1978  APPLE COMPUTER INC"; TAB( 40);"&";
  9. 1080  PRINT SS$;S$
  10. 1090  NORMAL 
  11. 1100  PRINT : PRINT : PRINT "RENUMBER   (DEFAULT VALUES)"
  12. 1110  PRINT : PRINT "& [FIRST 10] [,INC 10] [,S 0] [,E 63999]"
  13. 1120  PRINT : PRINT "MERGE"
  14. 1130  PRINT : PRINT "&H   PUT PROGRAM ON HOLD"
  15. 1140  PRINT "&M   MERGE TO PROGRAM ON HOLD"
  16. 1150  VTAB 24
  17. 1160  PRINT "PRESS 'RETURN' TO CONTINUE...";
  18. 1170  GET A$
  19. 1180  IF  ASC(A$) = 3  THEN  END 
  20. 1190  IF  ASC(A$) < >13  THEN 220
  21. 1200  HOME : PRINT  TAB( 4)"RENUMBER IS INSTALLED AND READY"
  22. 1210  VTAB 8: PRINT "IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'"
  23. 1220  PRINT : PRINT "  YOU WILL HAVE TO RE-RUN RENUMBER"
  24. 10000  REM  DO NOT CHANGE 10010
  25. 10010  CALL  PEEK(121) + PEEK(122) *256 +31