Oakland CPM Archive/oakcpm.iso/cpm/misc/mouse.lbr/FILES.MZE/FILES.MSE

Text File | 1988-07-12 | 8.0 KB | 319 lines

~
~ This program summarizes the content of the files in MOUSE.LBR.
~
~ Updated  02/05/88  Note: Invokes HELP.MSE
~
1 v :   ~ Make true
(
v. ^
#Z;
"!
          FILES.MSE as of 02/05/88

    A. Credit, date of last update, and a plea
    B. An ASCII table generation program
    C. Coconuts and Missionaries
    D. Online newsletters
    E. The Odd House problem
    F. The Help system
    G. Programs which self-generate
    H. The Mouse interpreter
    I. The numbers program
    J. Old MacDonald Had A Farm
    K. Got something you've written ????
    L. Mouse program to test the interpreter
    M. Solving linear equations
    N. Drawing a Mouse on your screen

    X. Exit.

"
?' r :
r. 'a 1 - > [r. 32 - r :]     ~ Make upper case if necessary

r. 'A = [#A;]   ~ call appropriate text module
r. 'B = [#B;]
r. 'C = [#C;]
r. 'D = [#D;]
r. 'E = [#E;]
r. 'F = [#F;]
r. 'G = [#G;]
r. 'H = [#H;]
r. 'I = [#I;]
r. 'J = [#J;]
r. 'K = [#K;]
r. 'L = [#L;]
r. 'M = [#M;]
r. 'N = [#N;]

r. 'X = [0 v :]
)

$A
#Z;
"
MOUSE.LBR was built by Lee R. Bradley and released to the Public
Domain on 02/05/88.

My address and telephone number are

Lee R. Bradley, Mouse House Software
24 East Cedar Street, Newington, CT  06111

[phone], [phone] (PBBS/RCP/M)

I would appreciate a check for whatever you feel this is worth.
I think it's worth at least 15 dollars.  Enjoy" '!!'
"!"
?'
@

$B
#Z;
"
ASCII.COM
ASCII.MZE   (Crunched form of ASCII.MSE)

This  program  will  generate an ASCII  table,  showing  decimal,
hexadecimal and character values for the 128  possibilities.  You can
get a 1, 2, 3, 4 or 5 column table.   4 or 5 are nice if you put  a
dot matrix printer in compressed character mode  first, and  then hit
CTRL-P (output to printer as well as screen) before running the
program.

Options 4 and 5 wrap-around on the CRT.  Ask for a 1,2 or 3 column
table for screen viewing.
...

"
?'
#Z;
"
ASCII.COM is an executable form of ASCII.MSE. It was  produced by
running the Mouse interpreter against  ASCII.MSE and then by typing

A>SAVE 16 ASCII.COM

after the program finished running.  The number of pages to save
varies with the size of the Mouse program.  The interpreter itself
requires 8 pages (2 K).  A conservative rule would be this:  Take the
size of the .MSE source file (in K), multiply it by 4 and add 8 (for
the interpreter) to the result.  In ASCII.MSE's case, (2 * 4) + 8 = 16
pages.

"
?'
@

$C
#Z;
"
COCONUT.MZE   (Crunched form of COCONUT.MSE)

This is a fairly ambitious program which solves a silly little problem
about a bunch of missionaries who try to divvy up a bunch of coconuts.
The more you run it, the more you'll see it can do.   The original
version was about 10 lines long.  I got a little carried away.  Study
the source and run it frequently.  If you understand this one, you're
on your way to being a Mouse programmer.
"
?'
@

$D
#Z;
"
CCP/M.LZR   (Crunched form of CCP/M.LTR)

This program doesn't have an extension of .MSE but it is an executable
Mouse program.  It is an online newsletter as well (thus the .LTR
extension).  It is included in this package to show how easy it is to
create menus in Mouse.  (Actually, it is a skeleton for an online
newsletter.  I've used it once and it worked very well.  Add in your
own text.  You could even branch to other Mouse modules from it...)
"
?'
@

$E
#Z;
"
ODD.MZE   (Crunched form of ODD.MSE)

One of the articles in the online newsletter included in this package
(CCP/M.LTR) used to mention a Programming Contest.  This little
program solved an Odd House problem.  See also SELFGEN.*.
"
?'
@

