From 61533dab3d08f91a469d3cb11e92cbe41dbd3cd4 Mon Sep 17 00:00:00 2001 From: quentinnuk <36699389+quentinnuk@users.noreply.github.com> Date: Wed, 28 Mar 2018 01:18:28 +0100 Subject: [PATCH] MUD.MIC from printout Created MUD.MIC file from scan of print. May contain errors. --- mud.mic | 136 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 136 insertions(+) create mode 100644 mud.mic diff --git a/mud.mic b/mud.mic new file mode 100644 index 0000000..12197b9 --- /dev/null +++ b/mud.mic @@ -0,0 +1,136 @@ +.noerror +.if ($A#"") .goto 'A +!To compile load and save MUD in its entirety say .do mud m. +!If the database file DBADAT and also MBOOTS in .rel form +!then say .do mud b. To just compile MUD.BCL say .do mud r. To merely load +!MUD say .do mud r2. To compile bits of mud DO MUD for MUD.BCL +!To compile load and save DBASE say .do mud dm if the database file DBADAT +!is not already compiled, .do mud db if it is. +!To compile and load POWER, .do MUD p +!To produce documentation say .do mud doc. +!To delete MUD.MAS and make a new one say .do MUD new. +!To tidy up the area then logout .do MUD tidy. +!To reassemble and load a MUD with smaller freevec .do MUD s +!To do M and DB options together, .do MUD all +.mic exit +P:: +.r sys:bcpl +*power/o +*!power/g +ssa power +.mic exit +ALL:: +M:: +.r macro +*dbadat=dbadat +*mboots=mboots +*^Z +B:: +.r bcpl +*mud0/o +*mud1 +*mud2 +*mud3 +*mud4 +*mud5 +*mud6 +*mud7 +*mud8 +*mudlib +*^Z +R2:: +.r link +*mud0,mud1,mud2,mud3.mud4.mud5.mud6.mud7.mud8.mudlib,mboots/counter/set:.high.:5 +01501 +*dbadat/o +.ssa +.if ($A="all") .goto DB +.mic exit +DM:: +. r macro +*dbadat=dbadat +*C +DB:: +.r bcpl +*dbase/o +DL:: +.r link +*/set:.high.430000 +*dbase,lib:bcplib/search/set:.high.:501501,dbadat/g +.nsa +.mic exit +R:: +.r bcpl +*mud0/o +*mud1/o +*mud2/o +*mud3/o +*mud4/o +*mud5/o +*mud6/0 +*mud7/o +*mud8/o +*^Z +.backto R2 +0:: +1:: +2:: +3:: +4:: +5:: +6:: +7:: +8:: +.r bcpl +*mud'A/o +*^Z +.backto R2 +DOC:: +.r form +*muddle/p1 +*muddle/camera +.mic exit +DEL:: +NEW:: +MAS:: +.r setsrc +*c dsk,* +*^Z +.r ed +*del mud.mas +*q +.r subfil-mud.sub +.pro mud.mas<477> +.mic exit +ML:: +.r bcpl +*mudlib/o +*^Z +.backto R2 +S:: +.r macro +*dbadat=dbadat +*^Z +.r link +*mud0,mud1,mud2,mud3,mud4,mud5,mud6,mud7,mud8,mudlib,mboots/counter/set:.high.:5 +01501 +*dbadat/g +.ssa +.r link +*/set:.high.:430000 +*dbase,lib:bcplib/search/set:.high.501501,dbadat/g +.nsa +.mic exit +TIDY:: +.r subfil-mud.sub/d +.del *.rel +.del mud.dmp +.if ($B="") .goto logout +.cop 'B_mud.mas +.cop 'B_mud.txt +.cop 'B_dbase.exe +.cop 'B_mud.?pm +LOGOUT:: +.del dbase.exe +.if ($C="") .r logout +.mic exit -- 2.31.1