ATARI 'TOONS CONTEST
Winners of the Atari 'Toons contest (Antic, V4 August 1985) will be announced in our next issue. As stated in Help! (October 1985), the contest deadline was extended one month, due to a printer-smudged A in line 1090 of Listing 2. ANTIC ED.
Carriage Return Stripper (below) makes it easy to remove those excess carriage returns from downloaded files. This mini-program was graciously sent to Antic by Bernie Bildman, a Birmingham, Alabama oral surgeon and ubiquitous SIG * Atari pesonality ANTIC ED
10 REM CARRIAGE RETURN STRIPPER
15 REM BY BERNIE BILDMAN WITH ADDITIONS BY GARY FOSTER
60 DIM SOURCE$(15),DEST$(15)
70 ? ""
80 ? "Name of source file (include device)": INPUT SOURCE$
90 ? "Name of destination file (include device)": INPUT DEST$
100 OPEN #1,4,0,SOURCE$
110 OPEN #2,8,0,DEST$
120 TRAP 150:GET #1,A:IF A=155 THEN 160
130 PUT #2,A
140 GOTO 120
150 PUT #2,155:END
160 GET #1,A:IF A<>155 THEN PUT #2,32:PUT #2,A: GOTO 120
170 PUT #2,A:PUT #2,A
180 GET #1,A:IF A=155 THEN PUT #2,A:GOTO 180
190 GOTO 130
Listing: CRS.BAS Download
Many thanks for your article on DOS 2.5 (July, 1985). I had no idea Atari was offering a free exchange, until I read it in Antic. I immediately sent my DOS 3 master disk for exchange. Several weeks laser, DOS 2.5 arrived (a friend told me I'd probably never see it!), packed with documentation and a $2 Fuji disk rebate offer. The DISKFIX.COM utility alone was worth the wait. I've already used it to repair damaged files. Thanks for letting Atari owners know about the exchange offer!
Newport News, VA
REVISION C REVISED
How do you hoot into the BASIC Revision C program from another AUTORUN.SYS? I have not figured out how to chain two or more AUTORUN.SYS programs.
To chain file "MYFILE.BIN" to the end of file "AUTORUN.SYS" from DOS 2 or 2.5, type: C [RETURN] MYFILE.BIN,AUTORUN.SYS/A [RETURN]. ANTIC ED
Kudos to Antic and Paul Chabot for Graph 3-D (October, 1985). It's one of the finest pieces of type-in software I've seen. The following changes will adapt this outstanding program to Prowriter printers:
1 REM SUMMERSGILL I/O
960 REM PRINT IT (PROWRITER)
972 ? #2;CHR$(27);CHR$(78);CHR$(27);CHR$(65)
976 ? #2;CHR$(14);" ";FI$(3);CHR$(15)
978 ? #2;CHR$(27);CHR$(84);"17"
982 FOR 1=1 TO 40
984 FOR J=1 TO 192:T=SA1+(40*J)-I
990 ? #32;CHR$(27);"S0192";B$
Listing: SUMMERS.LST Download / View
The 17 in line 978 sets paper feed increments of 1/144 of an inch (17/144, etc.). Adjusting this constant will "fine tune" the routine for your particular printer.
San Juan Capistrano,
Unfortunately Antic doesn't currently have a Prowriter to try out this program on. Antic Ed.