**** gj2-y2pc for y2000pc which, when started with code2 gj2-y2pc builds up all the high-level functionality of the always brand-new L I S A P R O G R A M M I N G L A N G U A G E yeah yeah!!! ;) COPYRIGHT CONDITIONS * * * * * * * * * * First published by Yoga4d von Reusch Gamemakers, Holmenveien 68, 0376 Oslo, in 2007. In addition to seminars arranged, direct sales in that connection, sales over internet, and excerpts available on internet, it is at once, inside the format of a comprehensive book, also sent to various libraries including National Library of Norway cfr their website www.nb.no. Copyright author worldwide, all rights reserved Copyright ** Aristo Tacoma alias S H Reusch, 2007, all rights reserved to this original work. Copyright conditions: Any reproduction of any content herein, beyond normal quoting, only by written consent with the author. Stein Henning Reusch asserts the copyright of this book (Aristo Tacoma is a pen name, while Henning von Weber, Stein von Reusch, Henning Braten are other pen names for S H Reusch). In addition, by respectful application of the Yoga4d.com/cfdl.txt license, some further distribution in some contexts are allowed. neo@yoga4d.com See Quarterly Journal of Neopopperian Science for update links! (this rather than tripod because we wanted greater independence from internet) **** FOR THE LIBERATION OF GOOD ECONOMY AND SELF-CONTROL (IE., ABSOLUTE INDEPENDENCE) AND NUTRITIOUS HAPPINESS -- FREE TO GO WHERE ONE WANTS (ALSO WITH COMPUTERS) AND WITH WHO ONE WANTS, EARNED BY EXCELLENCE IN YOUTH ZONE ORIENTATION: THIS IS THE LISA PROGRAMMING LANGUAGE COPYRIGHT (C) 2007 ETC ARISTO TACOMA, AND THIS IS THE GJ2.TXT WHICH TOGETHER WITH THE CODE2 PROGRAM OF MINE STARTS UP THE LISA FORMALISM IN THE GJ2 EDITION. THIS DOCUMENT, TOGETHER WITH THE GJ2-UPDATED MTDOC.TXT, IS PART OF 'STUDY HANDBOOK FOR NEOPOPPERIAN SCIENCE', ISBN 82:996977:0:2, 2008/A, (2nd Ed.) PUBLISHED BY YOGA4D VON REUSCH GAMEMAKERS (1st ed. 2007). GENERAL INFO: ======================================================================= THE LISA PROGRAMMING LANGUAGE IS A NOVEL FORMALISM, A NOVEL PROGRAMMING LANGUAGE, BUILDING VERY CREATIVELY ON IMPORTANT ELEMENTS OF FORTH AND ON ESTHETICS FROM LISP, BUT GOING WAY BEYOND THESE. IT IS MADE FOR US YOUNG WHO REALIZE THE COHERENCE OF REJUVENATING JOY BY TANTRIC PORNOGRAPHY/SEX. GJ2.TXT -- The Lisa Programming Language by Aristo Tacoma (GJ2 edition) Although this is made for the love of it, and the love, even more deeply, of the people who will use it, and feel empowered by it, this has also taken its thousands of hours -- from the CODE1 compiler and up to this, and what comes, and so I assert protection for this: WORLDWIDE COPYRIGHT ARISTO TACOMA S.H.REUSCH ALL RIGHTS RESERVED THE YOGA4D COPYRIGHT AND FURTHER DISTRIBUTION LICENSE APPLIES ON THIS PRODUCT AS A WHOLE WITH ALL ASSOCIATED FILES, COMPLETELY INTACT. The content of the MTDOC.TXT associated (new, for this) manual is printed in paperback as part of 'Study Handbook for Neopopperian Science', by Aristo Tacoma, Publisher: Yoga4d:VRGM, ISBN 82-996977-0-2, and in autumn term 2007 available also at National Library of Norway and other libraries, as well as for sale at yoga6d.com/prices * * * * * * * * "[...] Khedron let Alvin look his fill. Then he pointed to the diminutive city and said: 'Do you know what that is?' "Alvin was tempted to answer 'A model, I suppose,' but that answer was so obvious that he was sure it must be wrong. So he shook his head and waited for Khedron to answer his own question. "'You remember,' said the Jester, 'that I once told you how the city was maintained -- how the Memory Banks hold its pattern frozen for ever. Those Banks are all around us, with all their immeasurable store of information, completely defining the city as it is today. Every atom of Diaspar is somehow keyed, by forces we have forgotten, to the matrices buried in these walls.' "He waved towards the perfect, infinitely detailed simulacrum of Diaspar that lay below them. [...]" -- Arthur C. Clarke in "The City and the Stars", 1956, ISBN 0-575-03849-7 (London) ......LISA.GJ2.EDITION..created.by.ARISTO.TACOMA.and.copyright.SAME,... ......all.rights.reserved..License.for.further.distribution... ......is.the.YOGA4D.CFDL.as.on.yoga4d.com/cfdl.txt.and.as.reproduced... ......here,.at.the.concluding.pages.of.this.document..Please.respect.this.. ......Any.reproduction.of.this.text.or.its.derivatives... ......must.be.complete.with.author.acknowledgements.and.all.these.license.. ......texts,.as.well.as.all.original.sources.without.any.exception... ......ABSOLUTELY.UNMODIFIED;.see.the.CFDL.text.for.more.details... ......The.product.is.free.and.comes.WITHOUT.ANY.WARRANTY... THE LISA PROGRAMMING LANGUAGE EDITION GJ2 CREATOR: ARISTO TACOMA LICENSE: YOGA4D.COM/CFDL.TXT REDISTRIBUTION OF OPEN SOURCE IN INTACT FORM I9 PROVIDES IMAGEEDIT, TIMING A GOOD AFFIRMATION TIMER, WORDWRAP FIX .TXT TYPE :PROGNAME IN TO COMPILE A LISA FORMALISM, OR XO TO EXIT COPYRIGHT STEIN HENNING REUSCH ALL RIGHTS RESERVED ACROSS THE UNIVERSE THIS EXPANDS (AND SLIGHTLY MODIFIES TOWARDS LIGHT GREEN SPRING ART) THE STANDARD NOD501.TXT WHICH I MADE FOR LISA LANGUAGE EARLIER IN 2007, WITH NEW EDITORS TO REPLACE THE EARLIER (BELOVED) MONET AND KINGLINE, AND SCREEN GRAPHICS ORIENTED TOWARDS A BRILLIANT FUTURE OF A NEW STYLE OF WARM MINIMALISM HEALING ESTHETICS FUNCTIONALISM HARDWARE CFR QS JOURNAL AT yoga6d.com/caa-academy/science. MUCH DEVELOPMENT IS GOING ON ALSO USING DJ9 AND SPONSORING FOR BILLIONAIRES ARE, BY THE WAY, STRANGELY ENOUGH, HOTLY WELCOME AND RICHLY REWARDED IN TERMS OF SPLENDID GOOD POSITIVE VIBRATIONS -- A NONREFUTABLE PROPOSAL. THIS NEW EDITION IS COMPLETED IN OCTOBER 2007. THIS IS OPEN SOURCE IN THE YOGA4D.COM/CFDL.TXT LICENSE SENSE, WHICH MEANS THAT REDISTRIBUTION IS GRANTED BY THE COPYRIGHT HOLDER, WHICH IS THE UNDERSIGNED (ARISTO TACOMA ALIAS SHR, OF YOGA4D VON REUSCH GAMEMAKERS), ON CONDITION THAT THE FILE IS NEITHER MADE SHORTER NOR LONGER NOR MODIFIED, AND THAT THE YOGA4D.COM/CFDL.TXT LICENSE, AS ALSO ATTACHED RIGHT AFTER THIS COMMENT, IS INCLUDED. YOU CAN DISTRIBUTE YOUR OWN FILES IN ADDITION, BUT YOU MUST KEEP THEM SEPARATE AND EXPLAIN WHAT IS YOUR OWN CONTRIBUTIONS, AND DO SO RESPECTFULLY OF THE ORIGINAL CONTENT AND INTENT. THIS IS A LEGALLY ENFORCABLE STATEMENT AND PLEASE HEED IT, THANK YOU. ================================================================ THE ARTISTIC PRODUCT OF THE B9 FONT AND THE PROPER FORM OF THE LISA COMPUTATIONAL FORMALISM IS ARTISTICALLY COPYRIGHT THIS AUTHOR BUT USE OF IT IN RESPECTABLE PUBLICATIONS IS GRANTED ON CONDITION THAT THE SOURCE IS ACKNOWLEDGED. SO FOR IT, TOO, THE YOGA4D.COM/CFDL.TXT (AS INCLUDED NEXT), APPLIES. STEIN HENNING REUSCH USES ARISTO TACOMA, STEIN VON REUSCH, HENNING BRATEN, HENNING VON WEBER, AND HENNING W REUSCH AS PEN NAMES, BASED MORE OR LESS ON FAMILY NAMES. ANY COPYRIGHT ASSERTION ASSOCIATED WITH ANY OF THE PEN NAMES LEGALLY, HEREBY, AND PUBLICALLY, IS AN ASSERTION OF THE COPYRIGHT HOLDER OF THIS PROPER NAME, S.H.R. THE ENTIRE YOGA4D FIRTH LISA PLATFORM, FORMALISM, AND PROGRAMMING LANGUAGE IS, AS SEEN TOGETHER WITH VARIOUS OPEN SOURCE AND FREEWARE AND EVALWARE MODULES, AS A WHOLE, COHERENTLY WOVEN TOGETHER BY THIS AUTHOR, CALLED AN 'OAC' OR AN OPERATING APPROACH FOR COMPUTERS, OR 'OS' (OPERATING SYSTEM). THE NAMES, IN THIS CONTEXT, AS MENTIONED ABOVE, INCLUDING ALSO BOEHM, BOEHMIAN, MT, MANHATTAN TRANSFORMATION, I9, B9, DJ9 SOFTWARE UTILITIES, AS WELL AS, IN GENERAL, GJ AND GJ PCs, WARPMECH, GJ WARPCRAFTS, GJ1, GJ2 ETC, LCD TOONS, AND, FOR THE LATTER, ALSO YOUTHZONE19/HICLASSBISEXUALS, BELONG TO THE TRADEMARKS OF THE YOGA4D VON REUSCH GAMEMAKERS COMPANY. THE YOGA4D.COM/CFDL.TXT LICENSE STANDARD TEXT: ***************************A.COMPASSIONATE.LICENSE************************ ..CFDL.TXT.as.on.yoga4d.com/cfdl.txt.and.standard.in.Yoga4d.OAC... ...............///.STANDARD.TEXT.////... ..YOGA4D.CFDL:.THE.YOGA4D.COPYRIGHT.AND.FURTHER.DISTRIBUTION.LICENSE... ...............///.TO.PROTECT.CREATIVITY.FOR.EACH.AND.FOR.ALWAYS.////... ..This.license.can.be.called.on.regarding.any.text.or.program.in... ..the.spirit.of.the.highest,.noblest.and.most.stable.values... ..including.enlightenment,.generosity,.truth,.goodness,.beauty,... ..freedom,.sharing,.dialogue.and,.as.in.all.good.communication,... ..proper.acknowledgement.of.sources.and.influences.... ..Ordinarily,.the.text.which.copies.this.license.text.into.it... ..contains.a.formulation.of.this.type,.which.should.be.tailor-made:... ...........*..created.by./authorname/.and.copyright./authorname/,... ......all.rights.reserved..License.for.further.distribution... ......is.the.YOGA4D.CFDL.as.on.yoga4d.com/cfdl.txt.and.as.reproduced... ......here,.at.the.concluding.pages.of.this.document..Please.respect.this.. .........In.addition,.there.are.changed.*..modules.to.which.other.licenses.. ......apply,.in.particular..*..and.the.original.sources.for.this.are... ......to.be.found..*..*..*..*....(include.them.yourself,.not.just.refs)... ......Any.reproduction.of.this.text.or.its.derivatives... ......must.be.complete.with.author.acknowledgements.and.all.these.license.. ......texts,.as.well.as.all.original.sources.without.any.exception... ......ABSOLUTELY.UNMODIFIED;.see.the.CFDL.text.for.more.details... ......The.product.is.free.and.comes.WITHOUT.ANY.WARRANTY... .. ..THE.PRODUCT.COMES.WITHOUT.ANY.WARRANTY:.EACH.AND.EVERY... ..KIND.OF.USE.OF.IT.IS.THE.RESPONSIBILITY.OF.THE.USER.OF... ..OF.THE.PRODUCT,.NOT.ITS.AUTHOR..IF.THE.PRODUCT.CONTAINS... ..ANY.ADVICES.OR.INSTRUMENTS.WHICH.FOR.ANY.REASON.WHATSOEVER... ..MAY.INFLUENCE.HEALTH.OR.PROPERTY.THEN.TAKE.CAUTION... ..AND.IN.ALL.CASES.THE.RESPONSIBILITY.FOR.USE.IS.YOUR.OWN... ..IF.YOU.DO.NOT.AGREE,.PLEASE.STOP.USING.THE.PRODUCT.... ..It.can.pertain.to.any.program.if.presented.also.in.a.text.form... ..by.its.author(s),.or.to.any.book.manuscript,.or.any.kind.of.document.. ..It.is.a.somewhat.simpler.and.somewhat.stricter.form.of.GNU... ..General.Public.License.(GPL).as.on.gnu.org/copyleft.for.programs... ..and.GNU.Free.Documentation.License.(FDL).also.at.gnu.org/copyleft... ..In.the.sense.that,.as.to.any.program.or.other.kind.of.text... ..which.is.licensed.according.to.YOGA4D.CFDL,.when.this.license... ..is.kept.well,.then.implicitly.GNU.GPL.and/or.FDL.is/are.also... ..kept,.but.not.vice.versa..That.is,.it.is.safe.to.distribute... ..a.GNU.GPL./.FDL.text.according.to.YOGA4D.CFDL.but.the.opposite... ..does.not.automatically.apply.because.CFDL.is.stricter.in.some... ..senses,.emphasizing.the.wholeness.of.the.original.source.and... ..also.the.spirit.in.which.it.is.shared... .. ..This.license.is.ordinarily.reproduced.together.with.a.text... ..to.which.it.applies..It.can.also.be.an.image,.a.3d.model,.a... ..4d.model,.a.musical.digital.file,.or.some.other.kind.of... ..reproduction.but.it.must.be.re-represented.in.some.kind.of... ..textual.form;.for.instance.a.sound.file.can.be.translated... ..by.a.computer.to.a.textfile.giving.the.Yoga4d.program.which... ..plays.it..This.is.in.order.for.the.visibility.of.the.product... ..to.be.evident,.so.that.to.every.product.to.which.YOGA4D.CFDL... ..applies,.they.can.be.even.printed.out.in.paper-form.and.is.as... ..such.totally.independent.of.any.particular.technological.media... .. ..DETAILS.OF.THE.YOGA4D.CFDL.AS.TO.THE.PARTICULAR.PRODUCTS... .. ..1..You.are.free.to.use.these.products.as.long.as.you.adhere... ..to.this.license.and.these.products.are.not.granted.for.use... ..outside.of.this.license.in.any.way.whatsoever... .. ..2..You.are.free.to.make.any.kind.of.improvement,.extension,... ..modification,.deletion,.decompilation,.translation,.substitution,... ..renaming,.or.change.of.any.kind,.or.creation.of.a.new.product... ..influenced.by.this,.automatically.or.manually.or.in.some.other.way,... ..in.the.spirit.of.the.ethical.values.mentioned.first,... ..on.condition.that.you.give.a.prominent.reference.to.the... ..original.position.of.the.product.and.that.you.also.provide,... ..in.full.form,.which.can.however.be.slightly.'packed'.(as.in... ..a..zip.package),.given.that.it.can.be.very.easily.unpacked... ..and.is.easy.to.find.and.faultfree,.the.whole,.unmodified,.unchanged... ..original.source.product.with.all.its.acknowledgements.and.everything... ..intact.in.every.way.without.any.limitation..You.must.also.provide... ..the.main.names.of.the.persons.associated.with.this.product.clearly... ..and.prominently.visible,.for.a.readable.sufficient.duration,.during... ..the.initiation.of.any.product.derived.in.any.way.from.the.original... ..product..The.product.and.this.Yoga4d.CFDL.license.is.regarded... ..as.inseparable.parts.of.a.single.whole.which.must.be.further... ..reproduced... .. ..3..In.the.spirit.of.the.ethical.values.mentioned.first,.you.can... ..also.commercially.put.the.product.into.circulation.on.a.market... ..and.sell.it.if.you.adhere.to.all.the.principles.in.this.license,... ..and.carefully.check.every.module.contained.within.this.text.for... ..their.licenses,.adhering.to.these.also,.and.give.some.grants.or... ..provisions.of.a.decent.kind.to.the.authors.of.these.products... ..if.you.have.been.clearly.helped.in.generating.the.sellable... ..product.by.their.means.and.your.price.is.also.so.that.it.generates,... ..directly.or.indirectly,.a.surplus.income... .. ..4..It.follows.from.the.earlier.points,.but.we.also.make.it.explicit,... ..that.you.are.allowed.to.reproduce.the.exact.product.as.it.is,.... ..or.a.translation.of.it.to.another.language,.and... ..even.charge.a.price.for.it;.however.if.this.is.done.it.must.be... ..clear.that.you.or.whoever.takes.the.initiative.to.this.reproduction... ..does.it.on.the.basis.of.your.own.initiative.and.not.on.the.pretense... ..that.this.is.happening.on.the.initiative.of.someone.else;.and,.in... ..charging.a.price.for.it,.it.must.be.clear.that.if.this.is.more.than... ..cost.price.of.the.medium.of.reproduction.it.should.happen.through... ..some.kind.of.agreement.with.its.author.or.authors... .. ..5..In.the.spirit.of.connectedness.with.all.living.beings,.in.the... ..spirit.of.responsibility.for.the.future.of.all.living.beings,... ..this.product.cannot.be.used.for.purposes.of.sarcasm,.of.violence,... ..or.of.the.perpetuation.of.any.form.of.fundamentalism,.secterianism... ..or.prejudice;.it.cannot.be.used.to.control.living.beings;.if.this... ..product.enables.you.to.use.computers.or.program.robots.these.computers... ..or.robots.cannot.be.used.to.limit.the.free.expressions.of.individuals;... ..it.cannot.be.used.by.governments.involving.dictatorships;.it.cannot... ..be.used.for.secret.military.purposes;.all.uses.of.this.product.must... ..be.in.the.open.and.must.be.warm-hearted.and.with.a.sound.rational... ..instinct.so.as.to.spread.a.sense.of.wisdom.and.compassion.and.not... ..for.bullying.other.people.or.inciting.a.negative.form.of.competitiveness... .. ..6..This.license.can.be.reproduced.in.its.original.form.by.anyone... ..whatsoever.and.attached.to.any.text.by.the.author.of.the.text... ..or.product.if.this.adheres.to.the.ethical.values.here.but... ..it.cannot.be.applied.to.a.text.or.other.kind.of.product.which... ..has.been.taken.against.the.author's.will.or.which.is.a.result... ..of.hacking.into.a.closed.package... .. ..7..If.the.product.that.this.license.applies.to.has.derivative... ..products.which.can.be.somehow.treated.so.as.to.yield.different-looking... ..yet.clearly.related.products.then.this.license.applies.also.to... ..them.and.the.original.text.and.the.license.must.be.supplied... ..along.with.such.derivative.products;.and.the.process.of.derivation... ..must.be.explained.and.that.product.must.also.adhere.to.the... ..principle.of.responsibility.in.a.nonlocal,.connected.sense... ..to.all,.everywhere... ..8..This.license.is.an.affirmation.of.life.and.the.creative... ..compassionate.free.and.open.expressions.of.each.and.every... ..individual.in.the.spirit.of.the.document.'the.compassionate... ..anarchist'.which.is.available.in.the.Dialudes.section.at.yoga4d.com... ..............................SIGNED.BY,................... ......................Stein.von.Reusch,.author.of.this ......................license.which.ensures.the.copyright ......................and.proper.acknowledgement.in.an ......................open.honest.research-like.spirit ......................of.any.kind.of.contribution.which ......................can.be.given.a.textual.form ......................(Stein.von.Reusch.owns.the.YOGA4d.company) ******************A.COMPASSIONATE.LICENSE********************************** =========================================================================== NEXT IS, IN COMMENTARY FORM, A COUPLE OF HUNDREDS OF LINES WHICH DEFINES THE BASIC SYSTEM FONT FOR LISA -- IT IS CALLED LISAFONT.TXT AND SHOULD BE ON STANDARD FOLDER WHEN LISA STARTS UP. =========================================================================== THIS IS LISAFONT.TXT WHICH IS USED FOR SOME BASIC INTERNAL OPERATIONS OF THE LISA LANGUAGE. THE FIRST LINES IN THIS FILE -- WHICH IS IN COMMENTARY FORM INCLUDED WITHIN THE GJ COMPILATION FILES (SO IT IS EASY TO REPRODUCE) -- UP TO LINE 132 IS A FREE COMMENTARY SECTION. I (A.T.) ORIGINALLY MADE THIS FOR A PROGRAM I CALLED FVP (IT WAS THEN CALLED FONT1VPD). THE ROUTINES WERE GENERALIZED INTO XY-POP AND WHAT NOT. WHAT'S ON LINE 132 IS ASSUMED TO BE ASCII 32 (SPACE), ON LINE 133 ASCII 33 (!) AND SO ON. THE FIRST 10 CHARACTERS ARE A COMMENT FIELD WHICH SHOWS THE ASCII NUMBER. FOR ASCII NUMBERS 32..126 THE CORRESPONDING CHARACTERS CAN BE SHOWN; FOR HIGHER NUMBERS, WE ARE INTO CODES WHICH CAN BE USED TO MAKE SKETCHES, PERHAPS. OR USE NEOPAINT, WHICH CAN ALSO ADJUST COLORS EASILY (FIRST AND SECOND COLOR SETS BACKGROUND AND TEXT) * * GOOD DESIGNERS KNOW THAT ONE FONT-SIZE MAKE EXCELLENT WHOLENESS * CODES 32-250 DEFINABLE. * * * * * * REDIST./COPYRIGHT: YOGA4D.COM/CFDL.TXT ******************* PURE-UPPERCASE MODI ******************* INSPIRATION FOR THIS DESIGN CAME FROM LED DISPLAY OF A TINY COMPUTER CALLED NEWBRAIN BY GRUNDY BUSINESS LTD, ENGLAND). EACH LETTER IS DEFINED BY A 'STAR STRIP' WHICH HAS AN ASTERIX FOR EACH OF NINETEEN POSITIONS. WHAT IS NOT ASTERIX IS QUOTE SIGN. THE FIRST STAR POSITION IS POSITION 11, SO THAT, FOR EASE OF EDITING THE FILE, WE CAN INSERT STH LIKE 065..A....*""*"*"***""""*""*" 066..B...."*"""*"*"*"*""*"**" THE RIGHTMOST " IS AT COLUMN 29 = STAR POS 19 THE IDEA OF THE STAR POSITIONS SKETCHED NEXT WITH POSITIONS GOING 1..9 THEN J=10 K=11 L=12 M=13 N=14 O=15 P=16 Q=17 R=18 S=19 IN THE FOLLOWING MAP, WHICH CAN ASSIST YOU TO CONSTRUCT NEW FONTS O 666666666666666 4 5 Q 7 8 4 5 Q 7 8 N 4 9999 JJJJJ 8N 1 ML K 1 M L K R 1 M L K R 22222222222222 P SSSSSSSSSSSSSSSSSS (3=SOLID CURSOR) THE LINE NUMBER MUST BE EXACTLY ONE HUNDRED PLUS THE ASCII VALUE 32-250, ONLY POSITION 11..29 IS READ AND KEEP ALL COMMENTS WITHIN 29 CHARACTERS ON EACH LINE ***************************** ***************************** *NOTE THAT THE PRECISE******* *RENDERING CAN VARY A******** *LITTLE IN BETWEEN*********** *THE GJ EDITIONS************* ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***************************** ***LINE 132-350 DEFINES FONT* 032.. ....""""""""""""""""""" 033..!...."""""""*""""""**""" 034.."...."""""""*""""""*"*"" 035..#...."*"""""***"*"*""**" 036..$...."*"*"*""**"*""*"**" 037..%....""""""*""*""*"*"*"" 038..&...."*""***"""*"**"""*" 039..'....""""""*"""""""*"""" 040..(....""""""*"""*"""*"""" 041..)....""""*"""""""*"""""" 042..*....""""""""***"*"""*"" 043..+....""""""""**"*"*""*"" 044..,....""""""""""""*"""""" 045..-....""""""""**""""""""" 046......."""""""""""""""*""" 047../....""""""*"""""*"*"""" 048..0....**"*"*"*"*"""""""*" 049..1....""""""**"""""""""*" 050..2....**"""*"***""""""""" 051..3...."*"""*"*"*"""""""*" 052..4...."""*"""***"""*"""*" 053..5...."*"*"*""*"*"""""""" 054..6....**"*""""*"*"""""""" 055..7...."""""*"*"*"""""""*" 056..8....**"*"*"***"""*"""*" 057..9...."""*"*"***"""""""*" 058..:....""""""""""""""**""" 059..;...."""*""""""""*"""""" 060..<....""""**""""*"""*"""" 061..=...."""""*""**""""""""" 062..>...."""""**"""""*"""""" 063..?...."""*"*"*"*"*""*"""" 064..@...."*"*"*"*""*"*""*"*" 065..A....*""*"*"***""""*""*" 066..B...."*"""*"*"*"*""*"**" 067..C....**"*"*""""""""*"""" 068..D...."*"""*"*"""*""*"**" 069..E....**"*"*""**""""*"""" 070..F....*""*"*""**""""*"""" 071..G....**"*"*""**""""*""*" 072..H....*""*"""***""""*""*" 073..I...."""""""""""*""""*"" 074..J....**"""""*""""""*""*" 075..K....""""""*"""**""*"*"" 076..L....**"*""""""""""""""" 077..M....*""**"**""""""*""*" 078..N....*""**""*""*"""*""*" 079..O....**"*"*"*""""""*""*" 080..P....*""*"*"***""""*"""" 081..Q....**"*"*"*""*"""*""*" 082..R....*""*"*"*"**"""*"""" 083..S...."*"*"*""**""""*""*" 084..T...."""""*"""""*""*"*"" 085..U....**"*"""*""""""*""*" 086..V....*""*""*"""""*"*"""" 087..W....**"*"""*"""*""*""*" 088..X....""""*"*"""*"*"*"""" 089..Y....""""*"*""""*""*"""" 090..Z...."*"""**"""""*"*"""" 091..[....**"*"*""""""""""""" 092..\....""""*"""""*"""""""" 093..]...."*"""*"*"""""""""*" 094..^....""""""**""""""""""" 095.._...."*""""""""""""""""" 096..`....""""*"""""""""""""" 097..A....*""*"*"***""""*""*" 098..B...."*"""*"*"*"*""*"**" 099..C....**"*"*""""""""*"""" 100..D...."*"""*"*"""*""*"**" 101..E....**"*"*""**""""*"""" 102..F....*""*"*""**""""*"""" 103..G....**"*"*""**""""*""*" 104..H....*""*"""***""""*""*" 105..I...."""""""""""*""""*"" 106..J....**"""""*""""""*""*" 107..K....""""""*"""**""*"*"" 108..L....**"*""""""""""""""" 109..M....*""**"**""""""*""*" 110..N....*""**""*""*"""*""*" 111..O....**"*"*"*""""""*""*" 112..P....*""*"*"***""""*"""" 113..Q....**"*"*"*""*"""*""*" 114..R....*""*"*"*"**"""*"""" 115..S...."*"*"*""**""""*""*" 116..T...."""""*"""""*""*"*"" 117..U....**"*"""*""""""*""*" 118..V....*""*""*"""""*"*"""" 119..W....**"*"""*"""*""*""*" 120..X....""""*"*"""*"*"*"""" 121..Y....""""*"*""""*""*"""" 122..Z...."*"""**"""""*"*"""" 123.LCURL."*""**""""""*"""""" 124..|...."""""""*"""""*"""*" 125.RCURL."*"""*"*"""""*"""*" 126..~....""""""""""*"*""""*" 127.. ...."""""""""""""""""** 128.. ....""""""""""""""""**" 129.. ...."""""""""""""""**"" 130.. ....""""""""""""""**""" 131.. ...."""""""""""""**"""" 132.. ....""""""""""""**""""" 133.. ...."""""""""""**"""""" 134.. ....""""""""""**""""""" 135.. ...."""""""""**"""""""" 136.. ....""""""""**""""""""" 137.. ...."""""""**"""""""""" 138.. ....""""""**""""""""""" 139.. ...."""""**"""""""""""" 140.. ....""""**""""""""""""" 141.. ...."""**"""""""""""""" 142.. ...."""*""""*""""""*""" 143.. ...."**"""""""""""""""" 144.. ....**""""""""""""""""" 145.. ....""""""""""""""""*"* 146.. ...."""""""""""""""*"*" 147.. ....""""""""""""""*"*"" 148.. ...."""""""""""""*"*""" 149.. ....""""""""""""*"*"""" 150.. ...."""""""""""*"*""""" 151.. ....""""""""""*"*"""""" 152.. ...."""""""""*"*""""""" 153.. ....""""""""*"*"""""""" 154.. ...."""""""*"*""""""""" 155.. ....""""""*"*"""""""""" 156.. ...."""""*"*""""""""""" 157.. ....""""*"*"""""""""""" 158.. ...."""*"*""""""""""""" 159.. ...."*"""""""""""""""** 160.. ...."*"*""""""""""""""" 161.. ....*"*"""""""""""""""" 162.. ...."""""""""""""""*""* 163.. ....""""""""""""""*""*" 164.. ...."""""""""""""*""*"" 165.. ....""""""""""""*""*""" 166.. ...."""""""""""*""*"""" 167.. ....""""""""""*""*""""" 168.. ...."""""""""*""*"""""" 169.. ....""""""""*""*""""""" 170.. ...."""""""*""*"""""""" 171.. ....""""""*""*""""""""" 172.. ...."""""*""*"""""""""" 173.. ....""""*""*""""""""""" 174.. ...."""*""*"""""""""""" 175..GBP.."*""**"**"""*"""""" 176.. ...."*""*"""""""""""""" 177.. ....*""*""""""""""""""" 178.. ....""""""""""""""*"""* 179.. ...."""""""""""""*"""*" 180.. ....""""""""""""*"""*"" 181.. ...."""""""""""*"""*""" 182.. ....""""""""""*"""*"""" 183.. ...."""""""""*"""*""""" 184.. ....""""""""*"""*"""""" 185.. ...."""""""*"""*""""""" 186.. ....""""""*"""*"""""""" 187.. ...."""""*"""*""""""""" 188.. ....""""*"""*"""""""""" 189.. ...."""*"""*""""""""""" 190.. ...."""""""""""""***""" 191.. ...."*"""*""""""""""""" 192.. ....*"""*"""""""""""""" 193.. ...."""""""""""""*""""* 194.. ....""""""""""""*""""*" 195.. ...."""""""""""*""""*"" 196.UNLNE.""""""""""""""""""* 197.. ....""""""""""*""""*""" 198.. ...."""""""""*""""*"""" 199.. ....""""""""*""""*""""" 200.. ...."""""""*""""*"""""" 201.. ....""""""*""""*""""""" 202.. ...."""""*""""*"""""""" 203.. ....""""*""""*""""""""" 204.. ...."""*""""*"""""""""" 205.. ...."""**""*""""""""""" 206.. ...."*""""*"""""""""""" 207.. ....*""""*""""""""""""" 208.. ....""""""""""""*"""""* 209.. ...."""""""""""*"""""*" 210.. ....""""""""""*"""""*"" 211.. ...."""""""""*"""""*""" 212.. ....""""""""*"""""*"""" 213.. ...."""""""*"""""*""""" 214.. ....""""""*"""""*"""""" 215.. ...."""""*"""""*""""""" 216.. ....""""*"""""*"""""""" 217.. ...."""*"""""*""""""""" 218..EUR..""""""*""**""*""""" 219.SOLID.""*"""""""""""""""" 220.. ...."*"""""*""""""""""" 221.. ....*"""""*"""""""""""" 222.. ...."""""""""**"""""""" 223.. ....""""""""*""*""""""" 224.. ...."""""""*""""*"""""" 225.. ...."""""*""""""""*"""" 226.. ....""""*""""""""""*""" 227.. ...."""*""""""""""""*"" 228.. ...."*"""""""""""""""*" 229.. ....*"""""""""""""""""* 230.. ...."*"*""""*"******"*" 231.. ...."*"""*"""""*"**"*"" 232.. ....""""""*******"""""" 233.. ....**"**"*""******"""* 234.. ...."""""""""""""""*""" 235.. ....""""""""*"""""""""" 236.. ...."""""""""""*""""""" 237.. ....""""*"""""""""""""" 238.. ....""""""""*"""""""""" 239.. ....""""*"""""""""""""" 240.. ....*"""""""""""""""""" 241.. ....""""""""******""""" 242.. ...."*"""""""*"""""""*" 243.. ....********"********** 244.. ...."*"*"*"****"*"*"""" 245.. ....***"**"*"**"""""""" 246.. ...."""*""*"*""*""""""" 247.. ...."*"*"*"*"*"*""""""" 248.. ....*"*"*"*"*"*"*"""""" 249.. ....""""*"""***"""*"""" 250.. ....****"***"""***"**** =========================================================================== FONT DEFINED ABOVE. HERE BEGINS GJ2.TXT: { COMPILEFAST VARSTRING LISAFONT-FILE }LISAFONT} LISAFONT-FILE >VARSTR VARSTRING COMPILER-NAME }CODE1} COMPILER-NAME >VARSTR VAR SCREEN-LENGTH 25 SCREEN-LENGTH SET //BT TXT-CLS '10' SCREEN-LENGTH IS SEVERAL( BT| VAR FONT-H 400 FONT-H SET VAR FONT-V 250 FONT-V SET VAR THIS-IS-W THIS-IS-W SETBASIS VAR CHAR-SPACE 18 CHAR-SPACE SET //BT H-RIGHT FONT-H IS 10 ADD BT| //BT H-SUPER-RIGHT FONT-H IS 11 ADD BT| VAR FGRAPH-ACTIVATED FGRAPH-ACTIVATED SETBASIS VAR QS_BASIS VAR QS_UPPER VAR AUXSTK VAR AUXSTKPTR 0 AUXSTKPTR >VAR //BT MAKE_AUXSTK %MAKE AUXSTK >VAR 0 AUXSTKPTR >VAR BT| //BT HAS_AUXSTK_ELEMENTS AUXSTKPTR VAR> 0 NOT_INTEQUAL BT| //BT TO_AUXSTK 2 AUXSTKPTR ADDVAR AUXSTKPTR VAR> DEC AUXSTK VAR> %PUT AUXSTKPTR VAR> AUXSTK VAR> %PUT BT| //BT AUXSTK_FROM AUXSTKPTR VAR> AUXSTK VAR> %GET AUXSTKPTR VAR> DEC AUXSTK VAR> %GET -2 AUXSTKPTR ADDVAR BT| //BT SEEBYINDEX CRLN & & ## %LENGTH F// N1 ## %GET # %GET ( }, } ( N1 8 MOD NOZ NOT = CRLN === KEYTOUCH = KEY RM RMS RMS GOFORWARD2 === |N GOLABEL2: && && CRLN BT| //BT FUNNYRFFG RFFG RFFG MUL ABS RFFG DIV2 ADD ABS RFFG MUL ABS INC8 SWITCH MOD INC BT| //BT MAKETWO >N9 >N8 N8 %MAKE >N2 N8 %MAKE >N1 N8 F// N11 FUNNYRFFG N1 N3 %PUT |N N8 F// N1 N1 N4 %PUT |N N1 N2 BT| //BT QSORT2 & & # %LENGTH STKTORICH LOG2R RICHTOSTK TWICE 50 ADD MAKE_AUXSTK 1 QS_BASIS >VAR # %LENGTH QS_UPPER >VAR GOLABEL1: 7 QS_UPPER VAR> QS_BASIS VAR> SUB INTGREATER = QS_BASIS VAR> QS_UPPER VAR> NOT_INTEQUAL = QS_BASIS VAR> INC >N2 O// N2 ## %GET >N8 N8 # %GET >N10 N2 DEC >N1 O// N1 ## %GET >N9 N9 # %GET >N11 N10 N11 INTGTOREQUAL = GOFORWARD2 === N9 N1 INC ## %PUT N1 1 INTGREATER |C| DECN1 |A 0 >N1 GOLABEL2: N8 N1 INC ## %PUT QS_UPPER VAR> N2 INTGREATER |C| INCN2 |A === HAS_AUXSTK_ELEMENTS NOT = GOFORWARD4 === AUXSTK_FROM QS_BASIS >VAR QS_UPPER >VAR == QS_BASIS VAR> INC QS_BASIS VAR> QS_UPPER VAR> ADD DIV2 ## %SWITCH QS_UPPER VAR> QS_BASIS VAR> INC TWO ## %GET # %GET SWITCH ## %GET # %GET INTGREATER = ## %SWITCH == RM RM === QS_UPPER VAR> QS_BASIS VAR> TWO ## %GET # %GET SWITCH ## %GET # %GET INTGREATER = ## %SWITCH == RM RM === QS_BASIS VAR> QS_BASIS VAR> INC TWO ## %GET # %GET SWITCH ## %GET # %GET INTGREATER = ## %SWITCH == RM RM === QS_BASIS VAR> INC >N1 QS_UPPER VAR> >N2 QS_BASIS VAR> ## %GET # %GET >N10 T// O// INCN1 N10 N1 ## %GET # %GET INTGREATER |C| |A O// DECN2 N2 ## %GET # %GET N10 INTGREATER |C| |A N1 N2 INTGREATER = |GNT| === N1 N2 ## %SWITCH |GT N2 QS_BASIS VAR> ## %SWITCH QS_UPPER VAR> INC N1 SUB N2 DEC INTGTOREQUAL = QS_UPPER VAR> N1 TO_AUXSTK N2 DEC QS_UPPER >VAR == N2 DEC QS_BASIS VAR> TO_AUXSTK N1 QS_BASIS >VAR === === GOUP1 GOLABEL4: AUXSTK VAR> %FREE && && BT| //BT =-> BT| :=-> GETFUNCNUM :IS ? SETWARPADDRESS //BT >>> BT| :>>> GETFUNCNUM :IS ? SETWARPADDRESS //BT [ BT| :[ GETFUNCNUM :MAKENEWLIST ? SETWARPADDRESS //BT ] BT| :] GETFUNCNUM :LISTOK ? SETWARPADDRESS //BT < BT| COMPILETIME //BT ; BT| COMPILETIME //BT )) BT| COMPILETIME (LET FREE-CLS BE (( )) (( (( SOLIDCURSOR )) (( 2 => TEXTCOLORBG )) (( 0 => TEXTCOLOR )) (( CLS )) )) OK) (LET AT BE (( )) (( (( FREE-CLS )) (( }TIME 10:00 AM} => LISACODE )) (( FREE-CLS )) (( }* * * * * } ; 1600 => SEVERAL( )) (( FREE-CLS )) (( }DATE 04-10-2006} => LISACODE )) (( FREE-CLS )) (( }* * * * * } ; 1600 => SEVERAL( )) (( 446 => GOODPAUSE )) (( FREE-CLS )) (( }AT: Renewal happened.} => POP )) (( CRLN ; CRLN ; CRLN )) )) OK) (LET CM BE AT OK) (LET FREE-CLS-COMPLEMENT BE (( )) (( (( SOLIDCURSOR )) (( 2 => TEXTCOLOR )) (( 0 => TEXTCOLORBG )) (( CLS )) )) OK) (LET FREE-ACTION BE (( )) (( (( )) )) OK) (LET RAM-REFRESH BE (( )) (( (( DARKER )) (( CLS )) (( }THANK YOU!! } ; 15 => SEVERAL( )) (( LOOKSTK ; STK ; VARSTK ; 500 => GOODPAUSE )) (( }RAM REFRESH } ; 62 => SEVERAL( )) (( XO )) )) OK) (LET GJ-COLORS BE (( )) (( (( 255 (COUNT (( ^0 ; N1 => >>V ; ^0 ; N1 => >>V => WRITEPAL )) COUNTUP) )) (( ^0 ; ^63 ; ^0 ; ^0 => WRITEPAL )) (( ^0 ; ^0 ; ^0 ; ^1 => WRITEPAL )) (( ^63 ; ^63 ; ^63 ; ^2 => WRITEPAL )) (( ^0 ; ^55 ; ^0 ; ^64 => WRITEPAL )) (( ^0 ; ^17 ; ^0 ; ^254 => WRITEPAL )) (( ^0 ; ^21 ; ^0 ; ^255 => WRITEPAL )) (( PUTPAL )) )) OK) (LET RAM-PM BE (( >N5 >N4 )) (( (( N5 %MAKE => & )) (( N5 (COUNT N6 => %MAKE => ; N1 ; # => %PUT COUNTUP) )) (( # => => )) (( && )) )) OK) (LET FREE-B BE (( )) (( (( ^256 FR => GETV => DEC => => )) )) OK) (LET FREE-H BE (( )) (( (( ^1024 FR => GETV => => )) )) OK) (LET FREE-V BE (( )) (( (( ^768 FR => GETV => => )) )) OK) ((DATA MAYBE-RED-R 255 MAYBE-RED-R <>> >>V MAYBE-RED-G >>> >>V MAYBE-RED-B >>> >>V ^0 => WRITEPAL )) (( MAYBE-BLUE-R >>> >>V MAYBE-BLUE-G >>> >>V MAYBE-BLUE-B >>> >>V ^1 => WRITEPAL )) (( PUTPAL )) )) OK) (LET RED-BLUISH-PALETTE BE (( )) (( (( 256 (COUNT (( ^3 FR GETV 2 EQN (MATCHED MAYBE-BLUE-R >>> >>V MAYBE-BLUE-G >>> >>V MAYBE-BLUE-B >>> >>V N1 DEC >>V => WRITEPAL )(OTHER MAYBE-RED-R >>> >>V MAYBE-RED-G >>> >>V MAYBE-RED-B >>> >>V N1 DEC >>V => WRITEPAL MATCHED) COUNTUP) (( PUTPAL )) )) OK) (LET RED-BLUISH-TEXT-PALETTE BE (( )) (( (( 256 (COUNT (( ^3 FR GETV 2 EQN (MATCHED MAYBE-BLUE-R >>> >>V MAYBE-BLUE-G >>> >>V MAYBE-BLUE-B >>> >>V N1 DEC >>V => WRITEPAL )(OTHER MAYBE-RED-R >>> >>V MAYBE-RED-G >>> >>V MAYBE-RED-B >>> >>V N1 DEC >>V => WRITEPAL MATCHED) COUNTUP) (( MAYBE-RED-R >>> >>V MAYBE-RED-G >>> >>V MAYBE-RED-B >>> >>V ^0 => WRITEPAL )) (( MAYBE-BLUE-R >>> >>V MAYBE-BLUE-G >>> >>V MAYBE-BLUE-B >>> >>V ^1 => WRITEPAL )) (( PUTPAL )) )) OK) ((DATA MY-FONT 35 400 => RAM-PM MY-FONT < }.TXT} CONCAT => )) (( (( ; MY-FONT >>> => FILE2PM => RM )) )) OK) (LET START-GRAPHICS BE (( )) (( (( LATENTSC )) (( LISAFONT-FILE VARSTR> => FONT-LOADER )) (( LATENTSC )) (( SOLIDCURSOR )) (( CLS )) (( FGRAPH-ACTIVATED => SETDANCE )) (( FGRAPH )) (( SHOWMOUSE )) (( }/YOURTEXT/} FRAMEDIR )) (( UNSHOWMOUSE )) (( GETPAL RED-BLUISH-TEXT-PALETTE )) (( CLS )) (( SHOWMOUSE )) )) OK) (LET SWITCH-TO-TEXT-MODE BE (( )) (( (( FUNCURSOR )) (( -1 18 => MODELLER )) )) OK) (LET SWITCH-BACK-TO-GRAPHICS-MODE BE (( )) (( (( -1 14 => MODELLER )) (( SOLIDCURSOR )) )) OK) (LET VALUE BE (( ; )) (( => # %GET ## %GET => => )) OK) (LET SET-VALUE BE (( ; ; )) (( => # %GET ## %PUT )) OK) (LET FITTING BE (( => & ; & ; >N1 )) (( (( SWITCHV )) (( ## => %LENGTH => >N8 )) (( N8 => ISBASIS (MATCHED 0 ; && && ; EXIT MATCHED) )) (( 1 >N6 )) (( N8 ; N6 => SUB => INC => >N9 )) (( N9 => ISBASIS (MATCHED (( 0 ; && && ; EXIT )) MATCHED) )) (( GOLABEL4: (( N9 ; 2 => INTGREATER (MATCHED (( N1 ; N6 VALUE => INTGREATER ; N8 VALUE ; N1 => INTGREATER => AND (MATCHED (( N9 => DIV2 ; N6 => ADD => >N5 )) (( N5 VALUE ; N1 => INTGREATER (MATCHED N5 => >N8 )(OTHER N5 => >N6 MATCHED) )) (( N8 ; N6 => SUB => INC => >N9 )) (( GOUP4 )) )(OTHER (( N8 VALUE ; N1 => EQN (MATCHED (( N8 ; && && ; EXIT )) )(OTHER (( N6 VALUE ; N1 => EQN (MATCHED (( N6 ; && && ; EXIT )) )(OTHER (( 0 ; && && ; EXIT )) MATCHED) )) MATCHED) )) MATCHED) )) )(OTHER (( N9 => ISDANCE (MATCHED (( N6 VALUE ; N1 => EQN (MATCHED (( N6 ; && && ; EXIT )) )(OTHER (( 0 ; && && ; EXIT )) MATCHED) )) )(OTHER (( N8 VALUE ; N1 => EQN (MATCHED (( N8 ; && && ; EXIT )) )(OTHER (( N6 VALUE ; N1 => EQN (MATCHED (( N6 ; && && ; EXIT )) )(OTHER (( 0 ; && && ; EXIT )) MATCHED) )) MATCHED) )) MATCHED) )) MATCHED) )) )) )) OK) (LET UPCNUM BE (( ; )) (( (( ; => ONE ; 97 ; 122 => WITH (MATCHED (( ; -32 => ADD ; )) MATCHED) )) (( ; => => )) )) OK) (LET NORMAL-YESORENTER BE (( => RMBLUPC => )) (( (( KEEPLETTERS => LENGTH => 0 ; EQN (MATCHED (( RM ; Y => => EXIT )) MATCHED) ONE ; :Y => EQ => SWITCH ; :YES => EQ => ORR => => )) )) OK) (LET SETLENGTH BE (( => >N1 ; LENGTH => >N2 )) (( (( N1 N2 => SUB => >N3 )) (( N3 => ISPRO (MATCHED (( ; N3 => MAKEBL => CONCAT => => )) )(OTHER (( N3 => SG => ISPRO (MATCHED (( N1 => INC ; N3 => SG => SUBSTR => RM ; => => )) MATCHED) MATCHED) )) OK) (LET VARSTR-LEN BE (( GETV >N1 )) (( (( N1 BYTEMEM> => => )) )) OK) (LET VARSTR-INCLEN BE (( GETV >N1 )) (( (( 250 ; N1 BYTEMEM> => INTGREATER (MATCHED N1 BYTEMEM> INC N1 >BYTEMEM MATCHED) )) )) OK) (LET VARSTR-DECLEN BE (( GETV >N1 )) (( (( N1 BYTEMEM> => A (MATCHED DEC N1 >BYTEMEM MATCHED) )) )) OK) (LET VARSTR-SETLEN BE (( >N1 ; GETV >N2 )) (( (( N1 N2 >BYTEMEM )) )) OK) (LET VARSTR-SETBASIS BE (( GETV >N1 )) (( (( 0 N1 >BYTEMEM )) (( 250 (COUNT 32 N1 N3 ADD >BYTEMEM COUNTUP) )) OK) (LET VARSTR-TOCHN BE (( >N2 ; >N1 ; GETV >N3 )) (( (( N1 ; N2 N3 ADD => >BYTEMEM )) )) OK) (LET VARSTR-CHN BE (( >N1 ; GETV >N2 )) (( (( N1 N2 ADD => BYTEMEM> => => )) )) OK) (LET VARSTR-EXPAND BE (( >N1 ; # >N2 )) (( (( ONEV => VARSTR-INCLEN )) (( N1 ; ONEV VARSTR-LEN ; ONEV => VARSTR-TOCHN )) (( && )) )) OK) (LET RIGHTADJUST BE (( => >N1 ; RMBL => LENGTH => >N2 )) (( (( N1 N2 => SUB => >N3 )) (( N3 => ISPRO (MATCHED (( ; N3 => MAKEBL => SWITCH => CONCAT => => )) )(OTHER (( N3 => SG => ISPRO (MATCHED (( N1 => SETLENGTH => => )) MATCHED) MATCHED) )) OK) (LET DIVIDE-TEXT-IN-TWO BE (( => LENGTH )) (( (( => >N1 )) (( 2 ; N1 => INTGREATER (MATCHED }} ; SWITCH ; EXIT MATCHED) )) (( N1 ; DIV2 => >N2 )) (( 1 ; N2 => SUBSTR => SWITCH => => )) )) OK) (LET MAKECH BE (( => >N6 ; >N5 )) (( (( N6 => ISPRO (MATCHED (( N6 => MAKEBL )) (( N6 (COUNT N7 N1 TOCHN COUNTUP) )) )(OTHER }} MATCHED) )) )) OK) (LET TEN-TO BE (( => >N6 )) 1 ; 48 N6 => MAKECH => CONCAT => => OK) (LET FIX-NUMBER BE (( >N1 ; EXTRACTNUMBERSTUFF => LENGTH => >N2 )) (( (( }.} 1 FINL => >N8 )) (( N8 => ISPRO (MATCHED (( N2 N8 => SUB => >N9 )) (( N9 N1 => SUB => >N10 )) (( N10 => SG => ISPRO (MATCHED (( 48 ; N10 => SG => MAKECH ; => CONCAT => => )) )(OTHER (( N1 => TEN-TO => STKTORICH => ONER ; STKTORICH => *R => ROUNDR => SWITCHR => \R => RICHTOSTK )) MATCHED) )) )(OTHER (( }.} CONCAT )) (( 48 ; N1 => MAKECH ; => CONCAT => => )) MATCHED) )) )) OK) ((DATA SPEED-OF-STANDARD-2000-PC 888 SPEED-OF-STANDARD-2000-PC <>> => INTGREATER (MATCHED 100 ; SPEED-ATTUNEMENT => ADDVAR MATCHED) )) )) OK) (LET EASIER BE (( )) (( (( SPEED-ATTUNEMENT >>> ; 100 => INTGREATER (MATCHED -100 ; SPEED-ATTUNEMENT => ADDVAR MATCHED) )) OK) ((DATA SENSITIVITY-HOUSE )) (LET SENSITIVITY BE (( )) (( SENSITIVITY-HOUSE >>> H )) OK) (LET TXT-SENSITIVITY BE (( )) (( (( SPEED-ATTUNEMENT >>> ; 900 EQN = EXIT === )) (( SPEED-OF-STANDARD-2000-PC >>> ; 4 => MUL ; SPEED-ATTUNEMENT >>> ; 10 => DIV => DIV (COUNT SPEED-OF-STANDARD-2000-PC >>> ; 4 => MUL ; SPEED-ATTUNEMENT >>> ; 10 => DIV => DIV ; => DIV4 (COUNT SPEED-OF-STANDARD-2000-PC >>> ; 4 => MUL ; SPEED-ATTUNEMENT >>> ; 10 => DIV => DIV ; => DIV4 ; ^100 => FR => GETV => ADD (COUNT KEYTOUCH (MATCHED (( RMS RMS RMS RMS RMS RMS )) (( EXIT )) MATCHED) COUNTUP) COUNTUP) COUNTUP) )) )) OK) (( }TXT-SENSITIVITY} => ? SENSITIVITY-HOUSE <>> H )) OK) (LET FAST-TXT-SENSITIVITY BE (( )) (( (( SPEED-ATTUNEMENT >>> ; 900 EQN = EXIT === )) (( SPEED-OF-STANDARD-2000-PC >>> ; 4 => MUL ; SPEED-ATTUNEMENT >>> ; 10 => DIV => DIV (COUNT SPEED-OF-STANDARD-2000-PC >>> ; 2 => MUL ; SPEED-ATTUNEMENT >>> ; 10 => DIV => DIV ; => DIV4 (COUNT SPEED-OF-STANDARD-2000-PC >>> ; 4 => MUL ; SPEED-ATTUNEMENT >>> ; 10 => DIV => DIV ; => DIV4 ; ^100 => FR => GETV => ADD (COUNT KEYTOUCH (MATCHED (( RMS RMS RMS RMS RMS RMS )) (( EXIT )) MATCHED) COUNTUP) COUNTUP) COUNTUP) )) )) OK) (( }FAST-TXT-SENSITIVITY} => ? FAST-SENSITIVITY-HOUSE <>> H )) OK) ((DATA YESORENTER-HOUSE )) ((DATA YNIN-HOUSE )) ((DATA NEW-CLS-HOUSE )) ((DATA ENTERPLS-HOUSE )) (( }NORMAL-YESORENTER} => ? YESORENTER-HOUSE <>> H )) OK) (LET TXT-YNIN BE (( )) (( (( } [ENTER=YES]} => POPS )) (( READLN => YESORENTER => => )) )) OK) (LET TXT-ENTERPLS BE (( )) (( (( } [ENTER], PLS} => POPS )) (( READLN => RM )) )) OK) (( }TXT-YNIN} => ? YNIN-HOUSE < ? ENTERPLS-HOUSE < ? NEW-CLS-HOUSE <>> H )) OK) (LET ENTERPLS BE (( )) (( ENTERPLS-HOUSE >>> H )) OK) (LET NEW-CLS BE (( )) (( NEW-CLS-HOUSE >>> H )) OK) (LET TXT-LISAMODE-INITIAL-INPUT BE (( )) (( (( NEW-CLS )) (( CRLN CRLN )) (( }WELCOME, HUMAN BEING AND INTERACTOR! THE PC WILL DO ITS BEST!!!} => POP ; CRLN ; CRLN )) (( }PLS INDICATE SPEED OF THIS PC (YEAR 2000 SPEED IN FIRTH OS} => POP )) (( }IS ABOUT 888 FOR A FAST DELL PC, FOR THAT TIME, LIKE THE ONE} => POP )) (( }FIRTH234.ZIP WAS DEVELOPED ON; PREFER 32-BIT; THE NUMBER } => POP )) (( }HAS EXPONENTIAL INCREASE IN TIMER EFFECT; A PROGRAM RUNNING } => POP )) (( }IN FIRTH OS IS RUNNING ABOUT 20 TIMES FASTER FASTER THAN } => POP )) (( }IN MS WINDOWS/VISTA ETC; USE A NUMBER LIKE 120 INSTEAD OF 888 THERE).} => POP )) (( }THE REASON FOR THIS INITIAL QUESTION IS TO GIVE THE VARIOUS} => POP )) (( }PLATFORM VERSIONS OF FIRTH, INCLUDING FIRTHTX IN E.G. WINDOWS} => POP )) (( }A CHANCE TO BE ATTUNED CORRECTLY, BUT ALSO TO ALLOW FOR A } => POP )) (( }SPLENDID, EASY WAY TO TUNE PROGRAM FLOW TO YOUR PARTICULAR} => POP )) (( }FEELING OF WHAT IS GOOD TIMING, EACH TIME AFREE.} => POP )) (( }-- SO, PLS INDICATE SPEED OF THIS PC (ENTER FOR 888): } => POPS )) (( READLN => HEAL => ONE ; ISPRO NOT (MATCHED (( RM )) (( 888 )) MATCHED) => SPEED-OF-STANDARD-2000-PC < ? LISAMODE-INITIAL-INPUT-HOUSE < ? ADDR-HOUSE <>> H )) OK) ((DATA SUBR-HOUSE }-R} => ? SUBR-HOUSE <>> H )) OK) (LET ROUND-100-UP (( >N1 )) (( (( N1 ; 100 => MOD => NOZ (MATCHED N1 ; 100 => DIV => INC ; 100 => MUL => => )(OTHER N1 ; 100 => DIV ; 100 => MUL => => MATCHED) )) OK) (LET TXT-SCREENSAVER1 BE (( )) (( (( $1.0 )) (( GOLABEL4: (( KEYTOUCH (MATCHED RMR KEY RM EXIT MATCHED) )) (( ^30 => FR => GETV => SPACES )) (( ^100 => FR => VARTORICH ; $10 => \R )) (( $0.2 => ADDR ; BRIDGER => ADDR => COSR ; $20 => *R => RICHTOSTK => SPACES )) (( }* * *} => POP )) (( FAST-SENSITIVITY )) (( GOUP4 )) )) )) OK) (LET TXT-SCREENSAVER2 BE (( )) (( (( TXT-CLS )) (( }TEXT SCREEN SAVER} => POP )) (( CRLN )) (( }PC HARDWARE HAS BEEN DESCRIBED AS HAVING SPEED} => POPS )) (( SPEED-OF-STANDARD-2000-PC >>> => ( )) (( }.} => POP )) (( }THE 'FASTER' VS 'EASIER' ADJUSTS THE EFFECT OF THIS VALUE.} => POP )) (( }WHEN THE VALUE 600 IS CHOSEN, THEN} => POP )) (( }WITH, A RATHER RIGHT SETTING, THE STD TEXT WILL JUST BEGIN} => POP )) (( }TO BLUR -- AT 800 IT'S ON TOP OF ITSELF.} => POP )) (( }IT IS IMPORTANT TO RECOGNISE THAT THE VALID 32-BIT INTEL-} => POP )) (( }386/PENTIUM COMPATIBLE PC OF THE FULLY STANDARD TYPE } => POP )) (( }HAS, AS PART OF ITS RESONANCE, WE MIGHT SAY, CLEAR LIMITS} => POP )) (( }TO RAM, SPEED, AND AMOUNT OF MODULES. A PC SHOULD NOT BE} => POP )) (( }TOO FAST; THE SIZES AND SPEED INTERACT WITH THE SOFTWARE} => POP )) (( }DESIGN TO PROVIDE A CLIMAX OF ESTHETICAL FUNCTIONALITY} => POP )) (( }WHEN PROGRAMMING IS DONE WELL. A TUNING OF SPEED IS ALSO} => POP )) (( }A STATEMENT THAT YOUR OWN PERCEPTION, MIND, HEART HAS THE UPPER HAND,} POP )) (( }FOR Y O U ARE IN CONTROL OF THE MACHINES. THEY ARE YOUR SERVANTS. } POP )) (( }WHILE HUMAN RIGHTS ARE UNLIMITED, THE RIGHTS OF MACHINES ARE LIMITED.} POP )) (( CRLN )) (( }TYPE A LINE (ENTER FOR A STD TEXT)} => POP )) (( READLN )) (( TXT-CLS )) (( => LENGTH => NOZ NOT (MATCHED RM }SUPERMODELS UP AND FLYING! AT } MATCHED) )) (( GOLABEL1: (( KEYTOUCH (MATCHED RM KEY RM EXIT MATCHED) )) (( ONE => POPS )) (( TXT-SENSITIVITY )) (( GOUP1 )) )) )) OK) ((DATA SCREENSAVER1-HOUSE )) ((DATA SCREENSAVER2-HOUSE )) (( }TXT-SCREENSAVER1} => ? SCREENSAVER1-HOUSE < ? SCREENSAVER2-HOUSE <>> H )) OK) (LET SCREENSAVER2 BE (( )) (( SCREENSAVER2-HOUSE >>> H )) OK) (LET LISA-SENSITIVITY BE (( => VLOTS TOV4 )) (( (( CLOCKS_PER_SEC V4 MUL => 10 DIV => TOV6 )) (( CLOCKS => TOV8 )) (( V6 V8 ADD => TOV10 )) (( GOLABEL2: (( V10 ; CLOCKS ; 10 => FUNNYRFFG => 5 SUB => ADD => INTGREATER ; KEYTOUCH NOT => AND (MATCHED GOUP2 MATCHED) )) )) (( VFREE )) )) OK) ((DATA LEFT-MARGIN 72 LEFT-MARGIN < %MAKE FONT-WARP <>> 2 ADD => )) OK) (LET H-MIDDLE BE (( FONT-H >>> 4 ADD => )) OK) (LET H-MIDDLE-RIGHT BE (( FONT-H >>> 6 ADD => )) OK) (LET V-TOP BE (( FONT-V >>> 1 ADD => )) OK) (LET V-MIDDLE-UPPER-TOP BE (( FONT-V >>> 5 ADD => )) OK) (LET V-MIDDLE-TOP BE (( FONT-V >>> 5 ADD => )) OK) (LET V-MIDDLE BE (( FONT-V >>> 7 ADD => )) OK) (LET V-FND-TOP BE (( FONT-V >>> 14 ADD => )) OK) (LET V-FND BE (( FONT-V >>> 15 ADD => )) OK) (LET V-FND-YES BE (( FONT-V >>> 13 ADD => )) OK) (LET V-FND-GROUND-TOP BE (( FONT-V >>> 17 ADD => )) OK) (LET V-FND-GROUND BE (( FONT-V >>> 20 ADD => )) OK) (LET Y-TO-1 BE (( => )) (( (MATCHED 1 => => )(OTHER 0 => => MATCHED) )) OK) (LET STD-PIX-PRINT-1 BE (( => >N4 >N3 >N2 >N1 )) (( (( N1 DEC ; N2 INC INC ; N3 INC INC ; N4 => DEC4 ; 0 => RECTFILL )) )) OK) (LET STD-PIX-PRINT-2 BE (( => => )) (( (( ; 2 1 1 => PAINTLINE )) )) OK) (LET STD-PIX-PRINT-3 BE (( => >N4 >N3 >N2 >N1 )) (( (( N1 DEC ; N2 INC INC ; N3 INC INC ; N4 => DEC4 ; 1 => RECTFILL )) )) OK) (LET STD-PIX-PRINT-4 BE (( => => )) (( (( ; 1 1 1 => PAINTLINE )) )) OK) (LET STD-PIX-PRINT-5 BE (( => => )) (( (( ; 1 1 0 => PAINTLINE )) )) OK) (LET FONT-ITEM-1 BE (( FONT-H >>> ; V-FND ; BRIDGE ; V-MIDDLE => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-1 => ? => ; 1 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-2 BE (( FONT-H >>> ; V-FND ; H-RIGHT ; BRIDGE => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-2 => ? => ; 2 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-3 BE (( FONT-H >>> ; V-FND-GROUND ; H-SUPER-RIGHT ; FONT-V >>> => STD-PIX-PRINT-3 )) OK) (( :FONT-ITEM-3 => ? => ; 3 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-4 BE (( FONT-H >>> ; V-MIDDLE-TOP ; BRIDGE ; V-TOP => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-4 => ? => ; 4 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-5 BE (( H-MIDDLE ; V-MIDDLE-TOP ; FONT-H >>> ; V-TOP => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-5 => ? => ; 5 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-6 BE (( FONT-H >>> ; V-TOP ; H-RIGHT ; BRIDGE => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-6 => ? => ; 6 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-7 BE (( H-MIDDLE ; V-MIDDLE-TOP ; H-RIGHT ; V-TOP => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-7 => ? => ; 7 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-8 BE (( H-RIGHT ; V-MIDDLE-TOP ; BRIDGE ; V-TOP => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-8 => ? => ; 8 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-9 BE (( FONT-H >>> ; V-MIDDLE ; H-MIDDLE ; BRIDGE => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-9 => ? => ; 9 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-10 BE (( H-MIDDLE-RIGHT ; V-MIDDLE ; H-RIGHT ; BRIDGE => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-10 => ? => ; 10 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-11 BE (( H-MIDDLE ; V-MIDDLE-TOP ; H-RIGHT ; V-FND => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-11 => ? => ; 11 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-12 BE (( H-MIDDLE ; V-MIDDLE ; BRIDGE ; V-FND => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-12 => ? => ; 12 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-13 BE (( H-MIDDLE ; V-MIDDLE ; FONT-H >>> ; V-FND => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-13 => ? => ; 13 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-14 BE (( H-RIGHT ; V-MIDDLE ; H-SUPER-RIGHT ; V-MIDDLE-UPPER-TOP => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-14 => ? => ; 14 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-15 BE (( H-RIGHT ; V-TOP ; H-SUPER-RIGHT ; FONT-V >>> => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-15 => ? => ; 15 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-16 BE (( H-SUPER-RIGHT ; V-FND-YES ; H-RIGHT ; V-FND-TOP => STD-PIX-PRINT-2 )) OK) (( :FONT-ITEM-16 => ? => ; 16 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-17 BE (( H-MIDDLE ; V-MIDDLE-TOP ; BRIDGE ; V-TOP => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-17 => ? => ; 17 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-18 BE (( H-RIGHT ; V-FND ; BRIDGE ; V-MIDDLE => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-18 => ? => ; 18 ; FONT-WARP >>> %PUT )) (LET FONT-ITEM-19 BE (( FONT-H >>> ; V-FND-GROUND ; H-SUPER-RIGHT ; BRIDGE => STD-PIX-PRINT-4 )) OK) (( :FONT-ITEM-19 => ? => ; 19 ; FONT-WARP >>> %PUT )) (LET FONT-LINED BE (( FONT-H >>> ; V-FND-GROUND ; H-SUPER-RIGHT ; BRIDGE => STD-PIX-PRINT-4 )) OK) (LET FONT-CLS-LINED BE (( FONT-H >>> ; V-FND-GROUND ; H-SUPER-RIGHT ; BRIDGE => STD-PIX-PRINT-5 )) OK) (LET FONT-SPACE-DIRECT BE (( FONT-H >>> ; V-FND-GROUND ; H-SUPER-RIGHT ; FONT-V >>> => STD-PIX-PRINT-1 )) OK) ((DATA THE-MANIFEST-CHANGED THE-MANIFEST-CHANGED => SETBASIS )) (LET START-GRAPH-BG-FG BE (( )) (( (( GETPAL )) (( CLS ; RED-BLUISH-PALETTE )) )) OK) ((DATA GRAPH-BG-FG-ON GRAPH-BG-FG-ON => SETBASIS )) (LET NORMALIZE-COLORS BE (( )) (( (( GRAPH-BG-FG-ON => SETBASIS )) (( THE-MANIFEST-CHANGED => SETDANCE )) (( CLS )) (( UNSHOWMOUSE )) (( GETPAL RED-BLUE-PALETTE )) (( CLS )) (( CLEAR_KEYBUF )) (( SHOWMOUSE )) )) OK) (LET GRAPH-BG-FG-1 BE (( )) (( (( ^950 FR GETV ; ^680 FR GETV ; ^220 FR GETV ; ^255 FR GETV => CIRCLEFILL )) (( ^100 FR GETV ; 10 => EQN (MATCHED CLS ; RED-BLUISH-PALETTE MATCHED) )) (( KEYTOUCH (MATCHED NORMALIZE-COLORS MATCHED) )) )) OK) (LET GRAPH-BG-FG-2 BE (( )) (( (( ^1019 FR ; ^765 FR ; ^0 ; ^255 FR => MUL16BTV ; ^255 FR => MUL8BTV => ADDV ; ^100 FR ; ^255 FR => ARC )) (( FREE-H ; FREE-V ; FREE-B ; FREE-B => CIRCLEFILL )) (( FREE-H ; FREE-V ; FREE-H ; FREE-V ; FREE-B => RECT )) (( FREE-H ; FREE-V ; FREE-H ; FREE-V ; FREE-B => RECTFILL )) (( ^500 FR GETV ; 490 => EQN (MATCHED RED-BLUISH-PALETTE MATCHED) )) (( KEYTOUCH (MATCHED NORMALIZE-COLORS MATCHED) )) )) OK) (LET GRAPH-BG-FG BE (( )) (( GRAPH-BG-FG-ON >>> 1 EQN (MATCHED GRAPH-BG-FG-1 )(OTHER GRAPH-BG-FG-2 MATCHED) (( THE-MANIFEST-CHANGED => SETDANCE )) )) OK) (LET ASTERIX-LIST (( => >N1 )) (( (( MY-FONT >>> & )) (( N1 # => %GET => & )) (( }"""""""""""""""""""} => )) (( 19 (COUNT (( ; N1 10 => ADD => # %GET => 42 EQN (MATCHED (( ; :* ; N1 => TOCH ; )) MATCHED) COUNTUP) (( && && )) (( => => )) )) OK) (LET TEXT-HOUSE-HOME BE (( )) (( (( TOP-MARGIN >>> FONT-V <>> FONT-H <>> => FUNNYRFFG => => )) )) OK) (LET FREE-Y BE (( )) (( (( LINES-PR-PAGE >>> => FUNNYRFFG => => )) )) OK) ((DATA BASIS-LINE TOP-MARGIN >>> LINE-SPACE >>> LINES-PR-PAGE >>> DEC MUL ADD BASIS-LINE <>> CH-PR-LINE >>> DEC CHAR-SPACE >>> MUL ADD RIGHT-MARGIN <>> FONT-H <>> FONT-V <>> FONT-H <>> => >N1 )) (( 970 N1 => INTGREATER (MATCHED (( N1 CHAR-SPACE >>> ADD => FONT-H <N2 >N1 )) (( (( CHAR-SPACE >>> ; N1 DEC MUL ; LEFT-MARGIN >>> ADD FONT-H <>> ; N2 DEC MUL ; TOP-MARGIN >>> ADD FONT-V <>> => >N1 )) (( N1 LEFT-MARGIN >>> => INTGREATER (MATCHED (( N1 CHAR-SPACE >>> SG ADD => FONT-H <>> => >N1 )) (( 720 N1 => INTGREATER (MATCHED (( FONT-CLS-LINED )) (( FONT-V >>> LINE-SPACE >>> ADD => FONT-V <>> FONT-H <>> => >N1 )) (( N1 TOP-MARGIN >>> LINE-SPACE >>> ADD => INTGTOREQUAL (MATCHED (( FONT-CLS-LINED )) (( LINE-SPACE >>> SG => FONT-V ADDVAR )) MATCHED) )) )) OK) (LET CONTROLLER-TWIGS BE (( )) (( (( TEXT-HOUSE-BASIS ; FONT-ONE-UP ; FONT-ONE-UP )) )) OK) (LET WRITE-FONT-ITEM BE (( => >N1 )) (( N1 => ; FONT-WARP >>> => %GET => H )) )) OK) (LET TEXT-HOUSE-FREE (( )) (( FONT-CLS-LINED )) OK) (LET FONT-BKS BE (( )) (( (( FONT-SPACE-DIRECT )) (( TEXT-HOUSE-LEFT )) (( FONT-SPACE-DIRECT )) )) OK) (LET FONT-ITEM BE (( => >N1 ; => GETASCII )) (( (( => 34 ; EQN (MATCHED EXIT MATCHED) )) (( N1 => WRITE-FONT-ITEM )) )) OK) (LET FONT-SPACE BE (( )) (( (( FONT-SPACE-DIRECT ; TEXT-HOUSE-RIGHT )) )) OK) (LET FONT-SPACE-LINED BE (( )) (( (( FONT-SPACE-DIRECT )) (( FONT-LINED )) (( TEXT-HOUSE-RIGHT )) )) OK) (LET POP-CH-DIRECT BE (( ; => GETASCII )) (( (( => >N1 )) (( N1 32 EQN (MATCHED FONT-SPACE )(OTHER (( N1 100 => ADD => ASTERIX-LIST => ; => LENGTH (COUNT (( N1 CH ; N1 => FONT-ITEM )) COUNTUP) )) MATCHED) )) (( RM )) )) OK) (LET POP-CH BE (( ; => GETASCII )) (( (( => >N1 )) (( N1 32 EQN (MATCHED FONT-SPACE )(OTHER (( FONT-SPACE-DIRECT )) (( N1 100 => ADD => ASTERIX-LIST => ; => LENGTH (COUNT (( N1 CH ; N1 => FONT-ITEM )) COUNTUP) )) (( TEXT-HOUSE-RIGHT )) (( RM )) MATCHED) )) )) OK) (LET POP-CH-LINED BE (( ; => GETASCII )) (( (( => >N1 )) (( N1 32 EQN (MATCHED FONT-SPACE-LINED )(OTHER (( FONT-SPACE-DIRECT )) (( N1 100 => ADD => ASTERIX-LIST => ; => LENGTH (COUNT (( N1 CH ; N1 => FONT-ITEM )) COUNTUP) )) (( FONT-LINED )) (( TEXT-HOUSE-RIGHT )) (( RM )) MATCHED) )) )) OK) (LET SHOW-TEXT-HOUSE (( )) (( NOW-TEXT-HOUSE >>> => ASCII => POP-CH-DIRECT )) OK) (LET POP-TEXT BE (( ; => LENGTH )) (( (( => >N1 )) (( N1 (COUNT (( ; N1 => CH => POP-CH )) COUNTUP) (( RM )) )) OK) (LET POP-TEXT-LN BE (( ; )) (( (( => POP-TEXT )) (( NEWLINE )) )) OK) (LET NEWSCREEN BE (( )) (( (( UNSHOWMOUSE )) (( CLS )) (( TEXT-HOUSE-HOME )) (( SHOWMOUSE )) )) OK) (( VARSTRING INPUT-LINE )) (LET NEW-READLN BE (( )) (( (( INPUT-LINE => VARSTR-SETBASIS )) (( GOLABEL1: (( SHOW-TEXT-HOUSE )) (( KEYNUM => >N1 )) (( N1 31 => INTGREATER (MATCHED (( TEXT-HOUSE-FREE )) (( N1 => ASCII => UPCM ; => ONE GETASCII => >N1 ; => POP-TEXT )) (( N1 ; INPUT-LINE => VARSTR-EXPAND )) (( GOUP1 )) MATCHED) )) (( N1 13 => EQN (MATCHED (( TEXT-HOUSE-FREE )) (( NEWLINE )) (( GOFORWARD2 )) MATCHED) )) (( N1 8 => EQN (MATCHED (( INPUT-LINE => VARSTR-LEN => ISPRO (MATCHED (( FONT-BKS )) (( INPUT-LINE => VARSTR-DECLEN )) MATCHED) (( GOUP1 )) MATCHED) )) )) (( GOLABEL2: (( INPUT-LINE VARSTR> => => )) (( INPUT-LINE => VARSTR-SETBASIS )) )) OK) (LET XY-READLN BE (( => >N8 => >N5 => >N3 )) (( (( N3 ; N5 => TEXT-HOUSE-XY )) (( INPUT-LINE => VARSTR-SETBASIS )) (( GOLABEL1: (( SHOW-TEXT-HOUSE )) (( KEYNUM => >N1 )) (( N1 31 => INTGREATER (MATCHED (( TEXT-HOUSE-FREE )) (( N8 ; INPUT-LINE => VARSTR-LEN => EQN (MATCHED (( INPUT-LINE => VARSTR-LEN => DEC ; INPUT-LINE => VARSTR-SETLEN )) MATCHED) )) (( N1 => ASCII => UPCM ; => ONE GETASCII => >N1 ; => POP-TEXT )) (( N1 ; INPUT-LINE => VARSTR-EXPAND )) (( N8 ; INPUT-LINE => VARSTR-LEN => EQN (MATCHED TEXT-HOUSE-LEFT MATCHED) (( GOUP1 )) MATCHED) )) (( N1 13 => EQN (MATCHED (( TEXT-HOUSE-FREE )) (( NEWLINE )) (( GOFORWARD2 )) MATCHED) )) (( N1 8 => EQN (MATCHED (( INPUT-LINE => VARSTR-LEN => ISPRO (MATCHED (( N8 ; INPUT-LINE => VARSTR-LEN => EQN (MATCHED FONT-SPACE-DIRECT )(OTHER FONT-BKS MATCHED) (( INPUT-LINE => VARSTR-DECLEN )) MATCHED) (( GOUP1 )) MATCHED) )) )) (( GOLABEL2: (( INPUT-LINE VARSTR> => => )) (( INPUT-LINE => VARSTR-SETBASIS )) )) OK) (LET LISA-YNIN BE (( )) (( }[ENTER=YES] } => POP-TEXT )) (( NEW-READLN => YESORENTER )) OK) (LET LISA-ENTERPLS BE (( )) (( (( }[ENTER], PLS } => POP-TEXT )) (( NEW-READLN => RM )) )) OK) (LET POP-TEXT-LINED BE (( ; => LENGTH )) (( (( => >N1 )) (( N1 (COUNT (( ; N1 => CH => POP-CH-LINED )) COUNTUP) (( RM )) )) OK) (LET XY-POP BE (( >N2 >N1 LENGTH )) (( (( => >N3 )) (( N1 ; N2 => TEXT-HOUSE-XY )) (( POP-TEXT )) )) OK) (LET XY-POP-LINED BE (( >N2 >N1 LENGTH )) (( (( => >N3 )) (( N1 ; N2 => TEXT-HOUSE-XY )) (( POP-TEXT-LINED )) )) OK) (LET FREE-XY-POP BE (( LENGTH )) (( (( => >N3 )) (( FREE-X ; FREE-Y => TEXT-HOUSE-XY )) (( POP-TEXT )) )) OK) (LET POP-TEXT-LINED-LN BE (( ; )) (( (( => POP-TEXT-LINED )) (( NEWLINE )) )) OK) (LET LOOP-THRU-FONT BE (( )) (( (( NEWSCREEN )) (( TEXT-HOUSE-HOME )) (( 124 (COUNT (( N1 126 => ADD => >N8 )) (( N8 ; } } ; N8 ASCII ; } } => CONCAT CONCAT CONCAT => POP-TEXT )) (( N8 7 => MOD => ISPRO NOT (MATCHED NEWLINE MATCHED) )) COUNTUP) (( NEWLINE )) )) OK) (LET TEXT>MATRIX (( => & >N1 LENGTH => >N2 )) BE (( (( N2 (COUNT N1 => CHN => N1 ; N3 ; # => PM COUNTUP) )) (( 0 ; N2 INC ; N3 ; # => PM )) (( RM ; && )) )) OK) (LET MATRIX>TEXT (( => & >N1 )) BE (( (( # N1 => %GET => & )) (( # => NOZ (MATCHED (( # => %LENGTH => >N9 )) (( N9 => ISPRO (MATCHED N9 => MAKEBL (COUNT N1 => # %GET ; N1 => TOCHN COUNTUP) => => )(OTHER }} MATCHED) )) )(OTHER }} MATCHED) )) (( && && )) )) OK) ((DATA MINI-FILE 4 %MAKE MINI-FILE < %MAKE ; 1 MINI-FILE >>> => %PUT 200 => %MAKE ; 2 MINI-FILE >>> => %PUT 200 => %MAKE ; 3 MINI-FILE >>> => %PUT 200 => %MAKE ; 4 MINI-FILE >>> => %PUT )) (LET MAKE-MINI-FILE BE (( => => )) (( (( MINI-FILE >>> & )) (( 4 ; # => TEXT>MATRIX )) (( 3 ; # => TEXT>MATRIX )) (( 2 ; # => TEXT>MATRIX )) (( 1 ; # => TEXT>MATRIX )) (( ; # => PM2FILE => RM )) (( && )) )) OK) (LET MANIFEST-LINE BE (( => & )) (( (( # => %LENGTH (COUNT N1 ; # => %GET => ASCII => POP-CH COUNTUP) )) (( NEWLINE )) (( && )) )) OK) (LET DONE-GRAPHICS BE (( )) (( (( CLEAR_KEYBUF )) (( -1 18 => MODELLER )) (( -1 24 => MODELLER )) (( FGRAPH-ACTIVATED => SETBASIS )) (( BIGVIDEOREFRESH )) (( FIXF )) (( CLEAR_KEYBUF )) )) )) OK) (( }N1} => ? ; }TEXT>MATRIX} => ? ; 88 ADD => POKE )) (LET NEWKEY (( )) BE (( (( KEYNUM TOV9 )) (( FKEYALT TOV5 )) (( FKEYCTRL TOV6 )) (( FKEYSHIFT TOV7 )) (( FKEYNUM TOV8 )) )) OK) ((DATA STD-LISAMENU-PAL-HOUSE )) (LET STD-LISAMENU-PAL BE (( )) (( (( STD-LISAMENU-PAL-HOUSE >>> => H )) )) OK) (LET LISAMENU-PALETTE-ESSENCE BE (( )) (( (( }LISAPAL} => LOADPAL )) (( GETPAL )) (( STD-LISAMENU-PAL )) (( PUTPAL )) )) OK) ((DATA LISAMENU-PALETTE-HOUSE }LISAMENU-PALETTE-ESSENCE} => ? LISAMENU-PALETTE-HOUSE <>> => H )) )) OK) (LET SOME-TEXT BE (( )) (( (( SWITCH-TO-TEXT-MODE )) )) OK) (LET MORE-GRAPHICS BE (( )) (( (( SWITCH-BACK-TO-GRAPHICS-MODE )) (( LISAMENU-PALETTE )) )) OK) (LET DEB BE (( >N1 )) (( (( }GOOD LUCK! GOOD LUCK! ==** NUM } ; N1 => CONCAT ; } **==} => CONCAT => ONE => POP )) (( }HERE IS THE MAIN STACK:} => POP )) (( STK )) (( }HERE IS THE VARSTACK (OTHER SEQUENCE):} => POP )) (( VARSTK )) (( }HERE IS THE RICHSTACK:} => POP )) (( RICHSTK )) (( ; POP )) (( KEY RM )) )) OK) (LET DEBBY BE (( >N1 )) (( (( }GOOD LUCK! GOOD LUCK! ==** NUM } ; N1 => CONCAT ; } **==} => CONCAT => ONE ; 1 1 => XY-POP ; 1 24 => XY-POP )) (( KEY RM )) )) OK) (LET TEXT-DEBBY BE (( >N1 )) (( (( SOME-TEXT )) (( N1 => DEB )) (( MORE-GRAPHICS )) )) OK) ((DATA XO-STATUS-ON XO-STATUS-ON => SETBASIS )) (LET XO-STATUS BE XO-STATUS-ON SETDANCE OK) (LET LISAUP BE (( )) (( (( CLS )) (( }LISAMENU BY A.TACOMA. TYPE NOW TO BEGIN} => POP )) (( }OTHER OPTIONS: HAVE FUN WITH PROGRAMMING FIRTH LISAMENU} => POP )) )) OK) (LET LISAUP2 BE (( )) (( (( CLS )) (( }ARISTO TACOMA PRESENTS: THE LISAMENU COMPILER} => POP )) (( }XO TO EXIT. } => POP )) )) OK) (LET FT BE (( )) (( )) OK) (( }FT} => GETFUNCNUM ; }UNSHOWMOUSE} => ? => SETWARPADDRESS )) (LET FEET BE (( )) (( )) OK) (( }FEET} => GETFUNCNUM ; }SHOWMOUSE} => ? => SETWARPADDRESS )) (LET FT-CLS BE (( )) (( (( CLEAR_KEYBUF )) (( FT ; CLS ; FEET )) )) OK) (LET RICH BE (( )) (( )) OK) (( }RICH} => GETFUNCNUM ; }EXTRACTNUMBERSTUFF} => ? => SETWARPADDRESS )) (LET V1UP V1 ADD TOV1 OK) (LET V2UP V2 ADD TOV2 OK) (LET V3UP V3 ADD TOV3 OK) (LET V4UP V4 ADD TOV4 OK) (LET V5UP V5 ADD TOV5 OK) (LET V5UP V5 ADD TOV5 OK) (LET V6UP V6 ADD TOV6 OK) (LET V6UP V6 ADD TOV6 OK) (LET V7UP V7 ADD TOV7 OK) (LET V8UP V8 ADD TOV8 OK) (LET V9UP V9 ADD TOV9 OK) (LET V9UP V9 ADD TOV9 OK) (LET V10UP V10 ADD TOV10 OK) (LET V11UP V11 ADD TOV11 OK) (LET ADDVAR-WITHIN BE (( ; ; ; )) (( (( # => PEEK ; BRIDGE => ADD ; ANGEL ; 1 => SWITCH => WITH (MATCHED ADDVAR )(OTHER RM && MATCHED) )) )) OK) ((DATA CLICK-DURATION 35 CLICK-DURATION < >>V FREE-B => >>V FREE-B => >>V N1 DEC >>V => WRITEPAL COUNTUP) (( MAYBE-BLUE-R >>> >>V MAYBE-BLUE-G >>> >>V MAYBE-BLUE-B >>> >>V ^255 => WRITEPAL )) (( MAYBE-RED-R >>> >>V MAYBE-RED-G >>> >>V MAYBE-RED-B >>> >>V ^64 => WRITEPAL )) (( MAYBE-BLUE-R >>> >>V MAYBE-BLUE-G >>> >>V MAYBE-BLUE-B >>> >>V ^1 => WRITEPAL )) (( MAYBE-RED-R >>> >>V MAYBE-RED-G >>> >>V MAYBE-RED-B >>> >>V ^0 => WRITEPAL )) (( PUTPAL )) )) OK) ((DATA SAVE-SCREEN SAVE-SCREEN => SETBASIS )) (( VARSTRING SCREEN-FILE }IDSCREEN} SCREEN-FILE >VARSTR )) (( VARSTRING PALETTE-FILE }IDPAL} PALETTE-FILE >VARSTR )) ((DATA FRAME-BG FRAME-BG => SETBASIS )) ((DATA FRAME-FG FRAME-FG => SETDANCE )) (LET GET-CENTERED-FRAME-COOR BE (( >N2 >N1 )) (( (( 1024 => DIV2 ; N1 => DIV2 => SUB => >N6 )) (( 768 => DIV2 ; N2 => DIV2 => SUB => >N7 )) (( N6 N1 ADD => >N10 )) (( N7 N2 ADD => >N11 )) (( N6 N7 N10 N11 => => )) )) OK) (LET DO-MAYBE-SAVE-SCREEN BE (( >N4 >N3 >N2 >N1 )) (( (( SAVE-SCREEN => VISDANCE (MATCHED (( FT )) (( SCREEN-FILE => VARSTR> => N1 ; N2 ; N3 ; N1 => SUB => INC4 ; N4 ; N2 => SUB => INC4 => XYSCREENBMP )) MATCHED) )) (( FEET )) )) OK) (LET DO-MAYBE-RESTORE-SCREEN BE (( >N4 >N3 >N2 >N1 )) (( (( SAVE-SCREEN => VISDANCE (MATCHED (( FT )) (( PALETTE-FILE VARSTR> => 1 ; 1 ; 64 ; 64 => XYSCREENBMP )) (( 0 ; SCREEN-FILE VARSTR> ; N1 ; N2 => XYFLASH )) (( PALETTE-FILE => VARSTR> => LOADPAL )) (( FEET )) MATCHED) )) )) OK) (LET DO-MAYBE-RESTORE-SCREEN-AND-PAL BE (( >N4 >N3 >N2 >N1 )) (( (( SAVE-SCREEN => VISDANCE (MATCHED (( FT )) (( 0 ; SCREEN-FILE => VARSTR> ; N1 ; N2 => XYFLASH )) (( FEET )) MATCHED) )) (( GETPAL )) )) OK) ((DATA FRAME-XY-POP-HOUSE )) (LET FRAME-XY-POP BE (( ; ; ; )) (( FRAME-XY-POP-HOUSE >>> => H )) OK) (LET SYSTEM-FONT-XY-POP BE (( ; ; ; )) (( (( => FONT-V < FONT-H < POP-TEXT )) )) OK) (( }SYSTEM-FONT-XY-POP} ? FRAME-XY-POP-HOUSE <N4 >N3 >N2 >N1 )) (( (( N1 ; N2 ; N3 ; N4 ; FRAME-BG >>> => RECTFILL )) (( N1 INC ; N2 INC ; N3 DEC ; N4 DEC ; FRAME-FG >>> => RECT )) (( N1 INC INC ; N2 INC INC ; N3 DEC DEC ; N4 DEC DEC ; FRAME-FG >>> => RECT )) (( N1 5 ADD ; N2 35 ADD ; N3 10 SUB ; N4 10 SUB ; FRAME-FG >>> => RECT )) (( N1 7 ADD ; N2 37 ADD ; N3 12 SUB ; N4 14 SUB ; FRAME-FG >>> => RECT )) (( ; N1 20 ADD ; N2 10 ADD => FRAME-XY-POP )) )) OK) (LET MAKE-FRAME-2 BE (( >N4 >N3 >N2 >N1 )) (( (( N1 ; N2 ; N3 ; N4 ; FRAME-BG >>> => RECTFILL )) (( N1 INC ; N2 INC ; N3 DEC ; N4 DEC ; FRAME-FG >>> => RECT )) (( N1 INC INC ; N2 INC INC ; N3 DEC DEC ; N4 DEC DEC ; FRAME-FG >>> => RECT )) )) OK) ((DATA SLIDER-NORMALIZE-VALUE 500 SLIDER-NORMALIZE-VALUE <N4 >N3 >N2 >N1 )) (( (( SLIDER-FULL-VALUE >>> >N10 )) (( N4 N3 MUL N10 DIV => >N8 )) (( N1 N8 7 SUB ADD ; N2 ; BRIDGE 14 ADD ; BRIDGE 28 ADD ; FRAME-FG >>> => RECTFILL )) )) OK) (LET UNSHOW-SLIDER-VALUE BE (( >N4 >N3 >N2 >N1 )) (( (( SLIDER-FULL-VALUE >>> >N10 )) (( N4 N3 MUL N10 DIV => >N8 )) (( N1 N8 7 SUB ADD ; N2 ; BRIDGE 14 ADD ; BRIDGE 28 ADD ; FRAME-BG >>> => RECTFILL )) (( N1 ; N2 4 ADD ; BRIDGE N3 ADD ; BRIDGE 17 ADD ; FRAME-BG >>> ; FRAME-FG >>> => DOTTED_RECT )) )) OK) (LET SKETCH-SLIDER BE (( >N4 >N3 >N2 >N1 )) (( (( FT )) (( ; N2 ; N3 => FRAME-XY-POP )) (( N1 ; N2 => ADD => >N2 )) (( N2 ; N3 ; 4 => ADD ; BRIDGE ; N4 => ADD ; BRIDGE 17 ADD ; FRAME-BG >>> ; FRAME-FG >>> => DOTTED_RECT )) (( N2 ; N3 ; N4 ; SLIDER-NORMALIZE-VALUE >>> => SHOW-SLIDER-VALUE )) (( FEET )) )) OK) (LET NEW-SLIDER-VALUE BE (( >N6 >N5 >N4 >N3 >N2 >N1 )) (( (( FT )) (( N3 N4 ADD ; N5 ; N6 ; N1 => UNSHOW-SLIDER-VALUE )) (( N3 N4 ADD ; N5 ; N6 ; N2 => SHOW-SLIDER-VALUE )) (( FEET )) )) OK) (LET MORE-RED BE (( >N1 )) (( (( N1 => >>V => READPAL ; 255 ; ### => INTGREATER (MATCHED ANGELV ; ^1 => ADDV => ANGELV ANGELV ; N1 => >>V => WRITEPAL )(OTHER && && && MATCHED) )) )) OK) (LET RM-RED BE (( >N1 )) (( (( N1 => >>V => READPAL ; ### => ISPRO (MATCHED ANGELV ; ^-1 => ADDV => ANGELV ANGELV ; N1 => >>V => WRITEPAL )(OTHER && && && MATCHED) )) )) OK) (LET MORE-GREEN BE (( >N1 )) (( (( N1 => >>V => READPAL ; 255 ; ## => INTGREATER (MATCHED SWITCHV ; ^1 => ADDV => SWITCHV ; N1 => >>V => WRITEPAL )(OTHER && && && MATCHED) )) )) OK) (LET RM-GREEN BE (( >N1 )) (( (( N1 => >>V => READPAL ; ## => ISPRO (MATCHED SWITCHV ; ^-1 => ADDV => SWITCHV ; N1 => >>V => WRITEPAL )(OTHER && && && MATCHED) )) )) OK) (LET MORE-BLUE BE (( >N1 )) (( (( N1 => >>V => READPAL ; 255 ; # => INTGREATER (MATCHED ^1 => ADDV ; N1 => >>V => WRITEPAL )(OTHER && && && MATCHED) )) )) OK) (LET RM-BLUE BE (( >N1 )) (( (( N1 => >>V => READPAL ; # => ISPRO (MATCHED ^-1 => ADDV ; N1 => >>V => WRITEPAL )(OTHER && && && MATCHED) )) )) OK) (LET BYTEPOS BE (( => DEC )) (( (( 15 TWO DIV INC => ANGEL ANGEL => => )) (( MOD INC => => )) )) OK) (LET BYTEPOS-CH BE (( => DEC )) (( (( 15 TWO DIV INC => ANGEL ANGEL => => )) (( TWICE MOD INC => => )) )) OK) (LET GB BE (( ; ; ; )) (( (( TWICE => TWO )) (( DEC SWITCH MANTRA => GM => ASCII => ANGEL ANGEL )) (( SWITCH YANTRA => GM => ASCII => CONCAT => => )) (( SWITCH RM )) )) OK) (LET GBD BE (( ; ; ; )) (( (( TWICE => TWO )) (( DEC SWITCH MANTRA => GM => ASCII => ANGEL ANGEL )) (( SWITCH YANTRA => GM => ASCII => CONCAT => HEX2DEC => => )) (( SWITCH RM )) )) OK) (LET UP-TO-EVEN BE (( ; )) (( (( ONE => MOD2 => ISDANCE (MATCHED INC MATCHED) => => )) )) OK) (LET UP-TO-HIGHER-EVEN BE (( ; )) (( (( ONE => MOD4 => ONE => ISPRO (MATCHED 4 SWITCH SUB BRIDGE ADD SWITCH MATCHED) => => )) (( RM )) )) OK) (LET UP-TO-EVEN8 BE (( ; )) (( (( ONE => MOD8 => ONE => ISPRO (MATCHED 8 SWITCH SUB BRIDGE ADD SWITCH MATCHED) => => )) (( RM )) )) OK) (LET FLOOR-EVEN BE (( ; )) (( (( ONE => MOD2 => ISDANCE (MATCHED DEC MATCHED) => => )) )) OK) (LET RELEASE-MATRIX BE (( => & )) (( (( # => %LENGTH (COUNT (( N1 ; # => %GET => %FREE )) COUNTUP) )) (( # => %FREE )) (( && )) )) OK) (LET GET-PAINTING-RAM BE (( )) (( (( 32 21000 RAM-PM => => )) )) OK) (LET LOAD-PAINTING BE (( & ; )) (( (( }.TXT} => CONCAT ; # => FILE2PM => RM )) (( && )) )) OK) (LET DURATION-MOUSE BE (( )) (( (( MMOTION )) (( 1 => LISA-SENSITIVITY )) (( MMOTION )) (( => AND => => )) )) OK) (LET UNTIL-TOUCHING BE (( )) (( (( DURATION-MOUSE ; MOUSECLICK ; KEYTOUCH => TRIPLEORR => NOT => => )) )) OK) (LET ENTER-OR-CLICK (( )) BE (( (( GOLABEL1: (( MOUSECLICK => )) (( CLICK-DURATION >>> GOODPAUSE )) (( => (MATCHED EXIT MATCHED) )) (( KEYTOUCH => (MATCHED KEYNUM 13 EQN = EXIT == CLEAR_KEYBUF === MATCHED) )) GOUP1 )) )) OK) (LET ANY-KEY-OR-CLICK (( )) BE (( (( GOLABEL1: (( MOUSECLICK => )) (( CLICK-DURATION >>> GOODPAUSE )) (( => (MATCHED EXIT MATCHED) )) (( KEYTOUCH => (MATCHED CLEAR_KEYBUF EXIT MATCHED) )) GOUP1 )) )) OK) ((DATA PAINTING-START 1079 PAINTING-START <>> => )) (( # 2 5 GB ; # 2 4 GB => CONCAT => HEX2DEC => UP-TO-HIGHER-EVEN => => )) (( # 2 9 GB ; # 2 8 GB => CONCAT => HEX2DEC => UP-TO-HIGHER-EVEN => => )) (( TWO => MUL => => )) (( && )) )) OK) (LET REAL-TXT-FILE BE (( ; )) (( (( ONE => RMBL => TOLEN => ISBASIS (MATCHED RM NO ; EXIT MATCHED) )) (( ONE }.TXT} => CONCAT => ALREADYFILE (MATCHED YES )(OTHER RM NO MATCHED) )) )) OK) ((DATA PALETTE-EDITOR-R )) ((DATA PALETTE-EDITOR-G )) ((DATA PALETTE-EDITOR-B )) (LET PALETTE-EDITOR-UPDATE-RGB-INFO BE (( & >N2 >N1 )) (( (( => READPAL => ### 3 => RIGHTADJUST ; ## 3 => RIGHTADJUST ; # 3 => RIGHTADJUST )) (( }BLUE: } SWITCH CONCAT ; N1 425 ADD ; N2 440 ADD => FT FRAME-XY-POP FEET )) (( }GREEN:} SWITCH CONCAT ; N1 425 ADD ; N2 410 ADD => FT FRAME-XY-POP FEET )) (( }RED: } SWITCH CONCAT ; N1 425 ADD ; N2 380 ADD => FT FRAME-XY-POP FEET )) (( && && && )) )) OK) (LET PALETTE-EDITOR BE (( )) (( (( VLOTS )) (( 1 => TOV9 )) (( 2 => TOV10 )) (( 800 ; 600 => GET-CENTERED-FRAME-COOR => >N4 >N3 >N2 >N1 )) (( N1 N2 N3 N4 => DO-MAYBE-SAVE-SCREEN )) (( }PALETTE EDITOR -- CYCLIC COLORS} N1 N2 N3 N4 => FT MAKE-FRAME FEET )) (( N1 502 ADD => >N7 )) (( N2 79 ADD => >N8 )) (( }R} ; 25 ; N7 ; N8 ; 220 => FT SKETCH-SLIDER FEET )) (( }G} ; 25 ; N7 ; N8 50 ADD ; 220 => FT SKETCH-SLIDER FEET )) (( }B} ; 25 ; N7 ; N8 100 ADD ; 220 => FT SKETCH-SLIDER FEET )) (( SLIDER-NORMALIZE-VALUE >>> PALETTE-EDITOR-R <>> PALETTE-EDITOR-G <>> PALETTE-EDITOR-B < FT FRAME-XY-POP FEET )) (( }CLICK, OR RIGHT-CLICK TO MOVE} ; N1 20 ADD ; N2 525 ADD => FT FRAME-XY-POP FEET )) (( }OR CLICK TO SELECT COLOR} ; N1 20 ADD ; N2 550 ADD => FT FRAME-XY-POP FEET )) (( }COLORS:} ; N1 425 ADD ; N8 150 ADD => FT FRAME-XY-POP FEET )) (( }#64 MOUSE OUTLINE} ; N1 425 ADD ; N8 175 ADD => FT FRAME-XY-POP FEET )) (( }#255 IS ITS COLOR} ; N1 425 ADD ; N8 200 ADD => FT FRAME-XY-POP FEET )) (( }#0 IS BACKGROUND} ; N1 425 ADD ; N8 225 ADD => FT FRAME-XY-POP FEET )) (( }#1 IS FOREGROUND} ; N1 425 ADD ; N8 250 ADD => FT FRAME-XY-POP FEET )) (( }CLICK P TO RANDOMIZE} ; N1 20 ADD ; N2 450 ADD => FT FRAME-XY-POP FEET )) (( 16 (COUNT 16 (COUNT N5 N1 22 MUL ADD INC16 INC8 ; N6 N3 22 MUL ADD INC32 INC8 ; BRIDGE 21 ADD ; BRIDGE 21 ADD ; N3 DEC ; 16 => MUL ; N1 DEC => ADD => FT RECTFILL FEET COUNTUP) COUNTUP) (( GOLABEL1: )) (( }SELECTED COLOR NOW: #} V10 } } CONCAT CONCAT ; N1 20 ADD ; N2 475 ADD => FT FRAME-XY-POP FEET )) (( N1 N2 V10 => PALETTE-EDITOR-UPDATE-RGB-INFO )) (( N1 640 ADD ; N8 320 ADD ; BRIDGE 120 ADD ; BRIDGE 120 ADD ; V10 => FT RECTFILL FEET )) (( GOLABEL4: (( KEYTOUCH = KEYNUM 13 TEST = GOFORWARD3 == 27 TEST = GOFORWARD2 == 82 TEST = 1 => TOV9 == 71 TEST = 2 => TOV9 == 66 TEST = 3 => TOV9 == 80 TEST = RANDOMIZE-PALETTE == 114 TEST = 1 => TOV9 == 103 TEST = 2 => TOV9 == 98 TEST = 3 => TOV9 == 112 EQN = RANDOMIZE-PALETTE == === === === === === === === === === === === )) (( MOUSECLICK => Y-TO-1 => TOV4 )) (( MOUSECLICKR => Y-TO-1 => TOV6 )) (( V4 ISDANCE ; V6 ISDANCE => ORR (MATCHED (( MOUSEXY => TOV2 ; TOV1 )) (( V4 => ISDANCE (MATCHED (( V1 ; N1 49 ADD ; ONE 16 22 MUL ADD => WITH ; V2 ; N2 60 ADD ; ONE 16 22 MUL ADD => WITH => AND (MATCHED (( V2 N2 SUB 40 SUB ; 22 DIV => DEC => 16 MUL ; V1 N1 SUB 24 SUB ; 22 DIV => DEC => ADD => TOV7 )) (( V7 0 255 => WITH (MATCHED V7 => TOV10 ; GOUP1 MATCHED) )) )(OTHER (( V10 ; V9 1 TEST = MORE-RED == 2 EQN = MORE-GREEN == MORE-BLUE === === )) (( 2 => TOV8 )) MATCHED) )) )(OTHER V6 => ISDANCE (MATCHED (( V10 ; V9 1 TEST = RM-RED == 2 EQN = RM-GREEN == RM-BLUE === === )) (( -2 => TOV8 )) MATCHED) MATCHED) (( PUTPAL )) (( V9 1 TEST = (( PALETTE-EDITOR-R >>> )) (( SLIDER-FULL-VALUE >>> ; V8 ; PALETTE-EDITOR-R => ADDVAR-WITHIN )) (( PALETTE-EDITOR-R >>> )) == 2 EQN = (( PALETTE-EDITOR-G >>> )) (( SLIDER-FULL-VALUE >>> ; V8 ; PALETTE-EDITOR-G => ADDVAR-WITHIN )) (( PALETTE-EDITOR-G >>> )) == (( PALETTE-EDITOR-B >>> )) (( SLIDER-FULL-VALUE >>> ; V8 ; PALETTE-EDITOR-B => ADDVAR-WITHIN )) (( PALETTE-EDITOR-B >>> )) === === )) (( => ; => ; 25 ; N7 ; N8 V9 DEC 50 MUL ADD ; 220 => NEW-SLIDER-VALUE )) (( N1 N2 V10 => PALETTE-EDITOR-UPDATE-RGB-INFO )) (( CLICK-DURATION >>> GOODPAUSE )) MATCHED) )) GOUP4 )) (( GOLABEL2: (( N1 N2 N3 N4 => DO-MAYBE-RESTORE-SCREEN-AND-PAL )) (( FEET )) (( VFREE ; EXIT )) )) (( GOLABEL3: (( N1 N2 N3 N4 => DO-MAYBE-RESTORE-SCREEN )) (( FEET )) (( VFREE ; EXIT )) )) )) OK) (LET LISA-PAINT-1-1-ESSENCE BE (( )) (( (( V2 ; V3 ; V11 => PUTPIXEL )) )) OK) (LET LISA-PAINT-ESSENCE BE (( )) (( (( V2 V8 ADD ; V3 V9 ADD ; V11 => PUTPIXEL )) )) OK) ((DATA LISA-PAINT-1-1-ESSENCE-HOUSE }LISA-PAINT-1-1-ESSENCE} => ? => LISA-PAINT-1-1-ESSENCE-HOUSE < ? => LISA-PAINT-ESSENCE-HOUSE <>> ; # => FORVPM )) (( && )) )) OK) (LET A-KEY BE (( )) (( (( CLEAR_KEYBUF )) (( KEYNUM => ISBASIS = KEY RM === )) (( CLEAR_KEYBUF )) )) OK) (LET LISA-PAINT BE (( & >N2 >N1 )) (( (( VLOTS ; N1 => TOV8 ; N2 => TOV9 ; VFREE ; LISA-PAINT-ESSENCE-HOUSE >>> ; # => FORVPM )) (( && )) )) OK) (LET MAKE-SMART-PAINTING BE (( ; )) (( (( VLOTS )) (( => => TOV3 )) (( V3 => PAINTING-STATUS => TOV10 ; TOV11 ; TOV9 ; TOV8 )) (( V9 ; V11 => RAM-PM => >N5 )) (( V9 => INC => TOV4 )) (( 1 => TOV5 )) (( V10 (COUNT (( (( DECV4 )) (( V4 => ISBASIS (MATCHED INCV5 ; V9 => TOV4 MATCHED) )) (( V3 ; N2 N1 => SUB ; V8 ADD => BYTEPOS => GBD ; V4 ; V5 ; N7 => PM )) COUNTUP) )) (( N5 => => )) (( VFREE )) )) OK) (LET LEISURE-PAINT BE (( ; ; ; )) (( (( VLOTS )) (( => => TOV3 ; DEC TOV2 ; DEC TOV1 )) (( V3 => PAINTING-STATUS => TOV10 ; TOV11 ; TOV9 ; TOV8 )) (( V9 => INC => TOV4 )) (( 1 => TOV5 )) (( V10 (COUNT (( (( DECV4 )) (( V4 => ISBASIS (MATCHED INCV5 ; V9 => TOV4 MATCHED) )) (( V4 V1 ADD ; V5 V2 ADD ; V3 ; N2 N1 SUB V8 ADD => BYTEPOS => GBD => PUTPIXEL )) COUNTUP) )) (( VFREE )) )) OK) (LET GET-SMART-PAINTING BE (( ; )) (( (( GET-PAINTING-RAM => & )) (( ; # => LOAD-PAINTING )) (( # => MAKE-SMART-PAINTING => => )) (( # => RELEASE-MATRIX ; && )) )) OK) (LET LISA-PAINT-THIS BE (( ; ; ; )) (( (( => GET-SMART-PAINTING => & )) (( FT ; ; # => LISA-PAINT ; FEET )) (( # => RELEASE-MATRIX ; && )) )) OK) (LET LISA-PAINT-THIS-1-1 BE (( ; )) (( (( => GET-SMART-PAINTING => & )) (( FT ; # => LISA-PAINT-1-1 ; FEET )) (( # => RELEASE-MATRIX ; && )) )) OK) (LET FREE-PAINT BE (( >N1 ; ; )) (( (( GOLABEL1: (( ONE ; N1 ISPRO (MATCHED N1 FUNNYRFFG CONCAT MATCHED) => GET-SMART-PAINTING => & )) (( FT ; FREE-H ; FREE-V ; # => LISA-PAINT ; FEET )) (( 2 => LISA-SENSITIVITY )) (( 4,600,000 RICH ; 30,000,000 RICH => FUNNYRFFG => INTGREATER (MATCHED FT BRIDGE FREE-XY-POP FEET MATCHED) )) (( 2 => LISA-SENSITIVITY )) (( 900,000 RICH ; 500,000,000 RICH => FUNNYRFFG => INTGREATER (MATCHED FT-CLS MATCHED) )) (( 2 => LISA-SENSITIVITY )) (( # => RELEASE-MATRIX ; && )) (( UNTIL-TOUCHING = GOUP1 === )) )) (( RM RM )) )) OK) (LET FREE-PAINT-LISAS-BACK BE (( )) (( (( }LISAMENU} }LISA} 6 => >N1 => )) (( GOLABEL1: (( 10 => FUNNYRFFG ; 5 => EQN (MATCHED (( ONE N1 FUNNYRFFG CONCAT => GET-SMART-PAINTING => & )) )(OTHER (( ONE 4 CONCAT => GET-SMART-PAINTING => & )) MATCHED) )) (( FT ; FREE-H ; FREE-V ; # => LISA-PAINT ; FEET )) (( 2 => LISA-SENSITIVITY )) (( 4,600,000 RICH ; 30,000,000 RICH => FUNNYRFFG => INTGREATER (MATCHED FT BRIDGE FREE-XY-POP FEET MATCHED) )) (( 2 => LISA-SENSITIVITY )) (( 900,000 RICH ; 500,000,000 RICH => FUNNYRFFG => INTGREATER (MATCHED FT-CLS MATCHED) )) (( 2 => LISA-SENSITIVITY )) (( # => RELEASE-MATRIX ; && )) (( UNTIL-TOUCHING = GOUP1 === )) )) (( RM RM )) )) OK) (LET SENSITIVE-FREE-PAINT BE (( >N1 ; ; )) (( (( ONE ; N1 ISPRO (MATCHED N1 FUNNYRFFG CONCAT MATCHED) => GET-SMART-PAINTING => & )) (( 36 (COUNT (( FT ; FREE-H ; FREE-V ; # => LISA-PAINT ; FEET )) (( 4,600,000 RICH ; 30,000,000 RICH => FUNNYRFFG => INTGREATER (MATCHED FT BRIDGE FREE-XY-POP FEET MATCHED) )) COUNTUP) )) (( # => RELEASE-MATRIX ; && )) (( 1 => LISA-SENSITIVITY )) (( RM RM )) )) OK) (LET EASY-PAINT BE (( ; ; ; )) (( (( ONE => }.TXT} CONCAT => ALREADYFILE (MATCHED (( ONE => GET-SMART-PAINTING => & )) (( ANGEL ANGEL TWO ; # => FT LISA-PAINT FEET )) (( # => RELEASE-MATRIX ; && )) MATCHED) )) (( RM RM RM )) )) OK) (LET CONVERT-XYWH-TO-XYXY BE (( ; ; ; ; )) (( (( => TANTRA ADD DEC => => )) (( => SWITCH YANTRA ADD DEC SWITCH => => )) )) OK) (LET MAKE-UNTITLED-FRAME BE (( ; ; ; ; )) (( (( CONVERT-XYWH-TO-XYXY => >N4 >N3 >N2 >N1 )) (( N1 ; N2 ; N3 ; N4 ; FRAME-BG >>> => RECTFILL )) (( N1 INC ; N2 INC ; N3 DEC ; N4 DEC ; FRAME-FG >>> => RECT )) (( N1 INC INC ; N2 INC INC ; N3 DEC DEC ; N4 DEC DEC ; FRAME-FG >>> => RECT )) (( N1 5 ADD ; N2 35 ADD ; N3 10 SUB ; N4 10 SUB ; FRAME-FG >>> => RECT )) (( N1 7 ADD ; N2 37 ADD ; N3 12 SUB ; N4 14 SUB ; FRAME-FG >>> => RECT )) )) OK) (LET MAKE-TITLED-FRAME BE (( ; ; ; ; )) (( (( CONVERT-XYWH-TO-XYXY => >N4 >N3 >N2 >N1 )) (( N1 ; N2 ; N3 ; N4 ; FRAME-BG >>> => RECTFILL )) (( N1 INC ; N2 INC ; N3 DEC ; N4 DEC ; FRAME-FG >>> => RECT )) (( N1 INC INC ; N2 INC INC ; N3 DEC DEC ; N4 DEC DEC ; FRAME-FG >>> => RECT )) (( N1 5 ADD ; N2 35 ADD ; N3 10 SUB ; N4 10 SUB ; FRAME-FG >>> => RECT )) (( N1 7 ADD ; N2 37 ADD ; N3 12 SUB ; N4 14 SUB ; FRAME-FG >>> => RECT )) (( ; N1 20 ADD ; N2 10 ADD => FRAME-XY-POP )) )) OK) (LET PAINT-SIZE BE (( => & )) (( (( 1 ; # => %GET => %LENGTH )) (( # => %LENGTH )) (( && )) )) OK) (LET FRAME-PAINT BE (( ; ; ; )) (( (( ONE => RMBL => TOLEN => ISBASIS (MATCHED RM RM RM EXIT MATCHED) )) (( ONE => }.TXT} CONCAT => ALREADYFILE (MATCHED (( ONE => GET-SMART-PAINTING => & )) (( ANGEL ANGEL TWO ; # => PAINT-SIZE 100 ADD SWITCH 100 ADD SWITCH => => FT MAKE-UNTITLED-FRAME FEET )) (( TWO 65 ADD SWITCH 50 ADD SWITCH ; # => FT LISA-PAINT FEET )) (( # => RELEASE-MATRIX ; && )) MATCHED) )) (( RM RM RM )) )) OK) (LET FRAME-TITLE-PAINT BE (( ; ; ; )) (( (( BRIDGE => RMBL => TOLEN => ISBASIS (MATCHED RM RM RM RM EXIT MATCHED) )) (( BRIDGE => }.TXT} CONCAT => ALREADYFILE (MATCHED (( BRIDGE => GET-SMART-PAINTING => & )) (( ONE MANTRA MANTRA ; # => PAINT-SIZE 100 ADD SWITCH 100 ADD SWITCH => => FT MAKE-TITLED-FRAME FEET )) (( YANTRA YANTRA 65 ADD SWITCH 50 ADD SWITCH ; # => FT LISA-PAINT FEET )) (( # => RELEASE-MATRIX ; && )) MATCHED) )) (( RM RM RM RM )) )) OK) (LET LOADED-FRAME-TITLE-PAINT BE (( & ; ; ; )) (( (( # => NOZ (MATCHED (( ONE YANTRA YANTRA ; # => PAINT-SIZE 100 ADD SWITCH 100 ADD SWITCH => => FT MAKE-TITLED-FRAME FEET )) (( TANTRA TANTRA 65 ADD SWITCH 50 ADD SWITCH ; # => FT LISA-PAINT FEET )) MATCHED) )) (( RM RM RM )) (( && )) )) OK) ((DATA FLIPPER-FIELD FLIPPER-FIELD => SETBASIS )) ((DATA PLAYER-POSITION )) ((DATA FLP-BALL-SPEED-X )) ((DATA FLP-BALL-SPEED-Y )) ((DATA FLP-BALL-X )) ((DATA FLP-BALL-Y )) ((DATA SCORE )) ((DATA AMOUNT-ROUNDS-NEXT )) (LET DRAW-FLIPPERS BE (( >N2 >N1 )) (( (( N1 (COUNT N4 DEC 100 MUL INC12 ; 768 N1 INC 10 MUL SUB ; BRIDGE 100 ADD ; BRIDGE 10 ADD ; 1 => FT RECT FEET COUNTUP) )) OK) (LET UPDATE-SCORE-DISPLAY BE (( )) (( (( SCORE >>> ; 44 ; 1 => FT XY-POP FEET )) )) OK) (LET UPDATE-ROUNDS-DISPLAY BE (( )) (( }} AMOUNT-ROUNDS-NEXT >>> (COUNT N1 } } CONCAT CONCAT COUNTUP) => 1 ; 1 => FT XY-POP FEET )) )) OK) (LET RELEASE-PLAYER-POSITION BE (( )) (( (( PLAYER-POSITION >>> 92 MUL 14 ADD ; 100 ; BRIDGE 100 ADD ; 140 ; 0 => FT RECTFILL FEET )) )) OK) (LET NEW-PLAYER-POSITION BE (( )) (( (( PLAYER-POSITION >>> 92 MUL 14 ADD ; 100 ; BRIDGE 100 ADD ; 140 ; 1 => FT RECTFILL FEET )) )) OK) (LET GAME-HEADER BE (( )) (( (( }SCORE: } ; 37 ; 1 => FT XY-POP FEET )) (( UPDATE-SCORE-DISPLAY )) (( UPDATE-ROUNDS-DISPLAY )) (( RELEASE-PLAYER-POSITION )) (( NEW-PLAYER-POSITION )) )) OK) (LET SHOW-FLIPPERS BE (( )) (( (( FT-CLS )) (( GAME-HEADER )) (( FLIPPER-FIELD >>> => & )) (( # => ISBASIS => NOT (MATCHED (( 10 (COUNT N1 ; # => %GET ; N1 => DRAW-FLIPPERS COUNTUP) )) )) MATCHED) (( && )) )) OK) (LET FLIPPER-FRESH-VAR BE (( )) (( (( FLIPPER-FIELD => VISBASIS (MATCHED (( 10 => %MAKE FLIPPER-FIELD <>> %PUT COUNTUP) )) (( 4 PLAYER-POSITION <>> => ISPRO (MATCHED -1 ; PLAYER-POSITION => ADDVAR MATCHED) )) (( NEW-PLAYER-POSITION )) )) OK) (LET FLIPPER-MOTION-RIGHT BE (( )) (( (( RELEASE-PLAYER-POSITION )) (( 10 ; PLAYER-POSITION >>> => INTGREATER (MATCHED PLAYER-POSITION => INCVAR MATCHED) )) (( NEW-PLAYER-POSITION )) )) OK) (LET RELEASE-FLP-BALL-POSITION BE (( )) (( (( FLP-BALL-X >>> ; FLP-BALL-Y >>> ; 20 ; 0 => FT CIRCLEFILL FEET )) (( NEW-PLAYER-POSITION )) )) OK) (LET NEW-FLP-BALL-POSITION BE (( )) (( (( FLP-BALL-X >>> ; FLP-BALL-Y >>> ; 20 ; 1 => FT CIRCLEFILL FEET )) )) OK) (LET SWITCH-FLP-BALL-DIRECTION-X BE (( )) (( (( FLP-BALL-SPEED-X >>> => SG FLP-BALL-SPEED-X <>> => SG FLP-BALL-SPEED-Y < ADDVAR )) (( FT-CLS )) (( UPDATE-SCORE-DISPLAY )) (( CLEAR_KEYBUF )) (( AMOUNT-ROUNDS-NEXT => VISBASIS (MATCHED (( }YOUR SCORE: } ; 15 ; 1 => FT XY-POP FEET )) (( }COMPLETED. PRESS A KEY.} ; 15 ; 15 => FT XY-POP FEET )) (( 20 => LISA-SENSITIVITY )) (( KEY ; RM )) (( EXIT )) MATCHED) )) (( }SCORE SO FAR: } ; 20 ; 1 => FT XY-POP FEET )) (( }GET READY FOR NEXT ROUND!} ; 15 ; 15 => FT XY-POP FEET )) (( 22 => LISA-SENSITIVITY )) (( CLEAR_KEYBUF )) (( FT-CLS )) (( FLIPPER-FRESH-VAR )) )) OK) (LET UPDATE-FLP-BALL-XY BE (( )) (( (( FLP-BALL-X >>> ; 8 ; 1015 => WITH => NOT (MATCHED SWITCH-FLP-BALL-DIRECTION-X MATCHED) (( FLP-BALL-Y >>> ; 88 ; 752 => WITH => NOT (MATCHED (( SWITCH-FLP-BALL-DIRECTION-Y )) (( FLIPPER-FIELD VISBASIS => NOT ; 88 ; FLP-BALL-Y >>> => INTGREATER => AND (MATCHED (( NEXT-FLIPPER-ROUND )) MATCHED) MATCHED) (( FLP-BALL-SPEED-X >>> ; FLP-BALL-X => ADDVAR )) (( FLP-BALL-SPEED-Y >>> ; FLP-BALL-Y => ADDVAR )) )) OK) (LET FLP-BALL-MOTION-HANDLING BE (( )) (( (( RELEASE-FLP-BALL-POSITION )) (( UPDATE-FLP-BALL-XY )) (( NEW-FLP-BALL-POSITION )) )) OK) (LET FLIPPER-REFLECT-OR-SCORE BE (( )) (( (( 160 ; FLP-BALL-Y >>> => INTGREATER (MATCHED FLP-BALL-X >>> ; PLAYER-POSITION >>> 92 MUL 15 SUB ; ONE 165 ADD => WITH (MATCHED (( SWITCH-FLP-BALL-DIRECTION-Y )) (( FLP-BALL-MOTION-HANDLING )) MATCHED) )(OTHER FLP-BALL-Y >>> ; 710 => INTGREATER (MATCHED (( 100 ; SCORE => ADDVAR )) (( UPDATE-SCORE-DISPLAY )) (( SWITCH-FLP-BALL-DIRECTION-Y )) (( FLP-BALL-X >>> => >N4 )) (( 10 (COUNT N6 ; N1 DEC 100 MUL INC12 DEC DEC ; ONE 100 ADD INC4 => WITH (MATCHED (( N1 FLIPPER-FIELD >>> %GET => ONE ; DEC => N1 FLIPPER-FIELD >>> %PUT )) (( ISDANCE (MATCHED (( FLIPPER-FRESH-VAR )) (( 1 => LISA-SENSITIVITY )) MATCHED) (( RMS RMS GOFORWARD2 )) MATCHED) COUNTUP) (( GOLABEL2: )) (( FLP-BALL-MOTION-HANDLING )) (( SHOW-FLIPPERS )) )(OTHER FLP-BALL-Y >>> ; 650 => INTGREATER (MATCHED (( SHOW-FLIPPERS )) MATCHED) MATCHED) MATCHED) )) )) OK) (LET FLIPPER BE (( )) (( (( FT-CLS )) (( }WELCOME! LISAMENU FLIPPER!!!} ; 1 10 => XY-POP )) (( }GET READY FOR THREE ROUNDS!!} ; 1 15 => XY-POP )) (( 40 => LISA-SENSITIVITY )) (( FT-CLS )) (( }ONWARDS!!} ; 1 15 => XY-POP )) (( 20 => LISA-SENSITIVITY )) (( FT-CLS )) (( FLIPPER-FRESH-VAR )) (( SCORE => SETBASIS )) (( 3 AMOUNT-ROUNDS-NEXT < >N4 )) (( GOLABEL4: (( INCN4 )) (( 14 => GOODPAUSE )) (( N4 ; 4 => INTGREATER (MATCHED (( FLP-BALL-MOTION-HANDLING )) (( 1 => >N4 )) MATCHED) (( KEYTOUCH (MATCHED (( KEYNUM => >N1 )) (( FKEYNUM => >N2 )) (( N2 ; 82 EQN = FLIPPER-MOTION-LEFT == N2 ; 83 EQN = FLIPPER-MOTION-RIGHT == N1 ; 27 EQN = EXIT === === === )) MATCHED) )) (( FLIPPER-REFLECT-OR-SCORE )) (( AMOUNT-ROUNDS-NEXT => VISBASIS (MATCHED EXIT MATCHED) )) GOUP4 )) )) OK) (LET READY-LISAMENU-RATHER-ESSENCE BE (( )) (( (( }LISAMENU} ; }LISA4} ; 0 => SENSITIVE-FREE-PAINT )) (( CLEAR_KEYBUF )) )) OK) ((DATA READY-LISAMENU-RATHER-HOUSE }READY-LISAMENU-RATHER-ESSENCE} => ? READY-LISAMENU-RATHER-HOUSE <>> H )) )) OK) (LET READY-LISAMENU-ESSENCE BE (( )) (( (( FREE-PAINT-LISAS-BACK )) )) OK) ((DATA READY-LISAMENU-HOUSE }READY-LISAMENU-ESSENCE} => ? READY-LISAMENU-HOUSE <>> H )) )) OK) (LET COMPILE-THIS BE (( ; )) (( (( }L4.BAT} ; }@ECHO OFF} ; }MODE K OK} ; 4 SELECT ; }LISAMENU} ; => MAKE-MINI-FILE )) (( XO-STATUS )) )) OK) (LET OUTLINE-READLN BE (( >N3 >N2 >N1 )) (( (( N1 ; N2 => TEXT-HOUSE-XY )) (( FONT-H >>> 10 SUB ; FONT-V >>> ; 15 SUB )) (( N1 N3 ADD ; N2 => TEXT-HOUSE-XY )) (( FONT-H >>> 5 ADD ; FONT-V >>> LINE-SPACE >>> ADD 10 ADD ; )) (( FRAME-BG >>> ; FRAME-FG >>> => DOTTED_RECT )) (( N1 N2 N3 => XY-READLN => => )) )) OK) (LET FRAME-OUTLINE-FOR-READLN BE (( >N3 >N2 >N1 )) (( (( N1 FONT-H <>> ; N3 => MUL => ADD => 12 ADD => >N4 )) (( FONT-H >>> ; FONT-V >>> ; N4 ; FONT-V >>> LINE-SPACE >>> ADD 18 ADD ; FRAME-BG >>> ; FRAME-FG >>> => DOTTED_RECT )) (( 7 ; FONT-H => ADDVAR )) (( 12 ; FONT-V => ADDVAR )) )) OK) (LET TEXT-IS-SOMETHING BE (( ; )) (( (( => ONE => RMBL => TOLEN => ISPRO (MATCHED YES )(OTHER RM NO MATCHED) => => )) )) OK) (LET FRAME-OUTLINE-READLN BE (( >N3 >N2 >N1 )) (( (( VLOTS )) (( LEFT-MARGIN >>> => TOV9 )) (( 1 LEFT-MARGIN <>> => TOV10 )) (( 1 TOP-MARGIN <>> ; N3 => MUL => ADD => 12 ADD => >N4 )) (( INPUT-LINE => VARSTR-SETBASIS )) (( FONT-H >>> TOV1 ; FONT-V >>> TOV2 ; N4 => TOV3 ; FONT-V >>> LINE-SPACE >>> ADD 18 ADD => TOV4 ; FRAME-FG >>> => TOV5 ; FRAME-BG >>> => TOV6 )) (( V1 V2 V3 V4 V6 => RECTFILL )) (( V1 V2 V3 V4 V5 V6 => DOTTED_RECT )) (( 7 ; FONT-H => ADDVAR )) (( 12 ; FONT-V => ADDVAR )) (( GOLABEL1: )) (( GOLABEL2: )) (( SHOW-TEXT-HOUSE )) (( KEYNUM => >N5 )) (( N5 31 => INTGREATER (MATCHED (( TEXT-HOUSE-FREE )) (( N3 ; INPUT-LINE => VARSTR-LEN => EQN (MATCHED (( INPUT-LINE => VARSTR-LEN => DEC ; INPUT-LINE => VARSTR-SETLEN )) MATCHED) )) (( N5 => ASCII => UPCM ; => ONE GETASCII => >N5 ; => POP-TEXT )) (( N5 ; INPUT-LINE => VARSTR-EXPAND )) (( N3 ; INPUT-LINE => VARSTR-LEN => EQN (MATCHED TEXT-HOUSE-LEFT MATCHED) (( GOUP2 )) MATCHED) )) (( N5 13 => EQN (MATCHED (( TEXT-HOUSE-FREE )) (( GOFORWARD3 )) MATCHED) )) (( N5 27 => EQN (MATCHED (( TEXT-HOUSE-FREE )) (( V1 V2 V3 V4 V6 => RECTFILL )) (( INPUT-LINE => VARSTR-SETBASIS )) (( GOFORWARD4 )) MATCHED) )) (( N5 8 => EQN (MATCHED (( INPUT-LINE => VARSTR-LEN => ISPRO (MATCHED (( N3 ; INPUT-LINE => VARSTR-LEN => EQN (MATCHED FONT-SPACE-DIRECT )(OTHER FONT-BKS MATCHED) (( INPUT-LINE => VARSTR-DECLEN )) MATCHED) MATCHED) )) (( GOUP1 )) (( GOLABEL3: )) (( GOLABEL4: )) (( V1 V2 V3 V4 V6 V5 => DOTTED_RECT )) (( INPUT-LINE VARSTR> => TEXT-IS-SOMETHING => => )) (( INPUT-LINE => VARSTR-SETBASIS )) (( V9 LEFT-MARGIN < GETFUNCNUM ; }FRAME-OUTLINE-READLN} => ? => SETWARPADDRESS )) (LET BACKGROUND-COMMANDS BE (( )) (( (( VLOTS )) (( 900 ; 700 => GET-CENTERED-FRAME-COOR => TOV11 TOV10 TOV9 TOV8 )) (( V8 V9 V10 V11 => DO-MAYBE-SAVE-SCREEN )) (( FT )) (( }BACKGROUND COMMANDS} V8 V9 V10 V11 => MAKE-FRAME )) (( }PLS TYPE PROGRAM TO START NEXT: } ; 5 ; 4 => FT XY-POP FEET )) (( }E.G. TYPE CALL COMPILE KINGLINE} ; 5 ; 6 => FT XY-POP FEET )) (( }OR, FOR FREEWARE GAME CALL U47} ; 5 ; 7 => FT XY-POP FEET )) (( }OR, FOR DISK OVERVIEW DISK} ; 5 ; 8 => FT XY-POP FEET )) (( }OVERVIEW BEGINNING WITH FOLDER: } ; 5 ; 9 => FT XY-POP FEET )) (( }E.G. CALL FILES YOURTEXT} ; 5 ; 10 => FT XY-POP FEET )) (( }SAME, THEN LISACODE COMMAND LINE: } ; 5 ; 11 => FT XY-POP FEET )) (( }E.G. FILES YOURTEXT} ; 5 ; 12 => FT XY-POP FEET )) (( }FROM TXT TO BMP: CALL BMPAGAIN NAME} ; 5 ; 13 => FT XY-POP FEET )) (( }OR, FOR IMAGE FIXERS CALL B16} ; 5 ; 14 => FT XY-POP FEET )) (( }CALL N CALL P CALL TOBMP JPGNAME} ; 5 ; 15 => FT XY-POP FEET )) (( }TO CONVERT BMP TO TXT FOR USE HERE: } ; 5 ; 16 => FT XY-POP FEET )) (( } CALL BMP2TXT BMPNAME} ; 5 ; 17 => FT XY-POP FEET )) (( }DO PLS TYPE CALL BEFORE A .BAT WORD,} ; 5 ; 22 => FT XY-POP FEET )) (( }LIKE N. OR TYPE LISAMENU TO RESTART.} ; 5 ; 23 => FT XY-POP FEET )) (( }ENTER / ESC FOR FREEWARE TEXT EDITOR} ; 5 ; 24 => FT XY-POP FEET )) (( 5 ; 20 ; 41 => FT OUTLINE-READLN FEET => ONE => RMBL => TOLEN => ISPRO (MATCHED (( COMPILE-THIS )) )(OTHER (( RM )) (( }TEXT} => COMPILE-THIS )) MATCHED) )) (( V8 V9 V10 V11 => DO-MAYBE-RESTORE-SCREEN )) (( VFREE )) (( XO-STATUS )) )) OK) (LET ICONICS-LINE BE (( VLOTS => TOV2 TOV1 )) (( (( V1 V2 DHYANA => FRAME-PAINT ; 250 V1UP )) (( V1 V2 MANTRA => FRAME-PAINT ; 250 V1UP )) (( V1 V2 YANTRA => FRAME-PAINT ; 250 V1UP )) (( V1 V2 TANTRA => FRAME-PAINT )) (( RM RM RM RM VFREE )) )) OK) (LET FRAMED-ICONICS-LINE BE (( VLOTS => TOV2 TOV1 )) (( (( V1 V2 9 SELECT 10 SELECT => FRAME-TITLE-PAINT ; 250 V1UP )) (( V1 V2 7 SELECT 8 SELECT => FRAME-TITLE-PAINT ; 250 V1UP )) (( V1 V2 5 SELECT 6 SELECT => FRAME-TITLE-PAINT ; 250 V1UP )) (( V1 V2 3 SELECT 4 SELECT => FRAME-TITLE-PAINT )) (( VFREE )) )) OK) (LET ASK-FOOT-ICONICS BE (( VLOTS => TOV9 TOV8 TOV2 TOV1 )) (( (( 0 )) (( V9 V2 ONE 220 ADD WITH (MATCHED V8 V1 ONE 220 ADD WITH = RM 1 == 250 V1UP V8 V1 ONE 220 ADD WITH = RM 2 == 250 V1UP V8 V1 ONE 220 ADD WITH = RM 3 == 250 V1UP V8 V1 ONE 220 ADD WITH = RM 4 == === === === === MATCHED) (( VFREE )) (( A )) )) OK) (LET GET-ICONS BE (( )) (( (( 100 => %MAKE => & )) (( ; REAL-TXT-FILE = GET-SMART-PAINTING => 4 # %PUT === )) (( ; REAL-TXT-FILE = GET-SMART-PAINTING => 3 # %PUT === )) (( ; REAL-TXT-FILE = GET-SMART-PAINTING => 2 # %PUT === )) (( ; REAL-TXT-FILE = GET-SMART-PAINTING => 1 # %PUT === )) (( # => => )) (( && )) )) OK) (LET LOADED-FRAMED-ICONICS-LINE BE (( VLOTS => TOV4 TOV3 TOV2 TOV1 )) (( (( V4 ISBASIS = RM RM RM RM VFREE EXIT === )) (( V3 V4 => %GET => TOV8 )) (( V8 ISBASIS = RM RM RM RM VFREE EXIT === )) (( V1 V2 6 SELECT 1 V8 %GET => LOADED-FRAME-TITLE-PAINT ; 250 V1UP )) (( V1 V2 5 SELECT 2 V8 %GET => LOADED-FRAME-TITLE-PAINT ; 250 V1UP )) (( V1 V2 4 SELECT 3 V8 %GET => LOADED-FRAME-TITLE-PAINT ; 250 V1UP )) (( V1 V2 3 SELECT 4 V8 %GET => LOADED-FRAME-TITLE-PAINT )) (( VFREE )) )) OK) (LET SYMBOLS BE (( ; )) (( (( VLOTS )) (( 1 => TOV9 )) (( 2 => TOV10 )) (( 900 ; 700 => GET-CENTERED-FRAME-COOR => TOV4 TOV3 TOV2 TOV1 )) (( V1 V2 V3 V4 => DO-MAYBE-SAVE-SCREEN )) (( }SYMBOL DESIGN EDITOR} V1 V2 V3 V4 => FT MAKE-FRAME FEET )) (( MOUSEXY => >N2 ; >N1 )) (( GOLABEL1: (( MMOTION ; MOUSECLICK => AND (MATCHED (( MOUSEXY => UP-TO-HIGHER-EVEN => >N2 ; UP-TO-HIGHER-EVEN => >N1 )) (( N1 ; N2 ; BRIDGE 32 ADD ; BRIDGE 32 ADD ; FRAME-FG >>> FT RECTFILL FEET )) MATCHED) )) (( KEYTOUCH => NOT (MATCHED GOUP1 MATCHED) )) )) (( CLEAR_KEYBUF )) (( VFREE )) )) OK) (LET XY-CALC (( ; ; ; ; ; ; )) BE (( (( DHYANA ; 5 => SELECT => SUB => => )) (( DHYANA ; 5 => SELECT => SUB => => )) (( 4 => SELECT ; 6 => SELECT => ADD => => )) (( 4 => SELECT ; 5 => SELECT => ADD => => )) )) OK) (LET OK-BUTTON (( >N2 >N1 )) BE (( (( N1 ; N2 ; 60 ; 60 ; 60 ; 60 => XY-CALC => FT ; MAKE-FRAME-2 ; FEET )) (( N1 ; N2 ; 50 ; 50 ; 50 ; 50 => XY-CALC => FRAME-FG >>> => FT ; RECTFILL ; FEET )) (( }OK} ; N1 ; 20 => SUB ; N2 ; 5 => SUB => FT ; FRAME-XY-POP ; FEET )) (( ENTER-OR-CLICK )) (( 3 => LISA-SENSITIVITY )) )) OK) (LET FRAME-INFO (( ; ; )) BE (( (( 600 ; 400 => GET-CENTERED-FRAME-COOR => >N4 >N3 >N2 >N1 )) (( N1 N2 N3 N4 => DO-MAYBE-SAVE-SCREEN )) (( }INFO} N1 N2 N3 N4 => FT MAKE-FRAME FEET )) (( SWITCH ; N1 62 ADD ; N2 120 ADD => FT FRAME-XY-POP FEET )) (( ; N1 62 ADD ; N2 180 ADD => FT FRAME-XY-POP FEET )) (( N1 N3 ADD DIV2 ; N2 N4 ADD DIV2 100 ADD => OK-BUTTON )) (( N1 N2 N3 N4 => DO-MAYBE-RESTORE-SCREEN )) )) OK) (LET COPY-SCREEN (( )) BE (( (( GETPAL )) (( }PHOTOCPY} => SCREENBMP )) (( }SCREEN COPIED TO PHOTOCPY.BMP} ; }IT IS IN CURRENT FOLDER.} => FRAME-INFO )) )) OK) ((DATA LISAMENU-ICONS LISAMENU-ICONS => SETBASIS )) ((DATA LISAMENU-PAGE-1-ON LISAMENU-PAGE-1-ON => SETDANCE )) (( LOOKSTK )) (LET LOAD-LISAMENU-ICONS BE (( )) (( (( LISAMENU-ICONS >>> & )) (( # => ISBASIS (MATCHED (( && ; 20 %MAKE LISAMENU-ICONS <>> & )) (( FT-CLS )) (( READY-LISAMENU-RATHER )) (( }ICONPAL} }} }ICONFLI} }} => GET-ICONS => 1 # %PUT )) (( }} }} }ICONFRE} }ICONPRO} => GET-ICONS => 2 # %PUT )) (( }ICONUTL} }ICONBGC} }ICONFMN} }ICONKIN} => GET-ICONS => 3 # %PUT )) (( }} }} }ICONBIK} }} => GET-ICONS => 4 # %PUT )) (( }ICONFIL} }ICONBGT} }} }} => GET-ICONS => 5 # %PUT )) (( }} }ICONIMG} }ICONDSK} }ICONBTX} => GET-ICONS => 6 # %PUT )) MATCHED) )) (( && )) )) OK) (( LOOKSTK )) (LET LISAMENU-SHOW-PAGE-1 BE (( )) (( (( LISAMENU-ICONS >>> & )) (( }LISAMENU PROGRAMS FOR YOU:} 300 5 => FRAME-XY-POP )) (( }PALEDIT} }} }FUN} }} 35 50 1 # => LOADED-FRAMED-ICONICS-LINE )) (( }} }} }FREEWARES} }THINKING} 35 280 2 # => LOADED-FRAMED-ICONICS-LINE )) (( }UTILITY} }EXTRAS} }FILEMAN} }TYPEWRITER} 35 510 3 # => LOADED-FRAMED-ICONICS-LINE )) (( }PRESS F1 FOR OTHER OPTIONS} 300 742 => FRAME-XY-POP )) (( CLEAR_KEYBUF )) (( && )) )) OK) (( LOOKSTK )) (LET LISAMENU-SHOW-PAGE-2 BE (( )) (( (( LISAMENU-ICONS >>> & )) (( }SOME MAYBE USEFUL FREEWARE UTILITIES:} 300 5 => FRAME-XY-POP )) (( }} }} }FUNWARE} }} 35 50 4 # => LOADED-FRAMED-ICONICS-LINE )) (( }FILES} }BUDGET} }} }} 35 280 5 # => LOADED-FRAMED-ICONICS-LINE )) (( }} }IMAGE} }DISK} }BIGTEXT} 35 510 6 # => LOADED-FRAMED-ICONICS-LINE )) (( }THIS IS FREEWARE. PRESS ESC TO GO BACK} 300 742 => FRAME-XY-POP )) (( CLEAR_KEYBUF )) (( && )) )) OK) (( LOOKSTK )) (LET PAGE-1-LINE-1 BE (( ; )) (( 1 TEST = (( PALETTE-EDITOR )) (( FT-CLS )) (( READY-LISAMENU )) (( LISAMENU-SHOW-PAGE-1 )) == 3 EQN = (( FLIPPER )) (( FT-CLS )) (( READY-LISAMENU )) (( LISAMENU-SHOW-PAGE-1 )) === === )) OK) (( LOOKSTK )) (LET PAGE-1-LINE-2 BE (( ; )) (( 3 TEST = (( LISAMENU-PAGE-1-ON => SETBASIS )) (( FT-CLS )) (( READY-LISAMENU-RATHER )) (( LISAMENU-SHOW-PAGE-2 )) (( EXIT )) == 4 EQN = (( }CALL COMPILE LISAUP2} => COMPILE-THIS ; )) === === )) OK) (( LOOKSTK )) (LET PAGE-1-LINE-3 BE (( ; )) (( 1 TEST = }CALL MAKEWEB} => COMPILE-THIS ; == 2 TEST = FT-CLS BACKGROUND-COMMANDS == 3 TEST = }CALL MONET} => COMPILE-THIS ; == 4 EQN = }CALL COMPILE KINGLINE} => COMPILE-THIS ; === === === === )) OK) (( LOOKSTK )) (LET PAGE-2-LINE-1 BE (( ; )) (( 3 EQN = }CALL U47} => COMPILE-THIS === )) OK) (( LOOKSTK )) (LET PAGE-2-LINE-2 BE (( ; )) (( 1 TEST = }CALL P} => COMPILE-THIS ; == 2 EQN = }CALL BUDGET} => COMPILE-THIS ; === === )) OK) (( LOOKSTK )) (LET PAGE-2-LINE-3 BE (( ; )) (( 2 TEST = }CALL N} => COMPILE-THIS == 3 TEST = }CALL FILES YOURTEXT} => COMPILE-THIS == 4 EQN = }TEXT} => COMPILE-THIS === === === )) OK) (( LOOKSTK )) (LET KEYTOUCH-PAGE-1 (( )) BE (( (( VLOTS => NEWKEY V8 >N1 V9 >N2 => VFREE )) (( N2 27 => EQN = (( FT-CLS )) (( CLEAR_KEYBUF )) (( }DO YOU WISH: 1 REBOOT 2 OFF } ; 5 ; 8 => FT XY-POP FEET )) (( }3 EXIT 4 REJUVENATION SCREENSAVER} ; 5 ; 9 => FT XY-POP FEET )) (( }WHICH TRANSFERS DATE BACK TO APRIL} ; 5 ; 10 => FT XY-POP FEET )) (( }10, 2006, OR 5 LISA SCREENSAVER} ; 5 ; 11 => FT XY-POP FEET )) (( KEY 1 TEST = (( }ANEW} => COMPILE-THIS )) == 2 TEST = (( }OFF} => COMPILE-THIS )) == 3 TEST = (( XO-STATUS )) == 4 EQN = (( }CALL AT} => COMPILE-THIS )) == (( FT-CLS )) (( READY-LISAMENU )) (( CLEAR_KEYBUF )) (( LISAMENU-SHOW-PAGE-1 )) === === === === )) == N2 13 => EQN = (( }TEXT} => COMPILE-THIS )) == N2 0 => EQN = (( N1 47 => EQN = (( FT-CLS )) (( }INFO ON THIS LISAMENU PAGE} ; 300 ; 200 => FRAME-XY-POP )) (( }ESC FOR REBOOT AND SIMILAR OPTIONS} ; 300 ; 300 => FRAME-XY-POP )) (( }F9 TO COPY SCREEN TO DISK} ; 300 ; 400 => FRAME-XY-POP )) (( }F10 TO RESET PALETTE} ; 300 ; 500 => FRAME-XY-POP )) (( ANY-KEY-OR-CLICK )) (( FT-CLS )) (( READY-LISAMENU-RATHER )) (( LISAMENU-SHOW-PAGE-1 )) == N1 55 => EQN = (( COPY-SCREEN )) == N1 56 => EQN = (( LISAMENU-PALETTE )) (( FT-CLS )) (( READY-LISAMENU )) (( CLEAR_KEYBUF )) (( LISAMENU-SHOW-PAGE-1 )) === === === )) === === === )) )) OK) (( LOOKSTK )) (LET KEYTOUCH-PAGE-2 (( )) BE (( (( VLOTS => NEWKEY V8 >N1 V9 >N2 => VFREE )) (( N2 27 => EQN = (( LISAMENU-PAGE-1-ON => SETDANCE )) (( FT-CLS )) (( READY-LISAMENU-RATHER )) (( LISAMENU-SHOW-PAGE-1 )) == N2 0 => EQN = (( N1 47 => EQN = (( FT-CLS )) (( }INFO ON THIS LISAMENU PAGE} ; 300 ; 200 => FRAME-XY-POP )) (( }ESC TO GO TO PREVIOSU PAGE} ; 300 ; 300 => FRAME-XY-POP )) (( }F9 TO COPY SCREEN TO DISK} ; 300 ; 400 => FRAME-XY-POP )) (( }F10 TO RESET PALETTE} ; 300 ; 500 => FRAME-XY-POP )) (( ANY-KEY-OR-CLICK )) (( FT-CLS )) (( READY-LISAMENU-RATHER )) (( LISAMENU-SHOW-PAGE-2 )) == N1 55 => EQN = (( COPY-SCREEN )) == N1 56 => EQN = (( LISAMENU-PALETTE )) (( FT-CLS )) (( READY-LISAMENU )) (( CLEAR_KEYBUF )) (( LISAMENU-SHOW-PAGE-2 )) === === === )) === === )) OK) (( LOOKSTK )) (LET LISAMENU-PAGE-1-RESPONSES BE (( )) (( (( GOLABEL2: (( MOUSECLICK (MATCHED (( MOUSEXY => >N2 >N1 )) (( CLICK-DURATION >>> GOODPAUSE )) (( 35 50 N1 N2 => ASK-FOOT-ICONICS = PAGE-1-LINE-1 == 35 280 N1 N2 => ASK-FOOT-ICONICS = PAGE-1-LINE-2 == 35 510 N1 N2 => ASK-FOOT-ICONICS = PAGE-1-LINE-3 === === === )) (( XO-STATUS-ON VISDANCE = EXIT === )) MATCHED) )) )) (( KEYTOUCH (MATCHED KEYTOUCH-PAGE-1 MATCHED) )) (( XO-STATUS-ON VISDANCE = EXIT === )) (( LISAMENU-PAGE-1-ON => VISDANCE = GOUP2 === )) )) OK) (( LOOKSTK )) (LET LISAMENU-PAGE-2-RESPONSES BE (( )) (( (( GOLABEL2: (( MOUSECLICK (MATCHED (( MOUSEXY => >N2 >N1 )) (( CLICK-DURATION >>> GOODPAUSE )) (( 35 50 N1 N2 => ASK-FOOT-ICONICS = PAGE-2-LINE-1 == 35 280 N1 N2 => ASK-FOOT-ICONICS = PAGE-2-LINE-2 == 35 510 N1 N2 => ASK-FOOT-ICONICS = PAGE-2-LINE-3 === === === )) (( XO-STATUS-ON VISDANCE = EXIT === )) MATCHED) )) )) (( KEYTOUCH (MATCHED KEYTOUCH-PAGE-2 MATCHED) )) (( LISAMENU-PAGE-1-ON => VISBASIS = GOUP2 === )) )) OK) (( LOOKSTK )) (LET LISAMENU-PROSPEROUS BE (( )) (( (( LISAMENU-ICONS >>> & )) (( LOAD-LISAMENU-ICONS )) (( READY-LISAMENU )) (( LISAMENU-PAGE-1-ON => VISDANCE (MATCHED (( LISAMENU-SHOW-PAGE-1 )) )(OTHER (( LISAMENU-SHOW-PAGE-2 )) MATCHED) )) (( GOLABEL1: (( LISAMENU-PAGE-1-ON => VISDANCE (MATCHED (( LISAMENU-PAGE-1-RESPONSES )) )(OTHER (( LISAMENU-PAGE-2-RESPONSES )) MATCHED) )) (( XO-STATUS-ON VISDANCE = && EXIT === )) GOUP1 )) )) OK) (( LOOKSTK )) (LET STD-LISAMENU-PAL-ESSENCE BE (( )) (( (( ^0 ^0 ^0 ^0 => WRITEPAL )) (( ^0 ^0 ^255 ^1 => WRITEPAL )) (( ^0 ^0 ^0 ^64 => WRITEPAL )) (( ^0 ^0 ^255 ^255 => WRITEPAL )) (( PUTPAL )) )) OK) (( }STD-LISAMENU-PAL-ESSENCE} => ? STD-LISAMENU-PAL-HOUSE <TEXT (( => & >N1 )) BE (( (( N1 # => %GET => & )) (( # => NOZ (MATCHED (( # => %LENGTH => >N9 )) (( N9 => ISPRO (MATCHED (( N9 => MAKEBL )) (( N9 (COUNT N1 ; # => %GET => AFFIRM (MATCHED (( ; N1 => TOCHN )) )(OTHER (( ; N1 => DEC => SETLENGTH )) (( RMS RMS && && ; EXIT )) MATCHED) COUNTUP) => => )(OTHER }} MATCHED) )) )(OTHER }} MATCHED) )) (( && && )) )) OK) (( LOOKSTK )) (LET ISDIGIT BE (( ; )) (( (( ; => ONE => GETASCII ; 48 ; 57 => WITH => => )) )) OK) (LET AMOUNT-IN-LIST BE (( & )) (( (( 1 ; # => %GET => => )) (( && )) )) OK) (LET START-IN-LIST BE (( & )) (( (( 3 ; 2 ; # => %PUT )) (( && )) )) OK) (LET RECENT-IN-LIST BE (( & )) (( (( 1 ; # => %GET => INC => INC ; 2 ; # => %PUT )) (( && )) )) OK) (LET BEYOND-LIST BE (( & )) (( (( 1 ; # => %GET => INC INC INC ; 2 ; # => %PUT )) (( && )) )) OK) (LET SLENDER-LIST BE (( & )) (( (( 1 ; # => %GET => A (MATCHED (( ; => ONE => DEC ; 1 ; # => %PUT )) (( ; => INC INC ; 2 ; # => %GET => EQN (MATCHED 2 ; # => %GET => DEC ; 2 ; # => %PUT MATCHED) )) MATCHED) (( && )) )) OK) (LET EMPTY-LIST BE (( & )) (( (( 0 ; 1 ; # => %PUT )) (( # => START-IN-LIST )) (( && )) )) OK) (LET THIS-IN-LIST BE (( & )) (( (( 2 ; # => %GET ; # => %GET )) (( && )) )) OK) (LET SET-CURRENT-POS-IN-LIST BE (( & ; )) (( (( ; INC INC ; 2 ; # => %PUT )) (( && )) )) OK) (LET GET-CURRENT-POS-IN-LIST BE (( & )) (( (( 2 ; # => %GET => DEC DEC )) (( && )) )) OK) (LET INTO-LIST-AT-THIS-POS BE (( & ; ; )) (( (( ; ; => INC INC ; # => %PUT )) (( && )) )) OK) (LET INTO-LIST-HERE BE (( & ; )) (( (( ; 2 ; # => %GET ; # => %PUT )) (( && )) )) OK) (LET ISNT-BEFORE-LIST BE (( & )) (( (( 2 ; # => %GET ; 2 => INTGREATER => => )) (( && )) )) OK) (LET ADDITIONAL-IN-LIST BE (( & )) (( (( 1 ; # => %GET INC INC ; 2 ; # => %GET => INTGTOREQUAL => => )) (( && )) )) OK) (LET LIST-EXTRA-SPACE BE (( & )) (( (( # => %LENGTH ; 5 => SUB ; 1 ; # => %GET => SUB => => )) (( && )) )) OK) (LET YOUNGER-IN-LIST BE (( & )) (( (( 2 ; # => %GET ; 2 => INTGREATER (MATCHED 2 ; # => %GET => DEC ; 2 ; # => %PUT MATCHED) )) (( && )) )) OK) (LET NEXT-IN-LIST BE (( & )) (( (( 1 ; # => %GET INC INC ; 2 ; # => %GET => INTGTOREQUAL (MATCHED 2 ; # => %GET => INC ; 2 ; # => %PUT MATCHED) )) (( && )) )) OK) (LET LIST BE (( >N1 )) (( (( N1 5 ADD => %MAKE => & )) (( # => EMPTY-LIST )) (( # => => )) (( && )) )) OK) (LET FREE-LIST BE (( & )) (( (( # => %FREE )) (( && )) )) OK) (LET EXTEND-LIST BE (( & >N1 )) (( (( # => %LENGTH ; 5 => SUB ; 1 ; # => %GET => INTGREATER (MATCHED (( 1 ; # => %GET => INC => ONE ; 1 ; # => %PUT ; INC INC => ONE ; 2 ; # => %PUT ; N1 ; SWITCH ; # => %PUT )) MATCHED) (( && )) )) OK) (LET EXTEND-LIST-IF-WITH BE (( & >N10 >N9 >N1 )) (( (( N1 ; N9 ; N10 => WITH (MATCHED N1 ; # => EXTEND-LIST MATCHED) )) (( && )) )) OK) (LET NUMBERS-TO-LIST BE (( & >N7 >N8 ; )) (( (( ; } } => CONCAT )) (( ; => LENGTH )) (( }} => ANGEL ANGEL (COUNT (( N1 => CH => ISDIGIT (MATCHED (( ANGEL => SWITCH => CONCAT => SWITCH )) )(OTHER (( RM )) (( BRIDGE => TOLEN => NOZ (MATCHED (( SWITCH ; N10 ; N9 ; # => EXTEND-LIST-IF-WITH )) (( }} => SWITCH )) MATCHED) )) MATCHED) )) COUNTUP) )) (( RM RM )) (( && )) )) OK) (LET LOOP-THROUGH-LIST BE (( & >N1 )) (( (( # => START-IN-LIST )) (( GOLABEL1: (( # => ADDITIONAL-IN-LIST (MATCHED (( # => THIS-IN-LIST ; N1 => H )) (( # => NEXT-IN-LIST )) (( GOUP1 )) MATCHED) )) )) (( && )) )) OK) (LET SHOW-LIST BE (( & )) (( (( }POPS} => ? ; # => LOOP-THROUGH-LIST )) (( && )) )) OK) (LET CONVERSE-THROUGH-LIST BE (( & >N1 )) (( (( # => BEYOND-LIST )) (( GOLABEL1: (( # => YOUNGER-IN-LIST )) (( # => ISNT-BEFORE-LIST (MATCHED (( # => THIS-IN-LIST ; N1 => H )) (( GOUP1 )) MATCHED) )) (( && )) )) OK) (LET SHOW-LIST-REVERSE BE (( & )) (( (( }POPS} => ? ; # => CONVERSE-THROUGH-LIST )) (( && )) )) OK) (LET CLEAR-MATRIX-ESSENCE BE (( )) (( (( 0 => TOV11 )) )) OK) ((DATA CLEAR-MATRIX-HOUSE }CLEAR-MATRIX-ESSENCE} => ? CLEAR-MATRIX-HOUSE <>> ; # => FORVPM )) (( && )) )) OK) (( VARSTRING CD-LAB-MODELS-FILE }MODELS} CD-LAB-MODELS-FILE => >VARSTR )) (( VARSTRING TITLE )) (( }OR TYPE INFO FOR MANUAL, OR XO TO EXIT} TITLE => >VARSTR )) (( VARSTRING AUTHOR )) (( }TYPE LISTMORE TO SEE INSTALLED LISA_CD PROGRAMS} AUTHOR => >VARSTR )) (( VARSTRING COPYRIGHT-INFO )) (( }YOU CAN MAKE COMMERCIAL PROGRAMS WITH LISA_CD. SEE CFDL TRY ALSO LAB} COPYRIGHT-INFO => >VARSTR )) ((DATA TICKLE-PREV TICKLE-PREV SETDANCE )) (LET TICKLE-ON BE (( )) (( (( TICKLE-PREV >>> ; 32 3 MUL => INTGREATER (MATCHED TICKLE-PREV => SETDANCE MATCHED) )) (( TICKLE-PREV >>> >N1 )) (( 32 ; N1 => INTGREATER (MATCHED }^%&} )(OTHER 32 MUL2 ; N1 => INTGREATER (MATCHED }^%%} )(OTHER }&%%} MATCHED) MATCHED) )) (( ; 49 ; 1 => XY-POP )) (( TICKLE-PREV => INCVAR )) )) OK) (LET TICKLE-FREE BE (( )) (( (( } } ; 49 ; 1 => XY-POP )) (( TICKLE-PREV => SETDANCE )) )) OK) (LET LISA-LOGO BE (( )) (( (( }.............**..........*.*.........*.*.*.........*...} => POPS )) (( } TYPE INFO } => POP )) (( }...........*..*..........*........*.*............*..*..} => POPS )) (( } RATHER } => POP )) (( }.........*.*............**.........*.*.........*....**.} => POPS )) (( } THAN DOCS } => POP )) (( }.......*.*.............**..........*.*.**.....*...*..*.} => POPS )) (( } FOR MANUAL.} => POP )) (( }....**..............**..................*....*..*....*.} => POPS )) (( } TYPE L } => POP )) (( }..**..............*.*.................*.....*.*.......*} => POPS )) (( } TO CLEAR } => POP )) (( }.***.*.**.*......**.................**.....*..........*} => POPS )) (( } OR CD-UP } => POP )) (( }*.*.*.*.*.*.*....*..........*.*..*.*......*...........*} => POPS )) (( } FOR THIS } => POP )) (( }THE LISA_CD CARTOON EXTENSION DIMENSION TO LISAMENU} => POP )) (( }AS PART OF THE LISAMENU OPERATING APPROACH FOR COMPUTERS} => POP )) (( }CREATED BY ARISTO TACOMA. OPEN SOURCE YOGA4D CFDL COPYRIGHT.} => POP )) (( } ==>>////==LISA_CD PROGRAMMING LANGUAGE => NOW ON!!!! } => POP )) )) OK) (LET CD-UP BE (( )) (( (( CLS )) (( LISA-LOGO )) (( }*** * ** * WELCOME TO LISA_CD!!!! } => POP )) (( }*** * ** * THIS IS A COMPASSIONATE ANARCHY OF } => POP )) (( }*** * ** * PROGRAMS. ALWAYS MORE TO BUY! E.G.: } => POP )) (( TITLE => VARSTR> => POP )) (( AUTHOR => VARSTR> => POP )) (( COPYRIGHT-INFO => VARSTR> => POP )) )) OK) ((DATA CD-CURR-X 480 CD-CURR-X <>> ; CARTOON-HEIGHT >>> => MUL ANIMATION-TRIX-H < LIST YOGA4D_COM <>> ; CD-AMOUNTS >>> => INC ; CARTOON-HEIGHT >>> => MUL => RAM-PM ANIMATION-TRIX <>> 10 ADD ; CARTOON-HEIGHT >>> 10 ADD ; => RAM-PM => ANIMATION-CARTOON <>> >>V => WRITEPAL )) (( ^0 ^255 ^0 CD-BG >>> >>V => WRITEPAL )) (( ^0 ^255 ^0 64 >>V => WRITEPAL )) (( PUTPAL )) )) OK) ((DATA MY-PALETTE-HOUSE }MY-PALETTE-ESSENCE} => ? MY-PALETTE-HOUSE <>> => H )) )) OK) ((DATA KEY-ENTER 13 KEY-ENTER < ok)} POP ; CRLN )) (( } sketch } POP )) (( CRLN CRLN )) )) OK) (LET SET-RANGE BE (( ; ; ; )) (( (( TANTRA ; BRIDGE => INTGREATER (MATCHED (( ANGEL => ANGEL )) (( RM ; RM )) )(OTHER (( RM )) (( TWO => INTLESSTHAN (MATCHED (( SWITCH => RM )) )(OTHER (( RM )) MATCHED) MATCHED) )) )) OK) ((DATA PEN-X )) ((DATA PEN-Y )) ((DATA PEN-DEGREE )) ((DATA PEN-COLOR )) (LET PEN-ORIGO BE (( )) (( (( 768 => DIV2 PEN-Y < DIV2 PEN-X <>> => PEN-COLOR < PEN-DEGREE <N1 )) (( (( N1 ; 0 ; 3599 => SET-RANGE ; PEN-DEGREE => ADDVAR )) (( PEN-DEGREE >>> ; 3599 INTGREATER (MATCHED -3600 PEN-DEGREE => ADDVAR MATCHED) )) )) OK) (LET PEN-RIGHT BE (( >N1 )) (( (( N1 ; 0 ; 3599 => SET-RANGE => SG ; PEN-DEGREE => ADDVAR )) (( PEN-DEGREE >>> => SG => ISPRO (MATCHED 3600 PEN-DEGREE => ADDVAR MATCHED) )) )) OK) (LET PEN-RADIANS BE (( )) (( PEN-DEGREE >>> => STKTORICH ; $10 => \R ; $180 => \R ; $3.14151926 => *R )) OK) (LET PEN-X1Y1-X2Y2 BE (( >N1 )) (( (( PEN-X >>> >N4 )) (( PEN-Y >>> >N6 )) (( N4 ; PEN-RADIANS => ONER => COSR ; N1 => STKTORICH => *R => RICHTOSTK => ADD => >N8 ; N6 ; SINR ; N1 => STKTORICH => *R => RICHTOSTK => SUB => >N10 ; )) (( N4 ; N6 ; N8 ; N10 => => )) )) OK) (LET PEN-FORWARD BE (( >N1 )) (( (( N1 => PEN-X1Y1-X2Y2 ; PEN-Y <N1 )) (( (( N1 => PEN-X1Y1-X2Y2 ; TWO >N1 >N2 ; 1 ; 1 ; PEN-COLOR >>> => FT PAINTLINE FEET )) (( N1 PEN-Y <N1 )) (( (( N1 => PEN-X1Y1-X2Y2 ; TWO >N1 >N2 ; 4 ; 3 ; PEN-COLOR >>> => FT PAINTLINE FEET )) (( N1 PEN-Y < SETDANCE )) (( PEN-ORIGO )) (( PEN-STRAIGHT-UP )) )) OK) (LET LL> BE (( )) (( (( 88 => LISA-SENSITIVITY )) (( COPY-SCREEN )) (( GOLABEL1: 50 => GOODPAUSE )) (( UNTIL-TOUCHING = GOUP1 === )) (( DONE-GRAPHICS )) (( RAM-REFRESH )) )) OK) (LET DRAW-GRID BE (( VLOTS => TOV6 TOV5 TOV4 TOV3 TOV2 TOV1 )) (( (( V3 ; V1 => SUB ; V5 => DIV => DEC => TOV7 )) (( V4 ; V2 => SUB ; V5 => DIV => DEC DEC => TOV8 )) (( V7 (COUNT V8 (COUNT N3 V5 => MUL V1 => ADD ; N1 V5 => MUL V2 => ADD ; BRIDGE V5 => ADD ; BRIDGE V5 => ADD ; V6 => RECT COUNTUP) COUNTUP) )) (( VFREE )) )) OK) (LET MAKE-GRID-FRAME BE (( >N6 >N5 >N4 >N3 >N2 >N1 ; )) (( (( N1 ; N2 ; N3 ; N4 ; FRAME-BG >>> => RECTFILL )) (( N1 INC ; N2 INC ; N3 DEC ; N4 DEC ; FRAME-FG >>> => RECT )) (( N1 INC INC ; N2 INC INC ; N3 DEC DEC ; N4 DEC DEC ; FRAME-FG >>> => RECT )) (( N1 5 ADD ; N2 35 ADD ; N3 10 SUB ; N4 10 SUB ; FRAME-FG >>> => RECT )) (( N1 7 ADD ; N2 37 ADD ; N3 12 SUB ; N4 14 SUB ; FRAME-FG >>> => RECT )) (( ; N1 20 ADD ; N2 10 ADD => FRAME-XY-POP )) (( N1 7 ADD ; N2 37 ADD ; N3 12 SUB ; N4 14 SUB ; N5 ; N6 => DRAW-GRID )) )) OK) (LET REDRAW-GRID BE (( VLOTS => TOV6 TOV5 TOV4 TOV3 TOV2 TOV1 )) (( (( 7 V1UP ; 37 V2UP ; -12 V3UP ; -14 V4UP )) (( V3 ; V1 => SUB ; V5 => DIV => DEC => TOV7 )) (( V4 ; V2 => SUB ; V5 => DIV => DEC DEC => TOV8 )) (( V7 (COUNT V8 (COUNT N3 V5 => MUL V1 => ADD ; N1 V5 => MUL V2 => ADD ; BRIDGE V5 => ADD ; BRIDGE V5 => ADD ; V6 => RECT COUNTUP) COUNTUP) )) (( VFREE )) )) OK) (LET FRAME-ENTER BE (( >N10 ; )) (( (( 900 ; 200 => GET-CENTERED-FRAME-COOR => >N4 >N3 >N2 >N1 )) (( N1 N2 N3 N4 => DO-MAYBE-SAVE-SCREEN )) (( }ENTER TEXT, PLS} N1 N2 N3 N4 => FT MAKE-FRAME FEET )) (( ; N1 62 ADD ; N2 80 ADD => FT FRAME-XY-POP FEET )) (( N1 62 ADD ; N2 120 ADD ; N10 => FT FIELD FEET => => )) (( N1 ; N2 ; N3 ; N4 => DO-MAYBE-RESTORE-SCREEN )) )) OK) (LET FRAME-ENTER-DATA BE (( >N10 ; )) (( (( 900 ; 200 => GET-CENTERED-FRAME-COOR => >N4 >N3 >N2 >N1 )) (( N1 N2 N3 N4 => DO-MAYBE-SAVE-SCREEN )) (( }ENTER DATA, PLS} N1 N2 N3 N4 => FT MAKE-FRAME FEET )) (( ; N1 62 ADD ; N2 80 ADD => FT FRAME-XY-POP FEET )) (( N1 62 ADD ; N2 120 ADD ; N10 => FT FIELD FEET => => )) (( N1 ; N2 ; N3 ; N4 => DO-MAYBE-RESTORE-SCREEN )) )) OK) (LET FRAME-ENTER-NUMBERS BE (( & >N10 >N9 ; )) (( (( 900 ; 200 => GET-CENTERED-FRAME-COOR => >N4 >N3 >N2 >N1 )) (( N1 N2 N3 N4 => DO-MAYBE-SAVE-SCREEN )) (( }ENTER NUMBERS (BLANK OR COMMA IN BETWEEN)} N1 N2 N3 N4 => FT MAKE-FRAME FEET )) (( ; N1 62 ADD ; N2 80 ADD => FT FRAME-XY-POP FEET )) (( N1 62 ADD ; N2 120 ADD ; 42 => FT FIELD FEET (MATCHED (( ; N9 ; N10 ; # => NUMBERS-TO-LIST )) MATCHED) )) (( N1 ; N2 ; N3 ; N4 => DO-MAYBE-RESTORE-SCREEN )) (( && )) )) OK) (LET SAVE-THIS-BMP BE (( >N4 >N3 >N2 >N1 ; )) (( (( N1 ; N2 ; N3 ; N1 => SUB INC INC ; N4 ; N2 => SUB INC INC => FT XYSCREENBMP FEET )) )) OK) (LET SKETCHER-MAIN BE (( )) (( (( VLOTS )) (( 2 => LISA-SENSITIVITY )) (( GOLABEL4: (( FT-CLS )) (( 800 ; 700 => GET-CENTERED-FRAME-COOR => TOV4 TOV3 TOV2 TOV1 )) (( 920 => TOV9 ; 8 => TOV10 )) (( }LISA2 (F5 TO SAVE PAGE)} ; V1 ; V2 ; V3 ; V4 ; 80 ; FRAME-FG >>> => FT MAKE-GRID-FRAME FEET )) (( }ENTER SAVE, RIGHT-CLICK CLEAR, ESC ANEW} V1 742 => FRAME-XY-POP )) (( 23 => V1UP )) (( 56 => V2UP )) (( -61 => V3UP )) (( -53 => V4UP )) (( 3 => LISA-SENSITIVITY )) (( MOUSEXY => >N2 ; >N1 )) (( GOLABEL1: (( KEYTOUCH => (MATCHED (( KEYNUM => >N1 )) N1 27 EQN = GOUP4 == N1 13 EQN = GOFORWARD3 == N1 ISBASIS = FKEYNUM 51 EQN = COPY-SCREEN === === === === MATCHED) (( MMOTION => Y-TO-1 => >N8 )) (( MOUSECLICK => Y-TO-1 => >N9 )) (( MOUSECLICKR => Y-TO-1 => >N10 )) (( N8 ISDANCE ; N9 ISDANCE => AND (MATCHED (( MOUSEXY => UP-TO-HIGHER-EVEN ; V2 ; V4 => SET-RANGE => >N2 ; V1 ; V3 => SET-RANGE => UP-TO-HIGHER-EVEN => >N1 )) (( FT )) (( N1 ; N2 ; BRIDGE 15 ADD ; BRIDGE 15 ADD ; FRAME-FG >>> => RECTFILL )) (( N1 16 DIV V9 ADD ; N2 16 DIV V10 ADD ; 210 => PUTPIXEL )) (( FEET )) )(OTHER (( N8 ISDANCE ; N10 ISDANCE => AND (MATCHED (( MOUSEXY => UP-TO-HIGHER-EVEN ; V2 ; V4 => SET-RANGE => >N2 ; V1 ; V3 => SET-RANGE => UP-TO-HIGHER-EVEN => >N1 )) (( FT )) (( N1 16 DIV V9 ADD ; N2 16 DIV V10 ADD ; 0 => PUTPIXEL )) (( N1 ; N2 ; BRIDGE 15 ADD ; BRIDGE 15 ADD ; FRAME-BG >>> RECTFILL )) (( V1 23 SUB ; V2 56 SUB ; V3 61 ADD ; V4 53 ADD ; 80 ; FRAME-FG >>> => REDRAW-GRID )) (( FEET )) MATCHED) )) MATCHED) )) GOUP1 )) )) (( GOLABEL3: (( }TINY SYMBOL NAME OR ESC TO EXIT} 8 => FRAME-ENTER => (MATCHED (( KEEPDIGITSLETTERS => RMBL => UPCM ; }C:\BOEHM\BOEHMIAN\} => SWITCH => CONCAT => ONE ; V9 INC INC INC4 ; V10 INC INC INC ; BRIDGE 51 ADD ; BRIDGE 39 ADD => SAVE-THIS-BMP )) (( }THIS .BMP NOW EXISTS:} ; SWITCH => FRAME-INFO )) MATCHED) )) (( CLEAR_KEYBUF )) (( VFREE )) )) OK) (LET LISAMENU-STANDARDS BE (( )) (( (( START-GRAPHICS )) (( XO-STATUS-ON => SETBASIS )) (( LISAMENU-PALETTE )) (( SAVE-SCREEN => SETDANCE )) (( LISAMENU-PAGE-1-ON => SETDANCE )) )) OK) (LET SKETCHER BE (( )) (( (( LISAMENU-STANDARDS )) (( SKETCHER-MAIN )) (( DONE-GRAPHICS )) (( RAM-REFRESH )) )) OK) (( LOOKSTK )) (LET YOGA6D_COM-INFO BE (( )) (( (( }NOW PART # } ; 38 ; 3 => XY-POP )) (( YOGA6D_COM >>> ; 48 ; 3 => XY-POP )) )) OK) (( LOOKSTK )) (LET LAB-HEADER BE (( )) (( (( }THE LISA CARTOON DIMENSION LAB BY AT} ; 4 ; 1 => XY-POP )) (( }PGU / PGD FOCUS PART} ; 14 ; 3 => XY-POP )) (( YOGA6D_COM-INFO )) (( }SECTION} ; 28 ; 4 => XY-POP )) (( }RENDERING} ; 42 ; 4 => XY-POP )) (( }F11:LOAD F12:CLEAR F1:QUIT} ; 22 ; 24 => XY-POP )) (( }R-CLICK:BLANK ENTER:SAVE} ; 22 ; 25 => XY-POP )) )) OK) (LET LAB-CLR BE (( >N4 >N3 >N2 >N1 )) (( (( CARTOON-WIDTH >>> >N6 )) (( N1 ; N2 ; N1 N6 ADD ; N2 CARTOON-HEIGHT >>> ADD ; CD-BG >>> => FT RECTFILL FEET )) (( N1 N6 ADD N6 10 DIV ADD ; N2 ; BRIDGE N6 ADD ; BRIDGE CARTOON-HEIGHT >>> ADD ; CD-BG >>> => FT RECTFILL FEET )) (( N3 ; N4 ; N3 400 => ADD ; N4 400 => ADD ; CD-BG >>> => FT RECTFILL FEET )) )) OK) (LET MAKE-YOGA4D_COM-ALL-FRESH BE (( )) (( (( YOGA4D_COM >>> %EMPTY )) )) OK) (LET MAKE-YOGA6D_COM-ALL-FRESH BE (( )) (( (( YOGA6D_COM => SETDANCE )) )) OK) (( LOOKSTK )) (LET LETS-TRAVEL BE (( )) (( (( ANIMATION-TRIX >>> CLEAR-MATRIX )) (( ANIMATION-CARTOON >>> CLEAR-MATRIX )) )) OK) (( LOOKSTK )) (LET LAB-SAVE-MODELS BE (( )) (( (( }NAME FILE ==> EXISTING WILL BE DELETED!!} ; 8 => FRAME-ENTER => (MATCHED (( KEEPDIGITSLETTERS => RMBL => UPCM => ONE ; }.TXT} => CONCAT ; V1 => PM2FILENUM ; RM )) (( }THIS .TXT FILE SHOULD EXIST:} ; SWITCH => FRAME-INFO )) (( 0 ; 1 ; 1 ; V1 => PM )) MATCHED) )) )) OK) (( LOOKSTK )) (LET CARTOON-PIXEL BE (( ; ; )) (( (( CD-FG >>> => FT PUTPIXEL FEET )) )) OK) (LET SKETCH-PIXEL BE (( ; ; )) (( (( BRIDGE INC ; BRIDGE INC ; CD-FG >>> => FT RECTFILL FEET )) )) OK) (LET FREE-CARTOON-PIXEL BE (( ; ; )) (( (( CD-BG >>> => FT PUTPIXEL FEET )) )) OK) (LET FREE-SKETCH-PIXEL BE (( ; ; )) (( (( BRIDGE INC ; BRIDGE INC ; CD-BG >>> => FT RECTFILL FEET )) )) OK) (( LOOKSTK )) (LET DISPLAY-SKETCH-AGAIN BE (( >N2 >N1 )) (( (( CARTOON-HEIGHT >>> (COUNT (( TICKLE-ON )) (( CARTOON-WIDTH >>> (COUNT N1 ; N3 ; V1 => GM => ISDANCE (MATCHED N5 N1 TWICE ADD ; N6 N3 TWICE ADD => SKETCH-PIXEL MATCHED) COUNTUP) )) COUNTUP) )) (( TICKLE-FREE )) )) OK) (LET DISPLAY-CARTOON-AGAIN BE (( >N2 >N1 )) (( (( CARTOON-HEIGHT >>> (COUNT CARTOON-WIDTH >>> (COUNT (( N1 ; N3 ; V1 => GM => ISDANCE (MATCHED N5 N1 ADD ; N6 N3 ADD => CARTOON-PIXEL MATCHED) )) COUNTUP) COUNTUP) )) )) OK) (LET FRESH-RENDER BE (( >N2 >N1 )) (( (( CARTOON-HEIGHT >>> (COUNT CARTOON-WIDTH >>> (COUNT (( N1 ; N3 ; V1 => GM => ISDANCE (MATCHED N5 N1 ADD ; N6 N3 ADD => CARTOON-PIXEL MATCHED) )) COUNTUP) COUNTUP) )) )) OK) (( LOOKSTK )) (LET LAB-LOAD-MODELS BE (( )) (( (( }LOAD .TXT MODEL (OR ENTER TO GO BACK AGAIN)} ; 8 => FRAME-ENTER => (MATCHED (( LETS-TRAVEL )) (( MAKE-YOGA4D_COM-ALL-FRESH )) (( ANIMATION-TRIX >>> >N5 )) (( KEEPDIGITSLETTERS => RMBL => UPCM ; }.TXT} CONCAT ; N5 => FILENUM2PM ; RM )) (( CARTOON-HEIGHT >>> (COUNT (( CARTOON-WIDTH >>> (COUNT N1 ; N3 ; N9 => GM ; N1 ; N3 ; V1 => PM COUNTUP) COUNTUP) )) MATCHED) )) )) OK) (LET UPDATE-IN-SKETCH BE (( >N4 >N3 >N2 >N1 )) (( (( N3 N1 TWICE ADD ; N4 N2 TWICE ADD )) (( N1 ; N2 ; V1 => GM => ISDANCE = SKETCH-PIXEL == FREE-SKETCH-PIXEL === )) )) OK) (LET UPDATE-IN-CARTOON BE (( >N4 >N3 >N2 >N1 )) (( (( N3 N1 ADD ; N4 N2 ADD )) (( N1 ; N2 ; V1 => GM => ISDANCE = CARTOON-PIXEL == FREE-CARTOON-PIXEL === )) )) OK) (( LOOKSTK )) (LET IS-ANY-IN-LIST BE (( & )) (( (( # => START-IN-LIST )) (( # => ADDITIONAL-IN-LIST => => )) (( && )) )) OK) (LET IS-THIS-IN-LIST BE (( & >N1 )) (( (( # => START-IN-LIST )) (( GOLABEL1: (( # => ADDITIONAL-IN-LIST (MATCHED (( # => THIS-IN-LIST ; N1 => EQN (MATCHED (( Y => => )) (( && ; EXIT )) MATCHED) (( # => NEXT-IN-LIST )) (( GOUP1 )) MATCHED) )) )) (( && )) (( N => => )) )) OK) (( LOOKSTK )) (LET AT-LEAST-NUMBER-1-IN-LIST BE (( & )) (( (( # => IS-ANY-IN-LIST => NOT (MATCHED (( 1 ; # => EXTEND-LIST )) MATCHED) )) (( && )) )) OK) ((DATA ANIMATION-EXTRA )) ((DATA IS-SKETCH-IN-RENDER-LIST )) (LET FIND-OUT-IS-SKETCH-IN-RENDER-LIST BE (( )) (( (( YOGA6D_COM >>> ; YOGA4D_COM >>> => IS-THIS-IN-LIST => Y-TO-1 IS-SKETCH-IN-RENDER-LIST <>> EMPTY-LIST )) (( YOGA4D_COM >>> AT-LEAST-NUMBER-1-IN-LIST )) )) OK) (LET READY-WITH-YOGA6D_COM BE (( )) (( (( YOGA6D_COM => SETDANCE )) (( ANIMATION-EXTRA => SETBASIS )) )) OK) (LET READY-BOTH-FOR-LAB BE (( )) (( (( READY-WITH-YOGA4D_COM )) (( READY-WITH-YOGA6D_COM )) (( IS-SKETCH-IN-RENDER-LIST => SETDANCE )) )) OK) (LET UPDATE-ANIMATION-EXTRA BE (( )) (( (( CARTOON-HEIGHT >>> ; YOGA6D_COM >>> => DEC => MUL ANIMATION-EXTRA <>> => ONE ; ANGEL => DEC => MUL => SWITCH => => ; ; )) )) OK) ((DATA LAB-RENDER-X )) ((DATA LAB-RENDER-Y )) (LET FRESH-RENDER-FASTER-ESSENCE BE (( ; )) (( (( FT )) (( ANIMATION-TRIX >>> & )) (( ; FIND-START-IN-TRIX )) (( ; ; (COUNT CARTOON-WIDTH >>> (COUNT (( N1 ; BRIDGE N3 ADD ; # => GM => ISDANCE (MATCHED LAB-RENDER-X >>> N1 ADD ; LAB-RENDER-Y >>> N3 ADD => CD-FG >>> => PUTPIXEL MATCHED) )) COUNTUP) COUNTUP) ; RM )) (( && )) (( FEET )) )) OK) ((DATA FRESH-RENDER-FASTER-HOUSE }FRESH-RENDER-FASTER-ESSENCE} => ? FRESH-RENDER-FASTER-HOUSE <>> ; YOGA4D_COM >>> => LOOP-THROUGH-LIST )) )) OK) (( LOOKSTK )) (LET IS-PIXEL-IN-RENDER BE (( >N2 >N1 )) (( (( ANIMATION-TRIX >>> & )) (( YOGA4D_COM >>> & )) (( CARTOON-HEIGHT >>> ; )) (( # => START-IN-LIST )) (( GOLABEL1: (( # => ADDITIONAL-IN-LIST (MATCHED (( # => THIS-IN-LIST => DEC ; BRIDGE => MUL ; N2 => ADD ; N1 => SWITCH ; ## => GM => ISDANCE (MATCHED (( RM ; && ; && )) (( Y => => ; EXIT )) MATCHED) (( # => NEXT-IN-LIST )) (( GOUP1 )) MATCHED) )) )) (( RM ; && ; && )) (( N => => )) )) OK) (LET UPDATE-IN-RENDER-MAYBE BE (( >N4 >N3 >N2 >N1 )) (( (( IS-SKETCH-IN-RENDER-LIST => VISBASIS = EXIT === )) (( N1 ; N2 ; ANIMATION-EXTRA >>> ADD ; ANIMATION-TRIX >>> => GM => ISDANCE (MATCHED (( N3 N1 ADD ; N4 N2 ADD ; CD-FG >>> FT PUTPIXEL FEET )) )(OTHER (( N1 ; N2 => IS-PIXEL-IN-RENDER => NOT (MATCHED (( N3 N1 ADD ; N4 N2 ADD ; CD-BG >>> FT PUTPIXEL FEET )) MATCHED) MATCHED) )) )) OK) (LET DISPLAY-SKETCH-AGAIN-FASTER BE (( >N2 >N1 )) (( (( FT )) (( ANIMATION-TRIX >>> & )) (( YOGA6D_COM >>> => FIND-START-IN-TRIX )) (( ; ; (COUNT (( TICKLE-ON )) (( CARTOON-WIDTH >>> (COUNT (( N1 ; BRIDGE N3 ADD ; # => GM => ISDANCE (MATCHED N5 N1 TWICE ADD ; N6 N3 TWICE ADD => BRIDGE INC ; BRIDGE INC ; CD-FG >>> => RECTFILL MATCHED) )) COUNTUP) )) COUNTUP) ; RM )) (( TICKLE-FREE )) (( && )) (( FEET )) )) OK) (LET DISPLAY-CARTOON-AGAIN-FASTER BE (( >N2 >N1 )) (( (( FT )) (( ANIMATION-TRIX >>> & )) (( YOGA6D_COM >>> => FIND-START-IN-TRIX )) (( ; ; (COUNT CARTOON-WIDTH >>> (COUNT (( N1 ; BRIDGE N3 ADD ; # => GM => ISDANCE (MATCHED N5 N1 ADD ; N6 N3 ADD => CD-FG >>> => PUTPIXEL MATCHED) )) COUNTUP) COUNTUP) ; RM )) (( && )) (( FEET )) )) OK) (( LOOKSTK )) (LET NEW-PALETTE-ESSENCE BE (( )) (( (( LISAMENU-PALETTE )) (( ^0 ^202 ^0 FRAME-FG >>> >>V => WRITEPAL )) (( ^191 ^245 ^0 CD-BG >>> >>V => WRITEPAL )) (( ^0 ^255 ^0 64 >>V => WRITEPAL )) (( ^46 ^18 ^51 255 >>V => WRITEPAL )) (( PUTPAL )) )) OK) (( }NEW-PALETTE-ESSENCE} => ? MY-PALETTE-HOUSE <>> 1 ; EQN (MATCHED (( MY-PALETTE )) )(OTHER (( LISAMENU-PALETTE )) MATCHED) )) )) OK) (LET TOGGLE-PALETTE BE (( )) (( (( WHICH-PALETTE >>> 1 ; EQN (MATCHED (( 2 WHICH-PALETTE <N4 >N3 >N2 >N1 )) (( (( CARTOON-WIDTH >>> >N6 )) (( N1 ; N2 ; N1 N6 ADD ; N2 CARTOON-HEIGHT >>> ADD ; CD-BG >>> => FT RECTFILL FEET )) (( N3 ; N4 ; N3 400 => ADD ; N4 400 => ADD ; CD-BG >>> => FT RECTFILL FEET )) )) OK) (LET RENDER-CLR BE (( >N4 >N3 >N2 >N1 )) (( (( CARTOON-WIDTH >>> >N6 )) (( N1 N6 ADD N6 10 DIV ADD ; N2 ; BRIDGE N6 ADD ; BRIDGE CARTOON-HEIGHT >>> ADD ; CD-BG >>> => FT RECTFILL FEET )) )) OK) (LET LAB-LOADER BE (( )) (( (( }LOAD .TXT MODEL (OR ENTER TO GO BACK AGAIN)} ; 8 => FRAME-ENTER => (MATCHED (( LETS-TRAVEL )) (( READY-BOTH-FOR-LAB )) (( ANIMATION-TRIX >>> >N5 )) (( KEEPDIGITSLETTERS => RMBL => UPCM ; }.TXT} CONCAT ; N5 => FILENUM2PM ; RM )) (( CARTOON-HEIGHT >>> (COUNT (( CARTOON-WIDTH >>> (COUNT N1 ; N3 ; N9 => GM ; N1 ; N3 ; V1 => PM COUNTUP) COUNTUP) )) MATCHED) )) )) OK) ((DATA INPUT-FILE-WIDTH 100 INPUT-FILE-WIDTH < %LENGTH (COUNT (( N1 ; # => %GET => ISBASIS (MATCHED (( N1 => DEC => => )) (( && ; RMS ; RMS ; EXIT )) MATCHED) COUNTUP) )) (( # => %LENGTH => => )) (( && )) )) OK) ((DATA FIND-MAX-LINE-NUM-DATA )) (LET FIND-MAX-LINE-NUM-ESSENCE BE (( )) (( (( V3 FIND-MAX-LINE-NUM-DATA < TOV2 )) )) OK) (LET FIND-MAX-LINE-NUM BE (( & )) (( (( FIND-MAX-LINE-NUM-DATA => SETBASIS )) (( }FIND-MAX-LINE-NUM-ESSENCE} => ? ; # => FORVPM )) (( FIND-MAX-LINE-NUM-DATA >>> => => )) (( && )) )) OK) (LET FIX-BLANK-LINES-IN-FILE BE (( & )) (( (( # => FIND-MAX-LINE-NUM (COUNT (( 1 ; N1 ; # => GM => NOZ NOT (MATCHED 32 ; 1 ; N1 ; # => PM MATCHED) )) COUNTUP) )) (( && )) )) OK) (LET CONVBAT-ALLOCATE-RAM BE (( )) (( (( }* BEFORE WE READ IN ANYTHING, THE PC ALLOCATES RAM..} => POP )) (( }* (AS SAID, THE VARIABLES IN THE CONVBAT.TXT} => POP )) (( }* ARE VERY EASY TO CHANGE IF E.G. YOU TRY THIS} => POP )) (( }* WITH AN ANTIQUE PC INSTEAD OF A Y2000-COMPLIANT PC.)} => POP )) (( }* BY THE WAY, THIS UTILITY CAN ALSO BE USED IN ORDER TO} => POP )) (( }* MAKE TEXT FILES WHICH ARE PUT INTO THE OPERATING} => POP )) (( }* APPROACH FROM A VARIETY OF OTHER PROGRAMS CONFORM TO} => POP )) (( }* THE LISANOD501 STANDARD, THAT A LINE WHICH IS EMPTY MUST} => POP )) (( }* HAVE AT LEAST ONE SPACE CHARACTER TO COUNT.} => POP )) (( }* IF YOU WANT TO BUILD UP A NEW CONVBAT2.TXT-LIKE TABLE,} => POP )) (( }* YOU WILL FIND AN EXAMPLE SOMEWHERE INSIDE NOD502.TXT.}=> POP )) (( }* .} => POP )) (( TRANSLATION-TABLE-WIDTH >>> ; TRANSLATION-TABLE-HEIGHT >>> => RAM-PM TRANSLATION-TABLE < POP )) (( INPUT-FILE-WIDTH >>> ; IO-FILE-HEIGHT >>> ; 20 => ADD => RAM-PM INPUT-FILE < POP )) (( OUTPUT-FILE-WIDTH >>> ; IO-FILE-HEIGHT >>> ; 20 => ADD => RAM-PM OUTPUT-FILE < POP )) (( }* ..DONE ALLOCATING RAM! } => POP )) )) OK) ((DATA USES-TRANSLATION-TABLE )) (LET ASK-FOR-WHEREABOUTS-OF-CONVBAT2 BE (( )) (( (( CLS )) (( }************************convbat*********************} => POP )) (( }* HI! THIS PROGRAM WILL CONVERT ONE OR SEVERAL FILES} => POP )) (( }* ACCORDING TO ONE OR SEVERAL PATTERN SUBSTITUTIONS} => POP )) (( }* WHICH ARE SPECIFIED IN CONVBAT2.TXT IN AN EASY FORMAT.} => POP )) (( }* YOU CAN EDIT CONVBAT2.TXT YOURSELF IN ANY EDITOR.} => POP )) (( }* THE FIRST FORTY LINES IS A COMMENTARY SECTION,} => POP )) (( }* AND IT DESCRIBES ITSELF. MORE COMMENTS ALSO INSIDE} => POP )) (( }* THE BEGINNING OF THE SOURCE OF THIS EASY PROGRAM.} => POP )) (( }* THIS IS SUITABLE E.G. WHEN CONVERTING FROM A WORD} => POP )) (( }* PROCESSOR FORMAT, PERHAPS THROUGH OOWRITER (IN THE} => POP )) (( }* MANNER DESCRIBED IN THE COMMENTS IN THIS PROGRAM} => POP )) (( }* TO A .TXT FORM, SO AS TO CLEANSE THE .TXT FROM} => POP )) (( }* ASCII CODES WHICH ARE HIGHER THAN 127, E.G. ETHNIC} => POP )) (( }* CHARACTERS -- AND WITH MANY SUBSTITUTIONS IN A ROW,} => POP )) (( }* THIS CAN BE SEEN AS A 'SUBSTITUTION MACRO'. YOU CAN ALSO} => POP )) (( }* REPLACE A WORD WITH NAUGHT, OR ANY WORD WITH ANY OTHER,} => POP )) (( }* -- AND THIS PROGRAM IS MADE SO THAT THE LINES MUST NOT BE} => POP )) (( }* ANY WIDER THAN 100, AND RESULTING LINES NOT ANY WIDER THAN} => POP )) (( }* 500, AND AMOUNT OF LINES NOT ANY WIDER THAN 10000 -- BUT} => POP )) (( }* THIS YOU CAN E A S I L Y CHANGE (DO SO IF PC HAS LITTLE RAM!).} => POP )) (( }* THIS ALSO ONLY LOOKS FOR PATTERNS FOUND AS A WHOLE IN A LINE.} => POP )) (( }* PLEASE KNOW CORRECT FILENAMES BEFORE STARTING, THIS OVERWRITES!} => POP )) (( ENTERPLS )) (( CLS )) (( }*======> DO YOU WISH TO USE A TRANSLATION TABLE (E.G. CONVBAT2)} => POP )) (( }*======> (OR IS YOUR BUSINESS NOW JUST TO CONVERT A TEXT FILE} => POP )) (( }*======> INTO THE STANDARD USED ALSO BY MONET AND KINGLINE, } => POP )) (( }*======> WITH ONE SPACE CHAR ON EACH EMPTY LINE?)} => POP )) (( }*======> SO, USE TABLE?} => POPS )) (( USES-TRANSLATION-TABLE => YNIN = SETDANCE == SETBASIS === )) (( USES-TRANSLATION-TABLE => VISDANCE (MATCHED (( }*======> PLEASE GIVE FOLDER/FILENAME (WITHOUT .TXT) FOR YOUR} => POP )) (( }*======> TABLE [ENTER FOR CONVBAT2] } => POPS )) (( READLN => RMBL => LENGTH => NOZ NOT (MATCHED RM ; :CONVBAT2 MATCHED) )) (( ONE => TRANSLATION-TABLE-NAME >VARSTR )) (( ; => REAL-TXT-FILE = RM ; Y == N === => => )) )(OTHER (( Y => => )) MATCHED) )) OK) (LET READ-IN-CONVBAT2 BE (( )) (( (( TRANSLATION-TABLE-NAME VARSTR> ; }.TXT} => CONCAT ; TRANSLATION-TABLE >>> => FILE2PM ; RM )) )) OK) (LET NULL-TO-ASCII-SPACE BE (( ; )) (( (( ; ONE => ISBASIS = RM ; 32 === => => )) )) OK) (LET NULL-TO-ASCII-ZERO BE (( ; )) (( (( ; ONE => ISBASIS = RM ; 48 === => => )) )) OK) ((DATA AMOUNT-SUBSTITUTIONS )) (LET ENCODE-CONVERSION-TABLE BE (( )) (( (( AMOUNT-SUBSTITUTIONS >>> => TWICE => >N8 )) (( N8 => ISBASIS = EXIT === )) (( TRANSLATION-TABLE >>> => & )) (( N8 (COUNT (( N1 ; 40 => ADD ; # => %GET => >N8 )) (( N8 => ACTIVE-LENGTH => UP-TO-EVEN => >N10 )) (( 1 => >N11 )) (( 1 => >N7 )) (( GOLABEL2: )) (( N11 ; N10 => INTGREATER = GOFORWARD4 === )) (( N11 ; N8 => %GET ; 47 => EQN (MATCHED (( }/} => POPS )) (( INCN11 )) (( N11 ; N8 => %GET => NULL-TO-ASCII-ZERO => ASCII ; )) (( INCN11 )) (( N11 ; N8 => %GET => NULL-TO-ASCII-ZERO => ASCII ; )) (( INCN11 )) (( N11 ; N8 => %GET => NULL-TO-ASCII-ZERO => ASCII ; )) (( ; ; ; => CONCAT => CONCAT => >N6 )) (( N6 ; N7 ; N1 ; # => PM )) (( INCN7 )) )(OTHER (( }=} => POPS )) (( INCN11 )) (( N11 ; N8 => %GET => NULL-TO-ASCII-SPACE => >N6 )) (( N6 ; N7 ; N1 ; # => PM )) (( INCN7 )) MATCHED) )) (( INCN11 )) (( GOUP2 )) (( GOLABEL4: )) (( 0 ; N7 ; N1 ; # => PM )) (( SPACE )) COUNTUP) )) (( && )) )) OK) (LET ASK-FOR-FILE-TO-CONVERT BE (( )) (( (( }********************************************************} => POP )) (( }* BATCH CONVERSION -- SPECIFY INPUT FILE} => POP )) (( }*======> PLEASE GIVE FOLDER/FILENAME (WITHOUT .TXT) FOR} => POP )) (( }*======> TEXT [E.G. MYFOLDER/LETTER1] } => POPS )) (( READLN => RMBL => ONE INPUT-FILE-NAME >VARSTR )) (( ; => REAL-TXT-FILE = RM ; Y == N === => => )) )) OK) (LET READ-IN-FILE-TO-CONVERT-ESSENCE BE (( )) (( (( V11 SG ISPRO = 256 V11 ADD TOV11 === )) )) OK) (LET READ-IN-FILE-TO-CONVERT BE (( )) (( (( INPUT-FILE-NAME VARSTR> ; }.TXT} => CONCAT ; INPUT-FILE >>> => FILE2PM ; RM )) (( }READ-IN-FILE-TO-CONVERT-ESSENCE} => ? ; INPUT-FILE >>> => FORVPM )) )) OK) (LET ASK-FOR-NAME-OF-CONVERTED BE (( )) (( (( }********************************************************} => POP )) (( }* SPECIFY OUTPUT FILE. NB: ANY SAME-NAMED FILE IS OVERWRITTEN!!!} => POP )) (( }*======> PLEASE GIVE FOLDER/FILENAME (WITHOUT .TXT) FOR NEW FILE} => POP )) (( }*======> [ENTER TO OVERWRITE INPUT FILE] } => POPS )) (( READLN => RMBL => LENGTH => NOZ NOT (MATCHED RM ; INPUT-FILE-NAME VARSTR> MATCHED) )) (( ONE => OUTPUT-FILE-NAME >VARSTR )) (( ; => TOLEN => ISPRO => => )) )) OK) (( LOOKSTK )) ((DATA CURRENT-POS )) (LET DO-GOOD-WORK BE (( >N3 >N1 >N5 )) (( (( AMOUNT-SUBSTITUTIONS >>> => TWICE (COUNT (( 1 ; N1 ; ### => GM ; N7 => EQN (MATCHED (( }:} => ( )) (( N1 ; ### => %GET => ACTIVE-LENGTH => ONE DEC >N6 (COUNT (( N1 ; N3 ; ### => GM ; (( N5 N1 DEC ADD ; N7 ; ## => GM => NOT_INTEQUAL = RMS RMS ; GOFORWARD3 === )) COUNTUP) )) (( }*} => ( )) (( N1 INC ; ### => %GET => ACTIVE-LENGTH (COUNT (( N1 ; N3 INC ; ### => GM ; CURRENT-POS >>> ; N7 ; # => PM )) (( CURRENT-POS => INCVAR )) COUNTUP) (( RMS ; RMS ; N1 N4 ADD => => ; EXIT )) (( GOLABEL3: )) MATCHED) )) (( INCN1 )) COUNTUP) )) (( N5 ; CURRENT-POS >>> ; N3 ; # => PM )) (( CURRENT-POS => INCVAR )) (( N1 => => )) )) OK) (( LOOKSTK )) (LET CONVERT-IT BE (( )) (( (( }* CONVERSION PROCEEDING!} => POP )) (( SOLIDCURSOR )) (( TRANSLATION-TABLE >>> & )) (( INPUT-FILE >>> & )) (( OUTPUT-FILE >>> & )) (( DOCUMENT-LENGTH >>> (COUNT (( CURRENT-POS => SETDANCE )) (( INPUT-FILE-WIDTH >>> (COUNT (( N1 ; N3 ; ## => GM => >N5 )) (( N5 => NOZ NOT = RMS RMS GOFORWARD4 === )) (( USES-TRANSLATION-TABLE => VISDANCE (MATCHED (( N5 ; N1 ; N3 => DO-GOOD-WORK => >N1 )) )(OTHER (( N5 ; N1 ; N3 ; # => PM )) MATCHED) )) COUNTUP) )) (( GOLABEL4: )) COUNTUP) )) (( && && && )) (( CRLN )) (( }* ALRIGHT. WILL SAVE NEXT. PLS CHECK SAVED FILE ***********} => POP )) (( FUNCURSOR )) )) OK) (LET ADD-APPEND-LINES BE (( )) (( (( OUTPUT-FILE >>> & )) (( DOCUMENT-LENGTH >>> >N8 )) (( 10 (COUNT (( }APPEND-LINE-} ; N1 => CONCAT => ? => H ; )) (( ONEV => VARSTR-LEN => ISPRO (MATCHED (( INCN10 )) (( ; VARSTR> ; N10 ; # => TEXT>MATRIX )) )(OTHER (( RMV )) MATCHED) )) COUNTUP) )) (( && )) )) OK) (LET STORE-IT BE (( )) (( (( OUTPUT-FILE-NAME VARSTR> ; }.TXT} => CONCAT ; OUTPUT-FILE >>> => PM2FILE ; RM )) )) OK) (( LOOKSTK )) (( 10 AMOUNT-APPEND-LINES <VARSTR )) (( }} APPEND-LINE-2 >VARSTR )) (( }} APPEND-LINE-3 >VARSTR )) (( }} APPEND-LINE-4 >VARSTR )) (( }} APPEND-LINE-5 >VARSTR )) (( }} APPEND-LINE-6 >VARSTR )) (( }} APPEND-LINE-7 >VARSTR )) (( }} APPEND-LINE-8 >VARSTR )) (( }} APPEND-LINE-9 >VARSTR )) (( }} APPEND-LINE-10 >VARSTR )) (( LOOKSTK )) (LET ASK-WHETHER-INTERACTOR-WANTS-MORE BE (( )) (( (( }* MORE CONVERSIONS?} => POPS )) (( YNIN => ONE (MATCHED (( INPUT-FILE >>> => CLEAR-MATRIX )) (( OUTPUT-FILE >>> => CLEAR-MATRIX )) MATCHED) => => )) )) OK) (( LOOKSTK )) (LET SAY-THANKS BE (( )) (( (( }*} => POP )) (( }*} => POP )) (( }* PROGRAM DONE.} => POPS ; ENTERPLS )) (( }*} => POP )) (( }*} => POP )) (( }*} => POP )) (( }********************ALWAYS PLEASED TO SERVE YOU!} => POP )) )) OK) (( LOOKSTK )) (LET CONVERSION BE (( )) (( (( USES-TRANSLATION-TABLE => SETDANCE )) (( ASK-FOR-WHEREABOUTS-OF-CONVBAT2 => NOT = EXIT === )) (( CONVBAT-ALLOCATE-RAM )) (( READ-IN-CONVBAT2 )) (( USES-TRANSLATION-TABLE => VISDANCE (MATCHED (( TRANSLATION-TABLE >>> FIX-BLANK-LINES-IN-FILE )) (( TRANSLATION-TABLE >>> => FIND-MAX-LINE-NUM ; 40 => SUB => DIV2 AMOUNT-SUBSTITUTIONS <>> ; 0 ; TRANSLATION-TABLE-HEIGHT >>> ; 42 SUB => SET-RANGE AMOUNT-SUBSTITUTIONS < POPS )) (( AMOUNT-SUBSTITUTIONS >>> POPS )) (( }PAIRS.} => POP )) (( CRLN )) (( ENTERPLS )) (( CLS )) (( }************ ENCODING IT:} => POPS )) (( ENCODE-CONVERSION-TABLE )) MATCHED) )) (( CRLN )) (( }******* READY TO ACT} => POP )) (( CLEAR_KEYBUF )) (( GOLABEL4: )) (( ASK-FOR-FILE-TO-CONVERT => NOT = EXIT === )) (( READ-IN-FILE-TO-CONVERT )) (( INPUT-FILE >>> FIND-MAX-LINE-NUM DOCUMENT-LENGTH <>> ; }************** HIGHEST-NUMBERED TEXT LINE W/CONTENT:} => POPS ; POP )) (( }****** (INSERTS ONE BLANK INTO EMPTY LINES, } => POP )) (( }****** UP TO THE COMPLETING LINE WITH SOMETHING ON IT,} => POP )) (( }****** SO IT WILL WORK BETTER WITH TOHTML5 AND SO ON.)} => POP )) (( INPUT-FILE >>> FIX-BLANK-LINES-IN-FILE )) (( ASK-FOR-NAME-OF-CONVERTED => NOT = EXIT === )) (( CONVERT-IT )) (( ADD-APPEND-LINES )) (( STORE-IT )) (( ASK-WHETHER-INTERACTOR-WANTS-MORE => = CLS GOUP4 === )) )) OK) (( LOOKSTK )) (LET CONVBAT BE (( )) (( (( CONVERSION )) (( SAY-THANKS )) (( RAM-REFRESH )) )) OK) **** =======INFO=TO=THE=PROGRAMMER=============================== THE NEXT COUPLE OF DOZENS OF TEXTLINES IS AN EXAMPLE OF A SUITABLE BATCH CONVERSION TABLE FOR CONVBAT, WHICH YOU CAN EXTRACT AND PUT IN A FILE AND CALL E.G. CONVBAT2.TXT ============================================================ This is line 1: The forty first lines in each batch translation table are just comment lines, the next are pairwise what is to be matched against and then what it is to be substituted with, when there is match -- that is, line 41 has match, 42 has substitute, and so on. This is inputted to CONVBAT.TXT. This is a translation table which I have found useful in preparing some texts for the html when they have some commonly found letters in Norwegian texts, but they are merely included as an example. I just made it fit with a particular job I had, so feel free to expand it yourself. The program substitutes when it finds a match, then moves ahead in the document at once. Since we need in this file to refer to other than plain 7-bit ascii characters, I have made a code. The code allows you to either give the text as text, or to give the text by its ascii number. To give the text Hello world, you can type =H=e=l=l=o= =w=o=r=l=d But to give the ascii code 243 followed by 245, followed by blank followed by the same, try /243/245= =H=e=l=l=o= =w=o=r=l=d So this can be what is matched against -- or what is inserted instead of what is found. The code format is the same. Note that the correct format of a number less than three digits begins with zeroes so that the number size is three in length: like /031/007 and so on. There is no trouble about writing e.g. =/ if you want the slash character matched against, but in this file, please do not insert any extra blanks at all. No 8-bit code in this file. Line 40: ***********ENTER CODE ON NEXT:******** /195/165 =&=a=r=i=n=g=; /195/133 =&=A=r=i=n=g=; /195/184 =&=o=s=l=a=s=h=; /195/152 =&=O=s=l=a=s=h=; /195/166 =&=a=e=l=i=g=; /195/134 =&=A=E=l=i=g=; ============================================================ THE ABOVE COUPLE OF DOZENS OF TEXTLINES IS AN EXAMPLE OF A SUITABLE BATCH CONVERSION TABLE FOR CONVBAT, WHICH YOU CAN EXTRACT AND PUT IN A FILE AND CALL E.G. CONVBAT2.TXT ============================================================ { ((DATA KEEP-GOING )) ((DATA INPUT-FILE-HEIGHT )) ((DATA OUTPUT-FILE-HEIGHT )) ((DATA AMOUNT-LINES-ORIGINALLY )) ((DATA VERIFIED-DOCUMENT-LENGTH )) (LET CALC-AMOUNT-LINES-IN-TXT-OF-ANY-WIDTH BE (( ; )) (( (( ; }.TXT} => CONCAT => COUNTLINES => RM ; RM => => )) )) OK) (LET ACTIVE-LENGTH BE (( & )) (( (( # => %LENGTH (COUNT (( N1 ; # => %GET => ISBASIS (MATCHED (( N1 => DEC => => )) (( && ; RMS ; RMS ; EXIT )) MATCHED) COUNTUP) )) (( # => %LENGTH => => )) (( && )) )) OK) (LET WORDWRAP-ASK-FOR-FILE-TO-CONVERT BE (( )) (( (( CLS )) (( }************************wordwrap*********************} => POP )) (( }* HI! THIS PROGRAM WILL DO WORDWRAP ON .TXT FILES,} => POP )) (( }* WHICH MIGHT POSSIBLY HAVE FEW LINESHIFTS IN THEM.} => POP )) (( }* THIS WORDWRAP HAS BEEN DESIGNED SO THAT IT WORKS} => POP )) (( }* SMOOTHLY EVEN THOUGH THERE ARE EIGHT-BIT CODES} => POP )) (( }* IN IT. } => POP )) (( ENTERPLS ; CLS )) (( }* WORDWRAP -- SPECIFY INPUT .TXT FILE} => POP )) (( }*======> PLEASE GIVE FOLDER/FILENAME (WITHOUT .TXT) FOR} => POP )) (( }*======> TEXT [E.G. MYFOLDER/LETTER1] } => POPS )) (( READLN => RMBL => ONE INPUT-FILE-NAME >VARSTR )) (( ; => REAL-TXT-FILE = RM ; Y == N === => => )) )) OK) (LET READ-IN-FILE-TO-CONVERT-ESSENCE BE (( )) (( (( V11 SG ISPRO = 256 V11 ADD TOV11 === )) )) OK) (( LOOKSTK )) (LET ALLOCATE-INPUT-FILE-SPACE BE (( )) (( (( }* ALLOCATING (NEW) INPUT FILE W/MAX PARAGRAPH LENGTH: } => POPS )) (( INPUT-FILE-WIDTH >>> => POPS )) (( INPUT-FILE-WIDTH >>> ; INPUT-FILE-HEIGHT >>> ; 20 => ADD => RAM-PM INPUT-FILE < POP )) )) OK) (( LOOKSTK )) (LET WORDWRAP-READ-IN-FILE BE (( )) (( (( }* LOOKING AT INPUT FILE (MAYBE AGAIN)..} => POPS )) (( INPUT-FILE-NAME VARSTR> ; }.TXT} => CONCAT ; INPUT-FILE >>> => FILE2PM ; RM )) (( }* DONE} => POP )) )) OK) (( LOOKSTK )) ((DATA ARE-ALL-IN-RIGHTMOST-DATA )) (LET ARE-ALL-IN-RIGHTMOST-COLUMN-UNUSED BE (( & )) (( (( 1 ; # => %GET => %LENGTH => & ; SWITCHV )) (( # => %LENGTH (COUNT (( ## ; N1 ; # => GM => NOZ (MATCHED (( N1 ARE-ALL-IN-RIGHTMOST-DATA < => )) (( EXIT )) MATCHED) )) COUNTUP) )) (( && && )) (( Y => => )) )) OK) (( LOOKSTK )) (LET READ-IN-WITH-FLEXIBLY-ADJUSTED-LINE-WIDTH BE (( )) (( (( SOLIDCURSOR )) (( INPUT-FILE-NAME VARSTR> => CALC-AMOUNT-LINES-IN-TXT-OF-ANY-WIDTH AMOUNT-LINES-ORIGINALLY < POPS )) (( AMOUNT-LINES-ORIGINALLY >>> => POP )) (( }THIS COUNT INCLUDES EXTRA LINESHIFTS AT THE COMPLETION OF THE } => POP )) (( }FILE, WHICH WILL NOT BE INCLUDED IN THE WORDWRAPPED OUTPUT.} => POP )) (( ENTERPLS )) (( AMOUNT-LINES-ORIGINALLY >>> ; 20 => ADD => INPUT-FILE-HEIGHT < MUL INPUT-FILE-WIDTH <>> => ARE-ALL-IN-RIGHTMOST-COLUMN-UNUSED (MATCHED RMS ; RMS ; GOFORWARD4 MATCHED) )) (( INPUT-FILE >>> => RELEASE-MATRIX )) COUNTUP) )) (( }IT SEEMS YOU MAY HAVE TO FIX SOME EXTRAORDINARY LONG PARAGRAPHS} => POP )) (( }IN SOMETHING LIKE SETEDIT, BY MANUALLY INSERTING SOME LINESHIFTS,} => POP )) (( }AND THEN TRY THIS ROUTINE AFTER THAT IS DONE. HOPE YOU GET IT RIGHT.} => POP )) (( KEEP-GOING => SETBASIS ; EXIT )) (( ENTERPLS )) (( GOLABEL4: )) (( }IT SEEMS TO HAVE LINES (IE, PARAGRAPHS WITHOUT LINESHIFTS) } => POP )) (( }WITH AN AMOUNT OF CHARACTERS WITHIN (POSSIBLY WELL WITHIN) } => POPS )) (( INPUT-FILE-WIDTH >>> POP )) (( }READ-IN-FILE-TO-CONVERT-ESSENCE} => ? ; INPUT-FILE >>> => FORVPM )) (( INPUT-FILE >>> => FIX-BLANK-LINES-IN-FILE )) (( INPUT-FILE >>> => FIND-MAX-LINE-NUM => POPS )) (( } <================== LINES PRESENTLY IN RAM.} => POP )) (( FUNCURSOR )) )) OK) (( LOOKSTK )) (LET ASK-FOR-NEW-LINE-LENGTH BE (( )) (( (( }=====> WHAT IS THE NEW MAXIMUM LINE LENGTH? [ENTER FOR 50] } => POPS )) (( READLN => HEAL => >N1 )) (( N1 => ISBASIS = 50 >N1 === )) (( N1 ; 4 ; INPUT-FILE-WIDTH >>> => DEC => SET-RANGE => >N1 )) (( N1 OUTPUT-FILE-WIDTH < POPS )) (( OUTPUT-FILE-WIDTH >>> => POP )) )) OK) (( LOOKSTK )) (LET WORDWRAP-NEW-FILE-NAME BE (( )) (( (( }********************************************************} => POP )) (( }* SPECIFY OUTPUT FILE. NB: ANY SAME-NAMED FILE IS OVERWRITTEN!!!} => POP )) (( }*======> PLEASE GIVE FOLDER/FILENAME (WITHOUT .TXT) FOR NEW FILE.} => POP )) (( }*======> NOTE THAT THIS ROUTINE ONLY INSERTS, NOT REMOVES, LINESHIFTS.} => POP )) (( }*======> IT ONLY INSERTS WHERE REAL BLANKS ARE FOUND (EXCEPT WHEN} => POP )) (( }*======> A STRING OF NONBLANK CHARACTERS ARE WIDER THAN MAX WIDTH).} => POP )) (( }*======> NORMALLY, GIVE NEW NAME NEXT UNLESS YOU ARE SURE.} => POP )) (( }*======> [ENTER TO OVERWRITE INPUT FILE] } => POPS )) (( READLN => RMBL => LENGTH => NOZ NOT (MATCHED RM ; INPUT-FILE-NAME VARSTR> MATCHED) )) (( ONE => OUTPUT-FILE-NAME >VARSTR )) (( ; => TOLEN => ISPRO => => )) )) OK) (( LOOKSTK )) (LET ESTIMATE-OUTPUT-FILE-HEIGHT BE (( )) (( (( INPUT-FILE-WIDTH >>> ; 100 => MUL ; OUTPUT-FILE-WIDTH >>> => DIV => >N1 )) (( INPUT-FILE-HEIGHT >>> ; N1 => MUL ; 4 => MUL ; 100 => DIV OUTPUT-FILE-HEIGHT < POP )) (( }* [WIDTH MAX} => POPS )) (( OUTPUT-FILE-WIDTH >>> ( )) (( }, NEW MAX HEIGHT} => POPS )) (( OUTPUT-FILE-HEIGHT >>> => ( )) (( }]} => POP )) (( }[NORMALLY ALLOCATES MUCH MORE THAN ENOUGH.]} => POP )) (( OUTPUT-FILE-WIDTH >>> ; OUTPUT-FILE-HEIGHT >>> ; 20 => ADD => RAM-PM OUTPUT-FILE <N1 )) (( (( OUTPUT-CHAR-NUM => SETDANCE )) (( OUTPUT-LINE-NUM => SETDANCE )) (( OUTPUT-CHAR-NUM-FOR-MOST-RECENT-SPACE => SETBASIS )) )) OK) (LET OUTPUT-NEW-LINE BE (( )) (( (( OUTPUT-CHAR-NUM => SETDANCE )) (( OUTPUT-LINE-NUM => INCVAR )) (( 32 ; OUTPUT-CHAR-NUM >>> ; OUTPUT-LINE-NUM >>> ; # => PM )) )) OK) (LET MOVE-OVER-AFTER-MOST-RECENT-SPACE BE (( )) (( (( OUTPUT-CHAR-NUM-FOR-MOST-RECENT-SPACE >>> >N7 )) (( OUTPUT-FILE-WIDTH >>> >N8 )) (( OUTPUT-LINE-NUM >>> >N9 )) (( N7 => ISPRO (MATCHED (( 0 ; N7 ; N9 => DEC ; # => PM )) (( N8 ; N7 => SUB (COUNT (( N1 ; N9 => ADD ; N11 => DEC ; # => GM ; OUTPUT-CHAR-NUM >>> ; N11 ; # => PM )) (( 0 ; N1 ; N9 => ADD ; N11 => DEC ; # => PM )) (( OUTPUT-CHAR-NUM => INCVAR )) COUNTUP) )) (( }*} => ( )) MATCHED) )) (( OUTPUT-CHAR-NUM-FOR-MOST-RECENT-SPACE => SETBASIS )) )) OK) (LET GIVE-CHAR-TO-OUTPUT BE (( >N1 )) (( (( OUTPUT-CHAR-NUM >>> ; OUTPUT-FILE-WIDTH >>> => INTGREATER (MATCHED (( OUTPUT-NEW-LINE )) (( MOVE-OVER-AFTER-MOST-RECENT-SPACE )) MATCHED) )) (( N1 ; OUTPUT-CHAR-NUM >>> ; OUTPUT-LINE-NUM >>> ; # => PM )) (( N1 ; 32 => EQN (MATCHED (( OUTPUT-CHAR-NUM >>> OUTPUT-CHAR-NUM-FOR-MOST-RECENT-SPACE < INCVAR )) )) OK) (LET ORDINARY-OUTPUT-LINESHIFT BE (( )) (( (( }.} => ( )) (( OUTPUT-NEW-LINE )) (( OUTPUT-CHAR-NUM-FOR-MOST-RECENT-SPACE => SETBASIS )) (( OUTPUT-FILE-HEIGHT >>> ; 10 => SUB ; OUTPUT-LINE-NUM >>> => INTLTOREQUAL (MATCHED (( CRLN )) (( }* ******* THE PARTICULAR CHARACTER } => POP )) (( }OF THIS INPUT FILE} => POP )) (( }IS SUCH THAT, WITH} => POP )) (( }THIS NEW LINE WIDTH, IT SEEMS} => POP )) (( }THAT MASSES OF LINES} => POP )) (( }(TOO MANY) ARE GENERATED.} => POP )) (( }PLEASE LOOK INTO THIS. TKS.} => POP )) (( KEEP-GOING => SETBASIS )) (( EXIT )) MATCHED) )) )) )) OK) (LET DO-THE-WORD-WRAP BE (( )) (( (( }* WORD-WRAP PROCEEDING!} => POP )) (( SOLIDCURSOR )) (( INPUT-FILE >>> & )) (( OUTPUT-FILE >>> & )) (( INIT-OUTPUT-LINE-NUMS )) (( INPUT-FILE-HEIGHT >>> (COUNT INPUT-FILE-WIDTH >>> (COUNT (( N1 ; N3 ; ## => GM => >N5 )) (( N5 => NOZ (MATCHED N5 ; CTRL-I >>> => EQN (MATCHED (( 32 => GIVE-CHAR-TO-OUTPUT )) (( 32 => GIVE-CHAR-TO-OUTPUT )) )(OTHER (( N5 => GIVE-CHAR-TO-OUTPUT )) MATCHED) )(OTHER (( N1 ; 1 => INTGREATER (MATCHED (( ORDINARY-OUTPUT-LINESHIFT )) MATCHED) )) (( RMS ; RMS ; GOFORWARD4 )) MATCHED) )) COUNTUP) (( GOLABEL4: )) COUNTUP) )) (( OUTPUT-NEW-LINE )) (( && && )) (( CRLN )) (( }* DONE THE WORD-WRAP ON SPACES. PLS CHECK RESULT. ***********} => POP )) (( }* ANY TABULATOR CHARACTER WAS CONVERTED TO TWO BLANKS.} => POP )) (( }* HAVE INSERTED SPACE CHARACTER INTO ANY EMPTY LINES ALSO.} => POP )) (( FUNCURSOR )) )) OK) (LET SAVE-THE-FILE BE (( )) (( (( }* WILL SAVE FILE..} => POPS )) (( OUTPUT-FILE-NAME VARSTR> ; }.TXT} => CONCAT ; OUTPUT-FILE >>> => PM2FILE ; RM )) (( }DONE} => POP )) )) OK) (( LOOKSTK )) (LET SAY-THANKS BE (( )) (( (( }*} => POP )) (( }*} => POP )) (( }* PROGRAM DONE.} => POPS ; ENTERPLS )) (( }*} => POP )) (( }*} => POP )) (( }*} => POP )) (( }********************ALWAYS PLEASED TO SERVE YOU!} => POP )) )) OK) (( LOOKSTK )) (LET WORDWRAP-CONVERSION BE (( )) (( (( KEEP-GOING => SETDANCE )) (( WORDWRAP-ASK-FOR-FILE-TO-CONVERT => NOT = EXIT === )) (( READ-IN-WITH-FLEXIBLY-ADJUSTED-LINE-WIDTH )) (( KEEP-GOING => VISBASIS = EXIT === )) (( ASK-FOR-NEW-LINE-LENGTH )) (( ESTIMATE-OUTPUT-FILE-HEIGHT )) (( ALLOCATE-OUTPUT-FILE-SPACE )) (( WORDWRAP-NEW-FILE-NAME => NOT = EXIT === )) (( DO-THE-WORD-WRAP )) (( KEEP-GOING => VISBASIS = EXIT === )) (( SAVE-THE-FILE )) )) OK) (( LOOKSTK )) (LET WORDWRAP BE (( )) (( (( WORDWRAP-CONVERSION )) (( SAY-THANKS )) (( RAM-REFRESH )) )) OK) (LET NAME-GREATER BE (( & ; ; ; ; )) (( (( ; => SWITCH => DEC => SWITCH )) (( ; (COUNT (( (( ONE ; N1 => ADD )) => ONE ; YANTRA ; # => GM => ; SWITCH ; MANTRA ; # => GM => TWO ; ; => INTGREATER (MATCHED (( 5 => SEVERALRM )) (( && ; RMS ; RMS ; N => => )) (( EXIT )) MATCHED) ; ; )) (( ; ; => BRIDGE => INTGREATER (MATCHED (( 4 => SEVERALRM )) (( && ; RMS ; RMS ; Y => => )) (( EXIT )) MATCHED) ; )) (( ; => ISBASIS (MATCHED (( RMS ; RMS )) (( GOFORWARD4 )) MATCHED) )) COUNTUP) )) (( GOLABEL4: )) (( 3 => SEVERALRM )) (( && )) (( N => => )) )) OK) (LET NAME-GTOREQUAL BE (( & ; ; ; ; )) (( (( ; => SWITCH => DEC => SWITCH )) (( ; (COUNT (( (( ONE ; N1 => ADD )) => ONE ; YANTRA ; # => GM => ; SWITCH ; MANTRA ; # => GM => TWO ; ; => INTGREATER (MATCHED (( 5 => SEVERALRM )) (( && ; RMS ; RMS ; N => => )) (( EXIT )) MATCHED) ; ; )) (( ; ; => BRIDGE => INTGREATER (MATCHED (( 4 => SEVERALRM )) (( && ; RMS ; RMS ; Y => => )) (( EXIT )) MATCHED) ; )) (( ; => ISBASIS (MATCHED (( RMS ; RMS )) (( GOFORWARD4 )) MATCHED) )) COUNTUP) )) (( GOLABEL4: )) (( 3 => SEVERALRM )) (( && )) (( Y => => )) )) OK) (LET NAME-EQUAL BE (( & ; ; ; ; )) (( (( ; => SWITCH => DEC => SWITCH )) (( ; (COUNT (( (( ONE ; N1 => ADD )) => ONE ; MANTRA ; # => GM => ONE ; ; ANGEL ; MANTRA ; # => GM => NOT_INTEQUAL (MATCHED (( 4 => SEVERALRM )) (( && ; RMS ; RMS ; N => => )) (( EXIT )) MATCHED) ; )) (( ; => ISBASIS (MATCHED (( RMS ; RMS )) (( GOFORWARD4 )) MATCHED) )) COUNTUP) )) (( GOLABEL4: )) (( 3 => SEVERALRM )) (( && )) (( Y => => )) )) OK) ((DATA MINUTES-TIMING-BY-INTERACTOR )) ((DATA SESSION-START )) ((DATA PC-CLOCK-MINUTES-FACTOR 1092 PC-CLOCK-MINUTES-FACTOR < POP )) (( }IS SOME VARIATION FOR SOME REASON, THIS IS A WAY TO TUNE THE} => POP )) (( }VARIABLE IN THE PROGRAM CALLED PC-CLOCK-MINUTES-FACTOR.} => POP )) (( }PLEASE PRESS ENTER, AND, AFTER 60 SECONDS, PRESS ENTER AGAIN.} => POPS )) (( READLN ; RM )) (( TICKS => >N1 )) (( READLN ; RM )) (( TICKS => >N2 )) (( N2 ; N1 => SUB PC-CLOCK-MINUTES-FACTOR < POPS )) (( PC-CLOCK-MINUTES-FACTOR >>> POPS )) (( }BY THIS.} => POP )) )) OK) (LET MINIMUM-ZERO BE (( ; )) (( (( ONE ; ISSIGNED => (MATCHED RM ; 0 MATCHED) )) )) OK) (LET PC-CLOCK-MINUTES BE (( )) (( (( TICKS ; PC-CLOCK-MINUTES-FACTOR >>> DIV => => )) )) OK) (LET INIT-TIMER BE (( )) (( (( PC-CLOCK-MINUTES SESSION-START <>> SUB ; MINIMUM-ZERO => => )) )) OK) (LET MINUTES-TO-DISPLAY BE (( ; )) (( (( ; 60 => MOD => => )) )) OK) (LET MINUTES-TO-HOURS BE (( ; )) (( (( ; 60 => DIV => => )) )) OK) (LET TWO-NUMBERS-NN-MM BE (( >N2 >N1 )) (( (( N1 => LENGTH ; 1 => EQN (MATCHED (( }0} ; SWITCH => CONCAT )) MATCHED) )) (( N2 => LENGTH ; 1 => EQN (MATCHED (( }0} ; SWITCH => CONCAT )) MATCHED) )) (( ; ; }:} => SWITCH => CONCAT CONCAT => => )) )) OK) (LET NICE-BIRDS BE (( )) (( (( ^777 FR GETV ; 250 => ADD => TONE )) (( ^22 FR GETV ; 11 => ADD => GOODPAUSE )) (( 0 => TONE )) )) OK) (LET GOOD-CHIRP BE (( )) (( (( 14 (COUNT (( NICE-BIRDS )) COUNTUP) )) )) OK) (LET GOOD-CHIRP-UNTIL-TOUCH BE (( )) (( (( GOLABEL4: (( GOOD-CHIRP )) (( KEYTOUCH = CLEAR_KEYBUF ; EXIT === )) (( 1000 ; ^240 FR GETV ADD => GOODPAUSE )) (( GOUP4 )) )) )) OK) (LET NEW-HIGH-POSITION BE (( )) (( (( ^14 FR GETV => ONE HIGH-POSITION-X < ONE HIGH-POSITION-Y < GOTOXY )) )) OK) (LET NEXT-LINE-HIGH-POSITION BE (( )) (( (( HIGH-POSITION-X >>> ; HIGH-POSITION-Y >>> INC => GOTOXY )) )) OK) (LET NICE-WAIT-CURSOR BE (( )) (( (( '175' => ( )) (( '8' => ( )) )) OK) (LET HOURS-AND-MINUTES BE (( )) (( (( GET-MINUTES ; ONE => MINUTES-TO-HOURS ; SWITCH => MINUTES-TO-DISPLAY => => )) )) OK) (LET SINCE-STARTED BE (( )) (( (( HOURS-AND-MINUTES => TWO-NUMBERS-NN-MM )) )) OK) (LET UNTIL-CHIRP BE (( )) (( (( MINUTES-TIMING-BY-INTERACTOR >>> ; GET-MINUTES => SUB => MINIMUM-ZERO => ONE => MINUTES-TO-HOURS ; SWITCH => MINUTES-TO-DISPLAY => TWO-NUMBERS-NN-MM => => )) )) OK) (LET UNTIL-CHIRP-SOON BE (( )) (( (( MINUTES-TIMING-BY-INTERACTOR >>> ; GET-MINUTES => INC => SUB => MINIMUM-ZERO => ONE => MINUTES-TO-HOURS ; SWITCH => MINUTES-TO-DISPLAY => TWO-NUMBERS-NN-MM )) (( }00:00} => TEQ = }>>1<<} === )) (( => => )) )) OK) (LET INTERESTING-COLORS BE (( )) (( (( ^14 FR GETV => >N4 )) (( N4 ; 3 => EQN = 6 >N4 === )) (( N4 ; 4 => EQN = 5 >N4 === )) (( N4 ; 7 => EQN = 2 >N4 === )) (( N4 ; 8 => EQN = 6 >N4 === )) (( N4 ; 11 => EQN = 5 >N4 === )) (( N4 => TEXTCOLOR )) (( CLS )) )) OK) (LET VERY-GOOD-TIMING BE (( )) (( (( INIT-TIMER )) (( GOLABEL4: (( UNTIL-CHIRP ; }00:00} => EQ (MATCHED GOOD-CHIRP-UNTIL-TOUCH ; EXIT MATCHED) )) (( INTERESTING-COLORS )) (( NEW-HIGH-POSITION )) (( }VERY GOOD TIMER REPORTS: } => POPS )) (( SINCE-STARTED => POPS )) (( }SINCE STARTED..} => POPS )) (( NEXT-LINE-HIGH-POSITION )) (( } } => POPS )) (( UNTIL-CHIRP-SOON => ( )) (( }, AS HOURS:MINUTES, UNTIL CHIRP WILL SOUND} => POPS )) (( NEXT-LINE-HIGH-POSITION )) (( NICE-WAIT-CURSOR )) (( 3700 ; ^78 FR GETV => ADD => GOODPAUSE )) (( KEYTOUCH (MATCHED (( KEYNUM ; KEY-ESC >>> => EQN (MATCHED (( CLEAR_KEYBUF )) (( EXIT )) MATCHED) MATCHED) )) (( GOUP4 )) )) )) OK) (LET COMPLETING-MESSAGE BE (( )) (( (( FUNCURSOR )) (( DARKER ; CLS )) (( }TIME 10:00 AM} => LISACODE )) (( INIT-TIMER )) (( CLS )) (( } WELCOME TO COMPLETED GOOD TIMING AND REJUVENATION!!! ***} ; '10' => CONCAT ; 12 => SEVERAL( )) (( CRLN CRLN CRLN )) (( } FOR ADDITIONAL USE RIGHT NOW, TYPE TIMING} => POP )) (( } OTHERWISE, PLEASE TYPE RAM-REFRESH} => POP )) (( CRLN CRLN CRLN )) (( 30 => SPACES ; } HAVE A NICE DAY!} => POP )) (( CRLN CRLN )) )) OK) (LET TIMING BE (( )) (( (( DARKER )) (( }TIME 10:00 AM} => LISACODE )) (( }DATE 04-10-2006} => LISACODE )) (( FUNCURSOR )) (( CLS )) (( }************************* TIMING.TXT -- HONORING ALWAYS GOOD TIMING} => SPOP )) (( }**************** A PROGRAM BY ARISTO TACOMA} => SPOP )) (( }******* WRITTEN IN LISA PROGRAMMING LANGUAGE} => SPOP )) (( }HI! YOU ARE ASKED TO ENTER HOURS FIRST, THEN MINUTES.} => SPOP )) (( }THE TIMING COUNTS FROM THIS MOMENT AND UP TO TWELVE HOURS.} => SPOP )) (( }(THE PC HAS ITS NORMAL BOEHMIAN DATE AND TIME RESET.)} => SPOP )) (( }THE TIMING IS A P P R O X I M A T E . YOU'LL SEE >>1<< WHEN} => SPOP )) (( }THE GOOD PC-SPEAKER SOUND IS SOON UPCOMING. } => SPOP )) (( }THE PROGRAM IS SUITABLE FOR INTERVALS OF, SAY, AN HOUR OR TEN.} => SPOP )) (( }IT CAN CERTAINLY WELL BE FOR YOUR SLEEP-CYCLES, AND THE PC-SPEAKER} => SPOP )) (( }SOUND AS HERE PROGRAMMED SOUNDS GOOD ON MOST PC'S BUT CHANGE IF YOU} => SPOP )) (( }LIKE. IF YOU HAVE TO CATCH THE TRAIN, PLEASE USE ADDITIONAL TIMERS.} => SPOP )) (( }TEST THE PROGRAM AT THE HARDWARE YOU RUN IT ON FIRST, RELATIVE} => SPOP )) (( }TO A GOOD WATCH. YOU CAN TUNE THE VARIABLE FOR EACH PC} => SPOP )) (( }BY TYPING TUNE-TIMER AFTER PROGRAM HAS PERFORMED,} => SPOP )) (( }-- AND, IF CASE, UPDATE THE NUMBER IN TIMER.TXT WITH A COMMENT.} => SPOP )) (( }THIS PROGRAM USES THE TEXT MODE SO THE PC OR PC LAPTOP} => SPOP )) (( }WILL MORE EASILY KEEP COOL, AS GRAPHICS DEMANDS MORE ELECTRICITY.} => SPOP )) (( }BE READY TO PRESS THE ESC KEY TO SIGNAL EXIT FROM THE PROGRAM, TKS.} => SPOP )) (( }THIS IS THE CHIRP WHICH WILL SOUND (ENTER TO START, ESC TO STOP)} => SPOP )) (( }ENTER, PLS: ==================>} => SPOPS )) (( READLN ; RM )) (( SOLIDCURSOR )) (( CLS ; CRLN ; }HERE IS THE SOUND SAMPLE!} => SPOPS )) (( GOOD-CHIRP-UNTIL-TOUCH )) (( CLS )) (( FUNCURSOR )) (( CRLN )) (( }RIGHT HO, THEN.} => SPOP )) (( CRLN )) (( }AMOUNT OF HOURS, 0..12, UNTIL CHIRP GOES ON?} => SPOPS )) (( READLN => HEAL ; 0 ; 12 => SET-RANGE ; } REGISTERED HOURS: } ; BRIDGE => CONCAT => SPOP ; 60 MUL ; )) (( }THE MINUTE TIMER SHOULD BE EXACT WITHIN A MINUTE,} => SPOP )) (( }FOR A NORMAL PC AS IN THE STANDARD} => SPOP )) (( }DEFINITION. THE INITIAL PC CLOCK SECOND COUNTER IS} => SPOP )) (( }DETERMINING HOW QUICKLY THE FIRST MINUTE WILL PASS,} => SPOP )) (( }AND FROM THEREON, IT SHOULD BE FAIRLY ACCURATE.} => SPOP )) (( }AMOUNT OF MINUTES, 0..59, IN ADDITION?} => SPOPS )) (( READLN => HEAL 0 ; 59 => SET-RANGE ; } REGISTERED MINUTES: } ; BRIDGE => CONCAT => SPOP )) (( ; => ADD MINUTES-TIMING-BY-INTERACTOR < SPOP )) (( CRLN )) (( }PRESS ENTER TO START IT GOING (AS SAID, ESC WILL EXIT IT).} => SPOPS )) (( READLN ; RM )) (( VERY-GOOD-TIMING )) (( CLS )) (( COMPLETING-MESSAGE )) (( VARSTK ; LOOKSTK )) )) OK) (( LOOKSTK )) (LET PC-GREEN BE (( )) (( (( 255 (COUNT (( ^0 ; ^255 ; ^0 ; N1 >>V => WRITEPAL )) COUNTUP) )) (( ^0 ; ^0 ; ^0 ; ^0 => WRITEPAL )) (( ^0 ; ^0 ; ^0 ; ^64 => WRITEPAL )) (( ^0 ; ^255 ; ^0 ; ^255 => WRITEPAL )) (( PUTPAL )) )) OK) (LET PARALLEL-BANDS BE (( )) (( (( 1 >N1 ; 1 >N2 )) (( GOLABEL4: )) (( 1 ; N1 ; 1024 ; N1 ; N2 => LINE )) (( INCN1 ; 1 ; N1 ; 1024 ; N1 ; N2 => LINE )) (( INCN1 ; 1 ; N1 ; 1024 ; N1 ; N2 => LINE )) (( INCN1 ; 1 ; N1 ; 1024 ; N1 ; N2 => LINE )) (( N2 ; 191 => INTGREATER (MATCHED 1 >N2 MATCHED) )) (( N1 ; 767 => INTGREATER (MATCHED EXIT MATCHED) (( INCN1 ; INCN2 )) (( GOUP4 )) )) OK) ((DATA PALETTE-FACTOR )) (LET PALETTE-SMOOTH BE (( )) (( (( 64 (COUNT (( PALETTE-FACTOR >>> ; N1 => ADD => >N6 )) (( ^0 ; (( N6 ; 6 => DIV => >>V )) ; ^0 ; (( N1 => >>V )) => WRITEPAL )) (( ^0 ; (( N6 ; 8 => MUL ; 10 => DIV => >>V )) ; ^0 ; (( N1 ; 64 => ADD => >>V )) => WRITEPAL )) (( ^0 ; (( N1 ; 128 => ADD => >>V )) ; ^0 ; (( N1 ; 128 => ADD => >>V )) => WRITEPAL )) COUNTUP) )) (( PUTPAL )) )) OK) (LET PC-BNW BE (( )) (( (( 255 (COUNT (( ^0 ; ^0 ; ^0 ; N1 >>V => WRITEPAL )) COUNTUP) )) (( ^255 ; ^255 ; ^255 ; ^0 => WRITEPAL )) (( ^255 ; ^255 ; ^255 ; ^64 => WRITEPAL )) (( PUTPAL )) )) OK) (LET FRESH-CONTENT BE (( )) (( (( PARALLEL-BANDS )) (( PALETTE-FACTOR => SETDANCE )) (( GOLABEL4: )) (( PALETTE-SMOOTH )) (( PALETTE-FACTOR => INCVAR )) (( } INTUITION HAPPINESS WHOLENESS } => FREE-XY-POP )) (( } EXCELLENCE QUALITY SUCCESS RESPECT } => FREE-XY-POP )) (( } LOVE BEAUTY HEALING HEALTH } => FREE-XY-POP )) (( } JOY INSIGHT LOGICS INFINITY } => FREE-XY-POP )) (( } AFFLUENCE BISEXUAL RICH } => FREE-XY-POP )) (( } CLARITY GOODNESS GOOD FORCE } => FREE-XY-POP )) (( } FRESHNESS FAME BEAUTY } => FREE-XY-POP )) (( } REJUVENATION YOUTH YOUNG } => FREE-XY-POP )) (( } TANTRIC ECSTASY NIRVANA } => FREE-XY-POP )) (( } SEX COPULATION FREEDOM } => FREE-XY-POP )) (( } COMPASSION EMPATHY LOVING } => FREE-XY-POP )) (( } MEDITATION INTELLIGENCE OF LOVE } => FREE-XY-POP )) (( } SKYSCRAPER OF AFFIRMATIONS } ; 1 ; 1 => XY-POP )) (( PALETTE-FACTOR >>> => ONE ; 127 => INTGREATER ; SWITCH ISBASIS => ORR (MATCHED (( ^2 => FR => GETV => ISDANCE = PALETTE-FACTOR => SETDANCE == -127 PALETTE-FACTOR < GOODPAUSE )) (( KEYTOUCH NOT = GOUP4 === )) )) OK) (LET FRESH BE (( )) (( (( START-GRAPHICS )) (( GJ-COLORS )) (( FRESH-CONTENT )) (( DONE-GRAPHICS )) (( RAM-REFRESH )) )) OK) (LET PRINT-TO-FILE BE (( )) (( (( PC-BNW )) (( COPY-SCREEN )) (( PC-GREEN )) )) OK) (LET PING BE (( (( START-GRAPHICS )) (( GJ-COLORS )) (( FRESH-CONTENT )) (( GJ-COLORS )) (( FLIPPER )) (( DONE-GRAPHICS )) (( RAM-REFRESH )) OK) (LET FLAGFLIP BE (( ; )) (( (( ; => ONEV => VISBASIS (MATCHED ; => SETDANCE )(OTHER ; => SETBASIS MATCHED) )) )) OK) (LET SPRING BE (( )) (( (( START-GRAPHICS )) (( GJ-COLORS )) (( CLS )) (( GOLABEL4: )) (( ^0 ; ^255 FR ; ^0 ; ^0 => WRITEPAL )) (( 3 => SECS )) (( PUTPAL )) (( UNTIL-TOUCHING = GOUP4 === )) (( DONE-GRAPHICS )) (( RAM-REFRESH )) )) OK) (LET TEXT-CLR-KEY BE (( )) (( (( KEYNUM => ISBASIS (MATCHED (( KEYNUM => RM )) MATCHED) )) (( CLEAR_KEYBUF )) )) OK) (LET MAKE-SAFE-8-SIZE-FILENAME (( ; )) (( (( ; => UPCM => TOSTANDARDSPACE => RMBL => FILTERSPECCHARS => REMOVEDOT ; 8 => SETMAXLEN => LENGTH => ISBASIS (MATCHED (( RM )) (( }DOC-NAME} )) MATCHED) )) (( ; => => )) )) OK) (LET INCREASE-VAR-IF-THIS-IS-HIGHER BE (( ; ; )) (( (( ; ; => SWITCHV => TWOV )) (( ; ; => IS ; IS => INTGREATER (MATCHED (( ; ; => IS < SETBASIS )) ((DATA B9-SHOULD-LOAD-FONT-ON-STARTUP B9-SHOULD-LOAD-FONT-ON-STARTUP => SETDANCE )) ((DATA B9-HAS-LOADED-FONT B9-HAS-LOADED-FONT => SETBASIS )) (( VARSTRING B9-FONT }B9FONT.TXT} ; B9-FONT => >VARSTR )) ((DATA B9-POP-CHN-HOUSE B9-POP-CHN-HOUSE => SETBASIS )) ((DATA FILE-SHOULD-BE-STORED )) ((DATA FONT-EDIT-ASCII-NUMBER )) ((DATA THEFONT THEFONT => SETBASIS )) ((DATA BACKUPFONT BACKUPFONT => SETBASIS )) ((DATA B9-FONT-Y B9-FONT-Y => SETDANCE )) ((DATA B9-FONT-X B9-FONT-X => SETDANCE )) ((DATA B9-FONT-WIDTH 12 B9-FONT-WIDTH < SETDANCE )) ((DATA B9-POP-BG B9-POP-BG => SETBASIS )) (LET B9-EXTRA-INIT-VARS BE (( )) (( (( THEFONT => VISBASIS (MATCHED (( 2512 ; 111 => RAM-PM THEFONT <>> => CLEAR-MATRIX )) MATCHED) )) (( BACKUPFONT => VISBASIS (MATCHED (( 2512 ; 111 => RAM-PM BACKUPFONT <>> => CLEAR-MATRIX )) MATCHED) )) (( FILE-SHOULD-BE-STORED => SETBASIS )) (( B9-SHOULD-LOAD-FONT-ON-STARTUP => VISDANCE (MATCHED (( B9-FONT => VARSTR> ; THEFONT >>> => FILENUM2PM => ISDANCE (MATCHED (( B9-HAS-LOADED-FONT => SETDANCE )) )(OTHER (( THEFONT >>> => CLEAR-MATRIX )) MATCHED) )) (( }FONTB9.TXT} ; BACKUPFONT >>> => FILENUM2PM ; RM )) MATCHED) )) )) OK) (LET B9-FONT-START BE (( ; ; )) (( (( ; 5 => SUB B9-FONT-Y < SUB B9-FONT-X <>> ; V2 50 MOD => ADD ; B9-FONT-Y >>> ; V2 50 DIV => ADD ; B9-FONT-CURRENT-COLOR >>> => PUTPIXEL )) )) OK) (( }B9-POP-CHN-ESSENCE} => ? B9-POP-CHN-HOUSE <N1 )) (( (( N1 ; 5 => EQN (MATCHED (( B9-FONT-X >>> 14 ADD ; B9-FONT-Y >>> 6 ADD ; BRIDGE B9-FONT-WIDTH >>> => ADD 21 ADD ; BRIDGE B9-FONT-HEIGHT >>> => ADD INC8 ; B9-POP-BG >>> => RECTFILL )) )(OTHER (( VLOTS )) (( 1 => TOV2 )) (( N1 => TOV3 )) (( N1 => TOV4 )) (( VFREE )) (( B9-POP-CHN-HOUSE >>> ; THEFONT >>> => FORVPM2 )) MATCHED) )) (( B9-FONT-WIDTH >>> ; B9-FONT-X => ADDVAR )) )) OK) (LET B9-POP BE (( >N5 >N4 LENGTH >N8 )) (( (( N4 ; N5 => B9-FONT-START )) (( N8 (COUNT (( ; N1 => CHN => B9-POP-CHN )) COUNTUP) )) (( RM )) )) OK) (LET SEVERAL-B9-POP (( >N7 >N6 >N5 ; )) (( (( N5 (COUNT (( ; => ONE ; )) (( ; (( N8 ; (( N1 => DEC ; B9-FONT-WIDTH >>> => MUL )) => ADD )) ; N9 => B9-POP )) COUNTUP) ; RM )) )) OK) ((DATA B9-PRPOP-CHN-HOUSE B9-PRPOP-CHN-HOUSE => SETBASIS )) ((DATA B9-PRFONT-Y B9-PRFONT-Y => SETDANCE )) ((DATA B9-PRFONT-X B9-PRFONT-X => SETDANCE )) (LET B9-PRFONT-START BE (( ; ; )) (( (( ; 5 => SUB B9-PRFONT-Y < SUB B9-PRFONT-X <>> ; V2 50 MOD => ADD ; B9-PRFONT-Y >>> ; V2 50 DIV => ADD ; B9-FONT-CURRENT-COLOR >>> => PUTPIXEL )) )) OK) (( }B9-PRPOP-CHN-ESSENCE} => ? B9-PRPOP-CHN-HOUSE <N1 )) (( (( N1 ; 5 => EQN (MATCHED (( B9-PRFONT-X >>> 14 ADD ; B9-PRFONT-Y >>> 6 ADD ; BRIDGE B9-FONT-WIDTH >>> => ADD 21 ADD ; BRIDGE B9-FONT-HEIGHT >>> => ADD INC8 ; B9-POP-BG >>> => RECTFILL )) )(OTHER (( VLOTS )) (( 1 => TOV2 )) (( N1 => TOV3 )) (( N1 => TOV4 )) (( VFREE )) (( B9-PRPOP-CHN-HOUSE >>> ; THEFONT >>> => FORVPM2 )) MATCHED) )) (( B9-FONT-WIDTH >>> ; B9-PRFONT-X => ADDVAR )) )) OK) (LET B9-PRPOP BE (( >N5 >N4 LENGTH >N8 )) (( (( N4 ; N5 => B9-PRFONT-START )) (( N8 (COUNT (( ; N1 => CHN => B9-PRPOP-CHN )) COUNTUP) )) (( RM )) )) OK) (LET SEVERAL-B9-PRPOP (( >N7 >N6 >N5 ; )) (( (( N5 (COUNT (( ; => ONE ; )) (( ; (( N8 ; (( N1 => DEC ; B9-FONT-WIDTH >>> => MUL )) => ADD )) ; N9 => B9-PRPOP )) COUNTUP) ; RM )) )) OK) (LET BACKUPFONTWRITE BE (( ; ; ; )) (( (( BACKUPFONT => VISBASIS => NOT (MATCHED (( THEFONT >>> => & )) (( BACKUPFONT >>> THEFONT < B9-POP )) (( # THEFONT < B9-POP )) MATCHED) )) )) OK) (( LOOKSTK )) (LET REMAKE-FONT-EDIT-FIELD-LINES BE (( )) (( (( FT )) (( 300 ; 100 ; 300 ; 500 ; 1 ; 2 => DOTTED_RECT )) (( 100 ; 300 ; 500 ; 300 ; 1 ; 2 => DOTTED_RECT )) (( FEET )) )) OK) (LET CLEAR-FONT-EDIT-FIELD BE (( )) (( (( THEFONT >>> => & )) (( FONT-EDIT-ASCII-NUMBER >>> -27 => ADD ; # => %GET => %EMPTY )) (( 600 ; 200 ; 650 ; 250 ; 2 => FT RECTFILL FEET )) (( 700 ; 200 ; 750 ; 250 ; 0 => FT RECTFILL FEET )) (( 100 ; 100 ; 500 ; 500 ; 5 => FT RECTFILL FEET )) (( REMAKE-FONT-EDIT-FIELD-LINES )) (( && )) )) OK) (LET REDISPLAY-FONT-EDIT-FIELD-ETC BE (( )) (( (( THEFONT >>> => & )) (( 600 ; 200 ; 650 ; 250 ; 2 => FT RECTFILL FEET )) (( 700 ; 200 ; 750 ; 250 ; 0 => FT RECTFILL FEET )) (( 100 ; 100 ; 500 ; 500 ; 5 => FT RECTFILL FEET )) (( REMAKE-FONT-EDIT-FIELD-LINES )) (( FT )) (( }current ascii-number: } ; 100 ; 670 => BACKUPFONTWRITE )) (( } } ; 350 ; 670 => LUCIDWRITE )) (( FONT-EDIT-ASCII-NUMBER >>> ; 350 ; 670 => BACKUPFONTWRITE )) (( } ( e.g. } ; FONT-EDIT-ASCII-NUMBER >>> => ASCII => CONCAT ; } )} => CONCAT ; 400 ; 670 => BACKUPFONTWRITE )) (( }space to clr one; r-click / l-click (up) the ascii outside of field} ; 100 ; 700 => BACKUPFONTWRITE )) (( }Will ALWAYS save when [ESC] is pressed. Backup your B9FONT first!!!!} 100 ; 730 => BACKUPFONTWRITE )) (( FEET )) (( FONT-EDIT-ASCII-NUMBER >>> -27 ADD ; # => %GET => & )) (( 2500 (COUNT (( N1 ; # => %GET => ISDANCE (MATCHED (( N1 50 MOD => >N5 )) (( N1 50 DIV => >N6 )) (( FT )) (( N5 600 ADD ; N6 200 ADD ; 1 => PUTPIXEL )) (( N5 700 ADD ; N6 200 ADD ; 1 => PUTPIXEL )) (( N5 MUL8 100 ADD ; N6 MUL8 100 ADD ; BRIDGE 7 ADD ; BRIDGE 7 ADD ; 1 => RECTFILL )) (( FEET )) MATCHED) )) COUNTUP) )) (( && )) (( && )) )) OK) (LET FONT-EDIT-SAVE BE (( )) (( (( THEFONT >>> => & )) (( B9-FONT => VARSTR> ; # => PM2FILENUM ; RM )) (( && )) )) OK) (LET B9-FONT-EDIT BE (( )) (( (( THEFONT >>> => & )) (( 97 FONT-EDIT-ASCII-NUMBER < DEC DEC UP-TO-EVEN8 >N2 DEC DEC UP-TO-EVEN8 >N1 )) (( MMOTION => Y-TO-1 => >N8 )) (( MOUSECLICK => Y-TO-1 => >N9 )) (( MOUSECLICKR => Y-TO-1 => >N10 )) (( N1 ; 106 ; 494 => WITH ; N2 ; 106 ; 494 => WITH => AND (MATCHED (( N1 ; 100 => SUB => DIV8 => >N3 )) (( N2 ; 100 => SUB => DIV8 => >N4 )) (( N9 => ISDANCE (MATCHED (( N3 600 ADD ; N4 200 ADD ; 1 => FT PUTPIXEL FEET )) (( N3 700 ADD ; N4 200 ADD ; 1 => FT PUTPIXEL FEET )) (( REMAKE-FONT-EDIT-FIELD-LINES )) (( N3 ; N4 50 MUL => ADD => >N10 )) (( 1 ; N10 ; FONT-EDIT-ASCII-NUMBER >>> -27 ADD ; # => PM )) (( N10 50 MOD MUL8 100 ADD ; N10 50 DIV MUL8 100 ADD ; BRIDGE 7 ADD ; BRIDGE 7 ADD ; 1 => FT RECTFILL FEET )) )(OTHER (( N10 => ISDANCE = (( N3 600 ADD ; N4 200 ADD ; 2 => FT PUTPIXEL FEET )) (( N3 700 ADD ; N4 200 ADD ; 0 => FT PUTPIXEL FEET )) (( REMAKE-FONT-EDIT-FIELD-LINES )) (( N3 ; N4 50 MUL => ADD => >N10 )) (( 0 ; N10 ; FONT-EDIT-ASCII-NUMBER >>> -27 ADD ; # => PM )) (( N10 50 MOD MUL8 100 ADD ; N10 50 DIV MUL8 100 ADD ; BRIDGE 7 ADD ; BRIDGE 7 ADD ; 5 => FT RECTFILL FEET )) === )) MATCHED) )) )(OTHER (( N9 => ISDANCE (MATCHED (( FONT-EDIT-ASCII-NUMBER => >>> => INC ; 32 ; 126 => SET-RANGE FONT-EDIT-ASCII-NUMBER < GOODPAUSE )) )(OTHER (( N10 => ISDANCE (MATCHED (( FONT-EDIT-ASCII-NUMBER => >>> => DEC ; 32 ; 126 => SET-RANGE FONT-EDIT-ASCII-NUMBER < GOODPAUSE )) MATCHED) )) MATCHED) )) MATCHED) )) (( KEYTOUCH = (( KEYNUM => >N11 )) (( 32 ; N11 => EQN = CLEAR-FONT-EDIT-FIELD == 27 ; N11 => EQN = GOFORWARD4 === === )) === )) (( GOUP1 )) (( GOLABEL4: )) (( CLEAR_KEYBUF )) (( FONT-EDIT-SAVE )) (( && )) )) OK) (( LOOKSTK )) (LET MOREFONT BE (( )) (( (( B9-EXTRA-INIT-VARS )) (( START-GRAPHICS )) (( GJ-COLORS )) (( }Welcome to MOREFONT!} ; 200 ; 280 => B9-POP )) (( 1 => SECS )) (( CLS )) (( B9-FONT-EDIT )) (( GOLABEL4: )) (( DONE-GRAPHICS )) (( RAM-REFRESH )) )) OK) (( VARSTRING IS-ANYTHING-ON-MAIN-STACK-DATA )) (LET IS-ANYTHING-ON-MAIN-STACK BE (( )) (( (( 0 => & )) (( ; ONE => IS-ANYTHING-ON-MAIN-STACK-DATA => >VARSTR )) (( # => ISBASIS (MATCHED (( && )) (( Y => => )) )(OTHER (( && ; && )) (( N => => )) MATCHED) )) )) OK) ((DATA FILTER-NON7ASCII-CHARS-HOUSE )) (LET FILTER-NON7ASCII-CHARS-ESSENCE BE (( )) (( (( 32 ; V11 => INTGREATER (MATCHED (( 42 => TOV11 )) )(OTHER (( V11 ; 126 => INTGREATER (MATCHED (( 42 => TOV11 )) MATCHED) )) MATCHED) )) )) OK) (( }FILTER-NON7ASCII-CHARS-ESSENCE} => ? FILTER-NON7ASCII-CHARS-HOUSE <N1 )) (( (( VLOTS )) (( 1 => TOV2 )) (( 1 => TOV3 )) (( N1 => TOV4 )) (( VFREE )) (( FILTER-NON7ASCII-CHARS-HOUSE >>> ; # => FORVPM2 )) (( && )) )) OK) (LET MANUAL-CLEAR-KEYBUF BE (( )) (( (( GOLABEL4: )) (( KEYTOUCH (MATCHED (( KEYNUM => ISBASIS (MATCHED (( KEYNUM ; RM )) MATCHED) )) (( GOUP4 )) MATCHED) )) )) OK) (LET ENSURE-BYTE-RANGE-ESSENCE BE (( )) (( (( V11 => ISPRO (MATCHED (( V11 ; 255 => INTGREATER (MATCHED (( 255 => TOV11 )) MATCHED) )(OTHER (( 0 => TOV11 )) MATCHED) )) OK) ((DATA ENSURE-BYTE-RANGE-HOUSE }ENSURE-BYTE-RANGE-ESSENCE} => ? ENSURE-BYTE-RANGE-HOUSE <>> ; # => FORVPM )) (( && )) )) OK) (LET BMPTXT>GJP BE (( ; )) (( (( ; => TOSTANDARDSPACE RMBL => UPCM => LENGTH => ISBASIS = RM EXIT === )) (( ; => ONE ; }.TXT} => CONCAT => ALREADYFILE => NOT => = RM ; EXIT === )) (( ; ONE => GET-SMART-PAINTING => & )) (( # => ISBASIS = && ; EXIT === )) (( # => ENSURE-BYTE-RANGE )) (( ; }.GJP} => CONCAT ; # => PM2GJPFILE ; RM )) (( # => RELEASE-MATRIX )) (( && )) )) OK) (( VARSTRING B9-READLN-LINE )) (LET B9-NEW-INIT-VARS BE (( )) (( (( 85 => MAKEBL ; B9-READLN-LINE => >VARSTR )) )) OK) (LET GJ-ON BE (( )) (( (( START-GRAPHICS )) (( SAVE-SCREEN => SETDANCE )) (( B9-EXTRA-INIT-VARS )) (( B9-NEW-INIT-VARS )) (( 100 => GOODPAUSE )) (( GJ-COLORS )) (( 50 => GOODPAUSE )) (( CLS ; FT )) )) OK) (LET GJ-DONE BE (( )) (( (( DONE-GRAPHICS )) (( LIGHTER )) (( 180 => GOODPAUSE )) (( RAM-REFRESH )) )) OK) (LET SMART-ON (( DEC >N2 DEC >N1 ; )) (( (( ; => RMBL => UPCM => LENGTH => ISBASIS = RM EXIT === )) (( 210 ; 210 => RAM-PM => & )) (( ; }.TXT} => CONCAT ; # => FILENUM2PM => ISDANCE (MATCHED (( N1 200 MUL INC ; N2 200 MUL INC ; # => LISA-PAINT )) MATCHED) )) (( # => RELEASE-MATRIX )) (( && )) )) OK) (( LOOKSTK )) (LET TEXT-MARKER-B9 BE (( )) (( (( B9-FONT-X >>> 14 ADD ; B9-FONT-Y >>> 6 ADD ; BRIDGE B9-FONT-WIDTH >>> => ADD ; BRIDGE B9-FONT-HEIGHT >>> => ADD ; B9-FONT-CURRENT-COLOR >>> => RECTFILL )) )) OK) (LET UN-TEXT-MARKER-B9 BE (( )) (( (( B9-FONT-X >>> 14 ADD ; B9-FONT-Y >>> 6 ADD ; BRIDGE B9-FONT-WIDTH >>> => ADD ; BRIDGE B9-FONT-HEIGHT >>> => ADD ; B9-POP-BG >>> => RECTFILL )) )) OK) (( LOOKSTK )) (LET B9-READLN BE (( >N3 >N2 >N1 )) (( (( FT )) (( 85 => MAKEBL ; B9-READLN-LINE => >VARSTR )) (( N2 ; N3 => B9-FONT-START )) (( 0 => >N4 )) (( GOLABEL1: )) (( TEXT-MARKER-B9 )) (( KEYNUM => >N8 )) (( UN-TEXT-MARKER-B9 )) (( N8 ; KEY-ENTER >>> => EQN = GOFORWARD4 === )) (( N8 ; 32 ; 126 => WITH (MATCHED (( N1 ; N4 => INTGREATER (MATCHED (( INCN4 )) )(OTHER (( B9-FONT-WIDTH >>> => SG ; B9-FONT-X => ADDVAR )) (( 32 => B9-POP-CHN )) (( B9-FONT-WIDTH >>> => SG ; B9-FONT-X => ADDVAR )) MATCHED) (( N8 => B9-POP-CHN )) (( N8 ; N4 ; B9-READLN-LINE => VARSTR-TOCHN )) )(OTHER (( (( N8 ; 8 => EQN )) (( N4 => NOZ )) => AND (MATCHED (( B9-FONT-WIDTH >>> => SG ; B9-FONT-X => ADDVAR )) (( 32 => B9-POP-CHN )) (( B9-FONT-WIDTH >>> => SG ; B9-FONT-X => ADDVAR )) (( TEXT-MARKER-B9 )) (( DECN4 )) MATCHED) )) MATCHED) )) (( GOUP1 )) (( GOLABEL4: )) (( N4 ; B9-READLN-LINE => VARSTR-SETLEN )) (( B9-READLN-LINE => VARSTR> => => )) )) OK) (LET B9-YNIN BE (( >N5 >N4 )) (( (( } [ENTER for YES] } => N4 N5 B9-POP )) (( 20 N4 300 ADD N5 B9-READLN => YESORENTER => => )) )) OK) (LET B9-ENTERPLS BE (( >N5 >N4 )) (( (( } /ENTER, PLS/ } => N4 N5 B9-POP )) (( 1 N4 250 ADD N5 B9-READLN => RM )) )) OK) ((DATA I9-IMAGEIS-CENTERED )) ((DATA HAS-BUILT-COLOR-TABLE )) ((DATA THE-COLOR-LIST )) (( VARSTRING I9-IMAGEFILENAME )) ((DATA I9-IMAGE )) ((DATA CENTER-I9-IMAGEHOUSE )) ((DATA I9-IMAGEPERMUTE-UP-HOUSE )) ((DATA I9-IMAGEPERMUTE-HOUSE )) ((DATA I9-IMAGECOLLECT-HOUSE )) ((DATA I9-IMAGECOLLECT-OTHER-HOUSE )) ((DATA I9-IMAGESHIFT-HOUSE )) ((DATA I9-IMAGEADD-TEXTURE-HOUSE )) ((DATA I9-IMAGEEXCLUDE-TRANSPARENT-1-HOUSE )) ((DATA I9-IMAGEEXCLUDE-TRANSPARENT-2-HOUSE )) ((DATA I9-IMAGEROTATE-90-1-HOUSE )) ((DATA I9-IMAGEROTATE-90-2-HOUSE )) ((DATA I9-IMAGEVAGUER-1-HOUSE )) ((DATA I9-IMAGEVAGUER-2-HOUSE )) ((DATA I9-IMAGEVAGUER-3-HOUSE )) ((DATA I9-IMAGEMATT-SMOOTH-1-HOUSE )) ((DATA I9-IMAGEMATT-SMOOTH-2-HOUSE )) ((DATA I9-IMAGEMATT-SMOOTH-3-HOUSE )) ((DATA I9-IMAGEODD-LUCIDITY-1-HOUSE )) ((DATA I9-IMAGEODD-LUCIDITY-2-HOUSE )) ((DATA I9-IMAGEODD-LUCIDITY-3-HOUSE )) ((DATA I9-IMAGEBRIGHTEN-COLORS-1-HOUSE )) ((DATA I9-IMAGEBRIGHTEN-COLORS-2-HOUSE )) ((DATA I9-IMAGEBRIGHTEN-COLORS-3-HOUSE )) ((DATA I9-IMAGEDEEPER-COLORS-1-HOUSE )) ((DATA I9-IMAGEDEEPER-COLORS-2-HOUSE )) ((DATA I9-IMAGEDEEPER-COLORS-3-HOUSE )) ((DATA I9-IMAGEENHANCE-CONTRAST-1-HOUSE )) ((DATA I9-IMAGEENHANCE-CONTRAST-2-HOUSE )) ((DATA I9-IMAGEENHANCE-CONTRAST-3-HOUSE )) ((DATA I9-IMAGEINVERT-COLORS-1-HOUSE )) ((DATA I9-IMAGEINVERT-COLORS-2-HOUSE )) ((DATA I9-IMAGEINVERT-COLORS-3-HOUSE )) ((DATA I9-IMAGEWILD-EDGES-1-HOUSE )) ((DATA I9-IMAGEWILD-EDGES-2-HOUSE )) ((DATA I9-IMAGEWILD-EDGES-3-HOUSE )) ((DATA I9-IMAGEFOCUS-1-HOUSE )) ((DATA I9-IMAGEFOCUS-2-HOUSE )) ((DATA I9-IMAGEZING-1-HOUSE )) ((DATA I9-IMAGEZING-2-HOUSE )) ((DATA I9-IMAGEZING-3-HOUSE )) ((DATA I9-IMAGEONE-TONE-ONLY-HOUSE )) ((DATA I9-IMAGEWHICH-NEW-ONE-TONE )) ((DATA I9-AUX-ARRAY )) ((DATA I9-AUX-ARRAY-PM )) (LET ASSERT-HAS-BUILT-COLOR-TABLE BE (( )) (( (( HAS-BUILT-COLOR-TABLE => VISBASIS (MATCHED (( HAS-BUILT-COLOR-TABLE => SETDANCE )) (( GETPAL )) (( ^0 => READPAL ; ; ; )) (( ### ; 1 ; 256 ; THE-COLOR-LIST >>> => PM )) (( ## ; 2 ; 256 ; THE-COLOR-LIST >>> => PM )) (( # ; 3 ; 256 ; THE-COLOR-LIST >>> => PM )) (( && && && )) (( 255 (COUNT (( N1 => & => READPAL ; ; ; )) (( ### ; 1 ; N1 ; THE-COLOR-LIST >>> => PM )) (( ## ; 2 ; N1 ; THE-COLOR-LIST >>> => PM )) (( # ; 3 ; N1 ; THE-COLOR-LIST >>> => PM )) (( && && && )) COUNTUP) )) MATCHED) )) )) OK) (LET MAXIMUM-OF-THREE BE (( >N3 >N2 >N1 )) (( (( N1 ; N2 => INTGREATER (MATCHED (( N3 ; N1 => INTGREATER (MATCHED N3 => => )(OTHER N1 => => MATCHED) )) )(OTHER (( N3 ; N2 => INTGREATER (MATCHED N3 => => )(OTHER N2 => => MATCHED) )) MATCHED) )) )) OK) (LET NEAREST-GREEN BE (( >N1 )) (( (( THE-COLOR-LIST >>> => & )) (( (( 1 ; N1 ; # => GM )) ; (( 2 ; N1 ; # => GM )) ; (( 3 ; N1 ; # => GM )) => MAXIMUM-OF-THREE => 64 MOD ; 128 => ADD => => )) (( && )) )) OK) (LET CENTER-I9-IMAGEESSENCE BE (( )) (( (( V11 => NEAREST-GREEN => TOV11 )) )) OK) (LET CENTER-IMAGE BE (( & )) (( (( I9-IMAGEIS-CENTERED => SETDANCE )) (( ASSERT-HAS-BUILT-COLOR-TABLE )) (( CENTER-I9-IMAGEHOUSE >>> ; # => FORVPM )) (( && )) )) OK) (( }CENTER-I9-IMAGEESSENCE} => ? CENTER-I9-IMAGEHOUSE < ONE ; # => %GET ; ANGEL => ADD ; SWITCH ; # => %PUT )) (( && )) )) OK) (LET I9-INIT-VARS BE (( )) (( (( I9-IMAGEIS-CENTERED => SETBASIS )) (( HAS-BUILT-COLOR-TABLE => SETBASIS )) (( 3 ; 256 => RAM-PM THE-COLOR-LIST < >VARSTR )) (( 200 ; 200 => RAM-PM I9-IMAGE < %MAKE I9-AUX-ARRAY < %MAKE I9-AUX-ARRAY-PM <>> ; 1 ; I9-AUX-ARRAY-PM >>> => %PUT )) )) OK) (LET I9-NEW BE (( )) (( (( I9-IMAGE >>> => & )) (( 480 ; 180 ; 719 ; 423 ; 1 => RECTFILL )) (( 500 ; 200 ; # => LISA-PAINT )) (( && )) )) OK) (LET I9-MAKE-TEXTURE-LINES BE (( )) (( (( I9-IMAGE >>> => RELEASE-MATRIX )) (( 200 => %MAKE ; I9-IMAGE < MOD4 => ISBASIS (MATCHED (( 200 ; 255 => %RFFG ; N1 ; I9-IMAGE >>> => %PUT )) )(OTHER (( 200 => %MAKE ; N1 ; I9-IMAGE >>> => %PUT )) MATCHED) )) COUNTUP) )) (( I9-NEW )) )) OK) (( LOOKSTK )) (LET I9-FRONTPAGE-MENU BE (( )) (( (( }i9 image editor Created by Aristo Tacoma in Lisa } ; 180 ; 80 => B9-POP )) (( }Please indicate your wish:} ; 180 ; 120 => B9-POP )) (( }1. Open file} ; 100 ; 240 => B9-POP )) (( }2. Save file} ; 100 ; 280 => B9-POP )) (( }3. Modify} ; 100 ; 320 => B9-POP )) (( }Honor the tantric;} ; 150 ; 503 => B9-POP )) (( }Thank you.} ; 150 ; 600 => B9-POP )) (( }Or [ESC] to exit.} ; 700 ; 650 => B9-POP )) (( I9-NEW )) (( I9-IMAGEFILENAME => VARSTR> ; }.GJP} => CONCAT ; 510 ; 450 => B9-POP )) )) OK) (LET I9-OPEN-FILE BE (( )) (( (( I9-IMAGE >>> => & )) (( CLS )) (( }O P E N e.g. SAMPLE or SAMPLE2} ; 50 ; 100 => B9-POP )) (( }The format: 'Lisa .GJP smart painting', GJ-COLORS, 200 x 200 std.} ; 50 ; 140 => B9-POP )) (( }See manuals incl. Study handbook in neopopperian science.} ; 50 ; 180 => B9-POP )) (( }Please make sure the .GJP format is right. Cfr BMPTXT>GJP in manual.} 50 ; 220 => B9-POP )) (( }Filename, thank you (not including .GJP): } ; 50 ; 300 => B9-POP )) (( 17 ; 550 ; 300 => B9-READLN )) (( ; => RMBL => UPCM => LENGTH => ISPRO (MATCHED (( ; I9-IMAGEFILENAME => >VARSTR )) (( # => CLEAR-MATRIX )) (( I9-IMAGEFILENAME => VARSTR> ; }.GJP} => CONCAT ; # => GJPFILE2PM ; RM )) (( I9-IMAGEIS-CENTERED => SETBASIS )) )(OTHER (( RM )) MATCHED) )) (( && )) )) OK) (LET I9-SAVE-FILE BE (( )) (( (( (( I9-IMAGE >>> => & )) (( CLS )) (( }Here we *****save***** the file. If filename already exists,} ; 50 ; 100 => B9-POP )) (( }it is overwritten directly, so >>>make sure it is right<< B9-POP )) (( }Only letters, digits, hyphen (_), and dash (-), and max 8.} 50 ; 180 => B9-POP )) (( }If you press ENTER, this name is used>>> } ; 50 ; 220 => B9-POP )) (( I9-IMAGEFILENAME => VARSTR> ; 600 ; 220 => B9-POP )) (( }S A V E N A M E (not including .GJP): } ; 50 ; 300 => B9-POP )) (( 17 ; 550 ; 300 => B9-READLN ; )) (( ; => RMBL => UPCM => LENGTH => ISPRO (MATCHED (( ; I9-IMAGEFILENAME => >VARSTR )) )(OTHER (( RM )) MATCHED) )) (( I9-IMAGEFILENAME => VARSTR> ; }.GJP} => CONCAT ; # => PM2GJPFILE ; RM )) (( && )) )) OK) (LET I9-IMAGEPERMUTE-UP-ESSENCE BE (( )) (( (( INCV11 )) )) OK) (LET I9-IMAGEPERMUTE-UP BE (( )) (( (( I9-IMAGE >>> => & )) (( I9-IMAGEPERMUTE-UP-HOUSE >>> ; # => FORVPM )) (( I9-NEW )) (( && )) )) OK) (( }I9-IMAGEPERMUTE-UP-ESSENCE} => ? I9-IMAGEPERMUTE-UP-HOUSE <>> => & )) (( I9-IMAGEPERMUTE-HOUSE >>> ; # => FORVPM )) (( I9-NEW )) (( && )) )) OK) (( }I9-IMAGEPERMUTE-ESSENCE} => ? I9-IMAGEPERMUTE-HOUSE < MOD ; 129 => ADD => TOV11 )) )) OK) (LET I9-IMAGECOLLECT BE (( )) (( (( I9-IMAGE >>> => & )) (( I9-IMAGECOLLECT-HOUSE >>> ; # => FORVPM )) (( I9-NEW )) (( && )) )) OK) (( }I9-IMAGECOLLECT-ESSENCE} => ? I9-IMAGECOLLECT-HOUSE < MOD ; 147 => ADD => TOV11 )) )) OK) (LET I9-IMAGECOLLECT-OTHER BE (( )) (( (( I9-IMAGE >>> => & )) (( I9-IMAGECOLLECT-OTHER-HOUSE >>> ; # => FORVPM )) (( I9-NEW )) (( && )) )) OK) (( }I9-IMAGECOLLECT-OTHER-ESSENCE} => ? I9-IMAGECOLLECT-OTHER-HOUSE < MOD ; 100 => ADD => TOV11 )) )) OK) (LET I9-IMAGESHIFT BE (( )) (( (( I9-IMAGE >>> => & )) (( I9-IMAGESHIFT-HOUSE >>> ; # => FORVPM )) (( I9-NEW )) (( && )) )) OK) (( }I9-IMAGESHIFT-ESSENCE} => ? I9-IMAGESHIFT-HOUSE < ISBASIS (MATCHED (( V5 INC => TOV2 )) )(OTHER (( ^19 FR GETV => ISDANCE (MATCHED (( ^30 FR GETV 30 ADD ; 128 => ADD => TOV11 )) MATCHED) )) MATCHED) )) )) OK) (LET I9-IMAGEADD-TEXTURE BE (( )) (( (( I9-IMAGE >>> => & )) (( I9-IMAGEADD-TEXTURE-HOUSE >>> ; # => FORVPM )) (( I9-NEW )) (( && )) )) OK) (( }I9-IMAGEADD-TEXTURE-ESSENCE} => ? I9-IMAGEADD-TEXTURE-HOUSE < SET-RANGE )) ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEVAGUER-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -45 ADD => 16 DIV => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 ADD ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 SUB ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) )) OK) (LET I9-IMAGEVAGUER-3-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEVAGUER BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEVAGUER-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEVAGUER-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEVAGUER-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEVAGUER-1-ESSENCE} => ? I9-IMAGEVAGUER-1-HOUSE < ? I9-IMAGEVAGUER-2-HOUSE < ? I9-IMAGEVAGUER-3-HOUSE < SET-RANGE )) ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEBRIGHTEN-COLORS-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -5 ADD => >N1 )) (( N1 => ISPRO (MATCHED (( N1 ; 17 => DIV => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 ADD ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 SUB ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) MATCHED) )) )) OK) (LET I9-IMAGEBRIGHTEN-COLORS-3-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEBRIGHTEN-COLORS BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEBRIGHTEN-COLORS-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEBRIGHTEN-COLORS-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEBRIGHTEN-COLORS-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEBRIGHTEN-COLORS-1-ESSENCE} => ? I9-IMAGEBRIGHTEN-COLORS-1-HOUSE < ? I9-IMAGEBRIGHTEN-COLORS-2-HOUSE < ? I9-IMAGEBRIGHTEN-COLORS-3-HOUSE < SET-RANGE )) ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEMATT-SMOOTH-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -32 ADD => >N1 )) (( N1 => ISPRO (MATCHED (( N1 => 16 DIV => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 ADD ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 SUB ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) MATCHED) )) )) OK) (LET I9-IMAGEMATT-SMOOTH-3-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEMATT-SMOOTH BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEMATT-SMOOTH-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEMATT-SMOOTH-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEMATT-SMOOTH-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEMATT-SMOOTH-1-ESSENCE} => ? I9-IMAGEMATT-SMOOTH-1-HOUSE < ? I9-IMAGEMATT-SMOOTH-2-HOUSE < ? I9-IMAGEMATT-SMOOTH-3-HOUSE < SET-RANGE )) ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEODD-LUCIDITY-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -48 ADD ; 16 DIV => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 ADD ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 SUB ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) )) OK) (LET I9-IMAGEODD-LUCIDITY-3-ESSENCE BE (( )) (( (( V11 INC ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEODD-LUCIDITY BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEODD-LUCIDITY-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEODD-LUCIDITY-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEODD-LUCIDITY-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEODD-LUCIDITY-1-ESSENCE} => ? I9-IMAGEODD-LUCIDITY-1-HOUSE < ? I9-IMAGEODD-LUCIDITY-2-HOUSE < ? I9-IMAGEODD-LUCIDITY-3-HOUSE < SET-RANGE )) ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEENHANCE-CONTRAST-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -48 ADD ; 32 DIV => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 ADD ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 SUB ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) )) OK) (LET I9-IMAGEENHANCE-CONTRAST-3-ESSENCE BE (( )) (( (( (( V11 => INC ; 128 ; 191 => SET-RANGE )) ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEENHANCE-CONTRAST BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEENHANCE-CONTRAST-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEENHANCE-CONTRAST-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEENHANCE-CONTRAST-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEENHANCE-CONTRAST-1-ESSENCE} => ? I9-IMAGEENHANCE-CONTRAST-1-HOUSE < ? I9-IMAGEENHANCE-CONTRAST-2-HOUSE < ? I9-IMAGEENHANCE-CONTRAST-3-HOUSE < DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEINVERT-COLORS-2-ESSENCE BE (( )) (( (( 64 ; (( V11 ; 64 => MOD )) => SUB ; 128 => ADD TOV11 )) )) OK) (LET I9-IMAGEINVERT-COLORS-3-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEINVERT-COLORS BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEINVERT-COLORS-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEINVERT-COLORS-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEINVERT-COLORS-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEINVERT-COLORS-1-ESSENCE} => ? I9-IMAGEINVERT-COLORS-1-HOUSE < ? I9-IMAGEINVERT-COLORS-2-HOUSE < ? I9-IMAGEINVERT-COLORS-3-HOUSE < SET-RANGE )) ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEDEEPER-COLORS-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -48 ADD ; 32 DIV => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 ADD ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 200 SUB ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) )) OK) (LET I9-IMAGEDEEPER-COLORS-3-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEDEEPER-COLORS BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEDEEPER-COLORS-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEDEEPER-COLORS-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEDEEPER-COLORS-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEDEEPER-COLORS-1-ESSENCE} => ? I9-IMAGEDEEPER-COLORS-1-HOUSE < ? I9-IMAGEDEEPER-COLORS-2-HOUSE < ? I9-IMAGEDEEPER-COLORS-3-HOUSE < SET-RANGE )) ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEWILD-EDGES-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -32 ADD => DIV4 => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) )) OK) (LET I9-IMAGEWILD-EDGES-3-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEWILD-EDGES BE (( )) (( (( I9-IMAGEIS-CENTERED => VISBASIS (MATCHED (( I9-IMAGE >>> => CENTER-IMAGE ; I9-NEW )) MATCHED) )) (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEWILD-EDGES-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEWILD-EDGES-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEWILD-EDGES-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEWILD-EDGES-1-ESSENCE} => ? I9-IMAGEWILD-EDGES-1-HOUSE < ? I9-IMAGEWILD-EDGES-2-HOUSE < ? I9-IMAGEWILD-EDGES-3-HOUSE < DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEZING-2-ESSENCE BE (( )) (( (( (( (( V2 ; 200 => MOD )) ; 1 => INTGREATER )) ; (( 199 ; (( V2 ; 200 => DIV )) => INTGREATER )) => AND (MATCHED (( V11 ; 64 => MOD => -32 ADD => DIV2 => >N1 )) (( N1 ; V2 DEC ; I9-AUX-ARRAY >>> => %ADDPUT )) (( N1 ; V2 INC ; I9-AUX-ARRAY >>> => %ADDPUT )) MATCHED) )) )) OK) (LET I9-IMAGEZING-3-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEZING BE (( )) (( (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEZING-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEZING-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-IMAGEZING-3-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEZING-1-ESSENCE} => ? I9-IMAGEZING-1-HOUSE < ? I9-IMAGEZING-2-HOUSE < ? I9-IMAGEZING-3-HOUSE < INTGREATER )) ; (( 101 ; V3 => INTGREATER )) => AND (MATCHED (( V11 ; (( V2 TWICE DEC ; (( V3 TWICE DEC DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) (( V11 ; (( V2 TWICE DEC ; (( V3 TWICE DEC DEC ; 200 => MUL )) => ADD => INC ; I9-AUX-ARRAY >>> => %PUT )) (( V11 ; (( V2 TWICE ; (( V3 TWICE DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) (( V11 ; (( V2 TWICE ; (( V3 TWICE DEC ; 200 => MUL )) => ADD => INC ; I9-AUX-ARRAY >>> => %PUT )) MATCHED) )) )) OK) (LET I9-IMAGEFOCUS-2-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEFOCUS BE (( )) (( (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEFOCUS-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEFOCUS-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEFOCUS-1-ESSENCE} => ? I9-IMAGEFOCUS-1-HOUSE < ? I9-IMAGEFOCUS-2-HOUSE < DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEROTATE-90-2-ESSENCE BE (( )) (( (( V11 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEROTATE-90 BE (( )) (( (( I9-AUX-ARRAY >>> => %EMPTY )) (( I9-IMAGEROTATE-90-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGE >>> => CLEAR-MATRIX )) (( I9-IMAGEROTATE-90-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEROTATE-90-1-ESSENCE} => ? I9-IMAGEROTATE-90-1-HOUSE < ? I9-IMAGEROTATE-90-2-HOUSE <>> => & )) (( 200 (COUNT (( N1 ; # => %GET => %REVERSE )) COUNTUP) )) (( I9-NEW )) (( && )) )) OK) (LET I9-IMAGEEXCLUDE-TRANSPARENT-1-ESSENCE BE (( )) (( (( 0 ; (( V2 ; (( V3 => DEC ; 200 => MUL )) => ADD ; I9-AUX-ARRAY >>> => %PUT )) )) OK) (LET I9-IMAGEEXCLUDE-TRANSPARENT-2-ESSENCE BE (( )) (( (( 9 ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEEXCLUDE-TRANSPARENT BE (( )) (( (( I9-AUX-ARRAY >>> ; 1 ; 1 => %RFFGRANGE )) (( I9-IMAGEEXCLUDE-TRANSPARENT-1-HOUSE >>> ; I9-IMAGE >>> => FORVPM )) (( I9-IMAGEEXCLUDE-TRANSPARENT-2-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEEXCLUDE-TRANSPARENT-1-ESSENCE} => ? I9-IMAGEEXCLUDE-TRANSPARENT-1-HOUSE < ? I9-IMAGEEXCLUDE-TRANSPARENT-2-HOUSE <>> ; (( V2 => DEC ; 200 => MOD => INC )) ; (( V2 => DEC ; 200 => DIV => INC )) ; I9-IMAGE >>> => PM )) )) OK) (LET I9-IMAGEONE-TONE-ONLY BE (( )) (( (( ^255 FR GETV I9-IMAGEWHICH-NEW-ONE-TONE <>> ; 1 ; 1 => %RFFGRANGE )) (( I9-IMAGEONE-TONE-ONLY-HOUSE >>> ; I9-AUX-ARRAY-PM >>> => FORVPM )) (( I9-NEW )) )) OK) (( }I9-IMAGEONE-TONE-ONLY-ESSENCE} => ? I9-IMAGEONE-TONE-ONLY-HOUSE <>> => & )) (( CLS )) (( }Anarchistic mutations which can be friendly towards first-hand photoart work} ; 50 ; 50 => B9-POP )) (( }For many functions, some lines are added on top/below. Save before touch-up!} ; 50 ; 75 => B9-POP )) }Images respond somewhat differently; use your intuition; have fun!!!} ; 50 ; 100 => B9-POP )) (( }B brighten colors} ; 25 ; 150 => B9-POP )) (( }D deeper colors} ; 25 ; 175 => B9-POP )) (( }E enhance contrast} ; 25 ; 225 => B9-POP )) (( }Y focus top left} ; 25 ; 275 => B9-POP )) (( }R rotate 90 degrees} ; 25 ; 300 => B9-POP )) (( }I invert colors} ; 25 ; 250 => B9-POP )) (( }M mirror image} ; 25 ; 325 => B9-POP )) (( }X exclude transparent} ; 25 ; 425 => B9-POP )) (( }1 one tone only} 50 ; 475 => B9-POP )) (( }Z matt & smooth} 275 ; 475 => B9-POP )) (( }U permute up} ; 50 ; 500 => B9-POP )) (( }P permute other} ; 50 ; 525 => B9-POP )) (( }A add texture} ; 50 ; 550 => B9-POP )) (( }C collect} ; 275 ; 500 => B9-POP )) (( }O collect other} ; 275 ; 525 => B9-POP )) (( }S shift} ; 275 ; 550 => B9-POP )) (( }2 zing} ; 50 ; 575 => B9-POP )) (( }3 only texture} ; 50 ; 600 => B9-POP )) (( }W wild edges} ; 275 ; 575 => B9-POP )) (( }4 odd lucidity} ; 275 ; 600 => B9-POP )) (( }V vaguer} ; 50 ; 625 => B9-POP )) (( }The spring-art color light green} ; 575 ; 500 => B9-POP )) (( }is preferred in these actions} ; 575 ; 530 => B9-POP )) (( }because of angelic assocations} ; 575 ; 560 => B9-POP )) (( }Listen to your heart beyond theory; sense} ; 480 ; 615 => B9-POP )) (( }the rich variety of free associations;} ; 480 ; 645 => B9-POP )) (( }have the intent of harmony and health.} ; 480 ; 675 => B9-POP )) (( }Save only that which you feel good about.} ; 480 ; 705 => B9-POP )) (( }Some sequences lead to program exit.} ; 480 ; 735 => B9-POP )) (( }*} ; 973 ; 10 => B9-POP )) (( }Q to main menu} ; 50 ; 700 => B9-POP )) (( I9-NEW )) (( GOLABEL1: )) (( CLEAR_KEYBUF )) (( KEY => UPCM ; )) (( }***} ; 571 ; 450 => B9-POP )) (( ; :U TEQ => = I9-IMAGEPERMUTE-UP == :P TEQ => = I9-IMAGEPERMUTE == :A TEQ => = I9-IMAGEADD-TEXTURE == :C TEQ => = I9-IMAGECOLLECT == :O TEQ => = I9-IMAGECOLLECT-OTHER == :S TEQ => = I9-IMAGESHIFT == :B TEQ => = I9-IMAGEBRIGHTEN-COLORS == :D TEQ => = I9-IMAGEDEEPER-COLORS == :Z TEQ => = I9-IMAGEMATT-SMOOTH == :E TEQ => = I9-IMAGEENHANCE-CONTRAST == :I TEQ => = I9-IMAGEINVERT-COLORS == :R TEQ => = I9-IMAGEROTATE-90 == :M TEQ => = I9-IMAGEMIRROR-IMAGE == :X TEQ => = I9-IMAGEEXCLUDE-TRANSPARENT == :1 TEQ => = I9-IMAGEONE-TONE-ONLY == :2 TEQ => = I9-IMAGEZING == :3 TEQ => = I9-MAKE-TEXTURE-LINES == :W TEQ => = I9-IMAGEWILD-EDGES == :4 TEQ => = I9-IMAGEODD-LUCIDITY == :V TEQ => = I9-IMAGEVAGUER == :Y TEQ => = I9-IMAGEFOCUS == :Q EQ => = GOFORWARD4 === === === === === === === === === === === === === === === === === === === === === === )) (( } } ; 571 ; 450 => B9-POP )) (( GOUP1 )) (( GOLABEL4: )) (( && )) )) OK) (( LOOKSTK )) (LET I9 BE (( )) (( (( GJ-ON )) (( I9-INIT-VARS )) (( }SAMPLE.GJP} ; I9-IMAGE >>> => GJPFILE2PM ; RM )) (( GOLABEL1: )) (( CLS ; FT )) (( I9-FRONTPAGE-MENU )) (( KEYNUM => >N1 )) (( N1 ; 49 => EQN = I9-OPEN-FILE == N1 ; 50 => EQN = I9-SAVE-FILE == N1 ; 51 => EQN = I9-MODIFY-IMAGE == N1 ; 27 => EQN = GOFORWARD4 === === === === )) (( GOUP1 )) (( GOLABEL4: )) (( GJ-DONE )) )) OK) (LET STR>ARRAY BE (( ; )) (( (( ; => LENGTH => %MAKE => & )) (( LENGTH (COUNT (( ; N1 => CHN ; N1 ; # => %PUT )) COUNTUP) )) (( RM )) (( # => => )) (( && )) )) OK) (LET ARRAY>STR BE (( & )) (( (( # => %LENGTH => MAKEBL ; )) (( LENGTH (COUNT (( N1 ; # => %GET ; )) (( ; ; N1 => TOCHN )) COUNTUP) )) (( ; => => )) (( && )) )) OK) (LET STR>EXISTING-ARRAY BE (( & ; )) (( (( ; => LENGTH ; # => >MEM )) (( # => %LENGTH (COUNT (( ; N1 => CHN ; N1 ; # => %PUT )) COUNTUP) )) (( RM )) (( && )) )) OK) (LET SET-MAX BE (( >N2 >N1 )) (( (( N1 ; N2 => INTGREATER (MATCHED (( N2 => => )) )(OTHER (( N1 => => )) MATCHED) )) )) OK) (LET DECSUMMAX BE (( >N3 >N2 >N1 )) (( (( N1 ; N2 => ADD => DEC => >N4 )) (( N4 ; N3 => INTGREATER (MATCHED (( N3 ; N1 => SUB => INC => >N2 )) (( N2 => ISPRO => NOT = 0 >N2 === )) MATCHED) )) (( N2 => => )) )) OK) (LET SEGMENT-FIND-THIS-WORD-START (( & >N8 )) (( (( # => ACTIVE-LENGTH => >N4 )) (( N8 ; N4 => INTGREATER = 1 => => ; && ; EXIT === )) (( N8 => ISBASIS = 1 => => ; && ; EXIT === )) (( N8 ; # => %GET ; 32 => EQN = 1 => => ; && ; EXIT === )) (( N8 => ISDANCE = 1 => => ; && ; EXIT === )) (( N8 (COUNT (( N2 ; N1 => SUB => INC ; # => %GET => >N7 )) (( N7 => ISPRO (MATCHED (( 33 ; N7 => INTGREATER = N2 ; N1 => SUB => INC INC => => ; RMS RMS ; && ; EXIT === )) MATCHED) )) COUNTUP) (( 1 => => )) (( && )) )) OK) (LET SEGMENT-NOZ-START BE (( & >N4 )) ( (( (( N4 => ISBASIS = && EXIT === )) (( # => %LENGTH => DEC => >N6 )) (( N6 => ISPRO => NOT = && EXIT === )) (( N4 ; N6 => SET-MAX => >N4 )) (( N4 (COUNT (( N1 ; # => %GET => ISBASIS (MATCHED (( 32 ; N1 ; # => %PUT )) MATCHED) )) COUNTUP) )) (( && )) )) OK) (LET TRANSFER-SEGMENT BE (( & & SWITCHV >N1 )) (( (( N1 => ISBASIS = && && EXIT === )) (( # => %LENGTH => >N5 )) (( ## => %LENGTH => DEC => >N6 )) (( N6 => ISPRO => NOT = && && EXIT === )) (( N1 ; N5 ; N6 => DECSUMMAX => >N5 )) (( N5 => ISBASIS = && && EXIT === )) (( (( N1 => DEC )) ; # => SEGMENT-NOZ-START )) (( # => INC4 => >N9 )) (( ## ; (( N1 => MUL4 )) => ADD => >N10 )) (( N5 => >N11 )) (( N9 ; N10 ; N11 => COPYNUMS )) (( && && )) )) OK) (LET INSERT-SEGMENT BE (( & & SWITCHV >N1 )) (( (( N1 => ISBASIS = && && EXIT === )) (( # => %LENGTH => >N5 )) (( ## => %LENGTH => DEC => >N6 )) (( N6 => ISPRO => NOT = && && EXIT === )) (( N1 ; N5 ; N6 => DECSUMMAX => >N5 )) (( N5 => ISBASIS = && && EXIT === )) (( N6 ; N1 => INTGREATER (MATCHED (( ## ; (( N1 => MUL4 )) => ADD => >N9 )) (( ## ; (( N1 ; N5 => ADD => MUL4 )) => ADD => >N10 )) (( N6 ; (( N1 ; N5 => ADD )) => SUB => ADD => >N11 )) (( N11 => ISPRO = N9 ; N10 ; N11 => COPYNUMSHIGH === )) MATCHED) )) (( N1 ; ## ; # => TRANSFER-SEGMENT )) (( && && )) )) OK) (LET NOZ-ONLY-BEFORE-N BE (( & DEC >N5 )) (( (( # => %LENGTH ; N5 => SUB (COUNT (( 0 ; (( N1 ; N7 => ADD )) ; # => %PUT )) COUNTUP) )) (( && )) )) OK) (LET NOZ-ONLY-BEFORE-ACTIVELENGTH BE (( & )) (( (( # => %LENGTH (COUNT (( N1 ; # => %GET => ISBASIS (MATCHED (( N1 ; # => NOZ-ONLY-BEFORE-N )) (( RMS ; RMS ; && ; EXIT )) MATCHED) )) COUNTUP) )) (( && )) )) OK) (LET RM-SEGMENT BE (( & >N2 >N1 )) (( (( # => %LENGTH => >N7 )) (( (( N1 => ISBASIS )) ; (( N2 => ISBASIS )) ; (( N7 => ISBASIS )) => TRIPLEORR = && EXIT === )) (( N2 => ISBASIS = && EXIT === )) (( N1 ; N2 => ADD => >N3 )) (( # ; (( N3 => MUL4 )) => ADD => >N9 )) (( # ; (( N1 => MUL4 )) => ADD => >N10 )) (( N7 ; N3 => SUB => INC => >N11 )) (( N11 => ISPRO = N9 ; N10 ; N11 => COPYNUMS === )) (( # => NOZ-ONLY-BEFORE-ACTIVELENGTH )) (( && )) )) OK) (LET REPLACE-SEGMENT BE (( & & SWITCHV >N2 >N1 )) (( (( N1 => ISBASIS = && && EXIT === )) (( # => %LENGTH => >N5 )) (( ## => %LENGTH => DEC => >N6 )) (( N1 ; N6 => INTGREATER = && && EXIT === )) (( N2 => ISPRO (MATCHED (( N1 ; N2 ; ## => RM-SEGMENT )) MATCHED) )) (( N5 => ISPRO (MATCHED (( N1 ; ## ; # => INSERT-SEGMENT )) MATCHED) )) (( && && )) )) OK) (( LOOKSTK )) ((DATA BROWSER-MATRIX 6 ; 8 => RAM-PM BROWSER-MATRIX < SETDANCE )) (( VARSTRING NATURALS )) (( VARSTRING B9-FILE-TO-START-SHOWING )) ((DATA B9-SCAN-ARRAY )) ((DATA B9-REPL-ARRAY )) ((DATA B9-SCAN-ACTION-HOUSE )) ((DATA B9-SCAN-ACTION-UPC-HOUSE )) ((DATA B9-REPL-ACTION-HOUSE )) ((DATA B9-REPL-ACTION-UPC-HOUSE )) ((DATA B9-WORK-SPACE )) ((DATA B9-READ-ONLY-VAR B9-READ-ONLY-VAR => SETBASIS )) ((DATA B9-PAGE-LENGTH )) ((DATA B9-PAGE-WIDTH )) ((DATA B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN )) ((DATA B9-CLIPBOARD )) (( VARSTRING B9-CLIPBOARD-FIRST-LINE )) ((DATA B9-CLIPBOARD-AMOUNT-LINES )) (( VARSTRING B9-DOC-NAME )) ((DATA B9-FILE-SHOULD-BE-STORED )) ((DATA B9-EDIT-X )) ((DATA B9-EDIT-Y )) ((DATA B9-LINE-NUM )) ((DATA B9-TOP-LINE-NUM 35000 B9-TOP-LINE-NUM < B9-POP )) (( } } ; 800 ; 695 => B9-POP )) (( }$} ; B9-LINE-NUM >>> => CONCAT ; }*} => CONCAT ; B9-LINE-POS >>> => CONCAT ; } } => CONCAT ; 800 ; 695 => B9-POP )) )) OK) (LET B9-UNDERLINECURRENT-POS BE (( )) (( (( B9-MARKING-ON => VISDANCE (MATCHED (( B9-EDIT-X >>> 12 MUL ; B9-EDIT-Y >>> 25 MUL 25 ADD ; BRIDGE ; 20 => ADD ; BRIDGE ; 20 => ADD ; 0 => RECTFILL )) (( B9-EDIT-X >>> 12 MUL ; B9-EDIT-Y >>> 25 MUL 25 ADD ; BRIDGE ; 20 => ADD ; BRIDGE ; 20 => ADD ; 1 => RECT )) )(OTHER (( B9-EDIT-X >>> 12 MUL ; B9-EDIT-Y >>> 25 MUL 25 ADD ; BRIDGE ; 20 => ADD ; BRIDGE ; 20 => ADD ; 1 => RECTFILL )) MATCHED) )) OK) (LET B9-UN-UNDERLINECURRENT-POS BE (( )) (( (( B9-EDIT-X >>> 12 MUL ; B9-EDIT-Y >>> 25 MUL 25 ADD ; BRIDGE ; 20 => ADD ; BRIDGE ; 20 => ADD ; 0 => RECTFILL )) )) OK) (LET B9-SHOW-NORMAL-GOODS-AND-GET-PAYMENTS-INSTANTLY BE (( )) (( (( }F1 GET F2 STORE F3 REPL F4 SCAN F5 PUT F6 INFO CTR-P PRT F8 JUMP} => 22 705 B9-POP )) (( B9-UPDATE-LINE-POS )) )) OK) (LET B9-NEW-LINES BE (( >N7 >N6 )) (( (( N6 ; B9-MAX-LINE-USED >>> => INTGREATER = EXIT === )) (( B9-WORK-SPACE >>> => & )) (( N7 ; B9-MAX-LINE-USED >>> => ADD => >N9 )) (( (( B9-MAX-LINE-USED >>> ; N6 => DEC => SUB )) => NOZ (MATCHED (( (( N6 => INC => MUL4 ; # => ADD )) ; (( (( N6 => INC ; N7 => ADD )) => MUL4 ; # => ADD )) ; (( B9-MAX-LINE-USED >>> ; N6 => DEC => SUB )) => COPYNUMSHIGH )) MATCHED) )) (( N7 (COUNT (( B9-PAGE-WIDTH >>> => INC => %MAKE => & )) (( 32 ; 1 ; # => %PUT )) (( GETV ; (( N1 ; N8 => ADD )) ; # => %PUT )) COUNTUP) )) (( N7 ; B9-MAX-LINE-USED => ADDVAR )) (( && )) )) OK) (LET B9-REFRESH BE (( )) (( (( 1 ; B9-REFRESH-DANCERS-WITHIN >>> => %GET => H )) (( 2 ; B9-REFRESH-DANCERS-WITHIN >>> => %GET => H )) (( 3 ; B9-REFRESH-DANCERS-WITHIN >>> => %GET => H )) )) OK) (LET B9-COPY-OVER-TO-CLIPBOARD (( )) (( (( B9-CLIPBOARD >>> => & )) (( BROWSER-MATRIX >>> => & )) (( (( 1 ; 3 ; # => GM => NOZ )) ; (( 2 ; 4 ; # => GM => NOZ )) => AND (MATCHED (( 1 ; 3 ; # => GM => >N5 )) (( 2 ; 3 ; # => GM => >N6 )) (( 78 => >N9 )) (( 2 ; 4 ; # => GM ; N6 => EQN = 1 ; 4 ; # => GM => >N9 === )) (( N9 ; N5 => SUB => INC => >N9 )) (( N9 (COUNT (( N1 ; N7 => ADD => DEC ; N8 ; B9-WORK-SPACE >>> => GM ; N1 ; 1 ; ## => PM )) COUNTUP) )) (( (( 2 ; 3 ; # => GM )) ; (( 2 ; 4 ; # => GM )) => EQN => NOT (MATCHED (( 2 ; 4 ; # => GM => >N6 )) (( N6 ; (( 2 ; 3 ; # => GM )) => SUB => INC => >N1 )) (( 1 ; 4 ; # => GM (COUNT (( N1 ; N8 ; B9-WORK-SPACE >>> => GM ; N1 ; N3 ; ## => PM )) COUNTUP) )) (( (( 2 ; 4 ; # => GM )) ; (( 2 ; 3 ; # => GM )) => SUB => DEC => >N2 )) (( N2 => ISPRO (MATCHED (( N2 (COUNT (( N1 ; (( 2 ; 3 ; # => GM )) => ADD ; B9-WORK-SPACE >>> => %GET => INC4 => >N7 )) (( N1 => INC ; ## => %GET => INC4 => >N8 )) (( 78 => >N9 )) (( N7 ; N8 ; N9 => COPYNUMS )) COUNTUP) )) MATCHED) )) MATCHED) )) (( ## => FIX-BLANK-LINES-IN-FILE )) (( 1 ; ## => MATR>TEXT ; B9-CLIPBOARD-FIRST-LINE => >VARSTR )) MATCHED) )) (( (( 2 ; 4 ; # => GM )) ; (( 2 ; 3 ; # => GM )) => SUB => INC B9-CLIPBOARD-AMOUNT-LINES <>> => & )) (( B9-CLIPBOARD-FIRST-LINE => VARSTR-LEN => ISBASIS (MATCHED (( 1 ; 4 ; BROWSER-MATRIX >>> => GM => NOZ (MATCHED (( # => CLEAR-MATRIX )) (( B9-COPY-OVER-TO-CLIPBOARD )) (( B9-CLIPBOARD-FIRST-LINE => VARSTR> => => )) )(OTHER (( }} => => )) MATCHED) )) )(OTHER (( B9-CLIPBOARD-FIRST-LINE => VARSTR> => => )) MATCHED) )) (( && )) )) OK) (LET B9-PUT-IT-GOOD BE (( )) (( (( B9-CLIPBOARD >>> => & )) (( B9-WORK-SPACE >>> => & )) (( B9-REQUEST-CLIPBOARD-FIRST-LINE => TOLEN => ISPRO (MATCHED (( B9-LINE-POS >>> (COUNT (( N1 ; B9-LINE-NUM >>> ; # => GM => ISBASIS (MATCHED (( 32 ; N1 ; B9-LINE-NUM >>> ; # => PM )) MATCHED) )) COUNTUP) )) (( B9-CLIPBOARD-AMOUNT-LINES => VISDANCE (MATCHED (( 1 ; ## => %GET => >N8 )) (( N8 => ACTIVE-LENGTH => >N9 )) (( N9 ; B9-LINE-POS >>> => ADD ; 79 => INTGREATER (MATCHED (( 78 ; B9-LINE-POS >>> => SUB => INC => >N9 )) MATCHED) )) (( 78 ; (( B9-LINE-POS >>> ; N9 => ADD )) => SUB => INC => >N10 )) (( N10 => ISPRO (MATCHED (( N10 (COUNT (( (( N2 ; N1 => SUB => INC )) ; B9-LINE-POS >>> => ADD => DEC ; B9-LINE-NUM >>> ; # => GM ; )) (( ; (( N2 ; N1 => SUB => INC )) ; N11 ; B9-LINE-POS >>> => ADD => ADD => DEC ; B9-LINE-NUM >>> ; # => PM )) COUNTUP) )) MATCHED) )) (( N9 (COUNT (( N1 ; N10 => %GET ; N1 ; B9-LINE-POS >>> => ADD => DEC ; B9-LINE-NUM >>> ; # => PM )) COUNTUP) )) )(OTHER (( B9-CLIPBOARD-AMOUNT-LINES => VISBASIS = && ; && ; EXIT === )) (( B9-CLIPBOARD-AMOUNT-LINES >>> ; B9-LINE-NUM >>> => ADD ; 35000 => INTGREATER = CLS ; } The text would, it seems, then exceed workspace.} 10 100 B9-POP A-KEY ; && ; && ; EXIT === )) (( 79 => %MAKE => >N1 )) (( B9-LINE-NUM >>> ; # => %GET => INC4 => >N2 )) (( N1 => INC4 => >N3 )) (( 78 => >N4 )) (( N2 ; N3 ; N4 => COPYNUMS )) (( B9-LINE-POS >>> ; (( 78 ; BRIDGE => SUB => INC )) ; (( B9-LINE-NUM >>> ; # => %GET )) ; (( 1 ; ## => %GET )) => REPLACE-SEGMENT )) (( B9-LINE-NUM >>> ; B9-CLIPBOARD-AMOUNT-LINES >>> => DEC => B9-NEW-LINES )) (( B9-CLIPBOARD-AMOUNT-LINES >>> => DEC (COUNT (( (( N1 INC ; ## => %GET => INC4 )) ; (( N1 ; B9-LINE-NUM >>> ADD ; # => %GET => INC4 )) ; 78 => COPYNUMS )) COUNTUP) )) (( B9-CLIPBOARD-AMOUNT-LINES >>> ; ## => %GET => ACTIVE-LENGTH => >N5 )) (( 1 ; B9-LINE-POS >>> => DEC ; N1 => RM-SEGMENT )) (( N1 => ACTIVE-LENGTH ; N1 => >MEM )) (( N5 => INC ; (( B9-CLIPBOARD-AMOUNT-LINES >>> => DEC ; B9-LINE-NUM >>> => ADD ; # => %GET )) ; N1 => INSERT-SEGMENT )) (( N1 => %FREE )) MATCHED) )) MATCHED) )) (( && )) (( && )) )) OK) (( LOOKSTK )) (LET B9-EDIT-RANGE-CONTROL BE (( )) (( (( B9-EDIT-X >>> ; 2 ; 79 => SET-RANGE B9-EDIT-X <>> ; 2 ; 22 => SET-RANGE B9-EDIT-Y <>> ; 1 ; B9-TOP-LINE-NUM >>> => SET-RANGE B9-LINE-NUM <>> ; 1 ; 78 => SET-RANGE B9-LINE-POS < ADDVAR )) )) OK) (LET B9-EDIT-NEXTER BE (( )) (( (( 2 ; B9-EDIT-Y => ADDVAR )) )) OK) (LET B9-EDIT-LEFTER BE (( )) (( (( -1 B9-EDIT-X => ADDVAR )) )) OK) (LET B9-EDIT-LEFTER-10 BE (( )) (( (( -10 B9-EDIT-X => ADDVAR )) )) OK) (LET B9-EDIT-LEFTER-2 BE (( )) (( (( -2 B9-EDIT-X => ADDVAR )) )) OK) (LET B9-EDIT-LEFTMOST BE (( )) (( (( 2 B9-EDIT-X < INCVAR )) )) OK) (LET B9-EDIT-RIGHTER-10 BE (( )) (( (( 10 ; B9-EDIT-X => ADDVAR )) )) OK) (LET B9-EDIT-RIGHTER-2 BE (( )) (( (( 2 ; B9-EDIT-X => ADDVAR )) )) OK) (LET B9-EDIT-RIGHTER-4 BE (( )) (( (( 4 ; B9-EDIT-X => ADDVAR )) )) OK) (LET B9-EDIT-RIGHTMOST BE (( )) (( (( 79 B9-EDIT-X <>> ; B9-MAX-LINE-USED >>> => INTGREATER = EXIT === )) (( B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => %GET => & )) (( 1 => >N1 )) (( B9-PAGE-WIDTH >>> => MAKEBL ; 12 ; B9-EDIT-Y >>> 25 MUL => B9-POP )) (( GOLABEL4: )) (( B9-PAGE-WIDTH >>> ; N1 => INTGTOREQUAL (MATCHED (( N1 ; # => %GET => A (MATCHED (( ; => ASCII ; N1 12 MUL 12 ADD ; B9-EDIT-Y >>> 25 MUL B9-POP )) (( INCN1 )) (( GOUP4 )) MATCHED) )) MATCHED) )) (( B9-UPDATE-LINE-POS )) (( B9-UNDERLINECURRENT-POS )) (( && )) )) OK) (LET B9-REDISPLAY-ALL-TEXT-HERE BE (( )) (( (( B9-WORK-SPACE >>> => & )) (( B9-MAX-LINE-USED >>> => ISPRO (MATCHED (( B9-PAGE-LENGTH >>> (COUNT (( } } ; B9-PAGE-WIDTH >>> ; 24 ; N1 TWICE 25 MUL => SEVERAL-B9-POP )) (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN >>> ; N1 => ADD => DEC ; B9-MAX-LINE-USED >>> => INTGREATER (MATCHED (( RMS ; RMS )) (( GOFORWARD4 )) MATCHED) )) (( B9-PAGE-WIDTH >>> (COUNT (( N1 ; (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN >>> ; N3 => ADD => DEC )) ; # => GM => AFFIRM (MATCHED (( ; => ONE ; ; )) (( ; 32 ; 126 => WITH (MATCHED (( ; ONE => ASCII => N1 ; 12 => MUL 12 ADD ; (( N3 ; 50 => MUL => B9-POP )) MATCHED) )) (( ; => RM )) )(OTHER (( RMS ; RMS )) (( GOFORWARD2 )) MATCHED) )) COUNTUP) )) (( GOLABEL2: )) COUNTUP) )) MATCHED) )) (( GOLABEL4: )) (( B9-UPDATE-LINE-POS )) (( && )) )) OK) (LET B9-COMPLETE-MARKING-ON BE (( )) (( (( BROWSER-MATRIX >>> => & )) (( 2 ; 3 ; # => GM => ISPRO => NOT (MATCHED (( # => CLEAR-MATRIX )) (( B9-MARKING-ON => SETBASIS )) (( B9-CLIPBOARD-AMOUNT-LINES => SETBASIS )) (( B9-CLIPBOARD-FIRST-LINE => VARSTR-SETBASIS )) (( && ; EXIT )) MATCHED) )) (( B9-MARKING-ON => VISBASIS = && ; EXIT === )) (( B9-CLIPBOARD >>> => CLEAR-MATRIX )) (( B9-LINE-POS >>> => >N9 )) (( B9-LINE-NUM >>> => >N10 )) (( 1 ; 3 ; # => GM => >N7 )) (( 2 ; 3 ; # => GM => >N8 )) (( N8 ; N10 => EQN (MATCHED (( N9 ; N7 => INTGTOREQUAL (MATCHED (( N9 ; 1 ; 4 ; # => PM )) (( N10 ; 2 ; 4 ; # => PM )) )(OTHER (( N9 ; 1 ; 3 ; # => PM )) (( N10 ; 2 ; 3 ; # => PM )) (( N7 ; 1 ; 4 ; # => PM )) (( N8 ; 2 ; 4 ; # => PM )) MATCHED) )) )(OTHER (( N10 ; N8 => INTGREATER (MATCHED (( N9 ; 1 ; 4 ; # => PM )) (( N10 ; 2 ; 4 ; # => PM )) )(OTHER (( N9 ; 1 ; 3 ; # => PM )) (( N10 ; 2 ; 3 ; # => PM )) (( N7 ; 1 ; 4 ; # => PM )) (( N8 ; 2 ; 4 ; # => PM )) MATCHED) )) MATCHED) )) (( (( (( 2 ; 4 ; # => GM )) ; (( 2 ; 3 ; # => GM )) => SUB => INC )) ; 270 => INTGREATER (MATCHED (( # => CLEAR-MATRIX )) (( CLS )) (( } THE CLIPBOARD (OF SIZE 270 LINES, BY THE WAY) } => 22 100 B9-POP )) (( } SEEMS TO REQUIRE SOME OTHER BOUNDARIES THAN THESE,} => 22 125 B9-POP )) (( } -- COULD YOU BE SO V E R Y KIND AS TO TRY AGAIN? } => 22 150 B9-POP )) (( A-KEY )) (( B9-REFRESH )) MATCHED) )) (( B9-MARKING-ON => SETBASIS )) (( B9-REQUEST-CLIPBOARD-FIRST-LINE => RM )) (( B9-UPDATE-LINE-POS )) (( && )) )) OK) (LET B9-STD-FRAME BE (( )) (( (( CLS )) (( B9-SHOW-NORMAL-GOODS-AND-GET-PAYMENTS-INSTANTLY )) )) OK) (( LOOKSTK )) (LET B9-SAVE-THIS-DOC-NOW BE (( )) (( (( B9-WORK-SPACE >>> => & )) (( B9-FILE-SHOULD-BE-STORED => SETBASIS )) (( # => FIX-BLANK-LINES-IN-FILE )) (( B9-DOC-NAME => VARSTR> ; }.TXT} => CONCAT ; # => PM2FILE ; RM )) (( && )) )) OK) (LET B9-GET-NEW-DOC-NAME BE (( )) (( (( CLS )) (( } S T O R I N G Y O U R G R E A T W O R K S ! ! ! ! ! ! !} => 22 50 B9-POP )) (( } P L E A S E G I V E N E W D O C - N A M E :} => 22 75 B9-POP )) (( } (8-DIGITS MAX, DASH - AND HYPHEN _ AND DIGITS OKAY, .TXT} => 22 100 B9-POP )) (( } IS ADDED BY MACHINE AUTOMATICALLY. IF EXISTING FILE HAS} => 22 125 B9-POP )) (( } THIS NAME, IT IS AUTOMATICALLY OVERWRITTEN, SO BE CERTAIN.} => 22 150 B9-POP )) (( } ===========================================>} => 22 175 B9-POP )) (( 8 700 175 B9-READLN => MAKE-SAFE-8-SIZE-FILENAME => ONE ; }.TXT} => CONCAT ; ; )) (( } THANKS.} => 22 200 B9-POP )) (( } WILL USE:} => 22 225 B9-POP )) (( } ===========================================>} => 22 250 B9-POP )) (( ; => 700 250 B9-POP )) (( ; B9-DOC-NAME => >VARSTR )) )) OK) (LET B9-EXIT-MAYBE-BROWSE-MODE (( )) (( (( B9-READ-ONLY-VAR => VISDANCE (MATCHED (( CLS )) (( } BELOVED AMATEUR USER OF THE B9 EDITOR! I WELCOME YOUR} => 22 50 B9-POP )) (( } ENTERPRISING SPIRIT! BUT THE EDITOR HAS BEEN OPENED} => 22 75 B9-POP )) (( } IN A MODE TO BROWSE FILES ONLY. PLEASE REOPEN IN A SAVE/WRITE MODE} => 22 100 B9-POP )) (( } ANY DOCUMENTS WHICH SHOULD BE ALTERED. PROMISE YOU'LL REMEMBER} => 22 125 B9-POP )) (( } AND BE A BETTER CITIZEN FROM NOW ON ;) } => 22 150 B9-POP )) (( 22 175 B9-YNIN ; RM )) (( YES => => )) )(OTHER (( NO => => )) MATCHED) )) )) OK) (LET B9-STORE-FILE-OPTION (( )) (( (( B9-EXIT-MAYBE-BROWSE-MODE = EXIT === )) (( CLS )) (( } >>>>>>>>>>>>>>>>>>>>>> T H E B9 S T O R E O P T I O N} => 22 50 B9-POP )) (( B9-FILE-SHOULD-BE-STORED => VISDANCE (MATCHED (( } OUR SPIES TELL US THAT THE DOCUMENT IN THE RAM MIGHT HAVE} => 22 75 B9-POP )) (( } BEEN UPDATED SOMEHOW (AS A RESULT OF YOUR KEYACTIONS).} => 22 100 B9-POP )) (( } IF IT IS NOT STORED AT THIS POINT, WHAT IS IN RAM IS CLEARED.} => 22 125 B9-POP )) MATCHED) )) (( } > > > > > D O C U M E N T N A M E : } => 22 150 B9-POP )) (( B9-DOC-NAME => VARSTR> => 620 150 B9-POP )) (( }======== (.TXT IS AUTOADDED)} => 620 175 B9-POP )) (( } (THE PRESENT & STANDARD FILE FOLDER, C:\BOEHM\BOEHMIAN IS NORMALLY USED.} => 22 200 B9-POP )) (( } (BEWARE: ONLY IF YOU WANT OVERWRITE, GIVE NAME OF AN EXISTING FILE.)} => 22 225 B9-POP )) (( } ****====>!!!!! w a n t t o S A V E ????} => 22 250 B9-POP )) (( } ****====>!!!!! w a n t t o S A V E ????} => 22 275 B9-POP )) (( } ****====>!!!!! w a n t t o S A V E ????} => 22 300 B9-POP )) (( 22 325 B9-YNIN (MATCHED (( CLS )) (( } > > > > > D O C U M E N T N A M E : } => 22 50 B9-POP )) (( B9-DOC-NAME => VARSTR> => 800 50 B9-POP )) (( B9-DOC-NAME => VARSTR> => 800 75 B9-POP )) (( B9-DOC-NAME => VARSTR> => 800 100 B9-POP )) (( } WANT TO SAVE UNDER THE E X I S T I N G NAME?} 22 125 B9-POP )) (( } (IF NEW NAME, PLS AVOID SIMILAR NAMES AS OS NAMES)} 22 150 B9-POP )) (( } WANT TO SAVE UNDER THE E X I S T I N G NAME?} 22 175 B9-POP )) (( } WANT TO SAVE UNDER THE E X I S T I N G NAME?} 22 200 B9-POP )) (( } WANT TO SAVE UNDER THE E X I S T I N G NAME?} 22 225 B9-POP )) (( } [PLS TYPE AN 'N' IF YOU WANT NEW NAME] } 22 250 B9-POP )) (( 22 275 B9-YNIN => NOT (MATCHED (( B9-GET-NEW-DOC-NAME )) MATCHED) )) (( B9-SAVE-THIS-DOC-NOW )) (( } IT SHOULD BE SAVED NOW. DO PLS CHECK IN ALL IMPORTANT CASES,} => 22 300 B9-POP )) (( } AND CERTAINLY IF YOU HAVE USED AN UNUSUAL FILENAME.} => 22 325 B9-POP )) (( } (NORMALLY, BLANK LINES IN THE COMPLETION OF THE DOCUMENT ARE} => 22 350 B9-POP )) (( } NOT NECESSARILY INCLUDED, SO LINE COUNT MAY BE DIFFERENT.)} => 22 375 B9-POP )) (( 22 400 B9-ENTERPLS )) MATCHED) )) (( B9-LINE-NUM => SETDANCE )) (( B9-LINE-POS => SETDANCE )) (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN => SETDANCE )) (( B9-EDIT-TOP-LEFT )) )) OK) (LET B9-MAYBE-STORE-FILE (( )) (( (( (( B9-FILE-SHOULD-BE-STORED => VISDANCE )) (( B9-READ-ONLY-VAR => VISBASIS )) => AND (MATCHED (( B9-STORE-FILE-OPTION )) MATCHED) )) )) OK) (LET WORD BE (( )) (( (( B9-READ-ONLY-VAR => SETDANCE )) (( }MTDOC} ; }B9} => ? => H )) )) OK) (LET B9-FETCH-FILE BE (( )) (( (( B9-WORK-SPACE >>> => & )) (( # => CLEAR-MATRIX )) (( B9-FILE-SHOULD-BE-STORED => SETBASIS )) (( B9-DOC-NAME => VARSTR> => CALC-AMOUNT-LINES-IN-TXT-OF-ANY-WIDTH B9-MAX-LINE-USED <>> => ISPRO => NOT (MATCHED (( B9-MAX-LINE-USED => SETDANCE )) MATCHED) )) (( B9-MAX-LINE-USED >>> ; 1 ; B9-TOP-LINE-NUM >>> => SET-RANGE B9-MAX-LINE-USED < VARSTR> ; }.TXT} => CONCAT ; # => FILE2PM ; RM )) (( # => FIX-BLANK-LINES-IN-FILE )) (( B9-MAX-LINE-USED >>> ; # => FILTER-NON7ASCII-CHARS )) (( # => ARE-ALL-IN-RIGHTMOST-COLUMN-UNUSED => NOT (MATCHED (( # => CLEAR-MATRIX )) (( B9-MAX-LINE-USED => SETDANCE )) (( CLS )) (( } LOOK, MY DEAR FRIEND, I DON'T KNOW HOW YOU HAVE PRODUCED} => 22 50 B9-POP )) (( } THIS SURELY EMINENT TEXT FILE, BUT I KNOW, FOR FACT, E.G. LINE} => 22 75 B9-POP )) (( ARE-ALL-IN-RIGHTMOST-DATA >>> ; } HAS BEEN PRODUCED BY SOME OTHER EDITOR THAT THIS.} => CONCAT => 22 100 B9-POP )) (( } WHAT I AM TRYING TO POINT OUT IS THAT YOU NEED TO RUN STH LIKE} => 22 125 B9-POP )) (( } THE WORDWRAP PROGRAM ON THIS. IT IS FAIRLY STRAIGHTFORWARD.} => 22 150 B9-POP )) (( } DO THAT, AND FIX UP PARAGRAPHS AFTERWARDS, FOR WE MUST HAVE} => 22 175 B9-POP )) (( } MAXIMUM 78 IN CHARACTER LINE LENGTH OF ALL B9 DOCUMENTS.} => 22 200 B9-POP )) (( } GREAT LUCK ON YOUR MISSION. AND WELCOME BACK ON THIS.} => 22 225 B9-POP )) (( } =========> I WILL IMPROVE IN THE FUTURE:} => 22 250 B9-POP )) (( 22 275 B9-YNIN => RM )) (( CLS )) (( B9-LINE-NUM => SETDANCE )) )(OTHER (( B9-LINE-NUM >>> ; 1 ; B9-MAX-LINE-USED >>> => SET-RANGE B9-LINE-NUM <>> => & )) (( B9-MAYBE-STORE-FILE )) (( CLS )) (( } P L E A S E T E L L W H I C H F I L E T O G E T :} => 22 50 B9-POP )) (( B9-READ-ONLY-VAR => VISDANCE (MATCHED (( } *******====> BROWSE-MODE IS ON. START IN ANOTHER WAY TO STORE ALSO.} => 22 500 B9-POP )) (( } !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!} => 22 525 B9-POP )) )(OTHER MATCHED) )) (( } (FROM THE NORMAL STANDARD FOLDER C:\BOEHM\BOEHMIAN. THE PROGRAM} => 22 100 B9-POP )) (( } ASSUMES THAT YOU ARE FAMILIAR WITH THE FILENAME YOU WANT TO WORK} => 22 125 B9-POP )) (( } ON, -- IF IN DOUBT CONSULT A PROGRAM WHICH GIVES A FILELIST.} => 22 150 B9-POP )) (( } THIS EDITOR AUTOMATICALLY ASSUMES .TXT IS THE RIGHT EXTENSION.} => 22 175 B9-POP )) (( } IF FILENAME UNKNOWN, YOU WILL GET A NEW EMPTY BLANK WORKSPACE.} => 22 200 B9-POP )) (( } IF YOU JUST [INS]-MARKED SOMETHING, YOU CAN USE F5 TO PUT IT IN THE NEW.} => 22 225 B9-POP )) (( } THE FILENAME YOU INDCATE HERE WILL BE SUGGESTED WHEN YOU SAVE IT.)} => 22 250 B9-POP )) (( } LOAD / GET=================================>} => 22 275 B9-POP )) (( 8 800 275 B9-READLN => MAKE-SAFE-8-SIZE-FILENAME => ONE ; }.TXT} => CONCAT ; ; )) (( } THANKS. CURRENT FILENAME IS SET TO THIS --} => 22 325 B9-POP )) (( } (AND FILE WILL BE ACCESSED IF EXISTS)} => 22 350 B9-POP )) (( } ===========================================>} => 22 375 B9-POP )) (( ; => 800 375 B9-POP )) (( ; B9-DOC-NAME => >VARSTR )) (( B9-FETCH-FILE )) (( B9-LINE-NUM => SETDANCE )) (( B9-LINE-POS => SETDANCE )) (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN => SETDANCE )) (( B9-EDIT-TOP-LEFT )) (( 22 400 B9-ENTERPLS )) (( CLS )) (( && )) )) OK) (LET B9-FUNCTR-U BE (( )) (( (( B9-CASE-SCAN => FLAGFLIP )) )) OK) (LET B9-FUNCTR-W BE (( )) (( (( B9-WORDWRAPPING => FLAGFLIP )) )) OK) (LET B9-FUNCTR-L BE (( )) (( (( B9-RECENT-SCAN-REPL-WARP => VISBASIS (MATCHED (( EXIT )) MATCHED) )) (( CLS )) (( }MOVING AHEAD ONE!} => 22 50 B9-POP )) (( B9-EDIT-X >>> ; 77 => INTGREATER (MATCHED (( B9-MAX-LINE-USED >>> ; B9-LINE-NUM >>> => INTGREATER (MATCHED (( B9-LINE-NUM => INCVAR )) (( B9-LINE-NUM >>> B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN < SETDANCE )) (( 2 ; B9-EDIT-X < INCVAR )) (( B9-EDIT-X => INCVAR )) MATCHED) (( B9-RECENT-SCAN-REPL-WARP >>> H )) (( B9-REFRESH )) )) OK) (LET B9-PR-REDISPLAY-CURRENT-PAGE BE (( )) (( (( B9-WORK-SPACE >>> => & )) (( B9-MAX-LINE-USED >>> => ISPRO (MATCHED (( 29 (COUNT (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN >>> ; N1 => ADD => DEC ; B9-MAX-LINE-USED >>> => INTGREATER (MATCHED (( RMS ; RMS )) (( GOFORWARD4 )) MATCHED) )) (( B9-PAGE-WIDTH >>> (COUNT (( N1 ; (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN >>> ; N3 => ADD => DEC )) ; # => GM => AFFIRM (MATCHED (( ; => ONE ; ; )) (( ; 32 ; 126 => WITH (MATCHED (( ; ONE => ASCII => N1 ; 12 => MUL 42 ADD ; (( N3 ; 25 => MUL => B9-PRPOP )) MATCHED) )) (( ; => RM )) )(OTHER (( RMS ; RMS )) (( GOFORWARD2 )) MATCHED) )) COUNTUP) )) (( GOLABEL2: )) COUNTUP) )) MATCHED) )) (( GOLABEL4: )) (( && )) )) OK) (LET B9-FUNCTR-I BE (( )) (( (( 74 ; B9-LINE-POS >>> => INTGREATER (MATCHED (( B9-UN-UNDERLINECURRENT-POS )) (( B9-EDIT-RIGHTER-2 )) (( 2 B9-LINE-POS => ADDVAR )) (( B9-EDIT-RANGE-CONTROL )) (( B9-UNDERLINECURRENT-POS )) MATCHED) )) )) OK) (LET B9-FUNSHIFT-IND BE (( )) (( (( 74 ; B9-LINE-POS >>> => INTGREATER (MATCHED (( B9-UN-UNDERLINECURRENT-POS )) (( B9-EDIT-RIGHTER-4 )) (( 4 B9-LINE-POS => ADDVAR )) (( B9-EDIT-RANGE-CONTROL )) (( B9-UNDERLINECURRENT-POS )) MATCHED) )) )) OK) (LET B9-FUNCTR>-ARROW BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-EDIT-RIGHTER-10 )) (( 10 B9-LINE-POS => ADDVAR )) (( B9-EDIT-RANGE-CONTROL )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUNCTR<-ARROW BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-EDIT-LEFTER-10 )) (( -10 B9-LINE-POS => ADDVAR )) (( B9-EDIT-RANGE-CONTROL )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-MAX-LINE-USED-AT-LEAST-THIS BE (( >N6 )) (( (( B9-WORK-SPACE >>> => & )) (( N6 ; 1 ; B9-TOP-LINE-NUM >>> => SET-RANGE => >N6 )) (( B9-MAX-LINE-USED >>> => >N7 )) (( N6 ; N7 => INTGREATER (MATCHED (( N6 ; N7 => SUB (COUNT (( 32 ; 1 ; (( N1 ; N9 => ADD )) ; # => PM )) COUNTUP) )) (( N6 B9-MAX-LINE-USED <>> ; 21 => INTGREATER (MATCHED (( B9-MAX-LINE-USED >>> ; B9-LINE-NUM >>> => INTGTOREQUAL )) (MATCHED (( B9-LINE-NUM => INCVAR )) (( B9-LINE-NUM >>> => B9-MAX-LINE-USED-AT-LEAST-THIS )) (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN => INCVAR )) (( B9-STD-FRAME )) (( B9-REDISPLAY-ALL-TEXT-HERE )) MATCHED) )) )(OTHER (( B9-EDIT-NEXTER )) (( B9-LINE-NUM => INCVAR )) (( B9-EDIT-RANGE-CONTROL )) MATCHED) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUN<-ARROW BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-EDIT-LEFTER )) (( -1 ; B9-LINE-POS => ADDVAR )) (( B9-EDIT-RANGE-CONTROL )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUN^-ARROW BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( (( B9-EDIT-Y >>> ; 2 => EQN )) (( B9-LINE-NUM >>> ; 1 => INTGREATER )) => AND (MATCHED (( -1 B9-LINE-NUM => ADDVAR )) (( -1 B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN => ADDVAR )) (( B9-STD-FRAME )) (( B9-REDISPLAY-ALL-TEXT-HERE )) (( B9-UNDERLINECURRENT-POS )) )(OTHER (( B9-EDIT-UPPER )) (( -1 ; B9-LINE-NUM => ADDVAR )) (( B9-EDIT-RANGE-CONTROL )) (( B9-UNDERLINECURRENT-POS )) MATCHED) )) OK) (LET B9-FUN>-ARROW BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-EDIT-RIGHTER )) (( B9-LINE-POS => INCVAR )) (( B9-EDIT-RANGE-CONTROL )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUNF1 BE (( )) (( (( B9-LOAD-NEW-FILE )) (( CLEAR_KEYBUF )) (( B9-REFRESH )) )) OK) (LET B9-FUNF2 BE (( )) (( (( B9-STORE-FILE-OPTION )) (( CLEAR_KEYBUF )) (( B9-REFRESH )) )) OK) (LET B9-SCAN-ACTION-ESSENCE BE (( )) (( (( V10 => NOZ (MATCHED (( V10 => TOV2 )) (( V10 ; V3 ; # => GM => TOV11 )) (( 0 => TOV10 )) MATCHED) )) (( V8 ; V11 => INTEQUAL (MATCHED (( V7 => %LENGTH => DEC (COUNT (( (( N1 ; V2 => ADD )) ; V3 ; # => GM => A (MATCHED (( ; N1 => INC ; V7 => %GET => NOT_INTEQUAL (MATCHED RMS RMS GOFORWARD3 MATCHED) )) )(OTHER RMS RMS GOFORWARD4 MATCHED) )) COUNTUP) )) (( V2 ; B9-LINE-POS < INC ; B9-EDIT-X < INC => TOV2 )) (( 1 => TOV4 )) (( }* * * * * * * * * * * * * * FOUND IT!} => 22 400 B9-POP )) (( }* * * * * * $ * * * * * * * FOUND IT!} => 22 425 B9-POP )) (( }* * * * * * * * * * * * * * FOUND IT!} => 22 450 B9-POP )) (( EXIT )) (( GOLABEL3: )) (( GOLABEL4: )) MATCHED) )) )) OK) (LET B9-SCAN-ACTION BE (( )) (( (( }SCANNING THE TEXT >>>>CASE-EXACT<<< 22 200 B9-POP )) (( }SCANNING FROM PRESENT POSITION ONWARDS FOR:} => 22 225 B9-POP )) (( }"} ; B9-SCAN-ARRAY >>> => ARRAY>STR ; }"} => CONCAT => CONCAT ; 22 ; 250 B9-POP )) (( VLOTS )) (( B9-LINE-POS >>> => TOV10 )) (( B9-LINE-NUM >>> => TOV3 )) (( B9-MAX-LINE-USED >>> => TOV4 )) (( B9-SCAN-ARRAY >>> => TOV7 )) (( 1 ; V7 => %GET => TOV8 )) (( VFREE )) (( B9-SCAN-ACTION-HOUSE >>> ; B9-WORK-SPACE >>> => FORVPM2 )) (( }**** DONE! ****} => 22 680 B9-POP )) (( A-KEY )) )) OK) (( }B9-SCAN-ACTION-ESSENCE} => ? B9-SCAN-ACTION-HOUSE < NOZ (MATCHED (( V10 => TOV2 )) (( V10 ; V3 ; # => GM => TOV11 )) (( 0 => TOV10 )) MATCHED) )) (( V8 ; V11 => UPCNUM => INTEQUAL (MATCHED (( V7 => %LENGTH => DEC (COUNT (( (( N1 ; V2 => ADD )) ; V3 ; # => GM => A (MATCHED (( ; => UPCNUM ; N1 => INC ; V7 => %GET => NOT_INTEQUAL (MATCHED RMS RMS GOFORWARD3 MATCHED) )) )(OTHER RMS RMS GOFORWARD4 MATCHED) )) COUNTUP) )) (( V2 ; B9-LINE-POS < INC ; B9-EDIT-X < INC => TOV2 )) (( 1 => TOV4 )) (( }* * * * * * * * * * * * * * FOUND IT!} => 22 400 B9-POP )) (( }* * * * * * $ * * * * * * * FOUND IT!} => 22 400 B9-POP )) (( }* * * * * * * * * * * * * * FOUND IT!} => 22 400 B9-POP )) (( EXIT )) (( GOLABEL3: )) (( GOLABEL4: )) MATCHED) )) )) OK) (LET B9-SCAN-ACTION-UPC BE (( )) (( (( }SCANNING THE TEXT >>>>CASE-LIBERAL<<< 22 200 B9-POP )) (( }SCANNING FROM PRESENT POSITION ONWARDS FOR:} => 22 225 B9-POP )) (( }"} ; B9-SCAN-ARRAY >>> => ARRAY>STR ; }"} => CONCAT => CONCAT ; 22 250 B9-POP )) (( VLOTS )) (( B9-LINE-POS >>> => TOV10 )) (( B9-LINE-NUM >>> => TOV3 )) (( B9-MAX-LINE-USED >>> => TOV4 )) (( B9-SCAN-ARRAY >>> => TOV7 )) (( 1 ; V7 => %GET => TOV8 )) (( VFREE )) (( B9-SCAN-ACTION-UPC-HOUSE >>> ; B9-WORK-SPACE >>> => FORVPM2 )) (( }**** DONE! ****} => 22 680 B9-POP )) (( A-KEY )) )) OK) (( }B9-SCAN-ACTION-UPC-ESSENCE} => ? B9-SCAN-ACTION-UPC-HOUSE < NOZ (MATCHED (( V10 => TOV2 )) (( V10 ; V3 ; # => GM => TOV11 )) (( 0 => TOV10 )) MATCHED) )) (( V8 ; V11 => INTEQUAL (MATCHED (( V7 => %LENGTH => DEC (COUNT (( (( N1 ; V2 => ADD )) ; V3 ; # => GM => A (MATCHED (( ; N1 => INC ; V7 => %GET => NOT_INTEQUAL (MATCHED RMS RMS GOFORWARD3 MATCHED) )) )(OTHER RMS RMS GOFORWARD4 MATCHED) )) COUNTUP) )) (( V2 ; B9-LINE-POS < INC ; B9-EDIT-X < INC => TOV2 )) (( 1 => TOV4 )) (( B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => %GET => >N7 )) (( B9-LINE-POS >>> ; B9-SCAN-ARRAY >>> => %LENGTH ; N7 ; B9-REPL-ARRAY >>> => REPLACE-SEGMENT )) (( B9-FILE-SHOULD-BE-STORED => SETDANCE )) (( }* * * * * * * * * * * * * * REPLACED IT!} 22 400 B9-POP )) (( }* * * * * * $ * * * * * * * REPLACED IT!} 22 425 B9-POP )) (( }* * * * * * * * * * * * * * REPLACED IT!} 22 450 B9-POP )) (( EXIT )) (( GOLABEL3: )) (( GOLABEL4: )) MATCHED) )) )) OK) (LET B9-REPL-ACTION BE (( )) (( (( }SCANNING THE TEXT >>>>CASE-EXACT<<<< FOR REPLACE!} 22 200 B9-POP )) (( }SCANNING FROM PRESENT POSITION ONWARDS FOR:} 22 225 B9-POP )) (( }"} ; B9-SCAN-ARRAY >>> => ARRAY>STR ; }"} => CONCAT => CONCAT ; 22 250 B9-POP )) (( VLOTS )) (( B9-LINE-POS >>> => TOV10 )) (( B9-LINE-NUM >>> => TOV3 )) (( B9-MAX-LINE-USED >>> => TOV4 )) (( B9-SCAN-ARRAY >>> => TOV7 )) (( 1 ; V7 => %GET => TOV8 )) (( VFREE )) (( B9-REPL-ACTION-HOUSE >>> ; B9-WORK-SPACE >>> => FORVPM2 )) (( }**** DONE! ****} => 22 680 B9-POP )) (( A-KEY )) )) OK) (( }B9-REPL-ACTION-ESSENCE} => ? B9-REPL-ACTION-HOUSE < NOZ (MATCHED (( V10 => TOV2 )) (( V10 ; V3 ; # => GM => TOV11 )) (( 0 => TOV10 )) MATCHED) )) (( V8 ; V11 => UPCNUM => INTEQUAL (MATCHED (( V7 => %LENGTH => DEC (COUNT (( (( N1 ; V2 => ADD )) ; V3 ; # => GM => A (MATCHED (( ; => UPCNUM ; N1 => INC ; V7 => %GET => NOT_INTEQUAL (MATCHED RMS RMS GOFORWARD3 MATCHED) )) )(OTHER RMS RMS GOFORWARD4 MATCHED) )) COUNTUP) )) (( V2 ; B9-LINE-POS < INC ; B9-EDIT-X < INC => TOV2 )) (( 1 => TOV4 )) (( B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => %GET => >N7 )) (( B9-LINE-POS >>> ; B9-SCAN-ARRAY >>> => %LENGTH ; N7 ; B9-REPL-ARRAY >>> => REPLACE-SEGMENT )) (( B9-FILE-SHOULD-BE-STORED => SETDANCE )) (( }* * * * * * * * * * * * * * REPLACED IT!} => 22 400 B9-POP )) (( }* * * * * * $ * * * * * * * REPLACED IT!} => 22 425 B9-POP )) (( }* * * * * * * * * * * * * * REPLACED IT!} => 22 450 B9-POP )) (( EXIT )) (( GOLABEL3: )) (( GOLABEL4: )) MATCHED) )) )) OK) (LET B9-REPL-ACTION-UPC BE (( )) (( (( }SCANNING THE TEXT >>>>CASE-LIBERAL<<<< REPLACE!} => 22 200 B9-POP )) (( }SCANNING FROM PRESENT POSITION ONWARDS FOR:} => 22 225 B9-POP )) (( }"} ; B9-SCAN-ARRAY >>> => ARRAY>STR ; }"} => CONCAT => CONCAT ; 22 ; 250 B9-POP )) (( VLOTS )) (( B9-LINE-POS >>> => TOV10 )) (( B9-LINE-NUM >>> => TOV3 )) (( B9-MAX-LINE-USED >>> => TOV4 )) (( B9-SCAN-ARRAY >>> => TOV7 )) (( 1 ; V7 => %GET => TOV8 )) (( VFREE )) (( B9-REPL-ACTION-UPC-HOUSE >>> ; B9-WORK-SPACE >>> => FORVPM2 )) (( }**** DONE! ****} => 22 680 B9-POP )) (( A-KEY )) )) OK) (( }B9-REPL-ACTION-UPC-ESSENCE} => ? B9-REPL-ACTION-UPC-HOUSE <>>>REPLACE<<<< ANY SIMPLE TEXT PATTERN WITH ANOTHER.} => 22 25 B9-POP )) (( } -- STARTING FROM WHERE THE TEXT MARKER IS POSITIONED NOW,} => 22 50 B9-POP )) (( } AND -- IF YOU PRESS CTR-L YOU CAN LOOP MOST RECENT SCAN/REPL,} => 22 75 B9-POP )) (( } BUT CTR-L IS SOMETHING YOU PRESS WHEN THE TEXT IS SHOWING.} => 22 100 B9-POP )) (( } ONCE YOU HAVE PRESSED THIS KEY, YOU MUST TYPE IN TEXT --} => 22 125 B9-POP )) (( } -- OR PRESS ENTER TO GET A LINE/WORD WHICH YOU HAVE [INS]-MARKED} => 22 150 B9-POP )) (( } TO SEARCH FOR. YOU WILL BE ASKED WHETHER YOU'RE CERTAIN TO GO AHEAD.} => 22 175 B9-POP )) (( } DURING ORDINARY TEXT VIEWING MODE, CTR-U SHIFTS SCAN CASE-SENSITIVITY.} => 22 200 B9-POP )) (( } THE TEXT SCAN/REPL IS IN MODE:} => 22 225 B9-POP )) (( B9-CASE-SCAN => VISDANCE (MATCHED (( }>>>>UP/LCASE-STRICT} => 640 225 B9-POP )) )(OTHER (( }>>>>UP/LCASE-LIBERAL} => 640 225 B9-POP )) MATCHED) )) (( } TEXT TO MATCH FOR: (OR ENTER FOR FIRST LINE OF ANY RECENT [INS] CLIP)} => 22 250 B9-POP )) (( } ==>} => 22 275 B9-POP )) (( 70 120 275 B9-READLN => TOSTANDARDSPACE => LENGTH => ISBASIS (MATCHED (( RM )) (( B9-REQUEST-CLIPBOARD-FIRST-LINE ; )) MATCHED) )) (( ; => LENGTH => ISBASIS (MATCHED (( RM )) (( GOFORWARD4 )) MATCHED) )) (( CLS )) (( B9-CASE-SCAN => VISBASIS (MATCHED (( ; => UPCM ; )) MATCHED) )) (( ; B9-SCAN-ARRAY >>> => STR>EXISTING-ARRAY )) (( } EXACT TEXT TO REPLACE THIS WITH (ENTERING NOTHING MEANS REMOVE):} => 22 25 B9-POP )) (( } ==>} => 22 50 B9-POP )) (( 70 120 50 B9-READLN => TOSTANDARDSPACE ; )) (( ; B9-REPL-ARRAY >>> => STR>EXISTING-ARRAY )) (( } ****** ONLY ONE REPLACE WILL BE DONE. CTR-L REPEATEDLY FOR MORE.} => 22 75 B9-POP )) (( } =========> PLEASE STORE OFTEN UNDER NEW NAMES WHEN BIG CHANGES ===========>} => 22 100 B9-POP )) (( } ************* PLEASE S A V E FIRST IF UNCERTAIN!!!! (TYPE N HERE)} => 22 125 B9-POP )) (( } **** A B S O L U T E L Y SURE TO DO R E P L A C E?} => 22 150 B9-POP )) (( 22 175 B9-YNIN (MATCHED (( B9-CASE-SCAN => VISDANCE (MATCHED (( }B9-REPL-ACTION} => ? B9-RECENT-SCAN-REPL-WARP < ? B9-RECENT-SCAN-REPL-WARP < 22 50 B9-POP )) (( } -- STARTING FROM WHERE THE TEXT MARKER IS POSITIONED NOW,} => 22 75 B9-POP )) (( } AND -- IF YOU PRESS CTR-L YOU CAN LOOP MOST RECENT SCAN/REPL,} => 22 100 B9-POP )) (( } BUT CTR-L (LOOK) IS SOMETHING YOU PRESS WHEN THE TEXT IS SHOWING.} => 22 125 B9-POP )) (( } ONCE YOU HAVE PRESSED THIS KEY, YOU MUST TYPE IN TEXT --} => 22 150 B9-POP )) (( } -- OR PRESS ENTER TO GET A LINE/WORD WHICH YOU HAVE [INS]-MARKED} => 22 175 B9-POP )) (( } TO SEARCH FOR. THE TEXT SCAN/REPL IS NOW IN MODE:} => 22 200 B9-POP )) (( B9-CASE-SCAN => VISDANCE (MATCHED (( }>>>>UP/LCASE-STRICT} => 640 200 B9-POP )) )(OTHER (( }>>>>UP/LCASE-LIBERAL} => 640 200 B9-POP )) MATCHED) )) (( } CLICK CTR-U DURING ORDINARY TEXT VIEWING MODE TO SWITCH BETWEEN} => 22 225 B9-POP )) (( } HAVING SCAN/REPL CASE SENSITIVE OR MATCHING ON BOTH CASES.} => 22 250 B9-POP )) (( } TEXT TO MATCH FOR: (OR ENTER FOR FIRST LINE OF ANY RECENT [INS] CLIP)} => 22 275 B9-POP )) (( } ==>} => 22 300 B9-POP )) (( 70 120 300 B9-READLN => LENGTH => ISBASIS (MATCHED (( RM )) (( B9-REQUEST-CLIPBOARD-FIRST-LINE ; )) MATCHED) )) (( ; => TOSTANDARDSPACE ; )) (( ; => LENGTH => ISBASIS (MATCHED (( RM )) (( GOFORWARD4 )) MATCHED) )) (( CLS )) (( B9-CASE-SCAN => VISDANCE (MATCHED (( ; B9-SCAN-ARRAY >>> ; STR>EXISTING-ARRAY )) (( }B9-SCAN-ACTION} => ? B9-RECENT-SCAN-REPL-WARP < UPCM ; B9-SCAN-ARRAY >>> ; STR>EXISTING-ARRAY )) (( }B9-SCAN-ACTION-UPC} => ? B9-RECENT-SCAN-REPL-WARP <>> ; B9-WORK-SPACE >>> => GM => A (MATCHED (( ; => ASCII => LPCM => GETASCII ; N1 ; B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => PM )) MATCHED) )) COUNTUP) )) (( B9-REFRESH )) )) OK) (LET B9-FUNF5 BE (( )) (( (( B9-MARKING-ON => VISBASIS (MATCHED (( B9-COMPLETE-MARKING-ON )) (( B9-PUT-IT-GOOD )) (( B9-FILE-SHOULD-BE-STORED => SETDANCE )) (( B9-REFRESH )) )(OTHER (( B9-COMPLETE-MARKING-ON )) (( B9-REFRESH )) MATCHED) )) )) OK) (LET B9-FUNCTR-F5 BE (( )) (( (( 78 (COUNT (( N1 ; B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => GM => A (MATCHED (( ; => ASCII => UPCM => GETASCII ; N1 ; B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => PM )) MATCHED) COUNTUP) )) (( B9-REFRESH )) )) OK) (LET B9-FUNF6 BE (( )) (( (( CLS )) (( } ===info=on=the=fantastic=B9=typewriter! // the present filename:} => 22 25 B9-POP )) (( B9-DOC-NAME => VARSTR> => 850 25 B9-POP )) (( } use ctr with arrows to go faster on a line. WORDWRAP:} => 22 50 B9-POP )) (( B9-WORDWRAPPING => VISDANCE (MATCHED }ON} )(OTHER }[]} MATCHED) => 950 50 B9-POP )) (( } when you press the function key f9 during typing, } => 22 75 B9-POP )) (( B9-READ-ONLY-VAR => VISDANCE (MATCHED (( }READ-ONLY} => 870 75 B9-POP )) )(OTHER MATCHED) )) (( } the line number and the position in the line is shown} => 22 100 B9-POP )) (( } / ctr-f6:rest screen} => 600 100 B9-POP )) (( } down and to the right. for insertion of many blanks, try clever use of f5.} => 22 125 B9-POP )) (( } adjust wordwrap and ctr-f6 password in completing lines of this file. } => 22 150 B9-POP )) (( } get a file in by f1, store it by f2. you mark text by clicking 'ins'} => 22 175 B9-POP )) (( } key then moving. arrows, pgu, pgn. ctr-pgu/pgn for start/completion.} => 22 200 B9-POP )) (( } the completion of marking of text is by click 'ins' again. then you can} => 22 225 B9-POP )) (( } put (f5) it. you can put it as many times as you like. Ctr-p prints to bmp.} => 22 250 B9-POP )) (( } you can also use f5 (after a single press on [INS]) to complete marking.} => 22 275 B9-POP )) (( } then move text position marker to where you want it inserted, press f5.} => 22 300 B9-POP )) (( } in other words: mark text with [ins], move text-marker (max 270 lines),} => 22 325 B9-POP )) (( } [ins] to complete. earlier clipboard is erased next time [ins] is touched!} => 22 350 B9-POP )) (( } (if you are careful to preserve the f5 content, you can open another} => 22 375 B9-POP )) (( } file with f1 and f5 put it in there. you can also specify a new file} => 22 400 B9-POP )) (( } name -- one that you create -- in order to clear the document, with f1.} => 22 425 B9-POP )) (( } then you can paste it in there. mark max 270 lines each time.)} => 22 450 B9-POP )) (( } use ctr-w for wordwrap while typing in. store with f2 before replace etc.} => 22 475 B9-POP )) (( } save often with f2! use ctr-ins to insert new lines, ctr-del remove many.} => 22 500 B9-POP )) (( } the program will exit if you press 'esc'; or shift to new doc by f1. } => 22 525 B9-POP )) (( } f4, scan, means text search; replace by f3. keytab moves 2 (try shift).} => 22 550 B9-POP )) (( } most recent replace (or scan) can be looped by ctr-l. save first!} => 22 575 B9-POP )) (( } the ctr-f3 puts all of present line to lowercase, ctr-f5 uppercase.} => 22 600 B9-POP )) (( } BACKUP OFTEN UNDER NEW NAMES. TRANSFER TO PERMANENT STORAGEPLACES OFTEN!!!} => 22 725 B9-POP )) (( A-KEY )) (( CLEAR_KEYBUF )) (( B9-REFRESH )) )) OK) (LET B9-ENSURE-NOZ-EARLIER-ON-THIS-LINE BE (( >N7 >N6 )) (( (( 2 ; N6 => INTGREATER = EXIT === )) (( N7 ; B9-WORK-SPACE >>> %GET => & )) (( N6 (COUNT (( N1 ; # => %GET => ISBASIS (MATCHED (( 32 ; N1 ; # => %PUT )) MATCHED) )) COUNTUP) )) (( && )) )) OK) (LET B9-INSERT-ROOM-FOR-ANOTHER-RIGHT-HERE BE (( )) (( (( B9-LINE-NUM >>> ; B9-MAX-LINE-USED >>> => INTGREATER = B9-LINE-NUM >>> B9-MAX-LINE-USED <>> ; B9-WORK-SPACE >>> => %GET => & )) (( # => ACTIVE-LENGTH => >N5 )) (( B9-LINE-POS >>> => >N8 )) (( N8 ; N5 => INTGREATER (MATCHED (( N8 ; B9-LINE-NUM >>> => B9-ENSURE-NOZ-EARLIER-ON-THIS-LINE )) MATCHED) )) (( B9-PAGE-WIDTH >>> ; N8 => EQN (MATCHED (( 32 ; N8 ; # => %PUT )) (( && )) (( EXIT )) MATCHED) )) (( N5 => INC ; N8 => EQN (MATCHED (( 32 ; N8 ; # => %PUT )) (( && )) (( EXIT )) MATCHED) )) (( N5 ; N8 => SUB => INC => >N9 )) (( N5 => INC ; B9-PAGE-WIDTH >>> => INTGREATER (MATCHED (( DECN9 )) MATCHED) )) (( (( N8 => MUL4 ; # => ADD )) ; (( N8 => INC => MUL4 ; # => ADD )) ; N9 => COPYNUMSHIGH )) (( 32 ; N8 ; # => %PUT )) (( && )) )) OK) (( LOOKSTK )) (LET B9-FUNCTR-F6 BE (( )) (( (( NATURALS => VARSTR> => UPCM => STR>ARRAY => & )) (( # => %LENGTH => >N2 )) (( N2 => ISBASIS = GOFORWARD1 === )) (( CLS )) (( } PRESS ANY KEY TO LET SCREEN REST.} => 22 25 B9-POP )) (( } P L E A S E REMEMBER THE WORD >>>>>} ; # => ARRAY>STR => CONCAT ; }<<<<<} => CONCAT ; 22 50 B9-POP )) (( } IN ORDER TO GET BACK THE TEXT DISPLAY,} => 22 75 B9-POP )) (( } OR PC MUST BE TURNED OFF WITH RISK OF FILE ERASURES} => 22 100 B9-POP )) (( } (DUE TO LACK OF PROPER SAVING OF FILES.)} => 22 125 B9-POP )) (( } SO TYPE IT IN THEN (UPPERCASE OR LOWERCASE).} => 22 150 B9-POP )) (( A-KEY )) (( GOLABEL1: )) (( CLS )) (( 1 ; 1 ; 1024 ; 768 ; 1 => RECTFILL )) (( 1 => >N1 )) (( GOLABEL2: )) (( KEY => UPCM => GETASCII => >N3 )) (( N2 => ISBASIS = GOFORWARD4 === )) (( N1 ; N2 => EQN (MATCHED (( N3 ; (( N1 ; # => %GET )) => EQN )) => AND = GOFORWARD3 == 1 => >N1 === )) )(OTHER (( N3 ; (( N1 ; # => %GET )) => EQN = INCN1 == 1 => >N1 ; ^4 FR GETV => ISDANCE = 1000 => TONE ; 10 => SECS ; 0 => TONE === === )) MATCHED) )) (( GOUP2 )) (( GOLABEL3: )) (( GOLABEL4: )) (( CLEAR_KEYBUF )) (( # => %FREE ; && )) (( CLS )) (( B9-REFRESH )) )) OK) (LET CONNECT-TO-GJ-NETWORK BE (( )) (( (( )) )) OK) (LET B9-FUNF7 BE (( )) (( (( CONNECT-TO-GJ-NETWORK )) )) OK) (LET B9-FUNCTR-F7 BE (( )) (( (( B9-SHOW-CODES => FLAGFLIP )) )) OK) (LET B9-FUNF8 BE (( )) (( (( CLS )) (( } HERE ONE CAN HEALTHILY JUMP TO ANYWHERE, WITH REMARKABLE EASE.} => 20 444 B9-POP )) (( } IT'S FUN TO WARP.} => 20 274 B9-POP )) (( } LINE NUMBER: (OR ENTER TO RETURN)} => 20 304 B9-POP )) (( 6 500 304 B9-READLN => HEAL => >N5 )) (( N5 ; 1 ; B9-MAX-LINE-USED >>> => SET-RANGE => >N5 )) (( N5 B9-LINE-NUM < SETDANCE )) (( B9-LINE-NUM >>> B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN <>> => & )) (( B9-CLIPBOARD-FIRST-LINE => VARSTR-SETBASIS )) (( B9-CLIPBOARD-AMOUNT-LINES => SETBASIS )) (( B9-LINE-POS >>> => >N9 )) (( B9-LINE-NUM >>> => >N10 )) (( B9-MARKING-ON => VISBASIS (MATCHED (( N9 ; 1 ; 3 ; # => PM )) (( N10 ; 2 ; 3 ; # => PM )) (( 0 ; 1 ; 4 ; # => PM )) (( 0 ; 2 ; 4 ; # => PM )) (( B9-MARKING-ON => SETDANCE )) )(OTHER (( B9-COMPLETE-MARKING-ON )) MATCHED) )) (( B9-UNDERLINECURRENT-POS )) (( && )) )) OK) (LET B9-FUNDELK BE (( )) (( (( B9-LINE-NUM >>> ; B9-MAX-LINE-USED >>> => INTGREATER = EXIT === )) (( B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => %GET => & )) (( # => ACTIVE-LENGTH => >N5 )) (( B9-LINE-POS >>> => >N8 )) (( N8 ; N5 => INTGREATER = && ; EXIT === )) (( (( N8 => INC => MUL4 ; # => ADD )) ; (( N8 => MUL4 ; # => ADD )) ; (( N5 ; N8 => SUB )) => COPYNUMS )) (( 0 ; N5 ; # => %PUT )) (( B9-REDISPLAY-CURRENT-LINE )) (( B9-FILE-SHOULD-BE-STORED => SETDANCE )) (( && )) )) OK) (LET B9-FUNBP BE (( )) (( (( B9-LINE-POS >>> ; 1 => INTGREATER (MATCHED (( B9-FUN<-ARROW )) (( B9-FUNDELK )) MATCHED) )) )) OK) (LET B9-FUNCTR-INS BE (( )) (( (( B9-LINE-NUM >>> ; B9-MAX-LINE-USED >>> => INTGTOREQUAL = EXIT === )) (( B9-MAX-LINE-USED >>> ; B9-TOP-LINE-NUM >>> => INTGTOREQUAL (MATCHED (( CLS )) (( } AT THE MOMENT, THE AMOUNT OF LINES IN THIS TEXT} => 22 50 B9-POP )) (( } SEEMS TO MATCH THE MAXIMUM AMOUNT OF LINES CURRENTLY} => 22 75 B9-POP )) (( } RESERVED, NAMELY 35000. THE ADVICE, WITH SUCH A GRAND TEXT} => 22 100 B9-POP )) (( } IS TO SEE IF IT IS POSSIBLE TO WORK WITH CONSIDERABLY} => 22 125 B9-POP )) (( } MORE HANDABLE SECTIONS OF IT. OR MANUALLY DELETE LINES} => 22 150 B9-POP )) (( } TO GIVE ROOM FOR MORE. THANK YOU.} => 22 175 B9-POP )) (( 22 200 B9-ENTERPLS )) (( CLS )) (( B9-REFRESH )) (( EXIT )) MATCHED) )) (( CLS )) (( } AFTER THE PRESENT LINE, WHICH IS LINE NUMBER} => 22 50 B9-POP )) (( B9-LINE-NUM >>> => 800 50 B9-POP )) (( } DO YOU WANT TO INSERT A CERTAIN NUMBER OF NEW LINES?} => 22 75 B9-POP )) (( } (THIS IS THE CTR-INS KEY; THE CONVERSE IS CTR-DEL KEY.)} => 22 100 B9-POP )) (( } =========> PLEASE STORE OFTEN UNDER NEW NAMES WHEN BIG CHANGES} => 22 125 B9-POP )) (( } =========> LARGER NUMBERS THAN 270 AUTOMATICALLY CORRECTED } => 22 150 B9-POP )) (( } =========> LINES ARE CREATED AFTER THE PRESENT LINE } => 22 175 B9-POP )) (( } vvvvv} => 22 200 B9-POP )) (( } HOW MANY LINES INSERT HERE (MAX 270)? (ENTER=GO BACK)} => 22 225 B9-POP )) (( CLEAR_KEYBUF )) (( 3 900 250 B9-READLN => HEAL => >N1 )) (( CLEAR_KEYBUF )) (( N1 => ISBASIS = GOFORWARD4 === )) (( N1 ; 1 ; 270 => SET-RANGE => >N1 )) (( B9-MAX-LINE-USED >>> ; N1 => ADD ; B9-TOP-LINE-NUM >>> => INTGREATER (MATCHED (( } THIS WOULD RESULT IN A TEXT BIGGER THAN 35000 LINES.} => 22 300 B9-POP )) (( } TRY WITH A SMALLER NUMBER. CONSIDER WORKING WITH A PORTION} => 22 325 B9-POP )) (( } OF THE TEXT AT A TIME. THANK YOU.} => 22 350 B9-POP )) (( 22 375 B9-ENTERPLS )) (( B9-REFRESH )) (( EXIT )) MATCHED) )) (( N1 => ISPRO (MATCHED (( B9-LINE-NUM >>> ; N1 => B9-NEW-LINES )) (( B9-LINE-POS => SETDANCE )) (( B9-LINE-NUM >>> B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN < SETDANCE )) (( GOLABEL4: )) (( B9-REFRESH )) )) OK) (LET B9-RM-LINES BE (( >N7 >N6 )) (( (( N6 ; B9-MAX-LINE-USED >>> => INTGREATER = EXIT === )) (( B9-WORK-SPACE >>> => & )) (( (( N6 ; N7 => ADD => DEC )) ; B9-MAX-LINE-USED >>> => INTGREATER (MATCHED (( B9-MAX-LINE-USED >>> ; N6 => SUB => INC => >N7 )) MATCHED) )) (( N6 ; N7 => ADD => >N3 )) (( B9-MAX-LINE-USED >>> ; N3 => SUB => INC => >N4 )) (( (( N3 => MUL4 ; # => ADD )) ; (( N6 => MUL4 ; # => ADD )) ; N4 => COPYNUMS )) (( N7 => SG ; B9-MAX-LINE-USED => ADDVAR )) (( N7 (COUNT (( B9-PAGE-WIDTH >>> => INC => %MAKE ; (( B9-MAX-LINE-USED >>> ; N1 => ADD )) ; # => %PUT )) COUNTUP) )) (( && )) )) OK) (LET B9-FUNCTR-DELK BE (( )) (( (( B9-LINE-NUM >>> ; B9-MAX-LINE-USED >>> => INTGREATER = EXIT === )) (( CLS )) (( } CTR-DEL KEY IS PRESSED.} => 22 125 B9-POP )) (( } DELETE THE PRESENT LINE, WHICH IS LINE NUMBER} => 22 150 B9-POP )) (( B9-LINE-NUM >>> => 800 150 B9-POP )) (( } AND A CERTAIN NUMBER OF ADDITIONAL LINES? } => 22 175 B9-POP )) (( } (THE CONVERSE IS CTR-INS KEY, WHICH INSERTS.)} => 22 200 B9-POP )) (( } =========> PLEASE STORE OFTEN UNDER NEW NAMES WHEN BIG CHANGES} => 22 225 B9-POP )) (( } =========> LARGER NUMBERS THAN 270 AUTOMATICALLY CORRECTED } => 22 250 B9-POP )) (( } =========> IF UNCERTAIN, PRESS ENTER THEN SAVE WITH F2 } => 22 275 B9-POP )) (( } HOW MANY LINES DELETE HERE (MAX 270)? (ENTER=GO BACK)} 22 300 B9-POP )) (( CLEAR_KEYBUF )) (( 3 900 300 B9-READLN => HEAL => >N1 )) (( CLEAR_KEYBUF )) (( N1 => ISBASIS = GOFORWARD4 === )) (( N1 ; 1 ; 270 => SET-RANGE => >N1 )) (( N1 => ISPRO (MATCHED (( B9-LINE-NUM >>> ; N1 => B9-RM-LINES )) (( B9-LINE-NUM >>> ; B9-MAX-LINE-USED >>> => INTGREATER (MATCHED (( -1 ; B9-LINE-NUM => ADDVAR )) MATCHED) )) (( B9-LINE-POS => SETDANCE )) (( B9-LINE-NUM >>> B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN < SETDANCE )) (( GOLABEL4: )) (( B9-REFRESH )) )) OK) (LET B9-FUNENDK BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-PAGE-WIDTH >>> ; B9-LINE-POS <>> ; B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN >>> => ADD ; 1 ; B9-MAX-LINE-USED >>> => SET-RANGE B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN <>> ; B9-MAX-LINE-USED >>> => EQN (MATCHED (( B9-PAGE-LENGTH >>> => DEC => SG ; B9-MAX-LINE-USED >>> => ADD ; 1 ; B9-MAX-LINE-USED >>> => SET-RANGE B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN <>> B9-LINE-NUM < SETDANCE )) (( B9-EDIT-TOP-LEFT )) (( B9-REDISPLAY-ALL-TEXT-HERE )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUNCTR-P BE (( )) (( (( CLS )) }In the G2 edition (and onwards), we are going to have a } 14 40 B9-POP }hardware-controlled b'n'w excellence of art printers going,} 14 65 B9-POP }I have planned. We use then the GJP image format of course,} 14 90 B9-POP }in which a bunch of them correspond to a page (12 or so). } 14 115 B9-POP }The screen will be 1000 times 1000 pixels. So now you know } 14 140 B9-POP }our plans. Anyhow, you seem to have pressed CTR-P and let's} 14 165 B9-POP }get down to real business. You next specify an amount of } 14 190 B9-POP }pages (or 0 or ENTER if you want to wait), and what will } 14 215 B9-POP }happen is that the pages will go to manipulable .GJP files.} 14 240 B9-POP }The four-letter filename you give will have 1, 2, } 14 365 B9-POP }then 3 and so on, up to the number you give, added to it. } 14 390 B9-POP }>>>>>Amount of pages: (or ENTER to return) } 14 415 B9-POP }If you do not type a filename, it will only be a preview } 14 465 B9-POP }and in such a case, please press a key after each page. } 14 590 B9-POP }(As usual, existing files with same names are overwritten.)} 14 615 B9-POP }>>>>>First four letters of filename: } 14 440 B9-POP (( 5 ; 275 ; 415 => B9-READLN => HEAL => >N7 )) (( N6 => ISBASIS = B9-REFRESH ; EXIT === )) (( 4 ; 475 ; 440 => B9-READLN => RMBL => UPC ; )) (( CLS )) (( VLOTS )) (( B9-FONT-CURRENT-COLOR >>> => TOV4 )) (( B9-POP-BG >>> => TOV5 )) (( B9-FONT-CURRENT-COLOR => SETDANCE )) (( 2 B9-POP-BG < RECTFILL )) (( B9-PR-REDISPLAY-CURRENT-PAGE )) (( ; => LENGTH => ISPRO (MATCHED (( ; => ONE ; N1 => CONCAT => SCREENBMP )) )(OTHER (( A-KEY )) MATCHED) )) (( B9-LINE-NUM >>> => >N5 )) (( 29 ; B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN >>> => ADD ; 1 ; B9-MAX-LINE-USED >>> => SET-RANGE B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN <>> B9-LINE-NUM < SETDANCE )) (( B9-LINE-NUM >>> ; N5 => INTGREATER => NOT (MATCHED (( RMS ; RMS ; GOFORWARD4 )) MATCHED) )) COUNTUP) )) (( GOLABEL4: )) (( V4 B9-FONT-CURRENT-COLOR < RM )) (( B9-REFRESH )) )) OK) (LET B9-FUNPGU BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-STD-FRAME )) (( B9-PAGE-LENGTH >>> => SG ; B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN >>> => ADD ; 1 ; B9-MAX-LINE-USED >>> => SET-RANGE B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN <>> B9-LINE-NUM < SETDANCE )) (( B9-EDIT-TOP-LEFT )) (( B9-REDISPLAY-ALL-TEXT-HERE )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUNHOME BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-LINE-POS => SETDANCE )) (( B9-EDIT-LEFTMOST )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUNF12 BE (( )) (( )) OK) (LET B9-FUNCTR-PGU BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-STD-FRAME )) (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN => SETDANCE )) (( B9-LINE-NUM => SETDANCE )) (( B9-LINE-POS => SETDANCE )) (( B9-EDIT-TOP-LEFT )) (( B9-REDISPLAY-ALL-TEXT-HERE )) (( B9-UNDERLINECURRENT-POS )) )) OK) (LET B9-FUNCTR-PGN BE (( )) (( (( B9-UN-UNDERLINECURRENT-POS )) (( B9-STD-FRAME )) (( B9-PAGE-LENGTH >>> => DEC => SG ; B9-MAX-LINE-USED >>> => ADD ; 1 ; B9-MAX-LINE-USED >>> => SET-RANGE B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN <>> B9-LINE-NUM < SETDANCE )) (( B9-EDIT-TOP-LEFT )) (( B9-REDISPLAY-ALL-TEXT-HERE )) (( B9-UNDERLINECURRENT-POS )) )) OK) ((DATA B9-FKEYNUM )) ((DATA B9-FKEYCTR )) ((DATA B9-FKEYSHI )) (LET B9-FUN-KEYS BE (( )) (( (( B9-FKEYNUM >>> => >N1 )) (( B9-FKEYCTR >>> => >N2 )) (( N1 ; 83 => EQN N2 => ISDANCE AND = B9-FUNCTR>-ARROW == N1 ; 82 => EQN N2 => ISDANCE AND = B9-FUNCTR<-ARROW == N1 ; 85 => EQN = B9-FUNV-ARROW == N1 ; 82 => EQN = B9-FUN<-ARROW == N1 ; 84 => EQN = B9-FUN^-ARROW == N1 ; 83 => EQN = B9-FUN>-ARROW == N1 ; FUNC-KEY-F1 >>> => EQN = B9-FUNF1 == N1 ; FUNC-KEY-F2 >>> => EQN = B9-FUNF2 == N1 ; FUNC-KEY-F3 >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-F3 == N1 ; FUNC-KEY-F3 >>> => EQN = B9-FUNF3 == N1 ; FUNC-KEY-F4 >>> => EQN = B9-FUNF4 == N1 ; FUNC-KEY-F5 >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-F5 == N1 ; FUNC-KEY-F5 >>> => EQN = B9-FUNF5 == N1 ; FUNC-KEY-F6 >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-F6 == N1 ; FUNC-KEY-F6 >>> => EQN = B9-FUNF6 == N1 ; FUNC-KEY-F7 >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-F7 == N1 ; FUNC-KEY-F7 >>> => EQN = B9-FUNF7 == N1 ; FUNC-KEY-F8 >>> => EQN = B9-FUNF8 == N1 ; FUNC-KEY-INS >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-INS == N1 ; FUNC-KEY-DEL >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-DELK == N1 ; FUNC-KEY-INS >>> => EQN = B9-FUNINSERT == N1 ; FUNC-KEY-DEL >>> => EQN = B9-FUNDELK == N1 ; FUNC-KEY-END >>> => EQN = B9-FUNENDK == N1 ; FUNC-KEY-PGUP >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-PGU == N1 ; FUNC-KEY-PGDN >>> => EQN N2 => ISDANCE AND = B9-FUNCTR-PGN == N1 ; FUNC-KEY-PGDN >>> => EQN = B9-FUNPGN == N1 ; FUNC-KEY-PGUP >>> => EQN = B9-FUNPGU == N1 ; FUNC-KEY-HOME >>> => EQN = B9-FUNHOME == N1 ; FUNC-KEY-F12 >>> => EQN = B9-FUNF12 === === === === === === === === === === === === === === === === === === === === === === === === === === === === === )) )) OK) (( LOOKSTK )) (LET B9-ACTUAL-WORD-OVER-TO-NEXT-LINE BE (( )) (( (( WORDWRAPPING-SOUND => VISDANCE = 120 TONE 19 GOODPAUSE 0 TONE === )) (( B9-WORK-SPACE >>> => & )) (( B9-LINE-NUM >>> => >N10 )) (( B9-FUNV-ARROW )) (( B9-EDIT-RANGE-CONTROL )) (( B9-FUNHOME )) (( B9-UN-UNDERLINECURRENT-POS )) (( B9-LINE-NUM >>> ; N10 => EQN = && ; EXIT === )) (( N10 ; # => %GET => >N9 )) (( B9-LINE-NUM >>> ; # => %GET => >N11 )) (( N9 => ACTIVE-LENGTH => >N4 )) (( N4 => ISBASIS = GOFORWARD3 === )) (( N4 ; WORDWRAPPING-WHERE >>> => DEC => SET-MAX => >N4 )) (( N4 ; N9 => SEGMENT-FIND-THIS-WORD-START => >N3 )) (( 2 ; N3 => INTGREATER = GOFORWARD4 === )) (( N4 ; N3 => SUB => INC => >N5 )) (( (( N9 ; N3 => MUL4 => ADD )) ; (( N11 => INC4 )) ; N5 => COPYNUMS )) (( N5 => INC ; N11 => NOZ-ONLY-BEFORE-N )) (( N3 ; N9 => NOZ-ONLY-BEFORE-N )) (( N5 ; B9-LINE-POS => ADDVAR )) (( N5 ; B9-EDIT-X => ADDVAR )) (( B9-EDIT-RANGE-CONTROL )) (( WORDWRAPPING-SOUND => VISDANCE = 280 TONE 19 GOODPAUSE 0 TONE === )) (( GOLABEL3: )) (( GOLABEL4: )) (( B9-REFRESH )) (( && )) )) OK) (LET B9-TYPEWRITER-NORMAL BE (( )) (( (( GOLABEL4: )) (( KEYNUM => >N1 )) (( FKEYNUM B9-FKEYNUM < Y-TO-1 B9-FKEYCTR < Y-TO-1 B9-FKEYSHI < WITH (MATCHED (( B9-UN-UNDERLINECURRENT-POS )) (( B9-LINE-NUM >>> => B9-MAX-LINE-USED-AT-LEAST-THIS )) (( B9-FILE-SHOULD-BE-STORED => SETDANCE )) (( B9-INSERT-ROOM-FOR-ANOTHER-RIGHT-HERE )) (( N1 ; B9-LINE-POS >>> ; B9-LINE-NUM >>> ; B9-WORK-SPACE >>> => PM )) (( B9-LINE-NUM ; B9-MAX-LINE-USED => INCREASE-VAR-IF-THIS-IS-HIGHER )) (( B9-PAGE-WIDTH >>> ; B9-LINE-POS >>> => INTGREATER (MATCHED (( B9-EDIT-X => INCVAR )) (( B9-LINE-POS => INCVAR )) MATCHED) )) (( B9-EDIT-RANGE-CONTROL )) (( B9-LINE-NUM >>> => INC => B9-MAX-LINE-USED-AT-LEAST-THIS )) (( B9-REDISPLAY-CURRENT-LINE )) (( B9-UNDERLINECURRENT-POS )) (( (( B9-LINE-POS >>> ; WORDWRAPPING-WHERE >>> => INTGTOREQUAL )) ; (( B9-WORDWRAPPING => VISDANCE )) => AND ; (( 35000 ; B9-LINE-NUM >>> => INTGREATER )) => AND (MATCHED (( B9-ACTUAL-WORD-OVER-TO-NEXT-LINE )) (( B9-UNDERLINECURRENT-POS )) MATCHED) )) (( B9-LINE-NUM >>> => INC => B9-MAX-LINE-USED-AT-LEAST-THIS )) )(OTHER (( N1 ; KEY-ENTER >>> => EQN (MATCHED (( B9-LINE-NUM >>> => INC => B9-MAX-LINE-USED-AT-LEAST-THIS )) (( B9-FUNV-ARROW )) (( B9-UN-UNDERLINECURRENT-POS )) (( B9-FILE-SHOULD-BE-STORED => SETDANCE )) (( B9-EDIT-LEFTMOST )) (( B9-LINE-POS => SETDANCE )) (( B9-UNDERLINECURRENT-POS )) (( B9-UPDATE-LINE-POS )) )(OTHER (( N1 ; KEY-ESC >>> => EQN = EXIT === )) (( 2 ; N1 => INTGTOREQUAL = B9-FUN-KEYS == N1 ; CTRL-I >>> => EQN B9-FKEYSHI => VISDANCE AND = B9-FUNSHIFT-IND == N1 ; CTRL-I >>> => EQN = B9-FUNCTR-I == N1 ; 8 => EQN = B9-FUNBP == N1 ; 21 => EQN = B9-FUNCTR-U == N1 ; 23 => EQN = B9-FUNCTR-W == N1 ; 12 => EQN = B9-FUNCTR-L == N1 ; 16 => EQN = B9-FUNCTR-P === === === === === === === === )) MATCHED) )) MATCHED) )) (( GOUP4 )) )) OK) (LET B9-INIT-VARS BE (( )) (( (( B9-CLIPBOARD-AMOUNT-LINES => SETBASIS )) (( 3 => %MAKE ; B9-REFRESH-DANCERS-WITHIN < ? ; 1 ; B9-REFRESH-DANCERS-WITHIN >>> => %PUT )) (( }B9-REDISPLAY-ALL-TEXT-HERE} => ? ; 2 ; B9-REFRESH-DANCERS-WITHIN >>> => %PUT )) (( }B9-UNDERLINECURRENT-POS} => ? ; 3 ; B9-REFRESH-DANCERS-WITHIN >>> => %PUT )) (( B9-RECENT-SCAN-REPL-WARP => SETBASIS )) (( 79 => MAKEBL ; B9-CLIPBOARD-FIRST-LINE => >VARSTR )) (( 0 ; B9-CLIPBOARD-FIRST-LINE => VARSTR-SETLEN )) (( 0 ; 1 ; 3 ; BROWSER-MATRIX >>> => PM )) (( 0 ; 2 ; 3 ; BROWSER-MATRIX >>> => PM )) (( 0 ; 1 ; 4 ; BROWSER-MATRIX >>> => PM )) (( 0 ; 2 ; 4 ; BROWSER-MATRIX >>> => PM )) (( 300 => %MAKE B9-SCAN-ARRAY < %MAKE B9-REPL-ARRAY < SETDANCE )) (( B9-EDIT-TOP-LEFT )) (( B9-LINE-NUM => SETDANCE )) (( B9-LINE-POS => SETDANCE )) (( B9-MARKING-ON => SETBASIS )) (( }DOC-NAME} ; B9-DOC-NAME => >VARSTR )) (( B9-MAX-LINE-USED => SETDANCE )) (( B9-FILE-SHOULD-BE-STORED => SETBASIS )) (( B9-WORDWRAPPING => SETBASIS )) (( B9-CASE-SCAN => SETBASIS )) )) OK) (LET B9-START BE (( )) (( (( CLS )) } This textmode typewriter / in-PC browser B9, is an integral part of Lisa} => 22 50 B9-POP )) (( B9-INIT-VARS )) (( B9-FILE-TO-START-SHOWING => VARSTR> ; B9-DOC-NAME => >VARSTR )) (( } ****INITRAM*****} => 22 75 B9-POP )) (( 79 ; B9-TOP-CLIPBOARD-NUM >>> 5 ADD => RAM-PM B9-CLIPBOARD < 22 100 B9-POP )) (( 79 ; B9-TOP-LINE-NUM >>> 5 ADD => RAM-PM B9-WORK-SPACE < 22 125 B9-POP )) (( B9-FETCH-FILE )) (( } ***} => 22 150 B9-POP )) (( B9-LINE-NUM => SETDANCE )) (( B9-LINE-POS => SETDANCE )) (( B9-TOP-OF-PAGE-LINE-NUMBER-SHOWN => SETDANCE )) (( B9-EDIT-TOP-LEFT )) (( CLEAR_KEYBUF )) (( B9-STD-FRAME )) (( B9-REDISPLAY-ALL-TEXT-HERE )) (( B9-UNDERLINECURRENT-POS )) (( B9-TYPEWRITER-NORMAL )) (( B9-MAYBE-STORE-FILE )) )) OK) (LET B9 BE (( ; )) (( (( IS-ANYTHING-ON-MAIN-STACK => NOT (MATCHED (( }NEW-TEXT} ; )) MATCHED) )) (( ; => TOSTANDARDSPACE => RMBL => UPCM B9-FILE-TO-START-SHOWING => >VARSTR )) (( GJ-ON )) (( B9-START )) (( GJ-DONE )) )) OK) (LET LAB BE (( )) (( (( VLOTS )) (( FREE-CLS )) (( }LAB IN GJ2 EDITION OF THE LISA PROGRAMMING LANGUAGE INITIALIZING..} => POP )) (( ANIMATION-TRIX >>> => NOZ (MATCHED (( ANIMATION-TRIX >>> => RELEASE-MATRIX )) MATCHED) )) (( 150 CD-AMOUNTS <>> ; CARTOON-HEIGHT >>> => MUL ANIMATION-TRIX-H <>> ; CD-AMOUNTS >>> => INC ; CARTOON-HEIGHT >>> => MUL => RAM-PM ANIMATION-TRIX < >N6 ; 150 => >N7 )) (( 82 => >N8 ; 132 => >N9 )) (( 1 ; 1 ; 1024 ; 768 ; CD-SURROUND >>> => FT RECTFILL FEET )) (( ANIMATION-CARTOON >>> => TOV1 )) (( N6 N7 N8 N9 => LAB-CLR )) (( LETS-TRAVEL )) (( LAB-HEADER )) (( 1 => TOV4 )) (( GOLABEL1: (( MOUSEXY => >N2 >N1 )) (( N1 => UP-TO-EVEN => >N1 )) (( N2 => UP-TO-EVEN => >N2 )) (( N1 ; N8 INC INC ; ONE 392 ADD => WITH ; N2 ; N9 INC INC ; ONE 392 ADD => WITH => AND (MATCHED (( MOUSECLICK => Y-TO-1 => >N5 )) (( MOUSECLICKR => Y-TO-1 => >N11 )) (( N5 ISDANCE ; N11 ISDANCE => ORR (MATCHED (( N1 ; N8 => SUB => DIV2 => >N3 )) (( N2 ; N9 => SUB => DIV2 => >N4 )) (( N5 ISDANCE = 1 == 0 === ; N3 ; N4 => THREE ; V1 => PM ; ANIMATION-EXTRA >>> ADD ; ANIMATION-TRIX >>> PM )) (( N5 ISDANCE = 1 == 0 === ; N3 INC ; N4 => THREE ; V1 => PM ; ANIMATION-EXTRA >>> ADD ; ANIMATION-TRIX >>> PM )) (( N3 ; N4 ; N8 ; N9 => UPDATE-IN-SKETCH )) (( N3 ; N4 ; N6 ; N7 => UPDATE-IN-CARTOON )) (( N3 ; N4 ; N6 ; CARTOON-WIDTH >>> ONE 10 DIV ADD ADD ; N7 => UPDATE-IN-RENDER-MAYBE )) (( INCN3 )) (( N3 ; N4 ; N8 ; N9 => UPDATE-IN-SKETCH )) (( N3 ; N4 ; N6 ; N7 => UPDATE-IN-CARTOON )) (( N3 ; N4 ; N6 ; CARTOON-WIDTH >>> ONE 10 DIV ADD ADD ; N7 => UPDATE-IN-RENDER-MAYBE )) MATCHED) )) MATCHED) )) (( KEYTOUCH (MATCHED (( NEWKEY )) (( V9 0 EQN = (( V8 FUNC-KEY-F1 >>> EQN = (( 0 => TOV4 )) (( CLEAR_KEYBUF )) == V8 FUNC-KEY-F3 >>> EQN = == V8 FUNC-KEY-F6 >>> EQN = == V8 FUNC-KEY-F7 >>> EQN = (( N6 N7 N8 N9 => LAB-CLR )) (( READY-BOTH-FOR-LAB )) (( YOGA6D_COM-INFO )) (( N8 ; N9 => DISPLAY-SKETCH-AGAIN-FASTER )) (( N6 ; N7 => DISPLAY-CARTOON-AGAIN-FASTER )) (( N6 CARTOON-WIDTH >>> ONE 10 DIV ADD ADD ; N7 => FRESH-RENDER-FASTER )) (( CLEAR_KEYBUF )) == V8 FUNC-KEY-F11 >>> EQN = (( N6 N7 N8 N9 => LAB-CLR )) (( LAB-LOADER )) (( YOGA6D_COM-INFO )) (( N8 ; N9 => DISPLAY-SKETCH-AGAIN-FASTER )) (( N6 ; N7 => DISPLAY-CARTOON-AGAIN-FASTER )) (( N6 CARTOON-WIDTH >>> ONE 10 DIV ADD ADD ; N7 => FRESH-RENDER-FASTER )) (( CLEAR_KEYBUF )) == V8 FUNC-KEY-F12 >>> EQN = (( N6 N7 N8 N9 => LAB-CLR )) (( READY-BOTH-FOR-LAB )) (( YOGA6D_COM-INFO )) (( LETS-TRAVEL )) == V8 FUNC-KEY-HOME >>> EQN = (( PALETTE-EDITOR )) (( CLEAR_KEYBUF )) == V8 FUNC-KEY-END >>> EQN = (( COPY-SCREEN )) (( CLEAR_KEYBUF )) == V8 FUNC-KEY-PGUP >>> EQN = (( READY-WITH-YOGA6D_COM )) (( N6 N7 N8 N9 => SKETCH-CLR )) (( }WHICH NUMBER DO YOU WANT TO SKETCH?} 8 => FRAME-ENTER-DATA (MATCHED (( ; => HEAL ; 1 ; CD-AMOUNTS >>> => SET-RANGE YOGA6D_COM < DISPLAY-SKETCH-AGAIN-FASTER )) (( N6 ; N7 => DISPLAY-CARTOON-AGAIN-FASTER )) == V8 FUNC-KEY-PGDN >>> EQN = (( YOGA4D_COM >>> EMPTY-LIST )) (( N6 N7 N8 N9 => RENDER-CLR )) (( }RENDER WHICH SKETCHES TOGETHER NOW?} ; 1 ; CD-AMOUNTS >>> ; YOGA4D_COM >>> => FRAME-ENTER-NUMBERS )) (( YOGA4D_COM >>> AT-LEAST-NUMBER-1-IN-LIST )) (( FIND-OUT-IS-SKETCH-IN-RENDER-LIST )) (( N6 CARTOON-WIDTH >>> ONE 10 DIV ADD ADD ; N7 => => FRESH-RENDER-FASTER )) === === === === === === === === === === )) == V9 KEY-ENTER >>> EQN = (( ANIMATION-TRIX >>> >>V )) (( LAB-SAVE-MODELS )) (( V>> )) (( CLEAR_KEYBUF )) === === )) MATCHED) )) (( V4 => ISDANCE = GOUP1 === )) )) (( VFREE )) (( GJ-DONE )) )) OK) (LET IMGS BE (( )) (( (( GJ-ON )) (( FT )) (( }IMGS: here you can quickly view Lisa's .GJP images,} 100 ; 30 => B9-POP )) (( }when these have a common initial name,} 100 ; 60 => B9-POP )) (( }with numbers 1..n after it (e.g. SAMPLE1 etc).} 100 ; 90 => B9-POP )) (( }ESC new name, ENTER next, SPACE convert} 100 ; 120 => B9-POP )) (( }Try e.g. SAMPLE (make new .GJP by a 200x200 .BMP w/same} ; 100 ; 710 => B9-POP )) (( }palettes as these, then BMP2TXT and Lisa's BMPTXT>GJP)} ; 100 ; 740 => B9-POP )) (( 200 ; 200 => RAM-PM => & )) (( 480 ; 180 ; 719 ; 423 ; 1 => RECTFILL )) (( }} ; )) (( GOLABEL1: )) (( FT )) (( }Initial name: } ; 100 ; 550 => B9-POP )) (( ; => RM )) (( 30 ; 300 ; 550 => B9-READLN => TOSTANDARDSPACE => RMBL => UPCM ; )) (( ; => LENGTH => ISBASIS = RM ; && ; GJ-DONE EXIT === )) (( N1 ; 300 ; 600 => B9-POP )) (( 1 >N1 )) (( GOLABEL2: (( }Present # is } ; 100 ; 600 => B9-POP )) (( N1 ; 300 ; 600 => B9-POP )) (( } } ; 100 ; 630 => B9-POP )) (( 480 ; 180 ; 719 ; 423 ; 1 => RECTFILL )) (( # => CLEAR-MATRIX )) (( ; => ONE ; N1 ; }.GJP} => CONCAT => CONCAT ; # => GJPFILE2PM ; RM )) (( 500 ; 200 ; # => LISA-PAINT )) (( GOLABEL3: )) (( KEYNUM => >N2 )) (( N2 ; KEY-ESC >>> => EQN (MATCHED (( GOUP1 )) MATCHED) )) (( N2 ; 32 => EQN (MATCHED (( ; => ONE ; N1 => CONCAT ; SCREEN-FILE => >VARSTR )) (( 501 ; 201 ; 698 ; 398 => DO-MAYBE-SAVE-SCREEN )) (( FT )) (( }Saved (as .bmp)} ; 100 ; 630 => B9-POP )) (( GOUP3 )) MATCHED) )) (( INCN1 )) (( GOUP2 )) )) OK) (LET GJ-INFO BE (( )) (( (( FREE-CLS-COMPLEMENT ; CRLN )) (( } THE LISA PROGRAMMING LANGUAGE EDITION GJ2 [Y2000PC] CREATOR: ARISTO TACOMA} => POP ; CRLN )) (( } I9 PROVIDES IMAGEEDIT; TIMING A TIMER; WORDWRAP FIX .TXT; LAB ERODRAW} => POP ; CRLN )) (( } TYPE :XXX B9 TO EDIT XXX; B9 IN BROWSE-MODE: WORD; IMGS VIEW GJP-IMAGES} => POP ; CRLN )) (( } TYPE :PROGNAME IN TO PERFORM A LISA PROGRAM GOOD LUCK!!!!!} => POP ; CRLN )) (( } (PING FOR RELAX, SPRING FOR SCREENSAVE) (C) YOGA4D VON REUSCH GAMEMAKERS} => POP ; CRLN )) (( }=} ; 80 => SEVERAL( )) (( CRLN CRLN )) OK) }* IF YOU LIKE, MAKE ANOTHER NAMED VERSION OF THIS DOCUMENT, AND UNCOMMENT }* }* THE (LET AUTOSTART BE .. OK) LINE BELOW. }* }* FOR INSTANCE, CALL THE NEW DOCUMENT F96.TXT. }* }* CONFIGURE THE NEXT LINE SO THAT THE EDITOR OPENS UP THE DOCUMENT YOU'RE }* }* WORKING ON A LOT, AND START AT LISACODE WITH THE F96 COMMAND. }* }* HAVE FUN. (REMEMBER TO MAKE F96.BAT BASED ON F97.BAT ALSO) }* }* (THE BAT CAN CONTAINS THIS COMMAND: CODE1 F96 }* }* THE DOCUMENT IS OF .TXT TYPE AND IS KEPT IN C:\BOEHM\BOEHMIAN FOLDER. }* }* G O O D L U C K !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! }* }* ARISTO }* **** "As a human mind may dwell for a little while upon a single thought, so the infinitely greater brains which were but a portion of the Central Computer could grasp and hold for ever the most intricate ideas. The patterns of all created things were frozen in these eternal minds needing only the touch of a human will to make them reality. ..." The City and the Stars { (( }AURUM} ; NATURALS => >VARSTR )) (( 62 WORDWRAPPING-WHERE < SETDANCE )) }* CHANGE ABOVE LINE TO => SETBASIS TO QUIETEN WORDWRAPPING-SOUND }* }* (LET AUTOSTART BE :GJ2-Y2PC B9 OK) }* }* OR JUST: }* (( GJ-INFO ))