Atari 1030 Modem with ModemLink Telecommunications Program
Back to current versionRestore this version

Atari 1030 Modem with ModemLink Telecommunications Program by Penril ; Copyright (C) 1983 Atari, Inc.#

Atari 1030 Modem with:
- 300 bps
- Bell 103/113 modem compatible
- built-in ModemLink software on rom
- 2 SIO ports

Manual#

ROM-Image#

BIN-Image#

Image#

Atari 1030 Modem with ModemLink Telecommunications Program - startscreen

Review#

Listings from the above review (Programs for use with the Atari 1030, written in BASIC)

Listing 1:
MF 10 REM MAKEAUTO.BAS
QO 20 REM BY RUSS WETMORE, FOR STAR SYSTEMS SOFTWARE, INC.
BN 30 REM ANTIC PUBLISHING
GA 40 ? "[ESC] [SHIFT] [CLEAR] Press [REVERSE VIDEO]  START  [REVERSE VIDEO] to create":? "AUTORUN.SYS file."
GW 50 IF PEEK(53279)<>6 THEN 50
CG 60 GRAPHICS 2+16:? #6:? #6;"    CREATING":? #6;"AUTORUN.SYS FILE"
XF 70 DATA 255,255,0,6,30,6,162,9,189,21
YK 80 DATA 6,157,0,3,202,16,247,32,89,228
RK 90 DATA 48,4,24,32,12,29,96,88,1,60
OA 100 DATA 64,0,29,2,0,48,11,224,2,225
AZ 110 DATA 2,0,6
OB 120 CLOSE #1: OPEN #1,8,0,"D:AUTORUN.SYS"
MK 130 TRAP 160
KX 140 READ A:? #1;CHR$(A);
NI 150 GOTO 140
IJ 160 CLOSE #1:END
Listing 2:
FS 1 REM MINI-1030
DB 2 REM BY RUSS WETMORE, FOR STAR SYSTEMS SOFTWARE, INC.
UD 3 REM ANTIC PUBLISHING
UP 4 GOSUB 13
HR 5 IF PEEK(1024)=0 THEN 7
QL 6 GET #5,I: IF I>31 THEN ? CHR$(I);
JX 7 IF PEEK(764)<255 THEN GET #4,I:PUT #5,I
QR 8 STATUS #5,I:IF PEEK(747)>127 THEN 5
VS 9 GOTO 10
TX 10 ? :? CHR$(253);"MODEM DISCONNECTED!":FOR I=1 TO 1000:NEXT I:I=USR(58484)
YE 11 ? "ERROR-";PEEK(195):GOTO 10
JS 12 ? "1030 HANDLER HAS NOT BEEN LOADED!":GOTO 10
QJ 13 DIM E$(1),F$(20):GRAPHICS 0:W=710:POKE 709,14:POKE W,0:E$=CHR$(27):? ,"MINI1030":TRAP 12
IC 14 CLOSE #4:CLOSE #5:OPEN #4,4,0,"K:":OPEN #5,12,0,"T:":TRAP 11
RD 15 ? :? "PHONE # ";:INPUT F$:IF F$="" THEN 15
JR 16 POKE 7,1
OI 17 ? #5;E$;"N":REM IF PULSE
HE 18 ? #5;E$;"O":REM IF TONE
IE 19 ? CHR$(28);"DIALING..";F$:? #5;E$;"K";F$
NU 20 STATUS #5,I:IF PEEK(747)<128 THEN 20
AE 21 POKE W,144:? CHR$(125):? "CONNECTED!":? :POKE 7,1:? #5;E$;"Y":POKE 7,0:RETURN