home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #4
/
Commodore_Disk_User_Vol.1_4_1988_-.d64
/
compactor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
820b
|
21 lines
10 rem********************************
20 rem* test program to illustrate *
30 rem* compactor's capabilities *
40 rem********************************
50 rem
55 print "[147][158]";:print " basic compactor":print
60 print "compactor removes all unnecessary spaces - those not in quotes"
70 print : print "it also takes out all rems including";
80 print " those at the end of lines.":rem just like this one
90 print:print"it removes all code that will never be used by the program...":goto 200
100 print "like this line"
200 print:print "...and it can combine many lines";
210 print " into one,";
220 print " saving space used on line numbers etc."
230 print:print "you don't need this demo to load the program."
240 print:print"it can be done by typing load 'comp.mc',8,1 followed by";
250 print " sys 49152[158]"
260 print:print "loading compactor..."
300 if a=0 then a=1:load "comp.mc",8,1
310 sys 49152