MISC UTILITIES 8507241545 8507241545ÞÖWDATEST TO DATEST .LOOP TO RADIX . ; SETDATE DONE .SYS .LANG ROVE Ø 3 WOCASE NEWINDENT "Is it after Noon and before Midnight? (Y or N)" STOUT YESNO .WOCASE 4 WOCASE TRUE*(‚@ ! €¡€@@ @!„€ €@@€€À@@ ¡‚j €  B@ €@  €€R  @€€S .LANG GT ROVE "( €@@  „!€€B@ @!€B€ @€@ €„À4!€H  „@  ÔLANG SYS WORKST STLEN DUPW NOT WO0= IFSO WO1- WORKST STRIGHT TFIND WFNOT IFSO BEEPOUT NEWLINE "???? TOPIC: " STOUT  * € €€€@ @„€B@!@€  @€@ €€À@ €‚@H ‰€@ Štical. ; See Chapter 10 in the User's Guide for a full explanation of this job. ; LANG "SETDATEJOB" :JOB .LANG "SETDATA x Ö‡ÉSETDATE I/O DEFSEAFS - Routines to perform I/O: prompts and input of entriesŠ3?!„F Õ00 ST> IFCASE 2 TIME STLEFT '12 ST= IFSO '12 STOUT ELSE 2 TIME STLEFT STCVTWO 12 WO- WOCVTST STOUT .IFSne. A CÖ3Ž DATE LOOPNITEX LEAFS - Main program loop for SETDATE C „F Þ 13 XMT 6000 DELAY . 'FLUSH : CMD 300 SETBAUD 65 XMT 84 XMT 13 XMT . ; Delete the X1 in the below init string if you haveÛ6ASES 49 WOCASE 300 SETBAUD TRUEWF .WOCASE 53 WOCASE 1200 SETBAUD TRUEWF .WOCASE OTHERS FALSEWF .WOCASES>NE ELSE NEWLINE "???? '" STOUT WORKST STOUT "' NOTFOUND" STOUT BEEPOUT FALSEWF .IFSO .IFSO UNTILT .LOOP NEWLINE "T'ÑThe Contents of this KAMAS topic file are Copyright (c) 1985 by KAMASOFT, Inc. POB 5549, Aloha, Oregon, 97007. (503) 64=+ FETB DUPW PRTCHR? IFSO DROPW '. ASCII .IFSO WCOUT .COUNT DROPW SPOUT . ; 'DUMPLINE : NEWLINE DUPW WOOUT ELSE BADNESTING .IFSO . ; ABENDVOC VUNMOUNT .SYS SETDEC  €€Â@  @  P€$@ €@!€@@  €„JEX "DATE LOOP" KJEX A)ÈGMISC UTILITIES - Misc. System Utilities for KAMAS as of 85-09-20 2<… ÐR ; 'BOOUTH : CHECKMOD RADIX SWAPW WOCVTDI SETHEX SPOUT FMT DIGIT DIGIT .FMT STOUT TO RADIX . ; 'WOOUTH : CHECKMOD RA*(€H(À@ !@€!!€ @‚@ @ €€H@  J¡€@@ „@AV"fCUSTOM AUTOJEX LEAFS - Machine SpecificŠ2="…)"!€„€B(!   VB€ ¥€@„@@€€@@$P ‚P $@¨€€À@h!€@@$ ‰„ !CPRT 30 WCPRT ; 1/8 in. line spacing .IFSO SETDEC ÎLANG ; Just Jex this leaf to add these facilities to the KAMAS language. ; See Chps 7 and 11 in the User's Guide for explor Help." STOUT .SYS .LANG GT ROVE 0Í@@ !B@ P  @€€8€€@  € J @  €H€@ " €€@  @€¥„€€ @€€@ €€  €‚B@  €N?RAISE ?NOONORMID '00 TO INPUTST .WOCASE 3 WOCASE CLEAR ?NOONORMID .WOCASE 4 WOCASE CLEAR ?NOONORMIA#‰È@LCONFIG UTILITIESONS - System Configuration UtilitiesŠ:4…0+":LANG SYS ; PANASONIC 1092 PRINTER INIT SETHEX NEWLINE "==== Initialize Printer (N)? " STOUT NOYES IFSO 50 TO PGSIZE -Ë'STCASES :TTC 0 1D11 STRBNXTW INITSTCASE INCNEST . ; '.STCASES :TTC DEPTHW NOT WO0= IFSO 1D11 WO= IFSO LOOP ‚ TO INPUTST TRUEWF ELSE 59 TO TOPRANGE 0 TO BOTRANGE 9 TO POS NEWLINE "The Minute is now :" STOUT OUTOLDD"!€„ÀB(!  !$RB€ ¥€@ „@@€€@@$P ‚@ $@¨€€À@(!€@@¤ ‰„  "(€ €‚@ ! P€!€B€!€€€€  €€@ !€BH  €  . ˆ" or RETURN to skip: " ST+ STOUT INPUTST STIN INPUTST STLEN TO LENGTH . ; 'ERRORMSG : NEWINDENT BEEPOUT "???? THAT IS5" STOUT DATEST STOUT NEWLINE " New Value: " STOUT WORKST STIN WORKST NOT STNULL= IFSO WORKST TO DATEST .I.#„: ; ( --- ) POS 4 DATEST STMID TO TIME CASES TIME '0000 ST= IFCASE '12 STOUT 'PM TO AMPMST .IFCASE 4ELSE ERRORMSG 'YEAR STOUT RECURSE .IFSO . ; 'MONTH : ; ( --- ) 12 TO TOPRANGE 1 TO BOTRANGE 3A$¡£PANASONIC 1092 LEAFS - Printer Init Jex leaf; doesn't return to ROVE %-1…)+ATE SPOUT AMPMST STOUT .  ( €@    !B@  P B  €@ À@@ 0‰€ 9; Tell KAMAS about 88 lines/page 1B WCPRT 40 WCPRT ; Reset Printer (PANASONIC 1092) 1B WCPRT 39 WCPRT ; Det2K? IFSO TWONEWDIGITS ELSE ERRORMSG 'MONTH STOUT RECURSE .IFSO . ; 'DAY : ; ( --- ) 31 TO TOPRANGE 5 TO POS NEWLINE "The Day of the Month is now " STOUT OUTOLDDATE ENTERMSG "Day of the Month"Æ'SETDATE : ; ( --- ) CHECKMOD RADIX SETDEC LOOP CLEAR NEWDATEST NEWLINE "The date is now: " S1 TO POS NEWLINE "The Month is now " STOUT OUTOLDDATE ENTERMSG 'Month STOUT NEWINDENT "(1 - 12)" PROMPT TWODIGITSO{FSO 'UTILITIES TFIND IFSO "AUX ROVE" KJEX .IFSO 'SYSTOPIC TBUILD TOPICS LOOP TRUEWF NEWLINE "==== Enter topic to edit or Ø7 UNTILT .LOOP 800 DELAY . 'NEWUSER : CLVC 'PUBLIC TO USERST CLTC . 'NEWCALLER : NOCARRIER? IFSO 0 72 SETMARGINS 3 SETHELPÙJ 1 1 SETVIEW NEWUSER CLPSTACK CLRSTACK 'BBSMESSAGES TBUILD MARKRO AWAIT 'WELCOME KSHOW MENU .IFSO . 'BBS : NEWLINE "=: @  !@@@ P!@ €H!À@H €Í¢ect Paper Out 1B WCPRT 4D WCPRT ; Elite 96 cpi Font 1B WCPRT 6C WCPRT 4 WCPRT ; Set Left Margin 1B W;8z; Tell KAMAS about 88 lines/page 1B WCPRT 40 WCPRT ; Reset Printer (PANASONIC 1092) 1B WCPRT 39 WCPRT ; Det?:|€@@  J€€@K€R@€@ €H€@€„€/€@€€ ! € B€ DBJ¡@€@€€@ 4yH DUPW DUMP8 DUPW 8 WO+ DUMP8 SPOUT DUPW ADUMP8 8 WO+ ADUMP8 . ; 'ALIGN : SWAPW 16 WO/ 16 WO* SWAPW 16 WO+ 16 WO/Âype ESC at the ROVE prompt to exit to CP/M." STOUT NEWLINE "Type ? at the ROVE prompt for Help." STOUT .SYS .LANG GT ROVE;ÃD '00 TO INPUTST .WOCASE .WOCASES . ; 'SETNOONORMID : ; ( --- ) 4 LOOPS IWO WOCASES 1 WOCASE NEWÁThis branch contains various system dependent configuration programs. In many cases, you may be able to modify these pro-T STOUT "' NOTFOUND" STOUT BEEPOUT FALSEWF .IFSO .IFSO UNTILT .LOOP NEWLINE "Type ESC at the ROVE prompt to exit t X€ € @@@ €€€@@J€  AI‘ Ó· DATE CHANGINGX LEAFS - Routines to change the date #-%„F,Enter the last two digits of the current Year" STOUT NEWINDENT "(00 - 99)" PROMPT TWODIGITSOK? IFSO TWONEWDIGITS JÀ Noon and before Midnight? (Y or N)" STOUT YESNO IFSO INPUTST STCVTWO 12 WO+ WOCVTST TO INPUTST .IFSO . ; 'CVTMILITARY . '- STOUT 3 TO POS OUTOLDDATE '- STOUT 5 TO POS OUTOLDDATE SPOUT 7 TO POS OUTOLDHOUR ': STOUT 9 TO POS OUTOLDDu@„€@ ( € @@ J €P €@€@€@ ¿ WORKST STOUT " --NOTFOUND" STOUT ELSE CLVC OUTLINE .IFSO ELSE DROPW .IFSO LANG SYS SETHEX F 22 WCPORTOUT 'CI CÅLANG SYS 10 'NEWDATEST :STVAR 25 'INPUTST :STVAR 2 'AMPMST :STVAR 25 'DATEWORKST :STVAR 4 'TIME :STVAR 'LENGTH :WOVAR 'TOEž=== KAMASBBS" STOUT NOCARRIER? IFSO LANGVOC VMOUNT 'NOOP TOGO USERGO 'NOOP TOGO REMOTEGO CLVC ".... AWAITING FIR* WORKST STOUT " --NOTFOUND" STOUT ELSE CLVC OUTLINE .IFSO ELSE DROPW .IFSO NEWLINE "==== Set Date, Old Value: s€@  B €   € €½T .FMT +TO DATEST . 'CLOCK : CHECKMOD RADIX SETHEX 3 CI 4 CI 6 CI 7 CI 9 CI CLEAR DATEST TD TD TD TD TD TO RADIX . 'CL!Ì@! ’ ¥€B@ H€!J…„D‘ , K¡¡‘R@  @0$€)0H(@€ T €tSO WORKST TFIND IFSO DROPW OUTLINE ELSE NEWLINE "???? '" STOUT WORKST STOUT "' NOTFOUND" STOUT BEEPOUT FALSEWF .(FATNFA NFOUT " OUTPUT: " STOUT PARAMS .IFSO . ; ': :TTC MTC : STRBNXTW INTRACE . ; '. :TTC STRBNXTW OUTTRACE MTC .SrG\ ST+ BRANCHST KLINEAPP . ; 'JEXBRANCH : DELLEAF GETKEY TO BRANCHST FIRSTLINE FINDLAST WRITELEAF LOOP GB TESTKEY UNTIR¼The messages can be classified by subject matter, etc. RKAMAS programs are necessarily machine dependent--ie., the progrqLANG SYS ; See Chapter 11 of the User's Guide for more info on this utility 'DEBUG :JOB ; 'DEBUGVOC :VOCAB ; DEBUGVOC VBU¾ 2 .WOCASE 300 WOCASE 5 .WOCASE 1200 WOCASE 7 .WOCASE 2400 WOCASE 10 .WOCASE OTHERS 5 .WOCASESAWWÄjMY FAVORITE AUTOJEXS - By Adam Trent (Automatically loads AUX ROVE) >#…)AXVZVXMY FAVORITE AUTOJEX, QX10 - Includes QX10 CLOCK Routine >#… ZW&‚P €@ „ JJ€¥RB P  €H @ voSETDEC ; 31 'BRANCHST :STVAR ; 'FINDLAST : LOOP GD ?ENDLINK UNTILT LOOP GN ?ENDLINK UNTILT .LOOP .LOOP . A[X\WÊ}MY FAVORITE AUTOJEX, OTRONA - Includes Otrona CLOCK Routine >#… \ZºD ND ND ND ND . 'CLOCK SETDFENCE 'CLOCK TOGO DATEGO CLOCK 'UTILITIES TFIND IFSO "AUX ROVE" KJEX .IFSO 'SYSTOPIC TBUILD A_[ZÒ~MY FAVORITE AUTOJEX, KAYPRO 4 - Includes KayPro 4-84 CLOCK Routine >#… ¸ST . 'CLOCK : CHECKMOD RADIX SETHEX 2 CI 4 CI 7 CI 8 CI 9 CI CLEAR DATEST TD TD TD TD TD TO RADIX . 'CLOCK SETDFENCE $ : TO STCASEV . ; 'BRSTCASE :RTC STCASEV ST= IFSO POPRSW WO2+ PUSHRSW ELSE POPRSW DUPW FETW W+ PUSHRSW .IFSO . ; `\¹FSO DROPW OUTLINE ELSE NEWLINE "???? '" STOUT WORKST STOUT "' NOTFOUND" STOUT BEEPOUT FALSEWF .IFSO .IFSO UNTILT .a_%WONEWDIGITS ELSE ERRORMSG 'HOUR STOUT RECURSE .IFSO . ; 'MINUTE : ; ( --- ) ?NOONORMID IFSO '00h`m 1 WOCASE POS 1 WO= IFSO FALSEWF ELSE ZEROPAD RANGEOK? .IFSO .WOCASE 2 WOCASE RANGEOK? ERRORMSG 'MINUTE STOUT RECURSE .IFSO . ‰"!€„ÀB(!  $VB€ ¥€@ „@@€€@@$P ‚P $@¨€€À@(!€@@$ ‰„ l'" STOUT WORKST STOUT "' NOTFOUND" STOUT BEEPOUT FALSEWF .IFSO .IFSO UNTILT .LOOP NEWLINE "Type ESC at the ROVE prŸO I .WODO DROPW . kYou can lift one of these AUTOJEX leafs and substitute it for your current AUTOJEX if you like one of these better. Thes´RACE IFSO NEWLINE NEST WOOUT 2 SPSOUT FETRSW WO2- DFATNFA NFOUT " INPUT: " STOUT PARAMS 1 +TO NEST .IFSOpan; ( --- wf) INPUTST STCVTWO ?BADSTCVT ?WOOVRFLOW WOR IFSO DROPW FALSEWF ELSE TOPRANGE BOTRANGE WORANGE .IFSO . ; 'RAN" STOUT NEWLINE "Type ? at the ROVE prompt for Help." STOUT .SYS .LANG GT ROVE x¶H€P €@ „ JJ€¥RB  €@ @ –e have clock routines for specific machines and automatically load the AUX ROVE menu if the UTILITIES topic is available.ompt to exit to CP/M." STOUT NEWLINE "Type ? at the ROVE prompt for Help." STOUT .SYS .LANG GT ROVE ¡ .WOCASE OTHERS FALSEWF .WOCASES . •GEOK? : ; ( --- wf) INRANGE? DUPW POS 7 WO= WAND IFSO CVTMILITARY .IFSO . ²; 'CREATELINE : '" GETKEY ST+ '" ST+ " KJEX" ST+ . ; 'WRITELEAF : CREATELINE BRANCHST KLINEAPP . ; 'TESTKEY : GETKEY BRAwh @’ €@ € B @ P  @€€gILD ; '?TRACE :FLAGVAR ; 'NEST :WOVAR ; 'TRACE : RAISE ?TRACE CLEAR NEST . ; '.TRACE : CLEAR ?TRACE . ; 'INTRACE :RTC ?TtLT WRITELEAF .LOOP . (À@ P$!@@ @ €H À@ rIFSO .IFSO UNTILT .LOOP NEWLINE "Type ESC at the ROVE prompt to exit to CP/M." STOUT NEWLINE "Type ? at the ROVE prompt f(€€@!   %€ €€ €!€$@ €€@@!…À@H €AžY»‘ƒ— MILITARY TIMEG LEAFS - Routines to convert the hours to 24-hour clock 4>„FŒp+E DATEWORKST STCVTWO WOCVTST STOUT .IFSO . ; 'OUTOLDDATE : POS 2 DATEST STMID TO DATEWORKST TWODIGITSOUT . ; 'OUTOLDHOUR Aj ÖISETDATE GLOBALSSEAFS - Global data definitions for SETDATEŠ3JA„F|e 16 WO* . ; 'MDUMP : ; (woaddr wolen --- ) ALIGN WO1- 0 1 FOR I +WODO DUPW I WO+ DUMPLINE 15 +Tect Paper Out 1B WCPRT 4D WCPRT ; Elite 96 cpi Font 1B WCPRT 6C WCPRT 4 WCPRT ; Set Left Margin 1B WdRETURN to start ROVE: " STOUT WORKST STIN WORKST NOT STNULL= IFSO WORKST TFIND IFSO DROPW OUTLINE ELSE NEWLINE "???? y* H€‚@ ! „%€@@  @@B@ @€ €H!À@H ˆ€€€P €@ „ JJˆ¥RB P  €H @ c‚P €@ „ JJ€¥RB P € €H @ A~Ö-"#; PRINTER INITEX LEAFS - Printer Initialization (Modify it for your Printer!) Vk5…)‚P  €@B J…€ PH €R@€€P €@€ €„|­ STOUT NEWINDENT "(1 - 31)" PROMPT TWODIGITSOK? IFSO TWONEWDIGITS ELSE ERRORMSG "DAY OF THE MONTH" STOUT RECURSE ƒ€bATE ENTERMSG 'Minute STOUT NEWINDENT "(0 - 59)" PROMPT TWODIGITSOK? .IFSO IFSO TWONEWDIGITS ELSE ‚!'FLAGNOONORMID : ; ( --- ) CWO WOCASES 1 WOCASE RAISE ?NOONORMID .WOCASE 2 WOCASE ¬ TIME '1200 ST= IFCASE '12 STOUT 'M TO AMPMST .IFCASE TIME '1200 ST< IFCASE 2 TIME STLEFT '00 ST= IFSO '12 STLANG SYS ; Just Jex this leaf to define the MDUMP command ; eg: 0 100 MDUMP dumps the first 100 bytes of RAM ; 'I :WOVAˆª’P@  €@ €B J„€ K€@ €H €¡H H€ R „)'NEWINDENT : NEWLINE 5 SPSOUT . ; 'ENTERMSG : 3 SPSOUT "Enter the current " STOUT . ; 'PROMPT : ; (sta --- ) †w NOT A VALID " STOUT . ; 'TWODIGITSOUT : ; ( --- ) POS DUPW 1 WO= SWAPW 9 WO= WOR IFSO DATEWORKST STOUT ELSAc"•ŒÙTELECOM UTILITIESNS - Various Telecommunications Utilities $=4…E GLOBALS" KJEX "SETDATE I/O DEFS" KJEX "MILITARY TIME" KJEX "RANGE CHECKING" KJEX "DATE CHECKING" KJEX "DATE CHANGING" K–a'TWODIGITSOK? : ; ( --- ) LENGTH WOCASES 0 WOCASE OLDTWODIGITS TRUEWF CLEAR ?NOONORMID .WOCASE £w¯This branch contains various Telecommunications programs. The RKAMAS program (Remote KAMAS) turns KAMAS into a remote BBŽ^ROPW 1 ELSE DUPW WO1- RECURSE WO* .IFSO . ; 'NZDUPD : DUPD NOT DI0= IFSO DUPD .IFSO . ; 80 'STCASEV :STVAR ; 'INITSTCASE‘€@  B€ R@@€ SO STRBNXTW BR FETTRBP 0 WSTRB SWAPW FETTRBP OVERW WO- SWAPW STOW 1D11 DECNEST ELSE BADNESTING .IFSO ]ORTOUT 3C WCPORTIN 80 WAND WO0= UNTILT .LOOP 3D WCPORTOUT 3C WCPORTIN . 'TD : WOCVTDI FMT DIGIT DIGIT .FMT +TO DATEA™ŽC» ‹ DATE CHECKINGX LEAFS - Routines to check the new entry for valid date #Z„FWO+ FETB BOOUTH .COUNT DROPW SPOUT . ; 'PRTCHR? : DUPW 32 WO< SWAPW 126 WO> WOR . ; 'ADUMP8 : 7 0 COUNT DUPW IWO WO”§ WORKST STOUT " --NOTFOUND" STOUT ELSE CLVC OUTLINE .IFSO ELSE DROPW .IFSO LANG SYS SETHEX 'WCO : 6 DOSCALL DR¢“h'OLDTWODIGITS : POS 2 DATEST STMID TO INPUTST . ; 'ZEROPAD : '0 INPUTST ST+ TO INPUTST . ; 'INRANGE? : A¥n‰™NRKAMAS, KAYPROIESNS - A Remote KAMAS program for Hayes compatible modemsŽRË…‹ '€@ „J  J  R@  @@€@€_NEWLINE "==== Enter topic to edit or RETURN to start ROVE: " STOUT WORKST STIN WORKST NOT STNULL= IFSO WORKST TFIND Iœ‘¨LANG SYS ; !!!! THIS PROGRAM WORKS ONLY WITH KAYPRO COMPUTERS !!!! SETDEC NEWLINE ".... Loading RKAMAS" STOUT 'NOCARRIER?›*)X Â@ ! € B@$!D„€ €H€  € ¡À@@ ¤@šnter topic to edit or RETURN to start ROVE: " STOUT WORKST STIN WORKST NOT STNULL= IFSO WORKST TFIND IFSO DROPW OUTLI™©DATABITS, 1 STOPBIT, NO PARITY 0 234 5 193 3 0 1 68 4 24 10 LOOPS 384 FETB WCPORTOUT .LOOPS . 'BBSFAILURE :ABEND 'DELAY` " STOUT OUTOLDHOUR 3 SPSOUT AMPMST STOUT ENTERMSG 'Hour STOUT NEWINDENT "(1 - 12)" PROMPT TWODIGITSOK? IFSO TvŸST CALLER" STOUT NEWLINE INITSIO TOGREMOTE INITMODEM 'NEWCALLER TOGO REMOTEGO MENU ELSE BBSFAILURE .IFSO . 'BBS eSETDFENCE BBS .SYS .LANG [TEST . 'CLOCK : TSTB WCI WCI DROPD WCI WCI WCI WCI DSTB WCI DROPW WCI WCI WCI WCI WCI WCI CLEAR DATEST ND ND ND ND ND Nm0LANG SYS ; PANASONIC 1092 PRINTER INIT SETHEX NEWLINE "==== Initialize Printer (N)? " STOUT NOYES IFSO 50 TO PGSIZE ”CPRT 30 WCPRT ; 1/8 in. line spacing .IFSO SETDEC Œ¥€@@  J€€@K€R@€@ €H€@€„€A©ÏÈT€DEBUGAGE EXTENSIONS - Language utilities for tracing and debugging !„F•* H€‚@ ! „%€@@  @@B@ @€ €H!À@H ˆ€A§ÏÈY± JEXBRANCHEXTENSIONS - Build a Jex Leaf that will bottom-up Jex an entire branchŠ^„F¨¦ OPW . 'WCI : FF 6 DOSCALL . 'TSTB : 1B WCO 3E WCO . 'DSTB : 1B WCO 3A WCO . 'ND : A WCCVTWO WOCVTDI FMT DIGIT .FMT +TO DA§U : ; FOR KAYPRO 16 384 FETB WCPORTOUT 384 FETB WCPORTIN 8 WAND WO0= . 'SETBAUD : ; FOR KAYPRO WOCASES 110 WOCASE¤ : LOOP WO1- DUPW WO0= UNTILT .LOOP DROPW . 'RCIN : TOGREMOTE WCRCV TOGREMOTE . 'XMT : TOGREMOTE WCXMT TOGREMOTE . 'CMD :@ +( (€À@ !  @B€ !€@€!„@€ $P@€($@ €€H@ ¡ÀB@ $  €@ OUT ELSE 2 TIME STLEFT STCVTWO WOCVTST STOUT .IFSO 'AM TO AMPMST .IFCASE TIME '12.IFSO . ; 'HOUR : ; ( --- ) 12 TO TOPRANGE 7 TO POS NEWLINE "The Hour is now LANG ; This job is included mainly as a long example from the User's Guide. ; It takes too long to load to be very pracSS (Bulletin Board System). Using it, remote users can call up and function the ROVE mode of KAMAS as a message system. €€@!B„ ¡¥€@ @ RNCHST ST= . ; 'FIRSTLINE : BRANCHST STLEN 28 WO> IFSO 28 BRANCHST STLEFT .IFSO \LANG "\ BRANCHST ST+ \JOB" :JOB .LAN¶Q . ; 'OUTTRACE :RTC ?TRACE IFSO NEST WO1- TO NEST NEWLINE NEST WOOUT 2 SPSOUT FETRSP WO2+ FETW WO2- FETW M»š!’!@@( !B„@J€¡ R@ À@ HH  „·´" €„€B(!   R@€ ¥€@„€@@$P ‚€@ $@¨€€@@ €@@$‰€ ¶@@@ @  B@ € R @@ !@@€€ @›'CLOCK TOGO DATEGO CLOCK 'UTILITIES TFIND IFSO "AUX ROVE" KJEX .IFSO 'SYSTOPIC TBUILD TOPICS LOOP TRUEWF NEWLINE "==== ELOOP NEWLINE "Type ESC at the ROVE prompt to exit to CP/M." STOUT NEWLINE "Type ? at the ROVE prompt for Help." STOUT .SY¾OTOPICS LOOP TRUEWF NEWLINE "==== Enter topic to edit or RETURN to start ROVE: " STOUT WORKST STIN WORKST NOT STNULL= IFA¼µv‘”pRANGE CHECKING LEAFS - Routines to check the entry for a valid range of valuesŽ%*%„F» am must customized for each particular machine. DON'T try to run an RKAMAS that isn't customized for your specific machi˜OCK SETDFENCE 'CLOCK TOGO DATEGO CLOCK 'UTILITIES TFIND IFSO "AUX ROVE" KJEX .IFSO 'SYSTOPIC TBUILD TOPICS LOOP TRUEWF ºœ 0 WCPORTOUT . 'DROFF : 28 WCPORTIN 64 WOR 28 WCPORTOUT . ; KAYPRO II DRIVES OFF 'INITSIO : ; INIT KAYPRO SERIAL PORT: 8 M: LOOP A 20 WCPORTOUT 24 WCPORTIN 80 WAND WO0= UNTILT .LOOP 20 WCPORTOUT 24 WCPORTIN . 'TD : WOCVTDI FMT DIGIT DIGI: ; ( --- ) INPUTST '12 ST= IFSO SETNOONORMID ELSE CLEAR ?NOONORMID SETAMPM .IFSO . Ågrams to work on your particular system.  INDENT "Is it Noon? (Y or N)" STOUT YESNO .WOCASE 2 WOCASE NEWINDENT "Is it Midnight? (Y or N)" STOUT YESNO .WOCASE KLANG SYS WORKST STLEN DUPW NOT WO0= IFSO WO1- WORKST STRIGHT TFIND WFNOT IFSO BEEPOUT NEWLINE "???? TOPIC: " STOUT ÁPRANGE :WOVAR 'BOTRANGE :WOVAR 'POS :WOVAR '?NOONORMID :FLAGVAR TOUT SHOWDATE NEWLINE "Do you want to change it (Y or N) " STOUT YESNO UNTILF YEAR MONTH DAY HOUR MINUTE NEAÉ"¤†LANGUAGE EXTENSIONS - Jex Leafs to Extend the KAMAS languageŒ%*S…'È’@ @  @@‰P  € PB  !@$H €“LANG SYS WORKST STLEN DUPW NOT WO0= IFSO WO1- WORKST STRIGHT TFIND WFNOT IFSO BEEPOUT NEWLINE "???? TOPIC: " STOUT Ý NZDUPW WO0= UNTILT DUPW FETTRBP SWAPW WO- SWAPW STOW .LOOP DECNEST ELSE BADNESTING .IFSO ELSE BA"(€ Â@ !0 DB‰€P%€A @!€@B€ÀP$P„‚!¡ $B@ €€HI X!ÀB@ 0I‰€@B9"€€€@ @¡€€€ € €€!€@@ @ ÒÜanations of these extensions. ; SYS ABENDVOC VMOUNT SETHEX ; 'STRANGE : 3 PICKW ST<= ROTW ROTW SWAPW ST>= WAND . ; 'WCRANAЦ¤È…µMDUMPAGE EXTENSIONS - Utility to dump memory in Hexadecimal S „FÓÏ’DIX SWAPW WOCVTDI SETHEX SPOUT FMT DIGIT DIGIT DIGIT DIGIT .FMT STOUT TO RADIX SPOUT . ; 'DUMP8 : 7 0 COUNT DUPW IWO 9-3765. This software is released for general public domain distribution, provided it is not sold for profit. ÎHLANG SYS WORKST STLEN DUPW NOT WO0= IFSO WO1- WORKST STRIGHT TFIND WFNOT IFSO BEEPOUT NEWLINE "???? TOPIC: " STOUT ÞÐÛ'TWONEWDIGITS : ; ( --- ) 2 INPUTST STLEFT +TO NEWDATEST NEWINDENT 'OK STOUT . ; 'YEAR : Õ WORKST STOUT " --NOTFOUND" STOUT ELSE CLVC OUTLINE .IFSO ELSE DROPW .IFSO LANG SYS SETHEX 'CI : LOOP A 3D WCPÙÔFO 'PM TO AMPMST .IFCASE .CASES . ; 'SHOWDATE : ; ( --- ) 1 TO POS OUTOLDDATEAØ "®<SETDATE INITEX LEAFS - Job to set the current system date and timeŠ3…0INCNEST ELSE BADNESTING .IFSO ELSE BADNESTING .IFSO . ; '.STCASE :TTC DEPTHW NOT WO0= IFSO 1E11 WO= IF6ÖEWF .WOCASE .WOCASES UNTILT .LOOPS FLAGNOONORMID . ; 'SETAMPM : ; ( --- ) NEWINDENT "Is it after7ÕÚ€€@    J€P,@K€ B  H€ € (€@@ ¡0@%€@ @ P€@H€@ €€€H €)À@@ €€@D ; ( --- ) 99 TO TOPRANGE 0 TO BOTRANGE 1 TO POS NEWLINE "The Year is now 19" STOUT OUTOLDDATE 3 SPSOUT "GE : WORANGE . ; 'IFNOTSO :TTC STRBNXTW WFNOT MTC IFSO . ; '.IFNOTSO :TTC MTC .IFSO . ; 'WO! : DUPW WO0= IFSO D×DNESTING .IFSO . ; 'STCASE :TTC DEPTHW NOT WO0= IFSO 1D11 WO= IFSO STRBNXTW BRSTCASE FETTRBP 0 WSTRB 1E11 Ó a Hayes Smartmodem 300 'INITMODEM : FLUSH CMD 'ATE0V0Q0M0F1S2=255S0=1X1 STOUT CMD . 'AWAIT : DROFF FLUSH LOOP RCIN WOC