$F
#Z;
"
FILES.MZE      (Crunched form of FILES.MSE)  (This file)
HELP.MZE       (Crunched form of HELP.MSE)
MOUSE.AZT      (Crunched form of MOUSE.ART)  (An article on the Mouse language)

HELP.MSE summarizes the instruction set of Mouse.  The article gives
an overview of the language.  See also NUMBERS.MSE.

Would you like to enter HELP.MSE now ? (Y/N) " ?' r :
"!"
r. 'Y - r. 'y - * 0 =
[
#Z;
&HELP&
]

@

$G
#Z;
"
SELFGEN.DZC   (Crunched form of SELFGEN.DOC)
SELFGEN.MZE   (Crunched form of SELFGEN.MSE)

Ever tried to write a program which when run prints out its own source
code?  Not easy to do in Mouse, but I finally got it to go.  The .DOC
file has the background and also an MBASIC solution.
"
?'
@

$H
#Z;
"
MOUSE.COM     Mouse interpreter (Z-80)
MOUSE.MZC     (Crunched form of MOUSE.MAC)  (Source code.

This is the Mouse interpreter.

See Peter Grogono's 'Mouse: a language  for  microcomputers', 1983,
Petrocelli Press.  I have copies of this if you need it.  It is
somewhat difficult to find copies of this.

The Z-80 interpreter is a fairly ambitious effort.  It shows  just how
much can be packed into 2 K bytes,  the size of the assembled code.
Programs of about 16 K bytes of source code (plus comments) may be
interpreted.
"
?'
@

$I
#Z;
"
NUMBERS.MZE   (Crunched form of NUMBERS.MSE)

This is a good  starter program and illustrates  all  the  basic
constructs of Mouse;  I/O,  loops,  the if construct, arithmetic and
subroutines.
"
?'
@

$J
#Z;
"
OLDMACDO.MZE    (Crunched form of OLDMACDO.MSE)

Peter Grogono wrote this little gem. Difficult to follow, but fun to
run, run it when you want to entertain yourself,  or a child.  The
recursive structure of a famous nursery rhyme is captured by this fun
program.
"
?'
@

$K
#Z;
"
If you like Mouse and have written something you'd like to share why
don't you call my PBBS/RCP/M [phone] and send it along?  I
would enjoy hearing from you.
"
?'
@

$L
#Z;
"
TEST.MZE    (Crunched form of TEST.MSE)

This exercises the interpreter itself and is another good program to
study when you're learning the language.  It prints out  lines like

        1000=1000=1000=1000 etc.

Each 1000 is computed by a different method.
"
?'
@

$M
#Z;
"
SOLVE.MZE    (Crunched form of SOLVE.MSE)

This solves  a system of 3 equations in 3 unknowns.  The user  is
provided  with  a  data entry form.  This form uses  a  macro  to
position the cursor at a specified row and column and is therfore
terminal  hardware  specific.  ADM-3A escape sequences  are  used
here.  This  macro  is the work horse in Z80.MSE  as well  (which
see).  The 12 numbers entered  (9 coefficients, 3 right-hand-side
values)  are manipulated to give the  exact  and unique answer to the
system, if it exists.
...

"
?'
#Z;
"
Try writing a program which solves the system below:

       38x  -21y   +16z  = -8
        3x  +10y    -1z  =  4
       -8x   -4y   +11z  = 18

(exact,  formatted, mixed number answers, please) and see if you can
do it in 4 K.  The hardest part of this program was the  line which
printed the answer. For the system above, it gives

      x = -2682/5641
      y = 3932/5641
      z = 1 3069/5641
"
?'
@

$N
#Z;
"
Z80.MZE   (Crunched form of Z80.MSE)

This program draws a Mouse on the screen. Kaypro escape sequences are
used.

It consists mostly of a bunch of row and column coordinates which tell
the  cursor where to position itself before  plotting.  The letter  Z
and  the  numbers  8 and  0  are  each  drawn  with  a corresponding
macro  as  is the  mouse  itself.  Horizontal  and vertical  line
drawing macros were written to draw the  straight line segments in the
figure. A macro which does nothing but pause a specified number of
seconds was written to give the viewer time to see the figure, once
drawn.
"
?'
@

$Z     ~ Universal clear screen macro
'Z '@ - !'   ~ Just for ADM-3A , won't hurt others, hopefully ...
~ Above is clever (and readable) way of coding ^Z
24 w :
(
w. ^
'J '@ - !'
w. 1 - w :
)
@