}* ELSKETCH.TXT WRITTEN IN THE LISA GJ2 FIC3 PROGRAMMING }* }* LANGUAGE BY ARISTO TACOMA. COPYRIGHT AS YOGA4D.ORG/cfdl.txt }* }* CREATED IN 2011, THIS IS VERSION 2011:3:28 PROTOTYPE!!! }* }* TEST OF VISUAL EFFECTS. ELSKETCH WILL COME IN 2011 SOMETIME }* ((DATA SKETCH-X )) ((DATA SKETCH-Y )) ((DATA PAGE-NUMBERING )) ((DATA START-PAGE )) ((DATA AREA-NOW-MODE )) ((DATA AREA-NOW-START-POS-X )) ((DATA AREA-NOW-START-POS-Y )) ((DATA SKETCH-MATRIX )) ((DATA EXTRA-AREA )) ((DATA MODEL-MATRIX )) (( VARSTRING SKETCH-FILENAME }DOC-NAME} ; SKETCH-FILENAME => >VARSTR )) ((DATA IMPORTED-WARP-ALGORITHMS 200 %MAKE IMPORTED-WARP-ALGORITHMS < PM )) )) OK) (( }MATRIX-REPLICATE-ESSENCE} => ? MATRIX-REPLICATE-HOUSE <N4 >N3 >N2 >N1 )) (( (( N1 ; N2 => INTGREATER = EXIT === )) (( VLOTS )) (( N1 => TOV3 )) (( N2 => TOV4 )) (( N4 => TOV9 )) (( VFREE )) (( MATRIX-REPLICATE-HOUSE >>> ; N3 => FORVPM2 )) )) OK) (LET DOTLINE BE (( ; ; ; ; )) (( (( ; ; ; ; => FOUR ; 191 ; 128 ; => DOTTED_RECT )) (( ; ; ; ; => DEC => DEC => SWITCH => DEC => DEC => SWITCH ; 128 ; 191 ; => DOTTED_RECT )) )) OK) (LET LOAD-APPLY-FONT BE (( ; )) (( (( 2512 ; 111 => RAM-PM APPLY-FONT-DATA < CONCAT ; APPLY-FONT-DATA >>> => FILENUM2PM ; RM )) (( THEFONT >>> ORIGINAL-APPLY-FONT <>> THEFONT < BE (( )) (( (( ORIGINAL-APPLY-FONT >>> THEFONT <>> => DEC => MUL START-PAGE < FT B9-POP )) (( }ELSKETCH.TXT is devoted to functioning both as a sketch-} ; 25 ; 200 => B9-POP )) (( }tool, and as a only relatively precise test-tool, for} ; 25 ; 300 => B9-POP )) (( }first-hand electronics. Cfr e.g. yoga4d.org/super about this.} ; 25 ; 400 => B9-POP )) (( }To really make sense of ELSKETCH, open the manual ELMANUAL.TXT} ; 25 ; 500 => B9-POP )) (( }eg. in B9, and experiment intensely with included examples.} ; 25 ; 600 => B9-POP )) (( A-KEY )) )) OK) (LET SKETCH-XY-RANGE BE (( )) (( (( SKETCH-X >>> ; 1 ; 16 => SET-RANGE SKETCH-X <>> ; 1 ; 12 => SET-RANGE SKETCH-Y < B9-POP )) (( }F3 ACTIVATE MODELLING ANEW!!! WHICH CAN EG. BE CONNECTED BY} ; 5 ; 55 => B9-POP )) (( }WIRES. USE PgUp AND PgDn TO MOVE TO RIGHT AND THEN UP AND BACK!} ; 5 ; 80 => B9-POP )) (( }F7 ANNIHILATE STUFF Note also that CTR works with arrows.} ; 5 ; 105 => B9-POP )) (( }N F and I U wires placed precisely to connect p 1-2 & 2-3. Or use:} ; 5 ; 130 => B9-POP )) (( }F11 F12 2 CONNECTOR: wires tinned together, also as in-page jump.} ; 5 ; 155 => B9-POP )) )) OK) (LET CLEANSE-MARKS BE (( & )) (( (( 12 ; 3 => MUL (COUNT (( 16 (COUNT (( 0 ; N1 ; 30 => MUL ; 16 => ADD ; N3 ; 30 => MUL ; # => PM )) COUNTUP) )) COUNTUP) )) (( && )) )) OK) (LET SHOW-LETTER-KEYS BE (( )) (( (( }A ANTENNA ITEM B BUTTON ITEM } ; 5 ; 180 => B9-POP )) (( }C CAPACITOR ITEM D CAPACITOR TURNED } ; 5 ; 205 => B9-POP )) (( }E ELECTRON SOURCE (E=elect.pole) F Forward wire (middle) } ; 5 ; 230 => B9-POP )) (( }G COMMON E-POLE CONNECTOR H Tested in reality? COMMENT!!!} ; 5 ; 255 => B9-POP )) (( }I Middle wire above J RESISTOR ITEM } ; 5 ; 280 => B9-POP )) (( }K RESISTOR TURNED L LOADSPEAKER ITEM } ; 5 ; 305 => B9-POP )) (( }M MICROPHONE ITEM N Left wire (middle) } ; 5 ; 330 => B9-POP )) (( }O HIGH-VOLT GLOW TUBE (& CATH.RAY.DISPLAY) ITEM P SWITCH ITEM } ; 5 ; 355 => B9-POP )) (( }Q Quit R Retrieve -- only for EARLIER SAVED elsketch .txt files} ; 5 ; 380 => B9-POP )) (( }S Save elsketch file T TRANSISTOR ITEM E-pole for 1-27v is rich in} 5 ; 405 => B9-POP )) (( }U Middle wire under V TRANSFORMATOR ITEM healthy electrons (in 20th} 5 ; 430 => B9-POP )) (( }W COIL TURNED X LAMP ITEM century wrongly called 'minus'), &} 5 ; 455 => B9-POP )) (( }Y GREEN SIGNAL ITEM Z COIL ITEM other pole is EH, Electron Hunger.} 5 ; 480 => B9-POP )) )) OK) (LET SHOW-DIGIT-KEYS BE (( )) (( (( }1 PRODUCE ATTUNE -- do this for EACH item in your 1st-hand sketch!} ; 5 ; 505 => B9-POP )) (( }2 Like F11 & F12, this is a symbol for many wires tinned together} ; 5 ; 530 => B9-POP )) (( }3 TUNE ELSKETCH MODELLING CONDITIONS INVOLVED IN FUNC.KEY F3 } ; 5 ; 555 => B9-POP )) (( }4 PRODUCTION LIST E.G. FOR ROBOT, FILE OF ALL THE TUNED ITEM INFO }; 5 ; 580 => B9-POP )) (( }Use INSERT to start/finish copy, HOME to insert, also after Retrieve} 5 ; 605 => B9-POP )) (( }0 FUSE ITEM (lightening safety & the like) ITEMS: Numbers 5, 6, 8, 9} 5 ; 630 => B9-POP )) (( }added as written warp algorithm eg enacting other working elsketches.} 5 ; 655 => B9-POP )) )) OK) (LET AREA-NOW-GET BE (( )) (( (( SKETCH-MATRIX >>> => & )) (( AREA-NOW-START-POS-X => VISBASIS = && ; EXIT === )) (( EXTRA-AREA >>> => CLEAR-MATRIX )) (( 1 ; # => %LENGTH ; # ; EXTRA-AREA >>> => MATRIX-REPLICATE )) (( # => CLEANSE-MARKS )) (( && )) )) OK) (LET AREA-NOW-GIVE BE (( )) (( )) OK) (LET SHOW-KEYS BE (( )) (( (( }GOOD LUCK WITH ELSKETCH!!! [SPACE-BAR]: for all meeting wires} ; 5 ; 5 => B9-POP )) (( SHOW-FUNCTION-KEYS )) (( SHOW-LETTER-KEYS )) (( SHOW-DIGIT-KEYS )) (( }Arrow-keys move in your 1st-hand sketch. A particular model run on} ; 5 ; 680 => B9-POP )) (( }one 32-bit computer may correspond only partially to full reality.} ; 5 ; 705 => B9-POP )) (( }Must shield higher volts: Touch only E-pole of up to about 27 volt.} ; 5 ; 730 => B9-POP )) (( A-KEY )) )) OK) (( LOOKSTK )) (LET SET-COMMENTS BE (( )) (( (( SKETCH-MATRIX >>> => & )) (( GOLABEL4: )) (( CLS )) (( }Comment precisely on testing, on how to implement safely, etc:} 10 ; 10 => B9-POP )) (( 10 (COUNT (( N1 ; }: "} => CONCAT ; 1360 ; N1 => ADD ; # => MATR>TEXT ; => CONCAT ; }"} => CONCAT ; 50 ; N1 ; 25 => MUL ; 30 => ADD => B9-POP )) COUNTUP) )) (( }COMMENT LINE# TO CHANGE OR ENTER TO EXIT:} ; 10 ; 600 => B9-POP )) (( 2 ; 950 ; 600 => B9-READLN => HEAL => >N9 )) (( N9 => ISBASIS = && ; EXIT === )) (( N9 ; 1 ; 10 => SET-RANGE => >N9 )) (( N9 ; }: } => CONCAT ; 10 ; 700 => B9-POP )) (( 60 => MAKEBL ; N9 ; 1360 => ADD ; # => TEXT>MATRIX )) (( 60 ; 80 ; 700 => B9-READLN ; N9 ; 1360 => ADD ; # => TEXT>MATRIX )) (( GOUP4 )) )) OK) (LET SKETCH-SIGN BE (( ; )) (( (( SKETCH-MATRIX >>> => & )) (( ARITHMETIC-START-PAGE )) (( ; => GETASCII => >N1 )) (( N1 ; SKETCH-X >>> ; 30 => MUL ; SKETCH-Y >>> ; 30 => MUL ; START-PAGE >>> => ADD ; # => PM )) (( && )) )) OK) (LET MAYBE-MARK-AREA BE (( >N2 >N1 )) (( (( SKETCH-MATRIX >>> => & )) (( AREA-NOW-MODE => VISDANCE (MATCHED (( N1 ; 30 => MUL ; 16 => ADD ; N2 ; 30 => MUL ; START-PAGE >>> => ADD ; # => GM => ISDANCE (MATCHED (( N1 ; 60 => MUL ; 50 => SUB ; N2 ; 60 => MUL ; 50 => SUB ; BRIDGE 80 => ADD ; BRIDGE 80 => ADD ; 128 => RECT )) MATCHED) )) MATCHED) )) (( && )) )) OK) (LET THE-CONNECTIONS-HERE BE (( >N9 >N8 )) (( (( SKETCH-MATRIX >>> => & )) (( N8 ; N9 => MAYBE-MARK-AREA )) (( 29 (COUNT (( N10 ; 30 => MUL ; N1 => ADD ; N11 ; 30 => MUL ; START-PAGE >>> => ADD ; # => GM => >N8 )) (( N8 => ISBASIS => NOT (MATCHED (( N10 ; 60 => MUL ; 40 => SUB => >N5 )) (( N11 ; 60 => MUL ; 40 => SUB => >N6 )) (( N1 ; 2 => EQN ; N8 ; 1 => EQN => AND = N5 ; 25 => ADD ; N6 ; 6 => SUB BRIDGE ; 5 => ADD ; BRIDGE ; 24 => ADD => DOTLINE == )) (( N1 ; 4 => EQN ; N8 ; 6 => EQN => AND = N5 ; 35 => ADD ; N6 ; 27 => ADD ; BRIDGE ; 28 => ADD ; BRIDGE ; 5 => ADD => DOTLINE == )) (( N1 ; 6 => EQN ; N8 ; 8 => EQN => AND = N5 ; 25 => ADD ; N6 ; 38 => ADD ; BRIDGE ; 5 => ADD ; BRIDGE ; 25 => ADD => DOTLINE == )) (( N1 ; 8 => EQN ; N8 ; 20 => EQN => AND = N5 ; 7 => SUB ; N6 ; 27 => ADD ; BRIDGE ; 28 => ADD ; BRIDGE ; 5 => ADD => DOTLINE == )) (( N1 ; 19 => EQN ; N8 ; 9 => EQN => AND = N5 ; 23 => ADD ; N6 ; 20 => ADD ; BRIDGE ; 10 => ADD ; BRIDGE ; 17 => ADD => DOTLINE )) N5 ; 26 => ADD ; N6 ; 25 => ADD ; BRIDGE ; 5 => ADD ; BRIDGE ; 6 => ADD => DOTLINE )) (( === === === === === )) MATCHED) )) COUNTUP) )) (( && )) )) OK) (( LOOKSTK )) (LET SQUARE-POSITION BE (( )) (( (( SKETCH-X >>> ; 60 => MUL ; 40 => SUB ; SKETCH-Y >>> ; 60 => MUL ; 40 => SUB ; BRIDGE 55 => ADD ; BRIDGE 55 => ADD ; 128 ; 191 => DOTTED_RECT )) )) OK) (LET ARROW-RIGHT BE (( >N5 )) (( (( SKETCH-X => INCVAR )) (( N5 => ISDANCE = 999 SKETCH-X <N5 )) (( (( SKETCH-Y => INCVAR )) (( N5 => ISDANCE = 999 SKETCH-Y <N5 )) (( (( -1 ; SKETCH-X => ADDVAR )) (( N5 => ISDANCE = SKETCH-X => SETBASIS === )) (( SKETCH-XY-RANGE )) )) OK) (LET ARROW-UP BE (( >N5 )) (( (( -1 ; SKETCH-Y => ADDVAR )) (( N5 => ISDANCE = SKETCH-Y => SETBASIS === )) (( SKETCH-XY-RANGE )) )) OK) (LET SHOW-SKETCH BE (( )) (( (( SKETCH-MATRIX >>> => & )) (( CLS )) (( ARITHMETIC-START-PAGE )) (( 12 (COUNT (( 16 (COUNT (( N1 ; 30 => MUL ; N3 ; 30 => MUL ; START-PAGE >>> => ADD ; # => GM => >N9 )) (( N9 => ISPRO (MATCHED (( ASCII ; N1 ; 60 => MUL ; 25 => SUB ; N3 ; 60 => MUL ; 32 => SUB ; B9-POP )) (( APPLY-FONT> )) MATCHED) )) (( N1 ; N3 => THE-CONNECTIONS-HERE )) COUNTUP) )) COUNTUP) )) (( && )) )) OK) (LET RETRIEVE-SKETCH BE (( )) (( (( SKETCH-MATRIX >>> => & )) (( CLS )) (( MANUAL-CLEAR-KEYBUF )) (( }/////////// RETRIEVE SKETCH MATRIX TO RAM: *=*=*=*=*} ; } An example: OSC1001} => CONCAT ; 10 ; 100 => B9-POP )) (( }PRESS ENTER TO KEEP WHAT'S IN RAM -- OR: TYPE FILENAME TO RETRIEVE:} ; 10 ; 170 => B9-POP )) (( }==NAME OF FILE TO RETRIEVE=====>} ; 10 ; 205 => B9-POP )) (( AREA-NOW-START-POS-X => VISBASIS => NOT (MATCHED (( }ANY STUFF COPIED BY [INSERT] WILL BE} ; 90 ; 390 => B9-POP )) (( }RETAINED; YOU MIGHT PUT IT IN BY [HOME].} ; 90 ; 425 => B9-POP )) MATCHED) )) (( }To avoid program 'crash', make sure you load} ; 55 ; 650 => B9-POP )) (( }only .txt files previously saved by elsketch!} ; 5 ; 690 => B9-POP )) (( 8 ; 750 ; 205 => B9-READLN => RMBL ; )) (( ; => LENGTH => ISBASIS = RM ; && ; EXIT === ; )) (( PAGE-NUMBERING => SETDANCE )) (( ; => ONE ; SKETCH-FILENAME => >VARSTR ; )) (( # => CLEAR-MATRIX )) (( MODEL-MATRIX >>> => CLEAR-MATRIX )) (( AREA-NOW-MODE => SETBASIS )) (( ; }.TXT} => CONCAT ; # => FILENUM2PM ; RM )) (( && )) )) OK) (LET STORE-SKETCH BE (( )) (( (( SKETCH-MATRIX >>> => & )) (( CLS )) (( MANUAL-CLEAR-KEYBUF )) (( }*=*=*=*=* STORE THE SKETCH MATRIX TO DISK: *=*=*=*=*} ; } If in doubt, type e.g. TEST5} => CONCAT ; 10 ; 100 => B9-POP )) (( }PRESENT DOC-NAME IS: } ; SKETCH-FILENAME => VARSTR> => CONCAT ; 10 ; 135 => B9-POP )) (( }WILL OVERWRITE!!! TYPE NEW FILENAME, OR PRESS ENTER FOR SAME NAME:} 10 ; 170 => B9-POP )) (( }=====================>} ; 10 ; 205 => B9-POP )) (( 8 ; 450 ; 205 => B9-READLN => RMBL ; )) (( ; => LENGTH => ISBASIS = RM ; SKETCH-FILENAME => VARSTR> === ; )) (( ; => ONE ; SKETCH-FILENAME => >VARSTR ; )) (( ; }.TXT} => CONCAT ; # => PM2FILENUM ; RM )) (( && )) )) OK) (LET MEASUREMENTS-FOR-AN-ITEM BE (( )) (( (( CLS )) (( }Tune sketch component} ; 10 ; 10 => B9-POP )) (( A-KEY )) )) OK) (LET TUNE-MODELLING-IN-GENERAL BE (( )) (( (( CLS )) (( }Start modelling parameters} ; 10 ; 25 => B9-POP )) (( }Completing modelling parameters} ; 10 ; 125 => B9-POP )) (( }Modelling variables} ; 10 ; 225 => B9-POP )) (( A-KEY )) )) OK) (LET PRODUCE-THE-DESIRED-ITEM-PRODUCTION-LIST BE (( )) (( (( CLS )) (( }Output list} ; 10 ; 10 => B9-POP )) (( A-KEY )) )) OK) (LET SECONDS-S BE (( )) (( (( SECONDS => >N5 )) (( GOLABEL4: )) (( KEYTOUCH = EXIT === )) (( SECONDS ; N5 => SUB ; 23 => INTGREATER (MATCHED (( CLS )) (( GOLABEL2: )) (( ^900 ; ^100 ; ^100 FR ; ^100 => ADDV ; ^100 FR ; ^100 => ADDV ; ^300 ; ^100 FR => ADDV ; ^300 ; ^100 FR => ADDV ; ^63 FR ; ^128 => ADDV => TRIANGLE )) (( 20 => GOODPAUSE )) (( KEYTOUCH = EXIT === )) (( GOUP2 )) MATCHED) )) (( 20 => GOODPAUSE )) (( GOUP4 )) )) OK) (LET THIS-TO-THIS-SLOT BE (( >N8 >N6 )) (( (( SKETCH-MATRIX >>> => & )) (( ARITHMETIC-START-PAGE )) (( N6 ; SKETCH-X >>> ; 30 => MUL ; N8 => ADD ; SKETCH-Y >>> ; 30 => MUL ; START-PAGE >>> => ADD ; # => PM )) (( && )) )) OK) (LET WIRE-SLOT-1 BE 1 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-2 BE 2 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-3 BE 3 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-4 BE 4 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-5 BE 5 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-6 BE 6 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-7 BE 7 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-8 BE 8 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-9 BE 9 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-10 BE 10 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-11 BE 11 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-12 BE 12 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-13 BE 13 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-14 BE 14 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-15 BE 15 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-16 BE 16 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-17 BE 17 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-18 BE 18 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-19 BE 19 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-20 BE 20 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-21 BE 21 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-22 BE 22 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-23 BE 23 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-24 BE 24 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-25 BE 25 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-26 BE 26 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-27 BE 27 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-28 BE 28 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-29 BE 29 => THIS-TO-THIS-SLOT OK) (LET WIRE-SLOT-30 BE 30 => THIS-TO-THIS-SLOT OK) (LET ASK-Q BE (( )) (( (( CLS )) (( MANUAL-CLEAR-KEYBUF )) (( }**********EXIT THIS PROGRAM?} ; 100 ; 100 => B9-POP )) (( 200 ; 300 => B9-YNIN => => )) )) OK) (LET ITEM-AND-WIRES-AROUND-RESET BE (( )) (( (( SKETCH-MATRIX >>> => & )) (( ARITHMETIC-START-PAGE )) (( 29 (COUNT (( 0 ; SKETCH-X >>> ; 30 => MUL ; N1 => ADD ; SKETCH-Y >>> ; 30 => MUL ; START-PAGE >>> => ADD ; # => PM )) COUNTUP) )) (( 0 ; SKETCH-X >>> ; 30 => MUL ; SKETCH-Y >>> ; 30 => MUL ; START-PAGE >>> => ADD ; # => PM )) (( && )) )) OK) (LET DO-A-MODELLING-NOW BE (( )) (( (( CLS )) (( }Modelling starts..} ; 5 ; 5 => B9-POP )) (( A-KEY )) )) OK) (( LOOKSTK )) (LET TELL-ABOUT-PAGES BE (( )) (( (( PAGE-NUMBERING >>> => >N1 )) (( }p a g e } ; N1 => CONCAT ; )) (( ; N1 => ISDANCE (MATCHED (( ; } (page 2 at the exact right)} ; ; )) )(OTHER (( N1 ; 3 => EQN (MATCHED (( ; } (this page exactly above page 2)} ; ; )) )(OTHER (( ; } (page 3 is exactly ABOVE)} ; ; )) MATCHED) ; ; )) MATCHED) ; ; )) (( ; ; => CONCAT => => )) )) OK) (LET NEXT-PAGE-WITH-ARROW-UPDATE BE (( )) (( (( PAGE-NUMBERING >>> => >N5 )) (( N5 => ISDANCE (MATCHED (( 2 PAGE-NUMBERING < ARROW-LEFT )) )(OTHER (( N5 ; 2 => EQN (MATCHED (( 3 PAGE-NUMBERING < ARROW-BENEATH )) MATCHED) )) MATCHED) )) )) OK) (LET PREV-PAGE-WITH-ARROW-UPDATE BE (( )) (( (( PAGE-NUMBERING >>> => >N5 )) (( N5 ; 3 => EQN (MATCHED (( 2 PAGE-NUMBERING < ARROW-UP )) )(OTHER (( N5 ; 2 => EQN (MATCHED (( 1 PAGE-NUMBERING < ARROW-RIGHT )) MATCHED) )) MATCHED) )) )) OK) (LET SM-IS-GOOD-DO-IT BE (( )) (( (( 5 SKETCH-X < SETDANCE )) (( }ELFONT} => LOAD-APPLY-FONT )) (( 500 ; 1800 => RAM-PM SKETCH-MATRIX < RAM-PM MODEL-MATRIX < SETBASIS )) (( 500 ; 1800 => RAM-PM EXTRA-AREA < SETBASIS )) (( AREA-NOW-START-POS-Y => SETBASIS )) (( GOLABEL1: )) (( GOLABEL4: )) (( AREA-NOW-MODE => VISDANCE = 1 => WIRE-SLOT-16 === )) (( SHOW-SKETCH )) (( SQUARE-POSITION )) (( 1 ; 740 ; 1024 ; 768 ; 191 => RECTFILL )) (( AREA-NOW-MODE => VISDANCE (MATCHED (( AREA-NOW-START-POS-X >>> ; 60 => MUL ; 55 => SUB ; AREA-NOW-START-POS-Y >>> ; 60 => MUL ; 55 => SUB ; BRIDGE 90 => ADD ; BRIDGE 90 => ADD ; 128 => RECT )) (( AREA-NOW-START-POS-X >>> ; 60 => MUL ; 40 => SUB ; AREA-NOW-START-POS-Y >>> ; 60 => MUL ; 40 => SUB ; BRIDGE 46 => ADD ; BRIDGE 46 => ADD ; 128 => RECT )) (( }Note start-pos! INSERT when all marked. } ; }Move to new pos (eg after R), copy over: HOME.} => CONCAT ; 1 ; 742 => B9-POP )) )(OTHER (( }e l s k e t c h /// } ; SKETCH-FILENAME => VARSTR> => LPCM => CONCAT ; }.txt } => CONCAT ; TELL-ABOUT-PAGES => CONCAT ; 1 ; 742 => B9-POP )) MATCHED) )) (( SECONDS-S )) (( KEYNUM => >N1 )) (( FKEYNUM => >N5 )) (( FKEYCTRL => Y-TO-1 => >N10 )) (( N1 ; KEY-ESC >>> => EQN = CLS ; SHOW-KEYS == )) (( N1 ; 4 => INTGREATER = GOFORWARD2 === === )) (( N5 ; 83 => EQN = N10 => ARROW-RIGHT == )) (( N5 ; 85 => EQN = N10 => ARROW-BENEATH == )) (( N5 ; 82 => EQN = N10 => ARROW-LEFT == )) (( N5 ; 84 => EQN = N10 => ARROW-UP == )) (( N5 ; FUNC-KEY-F3 >>> => EQN = DO-A-MODELLING-NOW == )) (( N5 ; FUNC-KEY-F7 >>> => EQN = ITEM-AND-WIRES-AROUND-RESET == )) (( N5 ; FUNC-KEY-F11 >>> => EQN = }y} => SKETCH-SIGN == )) (( N5 ; FUNC-KEY-F12 >>> => EQN = }k} => SKETCH-SIGN == )) (( N5 ; 76 => EQN = AREA-NOW-MODE => FLAGFLIP ; AREA-NOW-MODE => VISBASIS = AREA-NOW-GET == SKETCH-X >>> AREA-NOW-START-POS-X <>> AREA-NOW-START-POS-Y < EQN = NEXT-PAGE-WITH-ARROW-UPDATE == )) (( N5 ; 81 => EQN = PREV-PAGE-WITH-ARROW-UPDATE == )) (( N5 ; 78 => EQN = AREA-NOW-GIVE )) (( === === )) (( === === === === === )) (( === === === === === )) (( GOUP1 )) (( GOLABEL2: )) (( N1 => ASCII => UPCM ; )) (( ; } } => TEQ = 9 => WIRE-SLOT-19 == )) (( ; }A} => TEQ = }a} => SKETCH-SIGN == )) (( ; }B} => TEQ = }%} => SKETCH-SIGN == )) (( ; }C} => TEQ = }c} => SKETCH-SIGN == )) (( ; }D} => TEQ = }d} => SKETCH-SIGN == )) (( ; }E} => TEQ = }v} => SKETCH-SIGN == )) (( ; }F} => TEQ = 6 => WIRE-SLOT-4 == )) (( ; }G} => TEQ = }g} => SKETCH-SIGN == )) (( ; }H} => TEQ = SET-COMMENTS == )) (( ; }I} => TEQ = 1 => WIRE-SLOT-2 == )) (( ; }J} => TEQ = }r} => SKETCH-SIGN == )) (( ; }K} => TEQ = }s} => SKETCH-SIGN == )) (( ; }L} => TEQ = }e} => SKETCH-SIGN == )) (( ; }M} => TEQ = }i} => SKETCH-SIGN == )) (( ; }N} => TEQ = 20 => WIRE-SLOT-8 == )) (( ; }O} => TEQ = }o} => SKETCH-SIGN == )) (( ; }P} => TEQ = }@} => SKETCH-SIGN == )) (( ; }Q} => TEQ = ASK-Q = CLS ; EXIT === == )) (( ; }R} => TEQ = RETRIEVE-SKETCH == )) (( ; }S} => TEQ = STORE-SKETCH == )) (( ; }T} => TEQ = }q} => SKETCH-SIGN == )) (( ; }U} => TEQ = 8 => WIRE-SLOT-6 == )) (( ; }V} => TEQ = }p} => SKETCH-SIGN == )) (( ; }W} => TEQ = }m} => SKETCH-SIGN == )) (( ; }X} => TEQ = }*} => SKETCH-SIGN == )) (( ; }Y} => TEQ = }#} => SKETCH-SIGN == )) (( ; }Z} => TEQ = }l} => SKETCH-SIGN == )) (( ; }1} => TEQ = MEASUREMENTS-FOR-AN-ITEM == )) (( ; }2} => TEQ = }w} => SKETCH-SIGN == )) (( ; }3} => TEQ = TUNE-MODELLING-IN-GENERAL == )) (( ; }4} => TEQ = PRODUCE-THE-DESIRED-ITEM-PRODUCTION-LIST == )) (( ; }5} => TEQ = }5} => SKETCH-SIGN == )) (( ; }6} => TEQ = }6} => SKETCH-SIGN == )) (( ; }8} => TEQ = }8} => SKETCH-SIGN == )) (( ; }9} => TEQ = }9} => SKETCH-SIGN == )) (( ; }0} => EQ = }~} => SKETCH-SIGN )) (( === )) (( === === === === === )) (( === === === === === )) (( === === === === === )) (( === === === === === )) (( === === === === === )) (( === === === === === )) (( === === === === === )) (( GOUP4 )) )) OK) (( LOOKSTK )) (LET SM-IS-GOOD-COMPLETION-GREETING BE (( )) (( (( CLS FT )) (( ^8 FR GETV ; 8 => ADD (COUNT (( }Thanks for a session of NONADDICTIVE programming!!!} ; 99 ; N1 ; 30 => MUL ; 50 => ADD => B9-POP )) COUNTUP) )) (( 1500 => GOODPAUSe )) (( CLS )) )) OK) (LET ELSKETCH BE (( )) (( (( GJ-ON )) (( SM-IS-GOOD-WELCOME-GREETING )) (( SM-IS-GOOD-DO-IT )) (( SM-IS-GOOD-COMPLETION-GREETING )) (( GJ-DONE )) (( RICHSTK )) )) OK) (( LOOKSTK )) (LET AUTOSTART BE ELSKETCH OK)