EXTENDED CPC DSK File Disk-Info CPDRead v3.24(Track-Info  NANSISET1BIN"ANSISET2BIN" !ANSITERMBIN&rstuvANSITERMDOCwASC-U BIN"BBSTERM BAS#BBSTERM DOC&CAGE BAS2@ABCDEFCAGE TEMGCAROUSELBASCONFIG CON HIDATA (VWXYZDIR0 BBS)*DIR1 BBS+,DIR2 BBS-.EASYCOMMBAScdefd stop bits. All the following are possible: 7E2, 7O2, 7E1, 7O1, 8N2, 8N1, 8E1, 8O1. Example: ">>word 8N1". It is advisable to set the data word BEFORE the baud rate, as otherwise high speed baud rates may be corrupted. >>xon <0/1> Turn automatic XON/XOFF control on (1) or off (0). Example: ">>xon 1". >>echo Print the string to the screen only. >>com A direct call to the standard KDS scrolling mode, with all the usual function keys available. N.B. File uploading will not be poEASYCOMMDOC:ghijklmnGNOMEBYEBINHELP BBS/HELP2 [HOCOM4 BINHOCOMM ASCHOCOMM SRCqICON2 BAS ICON2 DOC. MAINPROGBAS \]MAKEASCIBASJMAKEASCIBIN KLMAKEASCIDOCMNOMBX TEMPNUMBER0YSCFoPHNEBILLDATQ ---- BBS TERMINAL V5.04 ---- Hi there, This is a READ.ME file for BBS TERMINAL V5.04. Ok so the name Isn't brilliant but who cares? Who Am I? .. Well (From my point of view) I'm a 16 Years old 6th form student living in New Zealand .. Just if you interested I've spent about 1 year+ on this program but mostly only a few hours every weekend. I'm sorry if there are any problems or major bugs with my program but I was in a bit of a rush to get it off, So iPHONE DIRRPHONE LSTpPHONE2 ^_READ-ME DOC`aSET bSPECTRUMTEMSSTANDARDSCFqTAGS TAGTTEMPS TEMUTERM504BBIN{0123456789:;<=>?XMODEM-CBAS HOCOM9 BIN0$%&HOCOMM BAS7'(xyz{|MERCURY {|}~MIDLANDS cSCAN BAS f it does anything weird like formatting a disc or dialing up Japan its not my fault. This is what the program SHOULD have. 20 entry * 6 page dialing directory Continuous dial Xmodem / Xmodem 1K CRC Ansi emulation (Yes really - I kid you not!) IBM character set Pull down menu Driven Logon Timer Capture buffer handle up to 2400 (maybe 9600) What it needs Amstrad CPC 464,664,6128 Amstrad RS232 SCAN2 BASTUG2 RWORKTOP SYSZMODEM TXT0Disc Drive Modem Now To the Program If you get the thing started Ok you will be presented with a screen and 'BBS TERMINAL V5.04' displayed in feint at the top.Pressing COPY from there should get a dataline displayed .. the rest is fairly straight forward. Us the cursor keys to move the cursor and pull down the menus .. Copy to select - Oh yeah and ESCAPE should escape from most menus Use this to return to terminal mode. The tricky bits ... Select DIAL from the CAROUSELBASprrE,@* F F  C"" Al Carousel)A very simple carousel routine for$viewdata pages saved from KDS*(serial interface with Comms Pack 5.2d GNOMEBYEnEnter filenames as above| *^Leave this line  "*"  |VIE,@* F F  C"" Alter this number ^^^^for different delay time2,971-973,975Track-Info  Ndataline and then Dial from the pulldown menu, You should now be presented with a large window, Showing the BBS name and its number (Up to 10 digits - If its not enough, tough, it is in this part of the world!) Select a bbs then press COPY, You will then be presented with the information menu, Pressing copy again will dial the BBS, Esc returns to the dialing directory. From the DIAL pulldown menu select Continuous ... You can have up to 20 names in this list and can be from any of the 6  ?## #/}0  "  o >s+sp  " You'll Return  j j}'#{+th%  " Tomorrow, I Hope..  * jGNOMEBYEBINfGNOMEBYE$$$911-912,915-939,945,955-957,962,971-973,975 *The Gnome At Home  Byea  0p U "x,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,t U "5 >k+4$ "Home}>o}jw  "   j7%}vz5  " Be A Devil, Look At  "o o|?ypv'  "  *Join_ Next Time!   `6}i4|kt  >#+4 "of the Gnome  "j U "5 5j 557kj.k#75 pp='57kj.k.kjc{  "j U "5 5j uuuxn jp5mpx%5 uuzz j jzsp  "j U "+,,,,,,,,,,,,,,,,,,,, "   "o:uo:u-  " `>  `~ )"$)) t  `~/'  "DA ~}}}}}tx?,,,,,,,,,,,,,,'  }p  j}0  } U `8|b  "DA ~}}}}}tx?  `4  j|p  "  zt  " Bye Bye Then, Snif..Track-Info  NICON2 BASpvvgt(wor)F#,wor;P @ nZ#A *** *** ASCII / PRESTEL converter by J.Carver 1987 *** ***F "Input << filename.DOC >> for ASCII/PRESTEL conversion...";F "Input << filename.MBX >> for LIBRARY/PRESTEL storage...."; (  * 2 #,;wor< lengt(wor)F#,wor;P @ nZ#,{(( lengt," "); d 2n,;" SAVED" conversiRED FILES. 1. Prepare the file you want to send as a MBX on your favourite word-processor. Take your time, you're not running up whopping great phone bills yet. 2. Save your prepared file to tape or disc. Then convert it, using "ICON2". 3. Now you run up the phone bill. Give PRESTEL/MICRONET a ring. (This is the clever bit) Don't use the Viewdata bitauto repeat 290 KEY 1, "ATD P ":rem Dial - waits for you to enter a number 300 KEY 2, "ATH":rem hang up 310 KEY 3, "ATA"+CHR$(13):rem switch into answer mode 320 KEY 4, "ATD P 0617920260"+CHR$(13):rem auto dial Aspects Gateway 330 REM KEY 7, "ATD P nnnnnnnnn"+CHR$(13) - insert BBS of your own choice! 340 KEY 8, "ATD P 93705744"+CHR$(13):Rem auto dial RED DWARF - 93 is my local code for Northampton 350 KEY 9, "ATD P 9327865"+CHR$(13):Rem auto dial The Cure - 93 is my local code for Northampton 360 PR of your software but instead use the Terminal bit. 4. Find the Mailbox page, and send your converted file, using the ASCII send option on your software. PREPARATION OF FILES FOR CONVERSION. When preparing your Mailboxes on your Word-Processor you must obey a few rules. a) Do not type lines more than 40 characters wide. b) For a PRES 'ICON2' ~~~~~ 10 REM *** *** ASCII / PRESTEL converter by J.Carver 1987 *** *** 20 INPUT "Input << filename.DOC >> for ASCII/PRESTEL conversion...";a$ 30 INPUT "Input << filename.MBX >> for LIBRARY/PRESTEL storage....";b$ 40 OPENIN a$ 42 OPENOUT b$ 50 LINE INPUT#9,;word$ 60 length=LEN(word$) 70 PRINT#9,word$; 80 IF EOF<0 THEN GOTO 110 90 PRINT#9,STRING$(40-length," "); 100 GOTO 50 110 CLOSEOUT:PRINT,b$;" SAVED":END A simple BASIC progrTEL mailbox frame, do not use any more than 13 lines of text. c) Do not include, within the text, any HASH, STAR or UNDERLINE (Shifted 0) Symbols. d) The TEXT will automatically send itself if the last characters are _1 (the underline symbol, _, is what a HASH is configured to be). If you are really clever you will have figured out that you can send your Mailbox from any pam written for the Amstrad CPC, to help in the preparation of Prestel mailbox frames whilst Off-Line. Written by John Carver with acknowledgement to David Foster. (Thanks for the advice David) I can make no guarantees about whether this system of mailbox preparation will work with every combination of word-processor and comms software. This document is by no means an exhaustive guide to this subject, but it will assist in getting started. I know from much teage within PRESTEL/MICRONET, by starting the prepared file *77_(mailbox number)_ It is also possible to chain files together, using the same method. CONVERTING FILES USING 'ICON2'. Word-processor files have a carriage return built-in at the end of every line. Those must be stripped off, otherwise the file will print every line on top of one another when sent as a Mailbox, making isting that TASWORD, EDIT.COM (P.D screen editor program) and even EASI AMSWORD produce the type of file that can be converted using ICON2, but MINI OFFICE II does not. (Protext does if saved as a PROG file.) I know that Cirkit Prestel Link 2 comms software is suitable for sending the converted files, and I am told Commstar and Modem House/Voyager software work equally well - though Honeyterm must be used in the place of Honeyview. THE PROCEDURE FOR PREPARATION AND SENDING OF PRE-PREPATrack-Info  Nt unreadable. ICON2 also pads-out each line to a neat 40 characters width. ICON2 is simple to use, and will work with both disc and tape systems. It asks for the FILENAME of the file for conversion, then for the name you want to save it as, It does the rest. SENDING CONVERTED FILES. The software needed to send the converted files is the TERMINAL software you would normdialing directory's Pressing Copy adds in the Names, Delete deletes then and pressing Enter starts dialing ... If at any time you want to skip a number press space. Capture Buffer. If you exit back to the terminal mode you can then press "." on the Key pad ..This will show the Capture buffer menu ... simply select open/close file to open and close the capture buffer ... Only problem is when this is on you CAN NOT USE THE DISC DRIVE FOR ANY OTHER PURPOSE ... Doing so will abandally use for MICROLINK or TELECOM GOLD etc. It has a couple of drawbacks, In 80 column mode the screen looks awful, so if your software allows you to use 40 column mode that will help make things look better. You will also lose all the pretty viewdata colours. The configured * and # keys probably won't work and you will have to use the SHIFTED : and 3 keys. Somon the file. Ps: This also relys on the BBS pausing on an CTRL-Q. HOTKEYS!!! You will see that in most menus one letter in the options is highlighted ... to select these its possible just to press they key .. eg 'S' for SETUP ... This saves time if you get to use the program a lot. Uhm.. If you just have a nosey around you should get the hang of most of it as everything is done through the windows. Theres nothing else I think I really need to tell you ... I could write a fulle software packages allow transition between VIEWDATA and TERMINAL mode whilst on-line; this is an obvious advantage. (CTRL f9 on CPL2) The software and modem should be set as follows: TX baud 75 RX baud 1200 Bits 7 Parity Even Stop bits 1 All that is left to do is to send the prepared and converted mailbox, using the send file option manual but that would take to long, for me to write and for you to read. If you stuck just press escape or a few other keys .. you should get out of it ... Unless it crashes PS If you notice any MAJOR bugs that are rather hard to find then I wouldn't mind hearing about them. (Just tell Ewen) Written by Glenn Wilton Ansi based on code by Ewen McNeill Glenn Wilton 84 Glanmire Road Newlands Wellington 4 Ne on your terminal software. You will worry yourself something silly first time you try it, because you can't see the file being sent! So by way of a little re-assurance you can type *00 after you are told the transfer is complete, and you can see what was actually sent. The above is a contrived method and not ideal. Until suitable viewdata software is made available, this metw Zealand *** Added 4.1.92 by Richard Fairhurst: This is a superb package with the exception of one thing. It doesn't do ASCII uploads, so if you want to prepare messages off-line and upload them you'll have to use another package. Until....! I rumbled up a quick kludge to fix this. You can upload any ASCII file AS LONG AS IT HAS A SINGLE-CHARACTER FILENAME!! So, for example, you could upload one called "A". To do this, just press CTRL-\ (backslash) from normal terminal mode. The chod will fill a gap. Should anyone have any specific queries about this subject they are welcome to contact me on PRESTEL MAILBOX 011110893. John Carver. "Input << filenter you are told the transfer is complete, and you can see what was actually sent. The above is a contrived method and not ideal. Until suitable viewdata software is made available, this metTrack-Info  Nomputer will stop and a funny graphic character may appear. (Don't worry, it will be overwritten!) Now type the character for the filename (e.g. press A if your file is called "A"). The file will be uploaded. Pretty obviously you shouldn't do this while the capture buffer is on (a bit pointless, really). How it works: &BB1B (KM READ KEY), used by BBS Terminal, is intercepted and sent to a routine at &AF00, which tests for CTRL-\. If found it opens a new file with the 1-character name entered, and redirects &BB1B again to a routine which just CALLs CAS IN CHAR (&BC80) until EOF, whereupon &BB1B is redirected back to &AF00. Any suggestions leave me a message on Arcade Fantasy (0533 376056, 8pm-8am) or WACCI BBS (0252 318557, 24 hours).the nile the capture buffer is on (a bit pointless, really). How it works: &BB1B (KM READ KEY), used by BBS Terminal, is intercepted and sent to a routine at &AF00, which tests for CTRL-\. If found it opens a new file with the 1-character name entered, anHOCOM9 BIN@@$CCTEST1 C!@!S!B!wBA!B@"@V@͌@~2C>y>y~@y>y~y>y~?`Ɗy>6y~y~y>vy~y~y~Z#~ !CKC "ĆH~BAwB!C|Á@!CqJA~o~g"C@2C @@pA@>A͠A@A2C9BuAA:C@A*C|'A}!CHA@A:CO:CG*CBHA:C2C @@NF 2C o g~A#:C=2CZA2S>2SxGŒAÜA>0yx!C#BKC*CBA*C~#"CKCBAA7!C"C2CAAA:CZA:C]:C~2Cx2CoBWA:Cy!B>yA*Cw#"CKCB8B~B2C*Sw#"SBpB!B@yuBYuBNmBnmBSBwB:C7!S"S!C"CNF  o gC͌ڦB!SC@B!S~͕B#KSBBJéB!9C@>͕B͏B!lC@**Hocom7a.bin loaded** *BUFFER FULL - SAVE IT? (y/n) * *SIO ERR SEQNCE* *Disc write failed* *Disc open failed* *Disc Close faileXMODEM-CBASpReady.! Then Downloading is DONE.From George. 2 < Program By Gary Crean And A LOT of Help From George.< This Downloads A Basic Proggy E.G. Rotating Polygons: I Will Soon Write a Uploading Proggy And Put It In8 The CPC_PCW File Area Also That Proggy Will Be A# Downloader For Machine CodeA The Address For Downloading in this Prog Is After the &21. on here it is set to &170 (Basic Ared* *Tx Failed*    cCCTrack-Info  Na)J  I Know Alot Of People NEED This program So I Typed For You As Well5  Oh By The Way There Is NO XSUM ERROR CHECKING?  But The file Going on the CPC_PCW file area Should Have 8  XMODEM FILE TRANSFER PROGGY for Cirkit interface2  U  ,("&")N 21,70,01,01,DC,FA,3E,43,ED,79,CD,45,BE,FE,04,CA,3D,BE,CD,45,BE,32,00,BFN CD,45,BE,32,01,BF,06,80,CD,45,BE,77,23,10,F9,CD,45,BE,32,02,BF,CD,45,BEN 32,03,BF,3E,06,01,DC,FA,ED,79,C3,0A,BE f00x` xxxf< 0x>8`36666000666l0f|0008 l`<||fl~~~ `f<00 <``ff0~ffhhflb`lffl20 |f`~0ffxfff`<0ff8fx>|||~00xf`0|0` 37ff"U67?77??l`fl0`vlx<88||fpg<~8~<<0$l|ffff ffff~0ffflb`ffffl`fff<f0 ff`0>fflff||`6f2,3E,06,01,DC,FA,ED,79,C9,C5,01,DD0 FA,ED,78,E6,01,28,FA,01,DC,FA,ED,78,C1,C94 To Use Set it up the BB to start downloading0 and then Press ESC to Exit Terminal Mode Type CALL &BE00: It Will DownLoad the program And Then Print Ready.! Then Downloading is DONE.From George. 2 ' This Downloads A Basic Proggy E.G. Rotating Polygons 3 ' I Will So00,BFN CD,45,BE,32,01,BF,06,80,CD,45,BE,77,23,10,F9,CD,45,BE,32,02,BF,CD,45,BEN 32,03,BF,3E,06,01,DC,FA,ED,79,C3,0A,BEfx`00`|<~0f~| fo3̈w6666666666666l|xll~~`0l<88<~Zf~x8v<<<<<<vl~p ~x?~~~ 0 6Ʈ7x-+0Y.4(=/=~MNfB]B@Qx80p6666666666666p~~l8a I>>>>>>>~>~A>A@AA~~>AAAAA@< @ @@08v~~l8w6 p88>>>>>8>>>~>|>w?wpcs>~>~>wwcwwpppp<88v8|<f3cZll8 0|<<~<~<< `<|<xx88<<80"U6666666666666888x0`08xp8|<f3cZlf 8ff8p8pp8|88ff?<>~f8~~ `f<;H(@ E~@AAMA!@!@@@AD@UQAAAA@AAA""<\<:<:|Bv\<\:\>|BBABB~8|88ff?<>~f8~~ `f<wpl88w>~pww8wwwpwpppw|p{wwwwpwwk>wp8w>~>?>8?~<~?~?~wwcww8| I"~>? U>@!~~Gx@IIA~A~>AAIbBFB|FBDIbBbFb@BBA$B`l080llfll3̈w6666666666666xfv0ll0 `0000vl l|88ff?<>~f8~~ `f<lX800 <l``ff0~ffffhhf l`ff`ff8f00 ~ x|<|<0>l8fl` f|fxx~ x`||<ff8<0  fffxfvlfffv`0fflfLplTrack-Info  N|88>n~>?pu~pw~~wxpw~s~>ww>pcwwww~ww~wwwwwp8wwk>wxl||fl~~~ `f<~ ) Q AA_A!@!@@AAD@AEA@EHA"I>B@B~FBxIBBbF@<BBIF||fl~~~ `f<8m88ww8w8wwwpwppswn|pkwwpuvww>8p?wpw8ww|kwwwwp>8wwkwƁ88||fpg<~8~<<0$8~#F*0 a@AAAA@A!A!@@!ADB@AC"@"DAAU" BbBF@:BDIBB\:@F$U$: 080llll3̈w6666666666666xfv0ll0 `0000vl l|88ff?<>~f8~~ `f<(P@8$ BB(D Dxxtx t0 xt|  (xwwppwwwwp8?w~kww~?p8w>>?8Ɓ88<~Z>>>>><>A~>~@A>8AAA@B>>"A<>\<:>B$B8AB<@@| :"B~888<~Z>>>8><8>w~>|p>wp;w>>cw?~>?>8w>w>cw>pp~?6w8~~||xx <@< f00x` xxxf< 0x>8`36666000666l0f|0008 l`<||fl~~~ `f< R@8 @ BBD( |  Čx 00 x>|||~00xf`0|0 37ff"U67?77??l`fl0`vlx<88||fpg<~8~<<0$(F T` @0BBBDD(D@ Ą t t$HHt@ ~~||xx8>xp>88<~Z>>>8><8>w~>|p>wp;w>>cw?~>?>8w>w>cw>pp~?6w8~~||xx <@<fx`00`|<~0~| fo3̈w6666666666666l|xll~~`0l<88<~Z|p8:||D<x|xt| 8Hpxt0Dp ~x?~~~ _}(MF1r'3։y%~o@uP:#^|WNW蒚(F&yTsnrj]eW2J mܛ2WT6A䗇_L~їi)~kΑ>,~?A Y3Ư??J0^0Űmkz!.ܣ VM@-i]ΗkRb 4[/3o 8h!wk@dqPz6}{'G ĔS!d|s;hXFsB̽I=ӏC=LIӡO4ɵ[9[?%&_Mš+s\g,Q!ߟT)Sti"δq5%s ɛJ[y)psؗ?Blj$ZTސ!3zbg0B9P#usR;(+i]hק΁R4 *j',- haUοu{%WośFZxx80p6666666666666p~~l8((0@||| 8|| ||8|<|>88|ll08``|0xx8xx`x|0<((0@||| 8|| ||8|<|>88|xx88<80"U6666666666666888x0`08xp8|<f3cZ~f8~~ `f<(P@8$ BB(D Dxxtx t0 xt|  (|88ff?<>~f8~~ `f<l8`<00 l 00` ffhh0 l`ff0ľ`0lx`x x`vlp f0xv||008|!2"!7!Q!#R!>!2"!7!Qww>!22"̀>!2"z org &80偁|fl~~~ `f< R@8 @ BBD( |  Čx 00 ||fl~~~ `f< 0`<0`0` 0 `0ffhh0lb`l0802` |f`f0 x0ffx0800088||fpg<~8~<<0$(F T` @0BBBDD(D@ Ą t t$HHt@ t's visually attractive. 7. I wrote it (well, why not??) If I was feeling very intelligent, I would write an automatic WORKTOP.SYS reader into this. But I'm not, so I won't.       ,  , ( , 2 ,F , ,, ~,P ~, ,Z ,, , ~,d ~,  n  ,"AMSDOS Comms Disc"'x  ,  "Select a user area:"#, ,',,#  6 88||fpg<~8~<<0$lf00f0000 00000fflb`f0ffl`xf0xl0f`f`|f0l0||` 4xl|d0088<~Z|p8:||D<x|xt| 8Hpxt0Dp88<~Zxx8xx0xxxvxvx xxx` v0l ~~||xx@ x8xBBSTERM BASpbb?ple here thinkJx that it looks better, but others don'  , , "Note: This is a Beta test - 14/4/91""ASCII upload by Richard Fairhurst 4/1/92" "1:asc-u", "1:ansiset1",@"1:term504b",P  P,call &5000,x where x=0 Standard rs232(1 Hodemade rs232 22>NONE&< Written by Glenn Wilton, 1991.FKP Note, don't try to spread the code of the loader over more t~~||xx``x88<~Zxx8xx0xxxvxvx xxx` v0l ~~||xx@ x8xhan one7Z line otherwise it probably won't run correctly.dIn Ansiset2 is an alternative character set. Some people here thinkJx that it looks better, but others don't. Give it a try if you like. "1:ansiset1",@"1:term504b",P  P,call &5000,x where x=0 Standard rs232(1 Hodemade rs232 22>NONE&< Written by Glenn Wilton, 1991.FKP Note, don't try to spread the code of the loader over more tx8ޛ3\n&IOTw ZG1Ӱ#ԷBeL 鏨W*M>i'eesa=̫xW
ڣ-a],BiSA\vˠ,^$/~TsaTi<ăHi'xpwyĉ珿E\u՝Track-Info  NHOCOMM BASp2le to ERAse: ",er ' er ""   |ER,e1 latest titivation date/time: 29/1/92 08:05  "Don't forget to EDIT in your name in 300, and passwords in Lines 370, 440, 510 and 580. If you use different names you will have to change 360, 430 etc. as well"> "Okay.. You can delete lines 10-30, then save the prog" "Press RETURN",;( hocomm.asc loader and pre-processor for hocom9.bin. @2 Written by George Ho-Yow, Copyright (c) Dec 1991, Jan 92.K< RUN" hocomm.asc" to start prog. Enter 0 to 3 in response to BBS No.F Use key to break out from a 'sendstring' stage, or to access BASIC. there's quite a bit of work to make the BASIC pre-processor more user-friendly.P I leave that for you to have fun with. There's no file transfer at present, later on time permmiting, I'll see what I can do.Z  ?d nsendst@ txbyt A savbufB sta S rese wB bytsi  for 8N1 byte protocol. For 7E1 protocol set bytsiz%= &7F47. Dx trig(<),strn(<),dir() xo  xof  Here follows a list of BB names. Only those BBs to be used for 'PLEASURE' must be used with this program please. Commercial use infringes the DATA PROTECTION ACT. You would have to be registered. R  number of entries n BB name-list. Starts at zero, hence one less.  dir()Track-Info  N         " Preston Ros" dir()" The Dock" !dir()" Infotel " dir()" WACCI " !dir()" " dir()" " dir()" " dir()" " dir()" " dir()" " ",mynam"geoff holmes"66@ Entry for BBS No. 0 = (PRESTON ROS) follows: JCTtrig()  strn() ( )"ATDT0772652212"( ) P^trig() ("|")(" ") strn() "DIR1 BBSThis is dialing directory two. You can do the same things with this DIR0 BBSThis is the dialing directory. To create your own dialing directory one as you could as you could with the last one. Have a good week! clear this one and then start adding boards of own. Don't forget to save then new dialing directory. Enjoy yourself!  =PPTERM BINP=P Track-Info  N         DIR2 BBSArcade Fantasy BBS 05333760568pm-8am Excellent BBS: CPC/PCW area Preston ROS 077265221224 hours CPC/PCW. Sysop: Tony Walker. Pussycat BBS 061236035124 hours Good BBS. Sysop: Terry Larsen.Maxwell House 071828157724 Hours Good BBS Aspects 061792026024 Hours Dave Gorskz rq=@n.H @Ys7?/~GNI(CBcud\M<$DP\YqK@)ƥK. c?#M.e'fܼes|kFd?|9wBэxpwyȍ+FsoLdv?Di(TBTh02ňu8J%"׬F%a܀S9N+%p `]bW]=Rgi"̸`RvE /"i - Sysop  TERM504BBINP=P= TERM504B$$$Á`3P_@{PH*ԃTR:Ճ<2ՃP گ2ՃP pP zP*ԃT@_R*ԃ$|P &,} ͪS."ԃ:Ճ2ՃkP*ԃ,͆P<[.Q >2^2P2<[*Q\QW:AS22>2rVz*ԃ(u (I (~ (q (` Q_@̀^!dQQ8(mQPlQ{Q͌Q͛QͨQʹQ*ԃTS*ԃ$|P ,:P ͪS:P=o&"ԃ2rV&'Q|(%'Q}'Q-'Q,:P'QͪS:P=o'QZ_@w#_ Hw#_Hw#~?w##>w~/w#w#7Q*Q^Q22*ԃ2 R!?!S R!"ԃ>5C)R>5>2>K)R2~˿@_*ԃTR*ԃ$|P &,} ."ԃ#U"ڃx2܃T"؃*ڃT:܃G|gNgFy‹R RaRx!݃RQĩQIĜQYĵQ*؃S*؃W"؃#*ڃ,"ڃ fR*؃}SmQiQA|QmQw|gw|gw|gw|gw|gw|gw|gww|gw|gw|gw|gw|gw|gw|gw*ԃT~/w|g~/w|g~/w|g~/w|g~/w|g~/w|g~/w|g~/wO NAL V5.04 ---- Hi t OTq|gq|gq|gq|gq|gq|gq|gq|g͔^0S*փPS S*փ|g>gPB6, $| |g|g |g"փ>0O| Iy I|}y|(>'CTCTdCT CTR8x y(> 6Px06P:Ճ2Ճ>06P(d̓T ̓T8_x y(> 6P{{x06P{!z z R8}o&T^#Vl&0&}oT^#Vl&[փ|gP@0 p`P@08UƐ'@'6P*[| }(gz0 S|7g:o-:샽kUo|&w}<2@[7mHELPISH@[0m There used to be a help file here. However, the program was improved so much so fast that the help file is really out of date. I have not time to fix it up at the moment. Sorry about this. But the program is totally menu driven, so it shouldn't be too difficult to figure out what to do. See the @[1mREADME@[0m file for some useful hints, and other rubbish. @[4mGlenn Wilton, April 1991.@[0m Track-Info  N         :T<2TKxG(* xw#|0 &" W(:o:샽( &~ y,}2:< 2: ! rV׼AS>22rV2!V!22U!! ! ݼ:AS2>2rV!!:AS22>2rV2rV: !: (<22>2AS:(<222ASɯ222:<2W[>yx2_[ ͻV:<<(2ɯ2:<<(2ɯ2:<(2ɯ2!k:dW#:dW#:dW*T"!!k~!#mQ͵Q*!S*!W"!# kW8O{0w#yf2Q2k`:0 ( 2>2Q>2lQ2{Q:ˇ22Q:22Q:22Q::22:2:2ᆯ2Q:2'0k`2O:Gy,`(2G:,`(->2Q:˧2 2Q:2>2Q:˟2ɯ2Q:2*ԃ"[*"ԃ[> ~2u>,sdžuͪ!>Ϳ͂k>Uq^ͻVQ͎Z>2sV! cY{>2l{͈{2l{!""Q!cY!"2sV*"ԃDU0̀P(~̓aoa za0 aaʤaAa a a aa`Oa>hUba̐a ̛a`̀P( ( > ̀P>ÀP> ̀PnNF\R R!P\R R>>2WT~/wW|g ,$||g|g8|@g}Po$||gfnT"X~OF6#XrWC6W "XFrWW V^FSԃP~ 27Y8Y2XʺX X (Y (j( X8Yz :7Yo&)V ^^#V:7YW~ (r z:Ӄ`X:Ӄ`X͚X>8Y:7Y= ~=27Y]X:7Y8Y~G:7Y< 27Y]X˯O F~#1Y(˿˯ :7Y8Yz27Y8YÆX`XFfn:7YoêW 8%_P______``,`~#(˿o&OY)^#Vͩbc> hU( ( > hU>hU> hU> ͪa`2ӃsJ^*ԃ"Ͱbg^*"ԃkV{>hU>[hUyhU`J^*ԃ"}g^*"ԃkV`րo&)ށ^#V~#`hUba̐a ̛a b>{dž#V!k6 hb!6 hb!`l6 hb!l6 hb!l6 hb"W3XRX:(.(* (&IYͩb*( ~ 27Y]Xub|W͝WͰcWc͢W(<ͩbb('͝W dcPc:Ӄc*~ (6 0c͝Wcüb!c!P\R:Ӄc (*(!( ( I:Ӄo&))##k^#VPcdcc:Ӄc:Ӄ= 2Ӄ:Ӄc:Ӄ< >2Ӄ˯OPỲPcYG˯Y(N(x> 26PASYAS>_2cZYAS> 2*ԃ"" ((($&Z(_ ([(WgxsZ |6PASYASy(xG( > 6PA`6PD[> *"ԃcZASYy(+ AS*ԃ%"ԃ:6P"ԃASY*ԃ>_6P"ԃ>ZY2{Q2Q2Q2Q2Q2Q>{Z! N#F# !͆2>2>2<[!φ"͆2߆22P2lQկ{Z! N#F#͆!:O>(2lQA 2{QI 2QQ 2QY 2Qi 2Qa 2QO[:߆[y;\08:\?[@[>2<[2^2P*͆: 6#>!k~#(˿ :Ӄcz2Ӄc>cͰc:ӃcU!kT(Oy!1mQy|Q͵QS$üco&))kV#FͪW*փ!(dW&N.f!u͛P!(d|W!=cYc,d>*փ&O.f+ ,d RIVE SER RASE ENAMEde'eOe!^dW3X!3"ԃ!P:Ro+R!3"ԃ> 6P!2"ԃ:VpT!^d~ 27Y]XdMd!^d|W!k>:R/ eҗdoʗd!P:R/2Roͩe×dS:V<2V!V!X>ͩe×dͷmEex2a|W!_>!\ͩe×d|W×d!KeW!"ԃd!͘eʣex2!"ԃt!͘ew:AS22>2rV!φyAE\Bd\Cʇ\Dʡ\H\f\J\m^Kʐ]so`ux`!φ"͆2߆22rV>2߆y2([[[>2<[2^2P[*͆: 6#"͆2[*͆: y0w>2[~W0w[~#?\G :ԃ82ԃ[>2ԃ[:[[?\G :ԃځ\>2ԃ[?\G :ՃP8>O2Ճ[?\G :Ճ82Ճ[>2Ճ[?\\\\[_?\\\\Q[W%-"ԃ[>?\$]$]$]_][!"ԃ^Q[*ԃ|]>!(GP>Po&*ԃT^*ԃT/^[*ԃ}!(GPl&!Tţex2|W!>!ͩe×d+RͭY|W×dԼ0 y2"ߥ>Z!"">Z>!6e Filename :ֳCRC : No Block :Bytes :ֳ͋Wͧc>|W>}>2΄!"!"̄2ͷmUfwҋW"mgͯh( :턷 bgéf|g͋W*ȄW3X:gf!"ԃ*cYf*̄K "̄:΄<2΄*#"g|g7g&g!g:섷¤g><jھgffjCfhff{hUɯWhWhzhU{hU:҄hU:΄hU/hUK! ~#hU͘hVh x *B! Ñg! ^!T/^[?\]]]][*ԃ&TP^TP/^[*ԃ>POT^T/^[*ԃL&T^T/^[^w|g{ '^ y :Q>ȯ#|g6 :w͎Zt^:AS22>2rV2sV͎Zq^2sVɯ>2^2^2^*ԃTw:w!P00!P88!77O6 !??O6!006 !886?\[%_%_P_̀_̰_̿_̰_̰___`^2lQ>2{Q2Q2Q2Q2Q2Q2k`2>2ᆯ22{Q2k`:0 ( 2>2Q>2lQ2Q:˯2Track-Info  N         K̀ڎg–gw# x 6# x >2><jھgf>hU><jھg>hUhUhUhUhUz*Ȅ|W!("ԃ* T!("ԃ*̄ T[ʄ! ~#͕jz #2hCʄ! >jw#Vh͘h xh>jJh2΄>jJh2τ7>j0&jN$FO{WYɯWhWh>jG>jػ‰hx‰h7>jػ‰h_>ChU>j0ɯ2h2h2!g>2hh2Vh2&g2hh2Vh2&g>2h2h2!g:g !*"ԃ!h+R7YeLhVij͒m^fy^f͌j!e|W!k|W*ȄW3X!"ԃ*cYͯh>2DŽ!"̄!"Lh͜hci>hU> jhiziʀiiViÃiqW! $"ԃ!q+R͇Y"ԃTKhzʋWܭq]q*j[ԃSj"ԃ"  OK (Y/N*ԃ$|P ,} .&"ԃ!"ԃAS( (" (+ AS-} .AS%| &AS$|P &OAS,} .}Q!Vw}r̀tr&Q^ @ >̀P 0 z}r͋Wͧc>!ρ~#F#'Érn &)F#N^ F:uʊs!rW3XRXʄs2 3 s 300 600 1200/75 75/1200 1200 2400 4800 9600 19200~s~s~s~s~s~s~s~s~shh4444@@hh!rsn &])) ^#V#Sv^#V#SvF*u~?wLhh͋hhhh:΄W:τh:DŽW:΄ʲijig*̄Kʄ "̄g:DŽ<2DŽ*#"iciij>hU> jih!>jhhj>hUhUhUhUhU͏*Ȅ|W2;j2>B>>jDU8 : 7+,j Xmodem Xmodem 1K CRC : Window : Header :jjk4k`k!HjW3Xͳj~ 27Y]X(!Hj|W>:h6Sԃj:g 6Sԃj: 6Sԃj!cY!cY>2҄!"!Sj"éj>2҄!"![j"éj:hk!>!2h2h6SԃcYÛj:gDk!e>9f!2gSȄ 6SԃcYÛj:턷mk!>!2 6SԃcYsv|W>!sW3XRX1t2  3s 75 150 300 600 1200 24-1200ssssss@@@!s!s͘r*u~?wsvy!Bt( !Et(!It!PtW!."ԃ!^+R+R!Pt|W!s|W>3024024-120-!gtW3XRXUv2 3t Parity one Parity ven Parity ddttt!tͤr*u~wv!gt|W>!tW3XRXUv2 3t BITS BITS BITS BITS u u u uAx*uw~Ox?wv|W>!>uW3XRXUv2 3iu STOP b 1. STOP b STOP brururu !ouͤr*u~j͆r> 9 TIME 00:03:08 IAL ILES UFFER DRECTORY RINT ETUP v1b#Gb. >rTt+utuW"b[v8r}MdͷmʪmwҪmªmQ%_wv!>u|W>:u >!uW3XRXUv2 3u PORT A PORT Buu!u!"|W>:uu!u(!u"uvuDD4v4v>6y*via>vy*via>y*u>y~#y>y~#y>y~y|W>K>y*u~˿y2: >y~y>!>6 hby!`{͉}y( >=1878×v=2˅͈{Ôv:7Y2zv|W×v *!&{|W> !`{|W^Q! "ԃ!(w+Rͱzny:z((vDial Now.Dialing..> hUhUv|W×v! "ԃ!w+R:z((v:G !2Sԃ͛z>2̀0 x ̀P 0 zҪm͢o͋Wͧc>c!mW&."ԃ!+RͭY(yʳm!!eW3X&$."ԃͭY!n nnnP}Mdͷm-ow'o"2!nW!"ԃ!C+R:G(!+R:? no&))^#V#N#FC+R9o!2+Rz/U{/U9o!!+Rz/U{/U9o9o*'o! ̀'ow#! > 6P~/U#>22Ճ~˿ n>.6P#9o 'ò'o˿6P:ԃ(&:Ճ >2Ճ:ՃN >2Ճ:ԃ<(2ԃn9o8dz͋Wͧc>Bo>2Ճ:ԃ< 2ԃ2Ճ2T:T ~#|0 &Q* ao(̀PՃ ͛z > hUhU!lW! "ԃ!pcY! "ԃ!cYdw2y:27Y!`{͍}yw;yjx ʐx1870=2˅͈{w:7Y2: w:_QͨT"Ɇ: _Sԃ͛z>2Ճ"Å ͛z:o&)Vx^#V*Ɇ:<2w2PnȈ"@:w: _Sԃ > 6P:=2w:w2Ӄ2Ny> hU> hU2:¯x:o&)Vx^#V!"Åͱzny2QPZ -:W:( 0ʒw xNy!:< 2Þx:o&)Vx^#V!^RDM!!5^Q[y>!l|W!`{|W&: o&êW!%ê!""ɯ2DU8:!So 0( y ͢o͋Wͧc>!:cY͒Mdmo͌o* ao(͕o x >͕͏o!e|W>>Z.>* .0 0 ao(>.1 x >.>P!0~(>.#+> +> + y >͒|WMd'qY½p"f:Ճ2Umʽp͌p:UGW(> ͕Kh*f~͕#zP > ͕> ͕ y > ͕> ͕>͕͏͋Wͧc>>Zúp.>|W'qYq:ՃWG(> +Kh~(>.+#zP > +> + y > +> +͋Wͧc>!P\RqʋW>Z*ԃ"jqʋW*ԃ[j{ʢqܭq*ԃ[jqASz { ASCh!Track-Info  N         Gw"!">Z6 >!v"!">Z6 >!v"!">Z6 >!`{W!,Sԃ~#6P:Ճ2Ճ ~#6P3Sԃ y !&{W3X! "ԃ:˅6P:_QͨT"Ɇ Sԃ͛z>2Ճ"Å ͛z Sԃ͛z Sԃ͛z SԃN! {yģz!{qģz!{iģz!{aģz!!{Yģz Sԃ*~#6P~#˿6P*{*Å {> hU22QPZ :W:僺( 8>QPZ~#hU3001200/75120024009600 ) DIRECTORY PAGE :ControlSpeedsTimesNotes*&$+2 !h{W! 3"ԃ!Ѕ 1991 Ansi based on code by Ewen McNeill 1990 LOADING DIRECTORY &<llg2VUUrV_ÙÙr Press any key 0USEERaNEW NAME:OLD NAME:dtRE'Filename :XMODEM eSend file header? (Y/N[jOn OfflBASIBINARSCREEASCI[P]File length : Data location : File Type :HELP.BBSSet to )[COPY] Add cYMd} !ƅ>Awwڰ{ !ƅ>Bwwl{!̓l{z27Y2͒Md!ȅ͌{!>͘͏>T!6 >ERASE - (Y/N)|Wy͉}M||Wz! "ԃ!{+R>Y͇YYM|:7Y_QͨTP6 #6|W>|Wy͉}g||W>1878:7Y2|Wz|WS|=2˅͈{V| -|Wy͉}}|W!|W:7Y_QͨT!"ԃ!#}l}(P!+} l}(D!3}l}(8!;}l}(,! {C}!!{C}!!{C}!!{C}!!!{C}y|W>Name Number Times Notes +R!e}+R>Y͇Y˙&NY &Y|6P(Y/N)?+RͭY|}>2[ESC] Quit/Exit[DEL] Wipe [ENTER] DialNoneATDTATDPvA:DIR2.BBSDirectory not found # for [CR]Save a personal copy? (y/N)Filename :term504b.bin YesNoLocal Echo ?Remote Echo ?Local destructive delete ?Local add LF to CR ?Remote destructive delete ?Remote add LF to CR ?Disc erroφφxk`<[PlQ},0 1 2 3 :ԃ<2ԃɯ27Y8YO187( ( ($ ( 8Y>8Y:7Y= ~=27Y:7Y8Y~G:7Y< 27Y:煷!}hb  "~ PEN FILE LOSE FILE BANDON FILE~8*#|("K>hU2DU8 :(̀P>2U*ԃ"OV!~͹~*~͕#|0 & x "!"녯2U>hUͲ~*"ԃSAVINCLOSINABANDO!~|W!~W! "ԃ+R ͒m~OV͌|W*"!">2(~!}|W! ͹~~DISC ERROOV!~͹~>2(~6~>͕͏Ͳ~|WOV!~͹~͒>2(~Ͳ~|W '!SW!W3XRXxͩbY!S|W 4 5 6 7 8 9 !|W>sˆ! "ԃba!?a!Moa![za!va!a!+R̀P>̀P(F (!˯Y(N >!:cY !4cY cY> 2Ճ:ԃ<2ԃ(>Y!4>N!:{ˆ>2! "ԃ!cY .S >F̀P:0̀P> ̀P[*Y> 2ASY*H 6[&#. ):<2o&)ށ^#V: ͒Md! "ԃ!cY$ͭYy!$͌!P=P>͘͏2 }( >#̀P 2 38 CHOS ACROS EW VERSON.  IAL YCLIC DIAL ONE DIAL ULSE DIAL ANUAL DIAL!Bc)Jk1sR9{ZbC ǤjK( ϬSr0[z8冧@a#펯Hi +ԷqP3ܿyX;"`A* hI2Qp:Yx -No%Fg=^5wV˨nO, àfG$_~]|6Ut 0@P`p2"RBrb$4dtDT6&vfVFHXhx(8ZJzj :*뛋l|L\,< ݭ~n^N>.Ͽvwyyy. /Ł IEW DD NAME RASE NAME AVE DIR IPE DIRS|| |{{    .Hb|ʇ BBS TERMINAL V5.04 BBS TERMINAL V5.04 FREEWARE COMMUNICATIONS TERMINAL: All rights to this programme are retained by the Author. I grant the right to distribute this program, providing that no charge is made. I also grant the right to distribute modified copies of this program, providing that no charge is made, and the author's names stay intact. Written by Glenn Wilton Track-Info  N0 P@p`"2BRbr4$tdTD&6fvFV陉XHxh8(JZjz *:ͽ|l\L<, ߯n~N^.> 0@P`p2"RBrb$4dtDT6&vfVFHXhx(8ZJzj :*뛋l|L\,< ݭ~n^N>.ϿT ,  4 ^"What was the CHARGE-RATE of the call ?"   ,"[ 1 ] PEAK RATE" " 9am-1pm Monday to Friday"   , "[ 2 ] STANDARD RATE" " 8am-9am and 1pm-6pm Monday to Friday" wh  ,"[ 3 ] CHEAP RATE" " 6pm-8am Monday to Friday"" All day/night at weekends" r r | r   r ,"Do you want to use the time from"" the CAGE ROM clock....Y/N"  ,"The time on the !/azP'3SFÀ7 a1ΗB0 Ԫݴ 5ǚ,. qHhq-D](NL(EC)(S0eZsksX_Pq`"K98+9WhWy,-*}mS(`"bu§XFZw׫5PD!G{Yc'7wOm?cۼc9lƮP8OJ@eXv`ĚF\36( |T {)sMd~FdClBu-&+9.BZAPyykm=:(ş=CAGE clock =" , c;"minutes,"; c;"seconds." ((C) "Y"   "N"      ,"How long you were on the telephone ?" ,"Type in numbers ONLY followed by ENTER."  ,"How many MINUTES - ", m, ,"How many SECONDS - ", se  se ;  s m< se ()"What was the TIME-CHARGE rate."   ,"[1] - STANDARD RATE"  ( )"(8am-6pm Mon to Sat)" DISC BASp88 LB"A:MAKEASCI.BAS" L|,"B:UNCR.COM *.*""^ AMSTERS CAGE COMMS - ROM BASIC LOADER AND CALL COST CALCULATOR V 3.0 (c) S. RODHAM.' ADDITIONS BY T. WALKER 15/01/89  $ +(  , , , ,   2 bB6<    b, b b F B P|SETUZ|CAG d ("")$n v( (?) (@) )9x v v t( ( )"[2] - CHEAP RATE" " (6pm-8am Mon to Sat & all day Sun)"  ()"[3] - MICRONETTER'S FREE RATE"  ( )"(12am-8am Mon to Sun)" ,"NOTE - Type [3] if this does not apply" ,  m  m   mJ u  PRICE OF UNIT = 4.4 penceI b r u<  LOCAL/PEAK = 60 secondsI& b r uZ  LOCAL/STANDARD = 90 secondsI0 b r  ( v) ( v) )S T t h ( T) c< ( T) c< ( T). c h< c c c< c6  ,(,,  b r   " What was the CHARGE-BAND of the call ?"  ,"[ 1 ] - Local"" [ 2 ] - (a) Up to 56km (35 miles)"" [ 3 ] - (b) Over 56km (35 miles)" z" [ 4 ] - EXIT PROGRAM"" [ 5 ] - RESET phnebill.dat"" [ 6 ] - Return to Cage Rom"uh  LOCAL/CHEAP = 360 secondsK: b r uM  a/PEAK = 25.7 secondsKD b r u333  a/STANDARD = 34.3 secondsHN b r ud  a/CHEAP = 100 secondsOX b r u  b/PEAK = 18 seconds Ib b r u  b/STANDARD = 24 secondsIl b r u-  b/CHEAP = 45 secondsv" The cos > b ^ b ^ b ^&  ,"EXIT PROGRAM......Y/N"!(C) "Y"  "N"   + , "EXIT TO BASIC OR CP/M [B/C]?"!(C) "B"  "C"     |,"DIR " ,   ,"[ 1 ] - Reset Phone Bill Only"" [ 2 ] - Reset Time Charges Only"" [ 3 ] - RESET BOTH" , p 6 c T@ t TJ c tTrack-Info  Nt of your call is as follows"  um s u um( um) c um u c1 c333d t( m) md t c1 t , m;"minutes,"; se;"seconds at" u;"pence per unit of"; u;"seconds =" c;"pence."  , " + VAT (15%) = "; "##.##"; c1 , "Time charges = "; "##.##"; t ,"TOTAL Charge = "; "##.##"; t  ,"SAVE it to your bill file? Y/n",ad(C) ad""  h Program do you wish to run" ,"MAKEASCI.BAS OR UNCR.COM [M/U]?" .C "" . 8 ()"m" B  LB"A:MAKEASCI.BAS" L|,"B:UNCR.COM *.*""NCR.COM *.* (c) S. RODHAM AND T. WALKER 15/01/89 20 ON BREA  "A:MAKEASCI.BIN",   ress:C - to return to the Cage ROM ESC - to return to Basicber ofvMAKEASCI.IN$ C" L $@ @H #PeAo9Li9&3i6Es9R( #Ns}@ۢ:Qlv  ad"N"     m 6,4,120,245,197,33,0,64,84,93,68,77,11,19,205,91,189,54,0,237,176,193,241,60,16,233,175,205,91,189,201  ,,,,,,,, ,,,,,,,, ,,,,,,,, ,,,,, ,,,,, ,,,,,,,,  , ()()()()()()()()()()( )( )()()()()()()()()()(); ()()()( )?0D~Sի34o>H41*iz#v7zlR!(Εoo q&xIjS  4%/K1^y37Z=YjH<m~`[D(rNYy:C64ͼF׼Yxѣ{_ 'ql?hU痍]t\nXei"?Om,Y^ ]jſ}Qƭ; \0xd2_aoӂ.œ.X)ፁi( )()()( )()()()()()  , ()( )()()()()()()(); ()( )( )()( )()( ){(,)()()( )( )()()()(){(,)  , ()()()(); ()()()()()()( )( )()()()(){(,)()()( )( )()( )()()(){(,)+ s c m CAGE TEMbĤx"cagepra*800934049ᰀaPRESTEL 154045800514368"cagepra*800934049ᰀaPRESTEL 154045800514368esaE.Y.P. 2034544444"PRESTEL 15404q5800514368esavCONFIG.ON$ 1$ AID,P&Xx(4$?q@ CApe9]HS*Ij4 p0 F#IK. AB Pԉ@a FwX  [u }! ۦ$1 'C* R1Ĺ@ |"$Mah2y/#Q,c@N&a3Jc se c   ","ES" ,,"A:phnebill.dat"#, c, t )  c c c1 t t t* ,  e4"A:phnebill.dat"#, c, t , ();"Press ANY-KEY for the main menu "; >AN"123456"&H optio optioC.R "" optiot(an,())\*f optio ,,,,",PpBN"123"&z optio optioC. "" optiot(an,(A/@9KKPNfZ.lWi)I5J]vBRIEF2.CUT[05/02/1991] yp@` ~*8iH މ_k* ^}xa/D]ުփ0 #" /ڞ';tn'sfTIغt9Jx atH.J¯IP.DNA>4/_^T$(g5-.b?"HӳjiO5GxV$cLj\/3Ȼ _?_quzalWݻQ^-39g{2bONvϠ8^ ;}_{aAURڽWѰے}ҽb{^_TzӬĨ:2nǁ0)l)) optio 6,@,JCN"123"& optio optioC. "" optiot(an,()) optio r,|,DN"123"& optio optioC. "" optiot(an,()) optio ,,M "Phone bill ";"##.##"; c;" Time charges ";"##.##"; t;."A:phnebill.dat"#, c, t 8 A I "A:phnebill.dat"#,, [$ ,"WhicTrack-Info  NCONFIG CON$$4q368esaPRESTEL 154045800514368ATD%"$!77*77ᰀ%"$!89*89ᰀ%"!83*83ᰀ" $chatbo*811139⹀" $$Ian le Chepostbo*800952001⹀# "&" CagePA*77748578Ṁ%"$!84*84Ṁ" #" !Ed'*81118Ṁ"!"%daisycha*811109⹀CYNOTE081346281qCYMRUTE04924919qDWARFEN/037650103qGN|saP$wsgHiH@x{ٙC^qKl"u z>8($9TkBmQgvKERSTSTE.CUT[05/02/1991]⼸v@ - O Ԉ/ FUj ŲIíeP^dPǣΥEO|3X4[D;; `/8Le V~WZ$[]btwa~va_U8QiԬW=1q`1:\ξ[>@w]a5T3m-DwU@T(S3B뮩#˶eӧ8˥g'VB:`|o*yb>#}ؼk8V (.vԛ E}`(W ]'>Q6 xIƊ֞w|2OME/HOM081888889qPRESTONE077261246qSECTO077245432qE.Y.P 120034544444qa9qCYNOTE01346281qNETWOR027448202q*CAG*SOFTTEC*CASIN*CLUBSPO*M NEWW*M COMM*TSESOF*8289900*90*600615*800406006*165*123*7*8001150*8000201*811613*800952*800953*80002FR2ASC BINle not closed satisfactorily. Press:-  File saved. Press!!16>*?| !é!ͩՌ_P( C |*? F##~Z> Z>Z̯(!u!@͌8͒!ͩ!6*4~ݾ+! u~?݆Z! ~͎F()!$$4q368esaPRESTEL 154045800514368esaE.Y.P. 2034544444"PRESTEL 15404q5800514368esa02q*CAG*SOFTTEC*CASIN*CLUBSPO*M NEWW*M COMM*TSESOF*8289900*90*600615*800406006*165*123*7*8001150*8000201*811613*800952*800953*800026 #(~ > 0800> V # >_ >#` >_#(!~ #(!)(~ +#6!~ #~( ͕0E> ͕> ͕03d*" Zu##~Z~#( 8  THE CAGE ROM not initialisedAMSTERS CAGE FRAME TO ASCII CONVERTER Press:- C - to return to the Cage ROM. P - to process frames Press START frameΉ:A{sk-}̈#\H=}sp,ELb?'#(-<-V#3?[W|2?Ѧ0blg7z[-yExܹLTcI0O F/~HJ|g|V_59ͳ{vyM҃n3-J6̄yCbW+L*02lo.YrL0Y Tvپt;xڣ.OfY|(0Zuzc,8ԧj]$Gk'Ly:;\R6\s4;JdAFn]||b@"[A`(z|S}Fl9IҖyycR1rj?K&XGaPa.'4RĐK+%΢"ǣ0SnpФr}ĉ^G6|G)@,5R8ۆ ? letter FRAME EMPTY. Press a key Press LAST frame letter Insert destination disc. Press a keyEnter filename.  Processing Fram Frames processed. Please press:- F - to close the file C - to return to the Cage ROM Continuing processin File not closed satisfactorily. Press:-  File saved. Press:C - to return to the Cage ROM ESC - to return to Basicber ofdAMSTERS CAGE FRAME TO ASCII CONVERTER Press:- C - to return to the Cage ROM. P - to process frames Press START frameMAKEASCIBASp66  "A:MAKEASCI.BIN",   ress  "A:MAKEASCI.BIN",   ress:C - to return to the Cage ROM ESC - to return to Basicber of  "A:MAKEASCI.BIN",   ress:C - to return to the Cage ROM ESC - to return to Basicber ofvMAKEASCI.IN$ C" L $@ @H #PeAo9Li9&3i6Es9R( #Ns}@ۢ:QlvTrack-Info  N UעRW~wiߢ(؛cD!?^*y]xiAmw&{tPdmrU/@iPU{-\S ayV׀0E VOR1YgTZt-sT_z hv}]sYy~6إm^m Qkv;;ҿ¬fsF939SG&>"I{SgB[;oG$8lXMQ:BhJ/z@,G4ݳmTXk:2Qq{BgzSVSoܛ_/`z@7O1|pRHA넋r _z n^-2ع-՜sXq<&Z}Z2K PsPE7p^-q-v8=Fj, T.x^`x?9!SNYQF?^wTR `WfQ4ԇ8!A/ Y+:@,YyX*********************************************************** -!-------!-------!-------!-------!-------!-------!-------!-anslated correctly. All lines are terminated with CR/LF and blank lines have CR/LF substituted for them. The program is NOT relocatable, and will NOT work if the Cage ROM has not been initialised with |CAGE. Incidentally, pressing ESC whenever keyboard entry is required, will return you to BASIC. Good luck and have a good play. THIS IS A BINARY FILE. ************ CAGE FRAME & ASCII EXCHANGE BY:- IAN HOARE. The program is saved as MAKEASCI.BZN. It is designed to convert Cage frames to ASCII files for use with a word processor. It will create a pure ASCII file, with prestel characters translated to their ASCII equivalents, where possible. This program has been CRUNCHED, and should be UN-CRUNCHED after you have downloaded it. Full instructions are to be found following the file. *May-E(L 5Y c~ҩSqZNDbp1[=lA@iam12o_%+3{И[4 k]\XGX8nY$̄\aom^8' D化LcNhm^8K;j etI#UE |1M+v_c׊˔\R t \PBMl}d?2ԤLPv7!]sVqǫYW Tȓukvb\8Tz HjU%m_ol[pR/<MBAId3?*˸ 8O@tr Instructions for Frame converter Before attempting to use this program, lower Himem to &89ff. The program can then be loaded to &8a00, the entry address. Before it can be used, the Cage ROM MUST have been initialised. You can now call the program with CALL &8a00 in the usual way. If you had set send co-ordinates (Menu 2 Option 6) to the start and end lines of the text to be converted, and you have got a file in the carousel, you can start processing right away. If not, reMBX TEMbD%"$!77*77ᰀ8Ṁ%"$!84*84Ṁ" #" !Ed'%"$!77*77ᰀ8Ṁ%"$!84*84Ṁ" #" !Ed'*81118Ṁ"!"%daisycha*811109⹀0,0 BILL$$$"5800514368esaPRESTEL 154045800514368esaE.Y.P. 2034544444"PRESTEL 15404q5800514368esaPHONE DIRBY.P 120034544444q368esaPRESTEL 154045800514368turn to the ROM with 'C' and load a file and or set co-ordinates . Press CTRL-ESC from main menu to return to the convert program. You can process any number of files, up to disc drive capacity. Remember that you cannot change discs with an open file, therefore you can either save to a different drive, or have all files on a single disc. When prompted, press the letter of the first frame and last frame. Then when asked, enter the filename of the ASCII file you want to create(plMQlfDV--֕p@MS-(uvOLIFANT.CUT[05/02/1991]8| wx ٴaS`3#UUljd!-tOMWPzkeȂ4!A2s@#,COn4x;Gk Ov+C#, ͣ% CtΫ _Z*b^:0ޮ/]WvDIVNM6rO \J/MO. There is SOME error checking, but to save space, this is pretty minimal, frankly. Special Prestel characters are translated correctly. All lines are terminated with CR/LF and blank lines have CR/LF substituted for them. The program is NOT relocatable, and will NOT work if the Cage ROM has not been initialised with |CAGE. Incidentally, pressing ESC whenever keyboard entry is required, will return you to BASIC. Good luck and have a good play. THIS IS A BINARY FILE. ************Track-Info  N0,0 BILL$$$"5800514368esaPRESTEL 154045800514368esaE.Y.P. 2034544444"PRESTEL 15404q5800514368esaMAKEASCIBZN MAKEASCIDZC MBX TEMPHNEBILLDATesUG7q uXɕg˜RƷ%%IE!ڈ`v`aB,7k@E@-lId./H*̤1_)]% Xpש}x۳"ʂ32XJ>PݩX,KVW17 JF|QC1xQԲđFa?(ӳJ=kC*]$2F~Y4s6E@?L"g/v7ȵS l>z˘y\!4vߵu`&pU&0i2_Ώ_MpZ91&Bs)&SU#|=c-:(?眄u3 l3.,CjBrus+{ +*ҏ@&6|nC+5 \[8]t6Qyj5C5zTՖ5M |V.5qj"5EeׅD.&Ԗd_/;rݒR AtmdE5f\,Q0*ȹdkJ<ߦ7P T\Ad{]%#dЈX 0RI?e~@,atx8 h,z.$fﴀA!OTIǫ /HZ6~(0}*&v,#{F7]k߻ͻ iՙ̓%nJQnx-_lz`98O4ԱmR.H&q bz"P?-@FyqTEMPS TEMb<" CagePA*77748578Ṁ%"$!84*84Ṁ" #" !Ed'%"$!77*77ᰀ%"$!89*89ᰀ%"!83*83ᰀ" $chatbo*811139⹀" $$Ian le Chepostbo*800952001⹀# "&" CagePA*77748578Ṁ%"$!84*84Ṁ" #" !Ed'*81118Ṁ"!"%daisycha*811109⹀TEMPS TEMb<" CagePA*77748578Ṁ%"$!84*84Ṁ" #" !Ed'SPECTRUMTEMbD"&Spectru*811188ᰀpectru*811188ᰀ ,"&Spectru*811188ᰀpectru*811188ᰀ , emplate Creator":GOSUB 1000 40 LOCATE 1,3:PRINT"SPECTRUMTEMbD"&Spectru*811188ᰀpectru*811188ᰀ ,"&Spectru*811188ᰀpectru*811188ᰀ , emplate Creator":GOSUB 1000 40 LOCATE 1,3:PRINT"Track-Info  N 179 24 24 24 24 24 24 24 24 180 24 24 24 248 24 24 24 24 181 24 24 248 24 248 24 24 24 182 102 102 102 230 102 102 102 102 183 0 0 0 254 102 102 102 102 184 0 0 248 24 248 24 24 24 185 102 102 230 6 230 102 102 102 186 102 102 102 102 102 102 102 102 187 0 0 254 6 230 102 102 102 188 102 102 230 6 254 0 0 0 189 102 102 102 254 0 0 0 0 190 24 24 248 24 248 0 0 0 191 0 0 0 128 61 103 192 192 103 61 8 24 129 102 0 102 102 102 102 63 0 130 4 8 60 102 126 96 60 0 131 56 0 120 12 124 204 118 0 132 108 0 120 12 124 204 118 0 133 32 16 120 12 124 204 118 0 134 48 48 120 12 124 204 118 0 135 0 0 60 102 96 102 60 8 136 60 0 60 102 126 96 60 0 137 36 0 60 102 126 96 60 0 138 16 8 60 102 126 96 60 0 139 60 0 0 24 24 24 60 0 140 60 0 24 24 24 24 60 248 24 24 24 24 192 24 24 24 31 0 0 0 0 193 24 24 24 255 0 0 0 0 194 0 0 0 255 24 24 24 24 195 24 24 24 31 24 24 24 24 196 0 0 0 255 0 0 0 0 197 24 24 24 255 24 24 24 24 198 24 24 31 24 31 24 24 24 199 102 102 102 103 102 102 102 102 200 102 102 103 96 127 0 0 0 201 0 0 127 96 103 102 102 102 202 102 102 231 0 255 0 0 0 203 0 0 255 0 231 102 102 102 204 102 102 103 0 141 16 8 0 24 24 24 60 0 142 36 0 60 102 126 102 102 0 143 60 24 60 102 126 102 102 0 144 16 254 96 120 96 96 254 0 145 0 0 238 27 255 152 254 0 146 31 56 88 159 252 152 159 0 147 60 0 60 102 102 102 60 0 148 36 0 60 102 102 102 60 0 149 32 16 60 102 102 102 60 0 150 60 0 102 102 102 102 63 0 151 32 16 102 102 102 102 63 0 152 36 0 102 102 102 62 6 124 153 36 0 60 102 96 103 102 102 102 205 0 0 255 0 255 0 0 0 206 102 102 231 0 231 102 102 102 207 24 24 255 0 255 0 0 0 208 102 102 102 255 0 0 0 0 209 0 0 255 0 255 24 24 24 210 0 0 0 255 102 102 102 102 211 102 102 102 127 0 0 0 0 212 24 24 31 24 31 0 0 0 213 0 0 31 24 31 24 24 24 214 0 0 0 127 102 102 102 102 215 102 102 102 255 102 102 102 102 216 24 24 255 24 255 24 24 24 217 24 102 102 60 0 154 36 0 102 102 102 102 60 0 155 0 24 60 102 96 102 60 24 156 60 102 96 248 96 102 254 0 157 231 102 36 255 24 126 24 24 158 248 204 204 248 196 206 196 6 159 14 27 24 60 24 24 216 112 160 8 16 120 12 124 204 118 0 161 8 16 56 24 24 24 60 0 162 8 16 60 102 102 102 60 0 163 8 16 102 102 102 102 63 0 164 118 216 216 102 102 102 102 0 165 118 216 230 246 222 206 24 24 248 0 0 0 0 218 0 0 0 31 24 24 24 24 219 255 0 255 0 255 0 255 0 220 0 0 0 255 0 255 0 255 221 240 0 240 0 240 0 240 0 222 15 0 15 0 15 0 15 0 223 255 0 255 0 255 0 0 0 224 0 0 115 222 204 222 115 0 225 120 198 198 252 198 198 248 192 226 255 97 96 96 96 96 240 0 227 0 0 0 127 184 56 56 0 228 254 102 48 24 48 102 254 0 229 0 0 0 126 216 216 112 0 230 0 0 51 1198 0 166 0 120 12 124 204 118 0 255 167 0 60 102 102 102 60 0 255 168 24 0 24 48 102 102 60 0 169 0 0 0 126 96 96 0 0 170 0 0 0 126 6 6 0 0 171 64 192 76 82 68 8 30 0 172 64 192 68 76 84 30 4 0 173 24 0 24 24 24 24 24 0 174 18 36 72 144 144 72 36 18 175 144 72 36 18 18 36 72 144 176 170 0 170 0 170 0 170 0 177 170 85 170 85 170 85 170 85 178 255 0 255 0 255 0 255 0Track-Info  N02 124 194 128 0 231 0 0 63 76 24 48 96 0 232 24 60 90 153 90 60 24 0 233 56 108 198 254 198 108 56 0 234 0 124 198 198 198 108 238 0 235 60 96 96 60 102 102 60 0 236 0 0 102 153 153 102 0 0 237 1 58 108 206 214 108 120 128 238 62 96 192 254 192 96 62 0 239 56 108 198 198 198 198 198 0 240 0 126 0 126 0 126 0 0 241 24 24 126 24 24 0 126 0 242 0 32 16 8 16 32 0 126 243 0( ), ( ), ( ), ( ), ( ), ( ), ( )|RESE  |BAU, |WOR, |RT, |NORMA|,"printer comms.prt" , "A/" auto repeat;" , "ATD P " Dial - waits for you to enter a number, , "ATH" hang up06 , "ATA"( ) switch into answer mode?@ , "ATD P 0617920260"( ) auto dial Aspects GatewayIJ KEY 7, "ATD P nnnnnnnnn"+CHR$(13) - insert BBS of your own choice!]T , "ATD P 93705744"( ) auto 8 16 32 16 8 0 126 244 28 54 99 99 96 96 96 96 245 6 6 6 6 6 102 60 24 246 24 24 0 126 0 24 24 0 247 0 33 90 37 90 16 0 0 248 12 18 18 12 0 0 0 0 249 0 0 126 60 126 0 0 0 250 0 0 0 126 0 0 0 0 251 7 4 8 8 208 80 32 32 252 12 18 18 18 0 0 0 0 253 12 6 12 30 0 0 0 0 254 0 126 60 126 60 126 0 0 255 0 36 102 255 102 36 0 0 0 130 4 8 60 102 126 96 60 0 131 dial RED DWARF - 93 is my local code for Northampton[^ , "ATD P 9327865"( ) auto dial The Cure - 93 is my local code for Northampton&h "Start Modem and press any key" r |"HELP2"|RFIL,@"SET"|SWREA,@, |CODIM A(257),B(257),C(257),D(257) 120 DIM E(257),F(257),G(257),H(257) 130 OPENIN "data.txt" 140 WHILEspects GatewayIJ KEY 7, "ATD P nnnnnnnnn"+CHR$(13) - insert BBS of your own choice!]T , "ATD P 93705744"( ) auto Tim's Communcation Program V1.0 To enable you to do things quickly the function keys are defined as follows:- f0 = RE-DIAL (A/) f1 = DIAL (ATD P ) f3 = ANSWER (ATA) f4 = Auto-dial - "ASPECTS BOARD" (ATD P 0617920260) f8 =NIETJES CYTUOLIFANT CYTbPAARDEN CYT9PAARDMANCYT?ЦPAARDVROCYTCPLUG CYTHP3PRIKKLOKCYT YRACEWAGECYT [RAM CYT RAM2 CYT^RAMBO CYTLSCHAAR CYT8SHUTTEL CYT`SLEUTELSCYT1SOLSLEUTCYT#SPOOKHOLCYTc) Auto-dial - "RED DWARF" (ATD P 93705744) f9 = Auto-dial - "THE CURE" (ATD P 9327865) To get the HELP screen (this screen) :- press and together and then type "HELP2" and press To get the PHONE NUMBER list :- press and together and then type "PHONE2" and press To get the COMMAND HELP page :- press and together fined as f The Phone List Auto-dial is available on some of these - press the function key shown 1 Red Dwarf Northampton 93 705744 (f8) 2 Darkhaven Northampton 93 413716 -- 3 The Gas Lamp Rochdale 0706 358331 -- 4 Harrogate QBBS Harrogate 0423 868065 -- 5 The Engineers Workbench Liverpool 051 327 7036 MAINPROGBASpREA,@, |CODIM A(257),B(257),C(257),D(257) d .n (), (), (), ().x (), (), (), () "data"0 @ f#, , ( ), ( ), ( ), ( ), ( ), ( ), ( ), ( ) 4    c , ( ), Track-Info  N -- 6 Kirklees OPUS Kirlees 0484 665415 -- 7 8 The Cure Northampton 93 27865 (f9) 9 The Loft 0442 230461 -- 10 Milton Keynes Milton Keynes 0908 504556 -- 11 Aspects Manchester 061 792 0260 (f4) 12 D.I.E "" 061-434-9907 -- 13 Road Runner ain things - see REM's in mainprog, or watch HELP page. lines 360-370 Allow you to switch on modem manually (needed for Stradcom) and waits for you to press a key. lines 390-400 Load the help page and print it to the screen. lines 410-420 Load and send to the modem the Hayes commands to make it print the verbose status reports, e.g. CONNECT 1200, "" 061-483-4105 -- 14 End Zone "" 0524-752245 -- 15 North West 0282-697959 -- 16 Campus ROS Cambridge 0223-357445 --  The Phone List Auto-dial is available on some of these - press the function key shown 92 0260 (f4) 12 D.I.E "" 061-434-9907 -- 13 Road Runner BUSY, NO DIALTONE where necessary. It also quietens the modem's loudspeaker! line 430 Puts you, finally, into the COMMS mode. 5B line 430 puts you, finnally, into the COMMS mode  410ines 390-400 Load the help page and print it to the screen. lines 410-420 Load and send to the modem the Hayes commands to make it print the verbose status reports, e.g. CONNECT 1200,2n;DM&46|]s G]yCN52xؽ-W&gW o fa1is[DMHqumi=z-`SJSн뉶3%F*fL?g8=dy%ۨ;?Ͽ&sVdjT3pArwękK j]bʷXە > jMEX*'/Z%KGb5br Ҟ>" ^@|RT,#,2J|GE,@   |DISPLA,  J T "J^((,,t( )   @@LEMMINGS$$$@v Wait  ~|GE,@  (D) C     |DISPLA,  (, ,)( )    ()   Read in file  o  ! #,( ) 8 3 @ #,  o @ 1 o  (" "," ")))(,t(" "," ")) h "echo"  "r "quit" l&| "com" |RT,|CO "& "prestel" |PRESTE "" "id" |I,@ "' "xon" |XO,() " "word" "@-@"  ()  |WOR,  " 7E2,7O2,7E1,7O1,8N2,8N1,8E1,8O1g "key" y(,)"~"(,(),)( ) (),(,t(," ")) "P "pause" EASYCOMM ======== by Richard Fairhurst Robot PD Library Release 1.02, dated 2.6.1991 Copyright --------- This program is almost Public Domain. If you want to include it in a PD library or other commercial/semi-commercial enterprise, you must write for permission. The address is at the foot of the document. Description ----------- EasyComm is a compact utility designed for maximum ease-of-use of the KDS serial interface and an intelligent modem. It can store up to 100 teleph"" "(Any key)";  {(,);();{(,); "B "pause" ""  2()  " "baud" & "/ "dial" |RT,#, " "a" | " "b" | " "wait"  "/ "end" "" |RT,|CO l< "end" |RT,#,|RT,|CO l&"(Unknown command "")" "Set baudG& r(u(,t(," "))) t((,t(," "Track-Info  None numbers and run separate set-up files for each of them. In addition, it allows you to operate at 2400 baud, which is not available with the KDS software. Operation --------- EasyComm requires three files to run: EASYCOMM.BAS - the main program PHONE .LST - your 'phone directory STANDARD.SCF - standard script file In addition, you may add: NUMBERxy.SCF - additional script files where x is a number from 0 to 3 and y a letter from A to Y. First of all, you should create yourprompting for "any key". If a number is present, pause for that many seconds. Characters will not be received during a pause, however they will accumulate in the buffer as usual. This feature is particularly useful for breaking into the modem's command mode, viz: >>pause 1 +++ >>pause 1 ATV1 >>wait OK ATO This example generates the necessary 1s pause, goes into command mode (by the escape code and another 1s pause), issues ATV1 (i.e. verbose status reports) and then r 'phone directory. You will need some sort of word-processor or text editor for this. Boot up the text editor and load in the file PHONE.LST. Each line will contain a reference in the form xy as above (e.g. 0C). After each reference, leave a space and then insert the board's name and 'phone number (max 37 characters). The board can have any name, but normal brackets are not allowed (use [] square brackets instead). The 'phone number must be enclosed in brackets and can contain any characters, but aeturns on-line after the "OK" prompt is given. >>com A direct call to the standard KDS scrolling mode, with all the usual function keys available. You return to the script file by SHIFT-TAB. >>prestel A direct call to the standard KDS viewdata mode. >>id Send your Prestel ID and password: the string is your 10-digit ID followed immediately (no spaces) by your 4-digit password. >>a Select drive A. >>b Select drive B (useful if all your downloading will be toll except numerals and the comma will be ignored. An example: 0A Arcade Fantasy (0533 376056) 8am-8pm 0B Pussycat (061-236 0351) SAVE this file as PHONE.LST when you've finished (obviously, you don't have to fill up every entry!) All the 0 entries will be on a different page to the 1 entries, &c. Now edit the STANDARD.SCF file so that it contains your standard instructions for setting up the call. These are in the form of a short script file, and can either contain direct strings (to be sent drive B). >>key Define the requested function key as the string inputted. For a CR at the end of the string, make the last character a ~ (CTRL-2 on the main keyboard). >>wait Wait for the computer to receive the stated string. For example, you could have a few lines like this: >>dial ATDT >>wait Username: Fred Bloggs This would dial the board's number using the Hayes tone-dialling command, and when connected, wait for the "Username:" prompt, ato the modem, for interpretation by either the modem itself or the remote host) or EasyComm commands (all starting with >>). EasyComm commands are as follows: >>baud Set the baud rate. Any rate up to 4800 baud is possible (">>baud 4800 4800"), and split baud rates are fully supported (e.g. ">>baud 1200 75"). However, you cannot split 4800 baud rates, and you should note that the KDS interface is not really capable of working at any speed over 2400 baud. >>word Set nd enter Fred Bloggs. You could, after this, have a ">>wait Password:" command followed by your password to automatically enter your password too. When you want to go into the normal KDS scrolling mode, use the command ">>end" (without parameters). After an AT command to the modem, it is advisable to issue the EasyComm command ">>wait OK" so that the next command is not issued before the modem is ready. SHIFT+TAB will stop waiting. >>quit Exit the script file completely. >>dial >word 8N1". It is advisable to set the data word BEFORE the baud rate, as otherwise high speed baud rates may be corrupted. >>xon <0/1> Turn automatic XON/XOFF control on (1) or off (0). Example: ">>xon 1". >>echo Print the string to the screen only. >>pause [] If no number is present, just wait until a key is pressed, Track-Info  Ng> Dial the number enclosed in brackets in the board's name, prefixing it with the string parameter (e.g. ATDT for Hayes tone-dialling), and return to the script. >>end [] If the string is present, then use that as the dialling instruction to the modem (e.g. ATDT for Hayes tone-dialling) which will be prefixed to the board's 'phone number. Then exit the script file and drop into the usual KDS scrolling mode. (Example: ">>end ATDT") If the string is not present, then simply)))60 r( rK)() t( tK)(): r t r r t t ,( )(( )( )( )( )) (  )  ,@( )(( )( )( )( )) (  )BD ,6 , ( r)  , ( r)BN ,v , ( t)  , ( t)X bExitMl"Press H to hang up, R to repeat, any other key to re-run, or reset."v exit the script file and drop into the KDS scrolling mode - use this when you have already dialled the number. You can now run EasyComm (EASYCOMM.BAS) and select a board. Press a few keys and hey presto, you will be connected to the board. Press SHIFT+TAB to exit. If you have not been automatically disconnected at the end of the call, you will be given an option to when you press SHIFT+TAB. You can set up a script file for any of the numbers used - they will be automatically detected. Create a>>echo V22bis, 8N1, XON control on, MNP verbose codes >>echo This will not dial a number - enter ATDT followed by the code >>word 8N1 >>baud 2400 2400 >>xon 1 ATV1 >>end  MNP verbose codes >>word 8N1 >>baud 2400 2400 >>xon 1 ATV1 >>end ATDT  file with filename "NUMBERxy.SCF" in the above format, where x is the page number (0-3) and y the reference letter (A-Y). If you create any good script files, I would be pleased to see them! I would suggest that you create a file for page 0 (say NUMBER0Y.SCF) which sets up the parameters but does not dial a number, and reference it from PHONE.LST as "Unlisted number ()". Then, when you select this, you will be put in a state where you can issue an "ATDnumber" command to dial a number which you haveAQ  , , , ,  "EasyComm v1.01 Robot PD Library 1991"  a-z U (d) "phone.lst"  d #,( )(,)  : ,  "& &";(@ ),(  ) &,  (C) ( ) ( )    "0" "3" ()   "A" "Y"  ()@1"NUMBER"( 0)( @)".SCF"(  not listed in the PHONE.LST file. Development ----------- I'm always happy to receive any criticisms, suggestions for development or whatever. If you have any ideas, write to me: Richard Fairhurst, Robot PD, 2 Trent Road, Oakham, Rutland LE15 6HF. This is also the address for any copyright requests. This program could become much more powerful if you request it, so fire away! I will hopefully soon develop a version for the Amstrad/Pace interface, too, and add many more ">>" commands. Idea0A Arcade Fantasy (0533 376056) 8am-8pm 0B Pussycat (061-236 0351) 0C Maxwell House (071-828 1577) 0D Aspects BBS (061-792 0260) 0E Preston ROS (0772 652212) 0F 0G 0H 0I 0J 0K 0L 0M 0N 0O 0P 0Q 0R 0S 0T 0U 0V 0W 0X 0Y Unlisted number () 1A 1B 1C 1D 1E 1F 1G 1H 1I 1J 1K 1L 1M 1N 1O 1P 1Q 1R 1S 1T 1U 1V 1W 1X 1Y 2A 2B 2C 2D 2E 2F 2G 2H 2I 2J 2K 2L 2M 2N 2O 2P 2Q 2R 2S 2T 2U 2V 2W 2X 2Y 3A 3B 3C 3D 3E 3F 3G 3H 3I 3J 3K 3L 3Ms please! Richard Fairhurst, Robot PD Library, 1.6.91 Contact via Arcade Fantasy BBS, (0533) 376056, 8pm-8am, scrolling 8N1: V21,V22,V22bis,V23 plus MNP 5 and LAP/M error correction.  --------- This program is almost Public Domain. 6HF. This is also the address for any copyright requests. This program could become much more powerful if you request it, so fire away! I will hopefully soon develop a version for the Amstrad/Pace interface, too, and add many more ">>" commands. IdeaTrack-Info  N 3N 3O 3P 3Q 3R 3S 3T 3U 3V 3W 3X 3Y 351) 0C Maxwell House (071-828 1577) 0D Aspects BBS (061-792 0260) 0E Pr60) 0E Preston ROS (0772 652212) 0F 0G 0H 0I 0J 0K 0L 0M 0N 0O 0P 0Q 0R 0S 0T 0U 0V 0W 0X 0Y Unlisted number () 1A 1B 1C 1D 1E 1F 1G 1H 1I 1J 1K 1L 1M 1N 1O 1P 1Q 1R 1S 1T 1U 1V 1W 1X 1Y 2A 2B 2C 2D 2E 2F 2G 2H 2I 2J 2K 2L 2M 2N 2O 2P 2Q 2R 2S 2T 2U 2V 2W 2X 2Y 3A 3B 3C 3D 3E 3F 3G 3H 3I 3J 3K 3L 3M|~~0 0~ 0 ~p~vv8ll8 l<l6666x 0|<<<<888888lllll8~|688p8l8vv88p8ppp8p88p||888888p888p||8x8888|||<|<|>|||888||||~|88888888p8pp8p88p|88||8||||~88888|||>>echo V22bis, 8N1, XON control on, tone dialling, MNP verbose codes >>word 8N1 >>baud 2400 2400 >>xon 1 ATV1 >>wait OK >>end ATDT $$N1, XON control on, tone dialling, MNP verbose codes >>word 8N1 >>baud 2400 2400 >>xon 1 ATV1 >>end ATDT |v|||888888||8|||8888p|ppppp|p8||8|p8|~v||~~||!PS!pͫ!Or!Hs!q@!LC!@F!F~ q{́!ͼP! Q͔Q{́Y͘X> ZíS ANSI Terminal for AMSTRAD CPC. 1990 Paul Martin>y>y{8z<@y>y} Qy2lQ>y| Qy !P.Zaiax7>}6"Qvo&7Q QK~y pAhE4# x7WQ0 y*Q[Q|(+"QANSITERMBINHPANSITERM$$$` #07 BS EQU #08 HT EQU #09 8l|| xv |||x |vx |v0x |v00x |v~~ 8|||||0||f8<|8<08<8l8l|0~~~>l|||||0||xv`0v~8ll8|~~8ld`fff<~~<p0x |v 8< ||0vvfffv~8ll8|0c>cl~3fclz6j<<3ff3z`WSQ7!`"Q"Q!"Q!QQ!QQ*Q#|"QQ*Qw#|`g"Qxx0ʅRʘR >W͂S(e8ʦRX͂S[͂SAW͂S88,O˹:2CY2AY͂S!u!SS8 !a(!b(! c(! d(!v .Q)!RSS8 !n( %-o(e ͼP>ZU~Z#Speed: A=300 B=1200 C=2400 D=4800 V=1200/75  Bits/Parity: N=8/None E=7/Even O=7/Odd f3f""""UUUUwwww66666666666666666666666666666666666676666670??0766666666667076666666666666666666??6666666666vvxllll`0`~pffff|v~ff<~~ ~~`0`~`0Track-Info  N x(zy:?Y{2?Y:?Y~>2?YQTʭS̟TCUCU_8 G:=YxUTSíSO:;YO0y*:YӽU:;Y<2;YU:@Y( T2;YrTy*:YӽUUmQҒS͟S LU rT rT rT kT ̊T̾UeTT_O!OY ~SíS>Zɯ2;YU::Y0<2:YU>MU:;YO8>O2;YUQT([eVCUCU(AgUBsUCXUDrTErTkTFUGUĤUI̎UJUKUYVZ̾Up%Uq4U=̲U>̹U<̗XíS> Z:>Y =2>Y͜:>Y(<2>Y͜>SíS:;Y=2;YU:;YO і\>L4GM>.gOPU>22=Yɯ2=Y>Z>Z*:Y$,u#^#V" V VQT( 8$ 02:YQT( 8 P02;YU ßT>SíS2SV2dV!TVUVwQT(08:00G:SV!TV_~Ww; :SV<(2SV2dV=(ȀWB̛WC̮WD̽WGWHWfWs XuXn XJ_WKvWmWhpXl̃XíSŇG:SV>:TV( =(> " space stops BB banner.`htrig() (":")(" ") strn() mynam( ) edit in your name here. grtrig() (":")(" ") strn() "password 1"( ) edit in your password here. |* Entry for BBS No. 1 (DOCK) follows:Btrig()  strn() ( )"ATDT0914546978"( ) Ntrig() ("C")("K") strn() ()() esc twice.Dtrig() (":")(" ") strn() mynam( )Gtrig() Z>>ZW::Y0 W::Y8>2:YUW:;YP8>O W:;Y02;YU:TV O2;Y::Y8>2:YU*:Y"X*X":YU:TV(͂S[͂S::Y'-3>'-3>B'-3>->-> ->->->->y>y>y>y:NYȯ2NY!Y>ZyZ~#Z  0123456789. -(":")(" ") strn() "password "( ) . Entry for BBS No. 2 (INFOTEL) follows: Atrig()  strn() ( )"ATDT0737766027" ( )Qtrig() ("1")("0") strn() ()() to access BBsGtrig( ) ("e")(":") strn( ) mynam( ) Itrig( ) (":")(" ") strn( ) "password"( ) + Entry for BBS No. 3 (WACCI) follows:E&trig( )  strn( ) ( )"ATDT0252,pqrstuvwxynMmlpr``ȨP>000`t78,A!A!<@ xjo^# 0 !Y0L^( $` P$ۀ1qd0  1@x!@~2wc> і\>L4") strn() mynam( )IDtrig() ("d")(">") strn() "password"( ) NX ,P,,7b #,,P,, #, #, inverse video. lv "hocom9.bin" call &4000,parm1%,parm2%,parm3% initialises the SIO. Parm1%,parm2% set to &34 for 2400 Bd, to &68 for 1200 Bd, to &120 for 300 Bd. and &680,&68 for 75/1200 Bd oThis program turns your Amstrad CPC into an ANSI terminal. It allows you to use IBM PC bulletin boards as they were meant to be used. Features: All ANSI.SYS codes recognised (except those which remap the keyboard). IBM Graphics characters. The program works with the Amstrad standard serial port, and can work at 4800 baud without dropping any characters. Running the program: RUN"ANSITERM" To change the baud rate, press CTRL-TAB. Baud rates supported: 300, 1200, 2400, 4800, 1200/75. Track-Info  Nr vice versa IE &68,&680 parm3= &E1 for 8N1, &.E @,4,4,bytsi set sio for 2400 baud, 8N1 operation. txbyt,xo9 # #," Comms Mode: For Menu, press ESC key."  #,',F,, = sendst straight comms mode. Press to Menu. txbyt,xof3 (sta)   to save main buffer.2 #,(, #," *** MENU for HOCOMM *** " 1 #,(, #," | 1. Auto Logon | " 4  #,(, #," | 2. nam,) () name u(nam,(nam))())8 #," Please wait, saving ";namB savbuf,@name6L #, " Disc processing (open/write) complete..."V rese!`  return to comms modeJj # #," Name of file to view pls. or to quit: ",namt nam "" ~ nam   @ #,  u         #," View Mode: Press for more, or q to Quit Save Text Buffer| " 2 #,(, #," | 3. View Text Buffer| " 3  #,(, #," | 4. |ERA file | " 3* #,(, #," | 5. CAT (disc) | " 64 #,(, #," | 6. QUIT to Comms | " 2> #,(, #," *********************** " ]H #," >>> MENU OPTIONS: Enter No (1 to 6): ",num num  num  H(R num z,,j,,f,\  comms mode+f # #, " Cat... " ,  p z # # #," ... ", () "Q" ; #," View File Closed, returning to Comms Mode... "!  return to comms mode( #, " Bahh! Error detected= ";A5      comms mode- #, " Name of file to ERAse: ",er ' er ""   |ER,er   to comms mode your name in 300, and passwords in  #,  u         #," View Mode: Press for more, or q to Quit BBs (* for pleasure only *)"   #,;dir()  **** Names for commercial purposes violate Data Protection ACT.********A #, " Select BB No. (0 to";;"): "; #,"",nu # nu nu ?ini( )"ATZ"( )( ) sendst,ini L   1   delay between commands to Hayes Modem. i"ATM0"( )( ) sendst,@ modem doesn't like next instruction too quickly. /  a much better idea of what's where etc. This board has a userguide (ROSUSER.DQC) that can be downloaded from the LOGIN file area. 3) If your comms software supports it, capture the session to a disc-file so that you have a record of the menus, file lists etc. This will also enable you to read your messages at leisure (and without paying British Telecom for the privilege!) 4) If you have a number of things to do on a particular board, do them in one session. Every time you mak 1   delay only.u trig(nu) sendst,@strn(nu)  sendst,trig(nu),@strn(nu)B #, ">>> Auto Logon Mode: Dialling No. <<<" () beep trig(nu) sendst,@strn(nu)  sendst,trig(nu),@strn(nu) R #," >>> Auto Logon Mode: Attempting to stop banner <<<" () beep  trig(nu) sendst,@strn(nu)  sendst,tre that initial connection it costs you another unit on your phone bill. REMEMBER: The time spent online is directly proportional to the size of your phone bill! At the time of writing, the cost of one unit is 5.06p (inc. VAT). Here's how many seconds you get for each unit: More [81%]? -Y/n/c- y +-------+----------+----------+-----------+ | Local | 'a' rate | 'b' rate | 'b1' rate | +----------+-------+----------+----------+-----------+ | Peak | 60 | 2ig(nu),@strn(nu) N #," >>> Auto Logon Mode: Attempting to send Name <<<" () beep  trig(nu) sendst,@strn(nu)  sendst,trig(nu),@strn(nu) R #,">>> Auto Logon Mode: Attempting to send password <<<" () beep D  straight comms mode. Press to access auto logon. M #," Enter a file-name to save buffer or to Quit: ",nam $ nam "" `Y. y(Track-Info  N5.7 | 18 | 22.5 | +----------+-------+----------+----------+-----------+ | Standard | 90 | 34.3 | 24 | 30 | +----------+-------+----------+----------+-----------+ | Off-peak | 360 | 100 | 45 | 60 | +----------+-------+----------+----------+-----------+ (b1 is for certain low-cost routes between major cities) M | Local | 'a' rate | 'b' rate | 'b1' rate | +----------+-------+----------+----------+-----------+ | Peak | 60 | 2k Coleman V21 BIRMINGHAM w/d 24 HRS w/e 24 HRS * NOT Thursdays * BBS Software used Fidonet Node No.(if any) ............................................................................... 021-711 1451 CENTRAL BBS Sysop Lindsay Reid V21,22,22bis,HST BIRMINGHAM w/d 24 HRS w/e 24 HRS BBS Software used LYNX Fidonet Node No.(if any) 257/2 ........................................... would be a good idea from both sides for me to compile some new PD discs (both CP/M and AMSDOS - I have about 85 full discs of PD now, 170 collections) for WACCI II. I'll also be passing most of my PD onto other good libraries - like Penguin Software, Dartsma PD etc. (NOT Scull PD!) What you said about false letters looks quite likely. Looking at the locations of people who write to Alex, one of them is "Andrew Parson of Kingsbridge in Devon" - quite likely a real reader then - and the other two .................................... 0922-642206 CHASE NET BBS Sysop Andy Newman V21,23 WALSALL w/d 24 HRS w/e 24 HRS BBS Software used FOREM Fidonet Node No.(if any) ............................................................................... 0543-871562 CHASE WUG Sysop Paul Shenton V21,22,23,22bis HEDNESFORD w/d 17-1000 w/e 24 HRS BThis list was brought to you by The Road Runner BBS [061-483 4105] V21,22,23,22bis (300/300,1200/1200,1200/75,2400/2400) 24 hours daily Up to date lists available...ACCEPT NO IMITATIONS! [Sorry, this came via the TUG 2 bulletin board on a not-particularly-good line, so there's a little bit of corruption... I've tried to repair what I can! Richard Fairhurst 2.6.91, contact via Arcade Fantasy BBS (0533) 376056 8am-8pm] Bulletin Board List For The MIDLANDS Region TBS Software used QBBS Fidonet Node No.(if any) 258/42 ............................................................................... 021-744 5561 CHRONO'S LAIR Sysop Colin Earl V21,22,23,22bis BIRMINGHAM w/d 24 HRS w/e 24 HRS BBS Software used WILDCAT Fidonet Node No ............................................................................... 0536-205113 CORBY TOWN OPUS Sysop Felix Harrigan V21,22,23,22hursday January 19 1989 03:55:13 PM 021-456 2401 ATS BBS Sysop John Krzesinski V21,22,22bis,HST BIRMINGHAM w/d 24 HRS w/e 24 HRS BBS Software used Fidonet Node No.(if any) 253/192 ............................................................................... 021-456 2402 ATS BBS Sysop John Krzesinski V21,22,22bis,PEP BIRMINGHAM w/d 24 HRS w/e 24 HRS bis,PEP CORBY w/d 24 HRS w/e 24 HRR BBS Software used OPUS Fidonet Node No.(if any) 254/128 ............................................................................... 021-705 5187 DIGITAL MATRIX Sysop Clive Warner V21,23 BIRMINGHAM w/d 24 HRS w/e 24 HRR BBS Software used WILDCAT Fidonet Node No.(if any) ............................................................................... 021-430 573 BBS Software used OPUS Fidonet Node No.(if any) ............................................................................... 0926-428294 C-4-C Sysop David Melville V21,22,23,22bis LEAMINGTON SPA w/d 24 HRS w/e 24 HRS BBS Software used TBBS Fidonet Node No.(if any) 253/111 ............................................................................... 021-430 3761 CBABBS Sysop MicTrack-Info  N2 ENTERPRISE Sysop Not Known V22 Half Duplex BIRMINGHAM w/d 19-2400 w/e 19-2400 * Spectrum * BBS Softtare used MICRON Fidonet Node No.(if any) ............................................................................... 0992-760329 EQUINOX ROS Sysop Steve Dibble V21,23 HERTFORD w/d 22-0800 w/e 22-0800 BBS Software used ROS Fidonet Node No.(if any) ............................................................................................... 0602-455444 MACTEL HQ Sysop David Nicholsoncole V21,22,22bis,HST NOTTINGHAM w/d 24 HRS w/e 24 HRS BBS Software used TBBS Fidonet Node No.(if any) 253/200 ............................................................................... 021-541 1625 OLDBURY MAILBOX Sysop Marek Paul V21,22,23 OLDBURY,BIRMINGHAM w/d 24 HRS w/e 24 HRS .......................... 021-356 5379 HOMEVIEW Sysop Not Known V22 Half Duplex BIRMINGHAM w/d 21-2400 w/e 21-2400 * Spectrum * BBS Software used MICRON Fidonet Node No.(if any) ............................................................................... 0602-830231 IBBS Sysop Not Known V23 Sat,V21 Sun NOTTIINGHAM w/d OFFLINE w/e 10-16000 BBS Software use BBS Software used WILDCAT Fidonet Node No.(if any) ............................................................................... 0203-373260 ONLINE INSANITY Sysop Charles Tame V21,23 COVENTRY w/d 21-0700 w/e 21-0700 BBS Software used BBS-PC Fidonet Node No.(if any) ............................................................................... 0602-609463 PC-ENIGMA Sysop Simon Lowe d Fidonet Node No.(if any) ............................................................................... 0562-748459 JUST AMIGAS Sysop Gary Round V21,23 BBS Software used Fidonet Node No.(if any) ............................................................................... 0602-384281 KLEO'S PYRAMID Sysop Kleo Hofton V21,23,23v/data NOTTINGHAM w/d 19-0700 w/e 19-0700 V21,23 NOTTINGHAM w/d 20-0800 w/e 20-0800 BBS Software used RBBS-PC Fidonet Node No.(if any) ............................................................................... 021-472 0256 PLUG 'OLE Sysop Not Known V21,23 BIRMINGHAM w/d 24 HRS w/e 24 HRS BBS Software used BBS-PC Fidonet Node No.(if any) ........................... BBS Software used Fidonet Node No.(if any) ............................................................................... 0533-700914 LEICESTER CENTRAL Sysop Not Known V21,23 LEICESTER w/d 24 HRS w/e 24 HRS BBS Software used MICHTRON Fidonet Node No.(if any) ............................................................................... 0926-421844 M.W.C.F.E. Sysop .................................................... 0476-62450 POACHER OPUS Sysop Mel Warwick V21,22,23,22bis GRANTHAM w/d 24 HRS w/e 24 HRS BBS Software used OPUS Fidonet Node No.(if any) 253/93 ............................................................................... 0533-880114 POWER TOWER Sysop Jim Bates V21,22,23,22bis LEICESTER w/d 24 HRS w/e 24 HRS BBS Software used TNeil Hutchin V21,22,23,22bis LEAMINGTON SPA w/d 24 HRS w/e 24 HRS BBS Software used OPUS Fidonet Node No.(if any) 253/122 ............................................................................... 021-444 8972 MABBS Sysop Mark Caro V21,22,23,22bis BIRMINGHAM w/d 24 HRS w/e 24 HRS BBS Software used BBS-PC Fidonet Node No.(if any) .....................................Track-Info  NOWERNET Fidonet Node No.(if any) ............................................................................... 0384-401770 PROJECT BBS Sysop Bert Isley V21,22,23 DUDLEY w/d 24 HRS w/e 24 HRS BBS Software used QBBS Fidonet Node No.(if any) 254/4 ............................................................................... 0602-640488 RIVENDELL BBS Sysop Paul Dingley V21,22,23,22... 021-353 5486 THE ARK Sysop James Bastable V21,23 BIRMINGHAM w/d 24 HRS w/e 24 HRS BBS Software used Fidonet Node No.(if any) ............................................................................... 0203-473558 THE ROCK Sysop Mike Knell V23 Viewdata RB COVENTRY w/d 24 HRS w/e 24 HRS * ringback * BBS Software used Fbis NOTTINGHAM w/d 23-0600 w/e 23-0600 BBS Software used QBBS Fidonet Node No.(if any) ............................................................................... 0905-774477 SANDIE'S BEACH Sysop Sandi Franchi V21,22,23,22bis DROITWICH w/d 23 HRS w/e 23 HRS BBS Software used QBBS Fidonet Node No.(if any) 253/158 ..........................................idonet Node No.(if any) ............................................................................... 0536-725180 THE WHAT'S HIS NAME Sysop John Wilson V21,22,23,22bis KETTERING w/d 24 HRS w/e 24 HRS BBS Software used LYNX Fidonet Node No.(if any) 254/100 ............................................................................... 0602-413030 TRENT POLY Sysop Not Known V21,22 NOTTINGHAM w/d NOT KNOWN w/e NOT KN..................................... 0602-397113 SHERWOOD FOREST Sysop Kevin Lindley V21,22,23,22bis NOTTINGHAM w/d 24 HRS w/e 24 HRS BBS Software used QBBS Fidonet Node No.(if any) ............................................................................... 0733-322540 SOFTMATIC INNOV. Sysop Steve Johnson V21,22,22bis PETERBOROUGH w/d 24 HRS w/e 24 HRS BBS Software used QBBS OWN BBS Software used Fidonet Node No.(if any) ............................................................................... 0905 775191 TUG II Sysop Pete Franchi V21,22,22bis,HST Droitwich w/d 24 HRS w/e 24 HRS BBS Software used QBBS Fidonet Node No.(if any) ............................................................................... 0858-66594 WELLAND VALLEY Sysop Eddy Ralphson V21,22,22bis,HST MARKET HARBOROUGH Fidonet Node No.(if any) ............................................................................... 021-449 5269 SUNBURN INC. Sysop Druin Burch V21,23 BIRMINGHAM w/d 24 HRS w/e 24 HRS BBS Software used Fidonet Node No.(if any) ............................................................................... 0533-550893 TABBS Sysop Yuri Large V21,22,23 LEICESTER w/d 24 HRSS w/e 24 HRS BBS Software used OPUS Fidonet Node No.(if any) 254/153 ............................................................................... 0902-745337 WOLVES BBS Sysop Bill Gardner V21,22,23,22bis WOLVERHAMPTON w/d 24 HRS w/e 24 HRS BBS Software used TBBS Fidonet Node No.(if any) 0/2400) 24 .............................. 0858-66594 WELLAND VALLEY Sysop Eddy Ralphson V21,22,22bis,HST MARKET HARBOROUGH w/d 18-0900 w/e 24 HRS SU * NOT Saturday * BBS Software used TBBS Fidonet Node No.(if any) ............................................................................... 0827-281713 TAMWORTH BB Sysop Ken Manger V23 TAMWORTH,STAFFS w/d 21-0800 w/e 21-0800 BBS Software used Fidonet Node No.(if any) ............................................................................Track-Info  Nis,HST MARKET HARBOROUGH w/d 24 HRSS w/e 24 HRS BBS Software used OPUS Fidonet Node Noo(if any) 254/153 ....................................... 0902-745337 WOLVES BBS Sysop Bill Gardner V21,22,23,22bis WOLVERHAMPTON w/d 24 HRS w/e 24 HRS BBS Software used TBBS Fidonet Node No.(if any) ............................................................................... TUG II INFORMATION FILES -------------------------- <1>...TUM 18688 17-Mar-90 IMProved MEX 2.45 for Aad CPC CPC464.BAS 512 7-Dec-87 Raise Himem on 6128/664 for Tape progs. CPCCLOCK.BAS 1024 24-Nov-87 A real time clock for the CPC's CPCRSX.TXT 8320 18-May-88 Install RSXs on Amstrad CPCs. CPCUKM7.COM 9984 24-Nov-87 UKM7 for all CPC running CP/M 2.2 only. CPCX9.COM 16384 24-Nov-87 Xmodem file transfer for the CPCs. CPMTOOLS.ARC 13184 12-Aug-90 CP/M+ tools, format 716k on drive B: CREATE 1408 7-Apr-91 L Enter filemask (ENTER = ALL) : Press S to stop or P to Pause listing --------------------------------- - Amstrad CPC specific Database - --------------------------------- AAAAUTIL 2560 16-Apr-90 UTILITEIS FOR THE AMSTRAD CPC ACCOUNT.BAS 7040 8-Jun-90 Get Those Accounts Correct ADDHEAD.BAS 768 24-Nov-87 Add a header to headerless basic progs. ADDHEAD.BIN 384 6-Dec-87 Second file for Addhead.BAS ADDRBOOK.BAS 9928 31-Jan-88 Store names & Addr Make basic data lines from m/code CRUNCH.ARC 12416 12-Aug-90 Crunch archiver for the CPC D.BIN 8832 27-Nov-90 French Diskology clone for CPC6128. DATAFILE.BAS 14592 2-Decctabase for tmstrad. DIGITHLP.BAS 1792 16-Dec-87 Help file for digitizer.bas DIGITIZE.BAS 6528 16-Dec-87 Sound digitizer for 6128/664 DISCEDIT.BAS 6912 21-Nov-87 Disk editor DISPREGS.BAS 1280 7-Apr-91 Stop m/code and display Z80 reisters DKRAM.TXT 3072 14-Feb-88 Notes on Desses neatly AMGRAPH.BAS 20736 24-Nov-87 Basic graph plotter for the CPC's AMSDIAL.BAS 13568 24-Nov-87 Mod for PACE/VOYAGER 7.Run BANKMAN to wor AMSKERM.COM 14848 8-Dec-87 Kermit terminal for the Amstrad CPC's. ANNA.BAS 8960 7-Dec-87 Fast arcade action for all CPC's. ARCHIVE.BAS 6016 24-Nov-87 Backup disk to tape for the 464. ARKTAPE.BAS 512 6-Dec-87 Tape poke for ARKANOID (CPC) AUTODIAL.BAS 2432 16-Mar-88 Basic:comms for kds s/ware BIN.BAS K RAM 256k for CPC6128. DPB.COM 256 8-Dec-87 Display Disk parameter block. DUMPER.BAS 2432 24-Nov-87 Screen dump to Epson compatible printer ECON7.ASC 14720 1-Aug-88 Economy 7 electricity bill calculator. ELITEDSK.BAS 2304 24-Nov-87 Character hacker for Disk version of Elit ELITEHAK.BAS 1536 8-Dec-87 Cheat at Elite! EXUSER.BAS 640 24-Jan-90 AA: 255 users per disk FIRMWARE.EQU 12288 24-Nov-87 Set of equates for the CPC operating syst FORM3.COM 768 24-Nov-87 Binary to Decimal or Dec to Bin conversio BIO.BAS 4480 21-Nov-87 Biorythm calendar BLITTER.BAS 2304 8-Dec-87 Eat your heart out AMIGA! BOARD.BAS 3712 24-Nov-87 Basic starter for your own BBS on a CPC! BOULDER.BAS 1792 24-Nov-87 Get Boulderdash from tape onto Disk. CALENDAR.BAS 1792 16-Feb-90 AA: Amstrad Actions Dating service... CAT2.BAS 2816 24-Nov-87 Extended Tape Header reader. CHARACT.BAS 2176 21-Nov-87 Hightech screen c 640 1-Dec-87 Read PCW disks on the 6128! FORM3.DOC 1152 1-Dec-87 Instructions for FORM3.COM FPRINT.BAS 256 6-Dec-87 V.Fast screen scroll FPRINT.BIN 512 6-Dec-87 Second file for FPRINT.BAS FRACLAND.ASC 1664 16-Oct-90 Amstrad CPC fractal landscape generator FRACTALS.LBR 9728 24-Nov-87 Experiment with Fractal Trees. GAMMON.BAS 16384 21-Nov-87 Backgammon game GUITAR.BAS 8832 24-Nov-87 Guitar tutor in Basic! Really good HACKER haracter set CHARGEN.BAS 4864 7-Dec-87 Character generator for the 464,6128. CIRCLE.BAS 640 28-Oct-90 Cpc 6128 - prints pretty patterns CLASSA.BAS 10240 24-Nov-87 Design Class A amplifiers on the CPC. CODER.BAS 640 8-Jun-90 Code Those Secret Messages CONNECT.BAS 3200 16-Feb-90 AA: Two player Connect Four game. COPIER 2688 7-Apr-91 Copies files tape to disc/disc to disc CPC-INFO.LBR 25856 4-Apr-88 Information on CPC'S 464/664/6128 CPC245.COTrack-Info  N         1920 5-Feb-88 TAPE HEADER READER HARDCAT.BAS 1280 12-Jul-88 Prints Disc Dir with room for Inputs.6218 IMAGE3.COM 1920 6-Dec-87 Complete disk bachup for CP/M 3+ INDENT.BAS 3328 24-Nov-87 Indent WHILE WEND routines in programs. INTER.BAS 6912 24-Nov-87 Good flight combat for the 6646128. JETTOD.BAS 1280 24-Nov-87 Get Jetboot Jack onto disc from tape JOYTEST.BAS 512 1-Jun-90 Amstrad Joystick Port Tester LABEL.DOC 3456 21-Nov-87 Instructions f PROTECT.BAS 2560 24-Jan-90 AA: protect those ASCII files QUAD.BAS 512 24-Nov-87 Quadratic equation solver. RAMDISC.BAS 256 28-Nov-87 ENHANCED RAMDISK FOR THE AMSTRAD 6128 RAMDISC.BIN 5760 28-Nov-87 2ND FILE FOR ENHANCED RAMDISK RAMDISC.TXT 7808 28-Nov-87 Help file for Enhanced Ramdisc RAMFILE.BAS 6400 2-Dec-87 USE THE 2ND 64k AS RAMDISC READ.ME 1024 24-Nov-87 Document for SQUIRT AND FIRMWARE READBNK0.BAS 384 24-Mar-90 Reads the memoor above LABLE.BAS 9984 24-Nov-87 Program in basic to produce labels. LARC.ARC 27392 12-Aug-90 Lharc archiver for the CPC LAUGHSND.BIN 2304 17-Dec-87 Demo for Digitizer LAYOUT.BAS 15872 24-Nov-87 Computer aided graphics manipulation. LAYOUT.DOC 8320 24-Nov-87 Instructions for LAYOUT.BAS LETTER.DOC 2816 10-Jul-90 INSTRUSCTIONS FOR TEXT ED LETTER3 11008 10-Jul-90 PART OF OR CPCSS.BAS 3 12-Jul-88 Graphics Demo use small K/P+ Cursor Keys LISTry bank 0 in M-basic ROMSAVER.BAS 1792 24-Nov-87 Save the contents of roms to disk! SINE.BAS 384 8-Jun-90 Sinewave message display SOLITAIR.BAS 8448 21-Nov-87 The game SORCHAK1.BAS 1280 8-Dec-87 Part 1 of character hack.SAVE TO ORIG DIS SORCHAK2.BAS 2048 8-Dec-87 Part2 Run 1st part & then 2nd. SORT.BAS 896 24-Mar-90 Sorts an array into alphabetical order SOUNDES.BAS 14336 21-Jul-88 WYSIWYG Sound envelope designer for CPCs SPLIT.BAS 896 .BAS 2048 24-Nov-87 Neat lister for basic programs. LOAD.BAS 768 24-Nov-87 Convert ASCII hex files to .BIN files. LOCO.BAS 8576 23-Jun-90 CPC version of 'Locomotion' - the game. LOK.BAS 1920 24-Nov-87 Display key lock status on screen. LZH.ARC 35456 12-Aug-90 Lzh unpacker for the CPC MCLOAD.BAS 2560 24-Nov-87 Create a basic loader from bytes in memor MEMMAP.COM 768 24-Nov-87 Memory map the 6128/664/464(?) MEMSCAN.BAS 640 24-M24-Jan-90 AA: Spl screen mode on your CPC SQUIRT.COM 768 24-Nov-87 Program on the CPC & xfer to Spectrum! STARTREK.BAS 24832 24-Nov-87 Version of the game for the CPC's STRANDED.BIN 26752 23-Jun-90 CPC ADVENTURE. PUBLIC DOMAIN. SUPERCAT.BAS 2048 7-Apr-91 Store $ in fileheader, displayed on CAT TELPHONE.BAS 2048 26-Mar-90 A SIMPLE PHONE BOOK TELTIMER.BAS 1536 24-Mar-90 TImes fone calls (m-basic) TEXTED1 1152 10-Jul-90 Text editor: loader.bas,letter3,lear-90 Dumps memory in mallard basic MENUMAKE.BAS 5120 10-Jul-90 MENU MAKER FOR CPC'S FROM DW S/WARE (PD) MICRO.BAS 9922 3-Jan-88 Packman type game MORSE.BAS 6400 8-Dec-87 Morse code tutor in Locobasic. MOSAIC.BAS 512 11-Jan-88 Generates pretty patterns! MOVEUSER.BAS 896 12-Jul-88 Moves Files to any User No (0-15) MULTI 1536 16-Apr-90 Multiface Pokes for the Amstrad CPC MUSIC.ASC 9344 3-Sep-90 Music for amstrad cpc MUSIC.BAS 904tter.d TIMEBOMB.BAS 7680 8-Dec-87 Basic game for the CPC's. TOOLS.BAS 2176 24-Mar-90 Mallard Basic toolkit TOWERS.BAS 2304 8-Jun-90 THE TOWERS OF HANOI GAME !! TREKTALK.BAS 2048 21-Jul-88 Digitised Mr.Spock for Amstrad CPC's TREKTALK.BIN 16384 21-Jul-88 2nd file required for TREKTALK.BAS TYPE.BAS 4608 8-Dec-87 Typing Tutor for Basic keywords. UKM1275.COM 7552 8-Dec-87 UKM7 for the Cirkit I/F & 1200/75 Modems. UKM300.COM 7552 8-Dec-87 UK3CB.BA PI.BAS 6272 12-May-91 Basic pinball game for CPCs POGO.Z80 14720 23-Sep-90 Xfer spectrum progs to an amstrad POOLS.BAS 8064 21-Nov-87 Pool prediction program POSTER.BAS 1536 24-Nov-87 Produce 32 page screen dumps! POVERTY.BAS 7424 19-Jun-90 SEE HOW LOND YOU CAN FEED YOUR VILLAGE PPIP.LBR 15360 8-Dec-87 Improved filer. PPC.BAS 83200Nov-87 Trim & debug finished basic programs. PROGDOC.DOC 1536 24-Nov-87 Instructions for PROGDOC.BASTrack-Info ! N!!!!!!!!!M7 for the Cirkit I/F & 300 baud Modems UKM7-V7.LBR 14720 15-Jan-88 UKM7 for Voyageb-90 r uncrer forc oo ark' file UNERASE.BAS 5120 21-Jul-88 Unerase disc files for Amstrad CPCs UTILVER2 2816 16-Apr-90 Version 2 of AAAAUTIL VATD.BAS 11008 24-Nov-87 VAT return calc using schedule D. VDE23.DQC 27008 9-Feb-88 Instructions for VDE23CPC.COM VDE23CPC.COM 10112 9-Feb-88 Text editor VDO25.MAN 23040 2-May-88 Manual for VDOxxxx.COM VDO464.COM 6912 ZMODEM Protocol Made Easy (???) =============================== General ------- ZMODEM was developed by Chuck Forsberg to transfer file(s) in environments that were hostile to XMODEM and YMODEM. In general any network or comms link that utilises XON/XOFF. It also has the capability of sending files as a CONSTANT stream of data that does not need any response from the receiver (ACKnowledgements), RECOVER from an aborted download, adjust it's pa 2-May-88 Same as above but for the 464 VDO6128.COM 6912 2-May-88 Video display orientated Editor for disc VDOPAT.TXT 5760 2-May-88 Some ideas for patching VDO VINST23.COM 5248 9-Feb-88 Installation prog for VDE23CPC.COM WISDOM.BAS 1408 21-Nov-87 Display random Wisdom statements WISDOM.PXT 16896 21-Nov-87 Goes with above XMODEM.BIN 3200 6-Dec-87 Separate Xmodem prog for BBS. ZIP.ARC 18816 12-Aug-90 Zip unpacker for the CPC ZMP15CPC.LBR 1cket/block length to suit line conditions and to execute commands remotely. Jargon ====== While XMODEM and YMODEM have BLOCKS, ZMODEM has FRAMES and PACKETS. A ZMODEM session comprises of several FRAMES. A FRAME consists of a HEADER folowed by zero, or more PACKETS of data. Frame Headers ============= Comprises of 2 PAD characters (**) DLE escape char (ASCII 24) Header type (1 byte - see below) Header data (4 23648 28-Mar-90 ZMP15 comms installed for CPC 6128 ZMPCPC.LBR 55040 1-Jun-90 X/Y & ZModem Protocols for the CPC Press [Enter] to continue Amstrad CPC Specific Files. Files Area List download files View files inside an archive Type a Text File Display .GIF Resolution information New Files on the System Search for file by its name Search for filename by part of its description Change Area from a list <<> Go to previous Files area <>> Go to bytes) CRC (2 or 4 bytes) Header type ----------- "A" Binary header Remainder of header follows as 8 bit data "B" Hex Header Each remainder byte of header follows as 2 lower case hex digits. "C" 32 bit CRC Binary Header As bNext File area Time on TUG II Exit to previous Menu. Goodbye terminate session. Amstrad CPC Specific Files. Download Command: XON control on, tone dialling, MNP verbose codes >>word 8N1 >>baud 2400 2400 >>xon 1 ATV1 >>end ATDT  Type a Text File Display .GIF Resolution information New Files on the System Search for file by its name Search for filename by part of its description Change Area from a list <<> Go to previous Files area <>> Go to inary header but with 32 bit CRC Frame Types ----------- 0 ZRQINIT request init sent by SZ to start session 1 ZRINIT receiver init send by RZ to start each file transfer 2 ZSINIT sender init optiopnally sent by SZ at start of each file transfer 3 ZACK ACKnowledge last frame received successfully 4 ZFILE file info frame 4^*S[42_>`g(兂& kJU+>JV$? ѣQ( !2_yQ^HĄ"@SF~O!_ $Tyx3"K#Mt7#5!OVP) ]Q3Tlb0F\SG K̾Q* LMy>y>Dy>y>y>y>y>6y~y~y>vy~y~y~Z#~ !^CK\C "ZĆHKB͞ADB!JCXÁʶ@!2Cq"A~o~g"5Cù@22C @@HA@>AxAA28C#BͥA:2CA*5C|A}!8C!AA:8CO:7CG*5CB!A:8C27C @ù@NF 2EC o g~AIA#:EC=2EC2A!"CCBOAxGhAtA>0yx BKVC*XCuery - requires ZACK header if OK, or ZRPOS header if error. ZCRCW WAIT - wait for ZACK header The ZDATA header indicates the size of the data packet in the header data. A Typical Session ================= SZ RZ -- -- "rz" ZRQINIT - request init ZRINIT - receiver init Track-Info # N#########BʝA*XC~#"XCKZCBA͞A7!^C"XC2?CAAAAA>]:?C0]A:?CZA ]:?C2ACx2=CoBWA:ACy B>y*VCw#"VCKZCB"BKB2=C*`Sw#"`SB@B!Bb@DB:=C!bS"`S!^C"VCNF  o g^C͌sB!Bb@ÚB!bS~͕ҔB#K`SBBJvB͏ښB!Bb@**Hocom4.bin loaded** *BUFR FULL* *SIO ERR SEQNCE* *Disc write failed* *Disc open failed* *Tx Failed*    c^C^Cmms mode. Press to access auto logon. 370 ' 380 PRINT: INPUT "Select BB No. (0 to 2): ",num% 390 IF num%<0 OR num%>2 THEN 380 400 init$=CHR$(13)+"ATZ"+CHR$(13)+CHR$(10): CALL sendstr%,@init$ 410 FOR x%= 0 TO 1000: delay%=1: NEXT x% 'delay between commands to Hayes Modem. 420 a$="ATM0"+CHR$(13): CALL sendstr%,@a$ 'modem doesn't like next instruction too quickly. 425 FOR n=1 TO 25:CALL &BD19:NEXT 430 IF trigr%(num%*4)=0 THEN CALL sendstr%,@strng$(num%*4) ELSE CALL sendstr%,trigr%(num%*10 REM hocomm.asc loader and pre-processor for hocom4.bin. 20 REM Written by George Ho-Yow, Copyright (c) Dec 1991. 30 REM RUN" hocomm.asc" to start prog. Enter 0 to 2 in response to BBS No. 40 REM Use key to break out from a 'sendstring' stage, or to access BASIC.18 REM there's quite a bit of work to make the BASIC pre-processor more user-friendly. 50 REM I leave that for you to have fun with. There's no file transfer at present, later on time permmiting, I'll see what I can do. 60 MODE 2: ME4),@strng$(num%*4) 440 PRINT CHR$(7) 'beep 450 IF trigr%(num%*4+1)=0 THEN CALL sendstr%,@strng$(num%*4+1) ELSE CALL sendstr%,trigr%(num%*4+1),@strng$(num%*4+1) 460 PRINT CHR$(7) 'beep 470 IF trigr%(num%*4+2)=0 THEN CALL sendstr%,@strng$(num%*4+2) ELSE CALL sendstr%,trigr%(num%*4+2),@strng$(num%*4+2) 480 PRINT CHR$(7) 'beep 490 IF trigr%(num%*4+3)=0 THEN CALL sendstr%,@strng$(num%*4+3) ELSE CALL sendstr%,trigr%(num%*4+3),@strng$(num%*4+3) 500 PRINT CHR$(7) 'beep 510 CALL sendstr% 'straighMORY &3FFF 70 sendstr%=&4095: savbufr%=&4252 80 DIM trigr%(15),strng$(15) 90 ' 100 REM Entry for BBS No. 0 = (PRESTON ROS) follows: 110 ' 120 trigr%(0)= 0: strng$(0)= CHR$(13)+"ATDT0772652212"+CHR$(13) 130 trigr%(1)=ASC("|")*256+ASC(" "): strng$(1)= " " 'to stop opening banner from BBs. 140 trigr%(2)=ASC(":")*256+ASC(" "): strng$(2)= "your name"+CHR$(13) 'edit in your name with yours. 150 trigr%(3)= ASC(":")*256+ASC(" "): strng$(3)= "password 0"+CHR$(13) 'edit in your password. 160 ' 170t comms mode. Press to access auto logon. 520 PRINT: INPUT"Enter a file-name to save buffer or to skip: ",name$ 530 IF name$= "" THEN 570 540 r$= RIGHT$(name$,1): r%=ASC(r$)+&80: name$= LEFT$(name$,LEN(name$)-1)+CHR$(r%) 545 REM 546 REM This bit isn't too clever. When the disc is full for example the File Error is not always evident. 547 REM 550 CALL savbufr%,@name$ 560 PRINT: PRINT "Disc processing complete...": PRINT 570 INPUT "View a file y/n: ",rep$ 580 IF UPPER$(rep$)= "Y" T REM Entry for BBS No. 1 (DOCK) follows: 180 ' 190 trigr%(4)= 0: strng$(4)= CHR$(13)+"ATDT0914546978"+CHR$(13) 200 trigr%(5)= ASC("E"): strng$(5)= " " 'harmless o/put as banner doesn't seem to stop. 210 trigr%(6)= ASC(":")*256+ASC(" "): strng$(6)= "your name"+CHR$(13) 220 trigr%(7)= ASC(":")*256+ASC(" "): strng$(7)= "password 1"+CHR$(13) 230 ' 240 REM Entry for BBS No. 2 (INFOTEL) follows: 250 ' 260 trigr%(8)= 0: strng$(8)= CHR$(13)+"ATDT0737766027"+ CHR$(13) 270 trigr%(9)= ASC("0")*256+AHEN 590 ELSE 360 'continue 590 INPUT "Name of file to view pls. ",name$ 600 OPENIN name$ 610 WHILE NOT EOF 620 INPUT #9,a$: PRINT a$ 630 WEND 640 CLOSEIN 650 GOTO 360 'return to comms mode itten by George Ho-Yow, Copyright (c) Dec 1991. 30 REM RUEM This bit isn't too clever. When the disc is full for example the File Error is not always evident. 547 REM 550 CALL savbufr%,@name$ 560 PRINT: PRINT "Disc processing complete...": PRINT 570 INPUT "View a file y/n: ",rep$ 580 IF UPPER$(rep$)= "Y" TSC("1"): strng$(9)= CHR$(27)+CHR$(27) 'to access BBs 280 trigr%(10)= ASC("e")*256+ASC(":"): strng$(10)= "your name"+CHR$(13) 290 trigr%(11)= ASC(":")*256+ASC(" "): strng$(11)= "password 2"+CHR$(13) 300 LOAD"hocom4.bin" 310 ' 320 REM call &4000,parm1%,parm2% initialises the SIO. Parm1%,parm2% set to &34 for 2400 Bd, to &68 for 1200 Bd, to &120 for 300 Bd. and &680,&68 for 75/1200 Bd or vice versa IE &68,&680. 330 ' 340 CALL &4000,&34,&34 'set for 2400 baud. 350 ' 360 CALL sendstr% 'straight coTrack-Info $ N$$$$$$$$$ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ;Prog Name: Hocomm.00x date/time 14/12/91 13:54 ; Copyright (c) 1991 George Ho-Yow ;based on: targx.001 date/time : 16/04/91 18:42 updated ver x.007 ; ;>>> This prog is released for general PD use, and no charge must be ;made other than the nominal expense of copying to Disk if necessary. ;George Ho-Yow.Merry Xmas and All Good Wishes for 1992. <<< ; ; The source code was written using the PYRADEV Edi: ld a,(hl) wrilop: push hl ;address of string call #0BB5A ;txt o/p (bb5a) pop hl inc hl ld a,(hl) cp 0 ;zero terminates string jr nz,wrilop ret ;;;;;;;;;;;;;;;;;;;;;;;;;;; main pointers reset ;;;;;;;;;;;;;;;;;;;;;;;;;;; reset: ld hl,phybufr ld bc,(bufrsize) add hl,bc ld (bufrlim),hl ;set buffer limit call #0BB81 ;turn cursor on call #0BB48 tor and Compiler ; The strange character is a tab. ; ;Version x.001pure machine code for modem control, rx and tx ;baud rate. Stringsender routine 14/12/91 ; ; .002send string when trigger char received. 17/12/91 ; ; .003detect one/two trigger chars 20/12/91 ; ; .004tidy up code 22 Dec 1991. ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; free org #4000 start: ld hl,sendstr ld hl,last ;just to find out addresses ;KM DISArm BREAK call rstbfpt ;set dat buffer ptr. call opreset ;set displat pointer call rstmptr ;rest main buffer pointer ld hl,evblok ;event block addr. ld b,201Q ;event class async near addr. ld de,takin ;event addr ie takin routine call #0BCE0 ;kl new fast ticker, add takin to list ret ;;;;;;;;;;;;;;;;;;;;;;; RE-ENTRY point ;;;;;;;;;;;;;;;;;;; ld hl,savbufr ld hl,txt1 call wriscrn ;say hocomx.bin loaded ld bc,#0FADD ;chan a-ctl call init call timer call reset ;reset pointers ret ;to BASIC ;;;;;;;;;;;;;;;;;;;;; init routine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; init: ld a,#18 ;chanl rset out (c),a ld a,#04 out (c),a ;wr0 pts to wr4 ld a,#044 ;basic i/o, disable sync bits 1 stop o;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;; sendstr routine to send string ;;;;;;;;;;;;;;;;;;;; sendstr: call #0BB81 ;turn cursorsor on cp 0 ;if no parameter then straight comms jp z,comms ld c,#0F ld hl,strflag ld (hl),c ;set flag so string will be processed cp 1 jp z,justrng ;if one parametr only send string at once. ld a,(ix+2) ;else stor trigger values passes from call ld l,a ;upout (c),a ld a,#13 ;wr0 pts to wr3 out (c),a ld a,#0D1 ;Rx parm =8 chr auto disabl rx enabl out (c),a ;this would have tobe changed for 7 bits ld a,#15 ;pt wr0 to wr5 out (c),a ld a,#0EA ;tx parms out (c),a ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; timer: ld bc,#0FBDF ;control mode ld a,#36 ;counter 0 out (c),a ;and sn which when detected the string will ld a,(ix+3) ; will be sent automatically ld h,a ld (trigr),hl ;keep trigger char ascii values. ;call wrchar ;for use whil testing only jp strscan comms: ld (strflag),a ;make strflag= zero to indicate neat comms strscan: call #0BB09 ;test keyboard for key pressed jp nc,chkdsp ;if no key then check if char to be displayed cp 127 jp z,dele ;if del key pressed cp 252quare wave ld bc,#0FBDC ;COUNT 0 LOAD VALUE ld a,(ix+0) ;set externally lsb out (c),a ld a,(ix+1) ;count0 msb out (c),a ld bc,#0FBDF ;control mode ld a,#76 ;counter 1 out (c),a ld bc,#0FBDD ;ctr 1 lsb ld a,(ix+2) out (c),a ;ctr 1 msb ld a,(ix+3) out (c),a ret ;;;;;;;;;;;;;;;;;;;;; write to screen routine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; wriscrnTrack-Info % N%%%%%%%%% jp z,exst ;if ESC key pressed, leave code for BASIC jp sench ;else send neat dele: ld a,8 ;change del key to CTL-H most BBs need this sench: call tx ;talk to BBs,NOT recommended during auto logon chkdsp: call #0BD19 ;wait flyback ld c,6 strloop: push bc ;fetch and dispaly an incoming char call fetch jp nc,nxchr ld (newchar),a ;keep the char received from BBs call stor ;stor in main buffeush af push bc ld bc,#0FADD in a,(c) ;read rr0 bit 0,a jp nz,charav ;if char available jp extakin ;if no char then leave routine charav: ld a,#30 ;reset code out (c),a ;send reset ld bc,#0FADC ;data chanl a in a,(c) call pack extakin: pop bc pop af ei ret ;;;;;;;;;;;;;;;;;;;;;;;;;;; fetchroutine ;;;;;;;;;;;;;;;;;;;;;;;; fetch: ld bc,r call wrchar ;write to vdu screen ld a,(strflag) ;see if neat comms mode cp 0 jp z,nxchr ;if neat comms wanted ld hl,(trigr) ;else get trigger ld a,h cp 0 jp nz,twochar ;if triggr is two chars ld a,l ;get the trig char (ascii val) ld hl,newchar ;get the incoming char sub (hl) jp z,trigf ;trigger char detected jp nxchr ;else look for more twochar: ld a(inptr) ;inptr ld hl,(outptr) ;out pointer xor a ;this clears the carry flag? sbc hl,bc jp z,exfetch ;if nothing to output ld hl,(outptr) ld a,(hl) ;get char push af;keep it temporary inc hl ld (outptr),hl;inc pointer for next time round ld bc,(bufrlim) xor a;clear carry flag? sbc hl,bc jp m,exfth call opreset exft,(newchar) ld c,a ld a,(oldchar) ;set up pair of received chars ld b,a ld hl,(trigr) xor a ;reset carry flag sbc hl,bc jp z,trigf ;if trigger pair detected ld a,(newchar) ld (oldchar),a ;prepare rxed pair for next pass nxchr: pop bc dec c jp p,strloop ;more chars? jp strscan ;keep on looking trigf: pop bc ;need to pop bc justrng: ld c,(ix+0) h: pop af;get the char agin scf exfetch: ret ;;;;;;;;;;;;;;;;;;;;;;;;; opreset routine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; opreset: ld hl,phybufr ld (outptr),hl ret ;;;;;;;;;;;;;;;;;;;;;;;; wrchar routine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; wrchar: ld (temp2),a ;keep char tempory cp 17 jp z,exwrch;if xon dont display cp 19 jp z,exwrch;if xoff dont display sub 7;RAnge 0 to 7 jp m,dhash;pri ld b,(ix+1);hl regr has pointer to string parametrs ld a,(bc) ;bc regr has length of string ld (stlen),a inc bc ld a,(bc) ld l,a inc bc ld a,(bc) ld h,a ;hl has address of string stloop: push hl ld a,(hl) ;get a char from string call tx ;send it ; call #0BB5A;write it to screen for testing only call delay;o/p too fast for modem and BBs to process? nt diaghash sub 7;range 8 to 13 jp m,neat ;these contl chars are printable sub 18;range 14 to 31 jp p,oktd ;if >=32 ok to display dhash: ld a,224 ; this a smiling face call #0BB5D;dispay it ld a,(temp2) add a,48 call #0BB5D jp exwrch ;leav routin neat: ld a,(temp2) call #0BB5A;this contl char can be printed jp exwrch ;leave oktd: add a,32 :normal char call #0BB5D;w pop hl inc hl ld a,(stlen) dec a ld (stlen),a cp 0 jp nz,stloop exst: ret ;;;;;;;;;;;;;;;;;;;;;;;; delay routine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; delay: ld bc,1 ;about 22 miilisecs delay ? ld hl,#1000 deloop: ld (temp4),hl ;10 MICROSECS? sbc hl,bc jp nz,deloop ret ;;;;;;;;;;;;;;;;;;;;;;;;;; take in char from modem routn ;;;;;;;;;;;;;;;;;;;;;; takin: di pTrack-Info & N&&&&&&&&&rite to screen exwrch: ld a,(temp2) ;restore char ret ;leave routn ;;;;;;;;;;;;;;;;;;;;;;;; tx routine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; tx: push bc ;keep regr and restore on exit ld (temp3),a ;keep char for use later txchk: ld bc,#0FADD ;control chan A in a,(c) ;READ RR0 ld (temp1),a ;keep status bit 5,a ;examine CTS status passed ld b,(ix+1) ;from BASIC call parameter ld a,(bc) push af ;keep length inc bc ld a,(bc) ld l,a inc bc ld a,(bc) ld h,a ;now have addres of filename in hl regr pop bc ;retrieved the length to b-regr ld de,phybufr ;use the physical buffer call #0BC8C ;open a file for writing jp c,openok ld hl,txt5 call wriscrn jp z,txreset ;leave tx routine sio busy, reset to show new bit 2,a jp z,txchk ;if tx buffer full ld a,(temp3) ld bc,#0FADC out (c),a ;send char to modem jp extx txreset: ld bc,#0FADD ld a,#10 out (C),A ;reset status in sio extx: pop bc ;leave rotine ret ;;;;;;;;;;;;;;;;;;;;;;;;;; pack routine;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; pack: jp exdisc openok: ld hl,last ;point to start of main buffer dloop: ld a,(hl) ;get a char from buffer call #0BC95 ;write it away jp nc,dfail inc hl ld bc,(mptr) xor a ;ensure carry flag clear sbc hl,bc jp p,dcomp ;if not end of buffer xor a ;clear carry flag adc hl,bc ;restore hl regr jp dloop dcomp: call #0BC8F ;close disc file jp c, ld hl,(inptr) ;get bufr ptr ld (hl),a ;store char inc hl;inc bufr ptr ld (inptr),hl ;str it away ld bc,(bufrlim) ;upper byte xor a ; this clears the carry flag? sbchl,bc ;dont upset screen ? jp m,expack call rstbfpt ;rest buffer pointer expack: ret ;leave routine ;;;;;;;;;;;;;;;;;;;;;;; stor char in main buffexdisc ;if okay dfail: ld hl,txt4 call wriscrn ;tell user disc write failed exdisc: ret ;leave routine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; data storage etc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; dbxon txt1:db "**Hocom4.bin loaded**",13,10,10,0,0, txt2:db 10,10,13,"*BUFR FULL*",13,10,10,0,0 txt3:db 10,10,13,"*SIO ERR SEQNCE*",13,10,0,0 txt4:db 10,10,13,"*Disc write failed*",13,10,0,0 txt5:db 10,10,13,"*Disc open failed*",13,10,0,0 txt7:db 10,10,13,"*Tx Failed*",er ;;;;;;;;;;;;;;;;;;;;;;;;;;; stor:ld (temp1),a ;keep a register ld hl,(mptr) ;get main bufr poitr ld (hl),a inc hl ld (mptr),hl ld bc,#0A1FF xor a sbc hl,bc ;see if limit of main buff reached jp m,exstor ld hl,txt2 call wriscrn call rstmptr ; reset pointer exstor: ld a,(temp1) ;reset a register ret ;;;;;;;13,10,0,0 keynos: db 15,13,14,5,20,12,4,10,11,3,99,0 bufrsiz: equ #420 bufradr: equ #4830 strlen: db 0 strflag: db 0 inchar: db 0 outchar: db 2 trigr:db 0, 4 oldchar: db 0 newchar: db 0 err:db 8,3 xmode:db 0 loopct: db 0 temp1:db 5,0 temp2:db 6,0 temp3:db 0,0 temp4: db 0,0 stlen: db 0,0 stat1: db 0 ostatr: db 0 ostatt: db 0 errmask: equ #30 ;bits D5,4 wrscrn: equ #0BB5A readchar: equ #0BB09 curon: equ #0BB81 evblok: ds 10 bytes xon:db 17 xoff:db 19 inptr: DW p;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; rstmptr: ld hl,last ld (mptr),hl ret ;;;;;;;;;;;;;;;;;;;;;;; reset the input buffer pointer routine ;;;;;;;;;;;;;;;; rstbfpt: ld hl,phybufr ld (inptr),hl ;ld a,#0A8 ;display 1/4 for test purposes only ;call #0BB5D ;test purposes ret ;;;;;;;;;;;;;;;;;;;;;;;;;;; save buffer to disc ;;;;;;;;;;;;;;;;;;;;;;;;;;;; savbufr: ld c,(ix+0) ;get details of filename Track-Info ' N'''''''''hybufr outptr: DW phybufr bufrlim: dw 0 bufrsize: DW #1000 phybufr: ds #1002 ;fname:db "ctest"+#80 ;fbufr: ds #802 mptr:dw 0 last: db 0 ;This label must be the last, ;the rest of RAM is used as the main buffer for storing dbxoff ;the text received IE up to #0A200 endbin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00x date/time 14/12 OCOMM $$$;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ;Prog Name: Hocomm.00x date/time 14/12tr:dw 0 last: db 0 ;This label must be the last, ;the rest of RAM is used as the main buffer for storing dbxoff ;the text received IE up to #0A200 endbin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00x date/time 14/12!?????? aaaw...c'mon. I admit to being an addict but  >that's all. Anyway, I HAVE to look! The rules are 'no skinny dipping'  >and I can't enforce the rules if I don't watch. You should be careful  >what you're saying, young man, or I might feel inclined to tell  >everyone about the birthmark!!!!   What birthmark is this Phil? Please do tell!!   Press RETURN to continue. [44