From 273b1e514de64d3ebc315558d7fef8fb61ed2a7c Mon Sep 17 00:00:00 2001 From: Patrick Kloepfer Date: Sun, 13 Oct 2019 22:03:47 -0400 Subject: [PATCH] NEw Functions to test. --- .Floppies/A2OSX.MAKE.po | Bin 33553920 -> 33553920 bytes MAKE/MAKEFUNCS.txt | 61 ++++++++++++++++++++++++++++++++++++++++ MAKE/TESTFUNCS.txt | 27 ++++++++++++++++++ 3 files changed, 88 insertions(+) create mode 100644 MAKE/MAKEFUNCS.txt create mode 100644 MAKE/TESTFUNCS.txt diff --git a/.Floppies/A2OSX.MAKE.po b/.Floppies/A2OSX.MAKE.po index 558a8696c08a52cfc5713333228c88eb8f0b1a0c..b8024ce94ec517f1733b680ecfbb57193bd06e07 100644 GIT binary patch delta 260297 zcmeIy-*44t9S3j5>IB>JQxG@k3hihQm6id*gbof+ZO_4TPREd8 zQI=;3cVx*LZ@lor%p0TOf`4Jr<+(7?7;ZE%*`MH*2|nL*+ERYpc>f~jO_S&Q`F=m& z@AKnzWGN(OfRnAj6U&{G%&R23)=X^D%Bj@RyXL7!l^K8y@InU>; z$@zND+MIPcFXVh9=f#|ta=w}Kt(=#0UdahLujX{-tk3Dn*>LyDryGC!%C3L3EqiOz z&ga%I`}eYCBb%15?OM@2vj6bF!DFTVv1QGFEB|s}<+5M5FD+ZK_U`Cs8xJgBy)`Tr z&;9<-8#m0Z@95t@JRJJRT7Sn6961p>$1hFRL;f``mBaXCW2)TQx;i$#fBe|k@K9+W zbPiW1&QDe@hJ!PebB)PrrM`9R*7>s0qeG?f6DLD&Px0#U@}Jv_=;y zXBSF$hu+W`Iy(mX2amLx4VB&=I69U)4OQMN*XreP9p01Rt zS3;#)o1U1Of9(9N#VhP6ev6MNDvMVrMw_+khQs39E`5c$+y7b7{mB2PzOnm- znR@wrc=u|Uo|$S)UY;t4`nlTVU) zyJPxZOnYM58`Jk=+85IgVtPHMH)7f!(}9@!V|p{DftU`)bSS35n1*6{E2hIS4aYPR zQz@n+F^$Ib!jrbX(p!kV!9I3`!QXO z>E|(Bi|K=yuE+F?m}XF+b7-k+n%3$_HQ5FpA8|eQO|U- zK+VOUpV4i5xAhE$uHMe(Rv4{KRvKY`H$PbKg?;|$lJA=C>YaaTv5{JL=gm8Iu2wEr z!f^H6L~-tleKp%WfeRaJVMCW@rq3MB8@~A4U!9tnu7qN{<>Yhwp#MVoqy4*j_jdIS zc5QpY%ZL4qa3Y*sXgD<6I;#1+75#FrqR~T59-PQ0x5*!xzjxb`?_FZe0x=8ymRu@6 zXr#QoUZ1#Fe(*_43Lb6Ow|#HVV6)p?+wC_tcRaLY&7s-(mw0$7^L>4-`xaN_v4Wku zTNTAK$A?A+!Uv)M*m&47Qka*wL|;$7u)cY8-)vsr7tTIjH(L~*-Ltrnx~?^guRpT4 zirrT1i<9Mgsd~74b+lHl*OwyGQs!jo@Mt(%Zp_pw_0YTdWOvAT_Jqx)?g!J=tXZ6> z*;2I;u9h2Naym;lU9L3B=bN1l<+0Yf&aeOD-3|>D?muDU6+^@2%EiW|2W?x$i+vZ` zc0APg?yI94{@HdXtooP#%z=I27@&ZJBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!H zLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*( z2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUF zBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Ex zl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e& zNJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8 zAqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dY zgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo z5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjT zNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TX zBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{l zkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!H zLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*( z2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUF zBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Ex zl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e& zNJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8 zAqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dY zgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo z5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjT zNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TX zBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{l zkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!H zLK2dYgd`*(2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*( z2}wvo5|WUFBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUF zBqSjTNk~Exl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjTNk~Ex zl8}TXBq0e&NJ0{lkc1>8Aqh!HLK2dYgd`*(2}wvo5|WUFBqSjT{|^a24y(HV2g>6Z Axc~qF delta 303838 zcmeIu%WqXx6u{wLDByz&$g3i1uUxnl@qsT8-=!AHqj0t0v#6C`ELdBF7F0x0%wlXz z>_`VD5=O?PgU%fhLL8VC2MnAzbneImH;4xR0|(zpekVI;@2q|Do%-|g!c(OmexB35 zqif-!>0joYUQp?r9$NZM$Crnf&YQlxuK)Y1JExnM&NMGoO0#B~muA<0y889Z@pJ8^ zIi#!Z#B?Ohud*V}$;D~tKdR?lA1-@T)E%idi*18rBI z_5({QZQotl{rA|W#WT(Gjm@(pvt zSvLOuylT%#t2VIzNUJqg8yFd%938Ip4IOLMdPZAAM_R+Hs?F}b1HIMj2UhDRs`YC# z2ge4-`dXu-<5w2d`pIj@uU#?q#UHcJfAwqo%Bd9>8!H!0j0{cG%GBEA(bjOaUYpu? zq0u?jyx3U2w*H?RuKVR`y&SAa&u%) zq8TfbMl2@oJafB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly YK!5-N0t5&UAV7e?|4m@JHn*$t7jB*3;Q#;t diff --git a/MAKE/MAKEFUNCS.txt b/MAKE/MAKEFUNCS.txt new file mode 100644 index 00000000..111da230 --- /dev/null +++ b/MAKE/MAKEFUNCS.txt @@ -0,0 +1,61 @@ +NEW + PREFIX +AUTO 4,1 +#!/BIN/SH +# This script defines standard functions used by multiple scripts +# Clear Screen Function +FUNCTION CS { + ECHO \f +} +# Title Box Function +# CALL TBOX Str_Title +FUNCTION TBOX { + ECHO -N "\e[1;20H" + ECHO "\e[7m \e[0m" + SET LINE = 2 + WHILE [ $LINE -NE 5 ] + ECHO -N "\e[${LINE};20H" + ECHO "\e[7m \e[0m \e[7m \e[0m" + SET LINE = $LINE + 1 + LOOP + ECHO -N "\e[5;20H" + ECHO "\e[7m \e[0m" + ECHO -N "\e[3;30H $1" +} +# Print Inverse +FUNCTION INVERSE { + ECHO -N "\e[7m$1\e[0m" +} +# Print at Screen Location Function +# CALL PRINTXY Num_Row Num_Column Str_String +FUNCTION PRINTXY { + ECHO -N "\e[$1;$2H$3" +} +# Print Inverse At X Y +# CALL INVERSEXY Row Col String +FUNCTION INVERSEXY { + ECHO -N "\e[$1;$2H\e[7m$3\e[0m" +} +# STATUSLINE Function +# CALL STATUSLINE Str_Message +FUNCTION STATUSLINE { + ECHO -N "\e[24;0H\e[7m " + ECHO -N " \e[0m" + ECHO -N "\e[24;2H\e[7m$1\e[0m" + ECHO -N "\e[24;68H\e[7m" + TIME | CUT -M 10 -N 20 + # SET DTIME = `TIME | CUT -M 10 -N 20`: ECHO -N ${DTIME} + ECHO -N "\e[0m" +} +# YesNoKeyPress Function +# CALL YNKP Returns 1(Y) or 0 (N) +FUNCTION YNKP { + ECHO Not yet implemented +} +# Get String At X Y Function +# CALL GETXY Num_Row Num_Column Num_Length +FUNCTION GETXY { + ECHO Not yet implemented +} +MAN +TEXT /MAKE/USR/SHARE/MAKE/MAKEFUNCS diff --git a/MAKE/TESTFUNCS.txt b/MAKE/TESTFUNCS.txt new file mode 100644 index 00000000..5a43ce36 --- /dev/null +++ b/MAKE/TESTFUNCS.txt @@ -0,0 +1,27 @@ +NEW + PREFIX +AUTO 4,1 +#!/BIN/SH +# +# This script tests the standard functions defined in MAKEFUNCS +# that are used by multiple MAKE scripts +# +# Load Functions File +# +. MAKEFUNCS +# +# Test CS (ClearScreen Function) +# +CALL CS +CALL TBOX "This is the Title" +CALL STATUSLINE "Loading Functions..." +CALL PRINTXY 10 10 "Hello World at 10 10" +CALL PRINTXY 18 1 " " +ECHO +CALL INVERSE "Inverse where cursor is" +ECHO "\nNow normal" +CALL INVERSEXY 15 15 "Inverse Now at 15 15" +CALL PRINTXY 18 1 " " +ECHO +MAN +TEXT /MAKE/USR/SHARE/MAKE/TESTFUNCS