LIST PAGES

PAGE RESIZE pageno, width, height

mode 13,16 '400x300
page resize 3,200,200
page resize 2,200,200
list pages
page write 2
cls
print "Hello this is a test of the first very long string to see if it wraps. "
print "Hello this is a test of the second very long string to see if it wraps. "
print "Hello this is a test of the third very long string to see if it wraps. "
print "Hello this is a test of the fourth very long string to see if it wraps. "
print "Hello this is a test of the fifth very long string to see if it wraps. "
print "Hello this is a test of the sixth very long string to see if it wraps. "
print "Hello this is a test of the seventh very long string to see if it wraps. "
print "Apparently it works. Smiley face"
box 0,0,mm.hres,mm.vres ' mm.hres and mm.vres track the current write page
page write 0
page copy 2 to 3' can do this because they are the same size
BLIT 0,0,100,50,200,200,3' pages are different sizes so have to use BLIT
do:loop

#DEFINE "replacethis", "withthis"

#DEFINE "FROMSTRING","print"
#DEFINE "endstring","end"
'
FROMSTRING "Hello" 'will be converted to PRINT "Hello"
'
#DEFINE "fromstring","TEXT 100,500,"
FROMSTRING "Hello" 'will be converted to TEXT 100,100,"Hello"
'
print @(0,mm.info(Fontheight))"fromstring" 'won't be converted
print ""
'
list
ENDSTRING

> Print Mm.Info(FileSize "A:")
-1
> Print Mm.Info(FileSize "/")
-1
> Print Mm.Info(FileSize "\")
-1
> Print Mm.Info(FileSize "A:/zmim")
-2
> Print Mm.Info(FileSize "A:\zmim")
-2
> Print Mm.Info(FileSize "\zmim")
-2
> Print Mm.Info(FileSize "/zmim")
-2

> chdir "/"
> Print Cwd$
A:/
> chdir "ZMIM"
> Print Cwd$
A:/ZMIM