Built from the Code published in the 1983 Fall Edition of Atari Connection Magazine, this AMIS Mini Term program was built by Jim Steinbrecher of MACE the publishers of AMIS BBS and AMODEM Term Program for early users to connect to the AMIS bbs community. Additionally, the program provided screen capture for downloading other basic programs. Pressing Start opens the buffer for a pre-xmodem download for other term programs with more features or games. The article details this more extensively but calls it simple which is correct.
The Project:
The First program is to build a short handler for the 850/modem. Running the program creates the AUTORUN.SYS program followed by loading the basic program D:ATRM.BAS which is the term program as published. Second part of the video is a slight modification to include XIO 36.#2,15,0,"R:" to speed up the baud rate slightly.. The below video will show this in the steps described.
This video also provides a clip of the published code, copy/paste using OCR to input the code and preservation of the ATR available in the downloads section here on southernamis.com
Example of AMIS Mini Term connecting to the live Amis XE bbs in 2023!
Fun little project today as we discussed on the southern amis message boards the things we have now which we wish we had in the 80's.. Mine was copy and paste which is demonstrated here VS. hand keying the code..
Here is the copy and paste for the Amis Mini Term but everything is on the ATR on the download page AMISTRM.ZIP
10 REM * MINIATRM.BAS BY JIM STEINBRECHER, ARCADE BBS 313-978-8087
20 REM * For a new or 16K user to DOWNLOAD TERMINAL SOFTWARE OR OTHER PROGRAMS
30 REM * Run In present form when connected TO BBS USING ATASCII <EOL=155>
40 REM * To use on CIS or ASCII BBS change LINE 70 XIO 38 TO XIO 38,#2,0,0, ETC.
50 C=FRE(0)-100:DIM D$(15),BUFF$(C):BUFF$=" ":BUFF$(C)=" ":BUFF$(2,LEN(BUFF$))=BUFF$:? "BUFFER=";C
60 OPEN #1,4,0,"K:"
70 SAV=0:CLOSE #2:XIO 34,#2,192,0,"R:":XIO 38,#2,32,0,"R:":OPEN #2,15,0,"R:":XIO 40,#2,0,0,"R:"
71 XIO 36,#2,15,0,"R":REM AMIS TWEEK
80 SETCOLOR 2,7,4:? "* TERMINAL MODE *"
90 STATUS #2,C:IF PEEK(747) THEN GET #2,C:? CHR$(C);:IF SAV THEN POKE ADDR,C:ADDR=ADDR+1:GOTO 90
100 IF PEEK(764)<255 THEN GET #1,C:PUT #2,C:GOTO 90
110 IF PEEK(53279)=7 THEN GOTO 90
120 IF PEEK(53279)=6 AND SAV=0 THEN SAV=1:ADDR=ADR(BUFF$):SETCOLOR 2,2,4:? :? "* SAVE ON *":GOTO 90
130 IF PEEK(53279)<>5 OR SAV=0 THEN 90
140 CLOSE #2:? :? "SAVE DEVICE";:INPUT D$:IF LEN(D$)=0 THEN GOTO 70:REM ENTER C,P,D:FILENAME.TYP
150 TRAP 140:OPEN #2,8,0,D$:TRAP 160:? #2;BUFF$(1,QDDR-ADR(BUFF$)):GOTO 70
160 ? :? "BUFFER EMPTY":GOTO 70
Nice part of history - The Magazine article is also include in the ZIP download
Couldn't resist making some improvements 😁
I vaguely remember that program. Cool stuff.
Instead of re-typing the AT command the 2nd time try the 'A/' (A frontslash) command to resend the last AT command...