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