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