BALLPARK LISTING 2
Listing 2 for Ballpark Figures, which makes it easier to type the special characters in lines 1072-74, got left out of the April 1988 Antic.
The data for this listing is printed below. In order to use these data lines numbered 1000-1080, you must add them to the end of Antic's standard BASIC loader routine-which you'll find in this issue as lines 60-250 of Listing 2 for the Game of the Month, Escape From Hell.
To merge both Ballpark Figures listings, follow the Listing 2 instructions in this issue's Escape From Hell article.
Don't type the TYPO II codes! JE 1000 DATA 247 MO 1010 DATA 0490480550500320830790820840 36040049044054053041061034216104056233 003133217104133204104133203 HG 1020 DATA 1041332151041332141041332101 04133209162000104104157000001232228217 208246056165209233002133209 DM 1030 DATA 1652102330001332100481081652 09133211165210133212165204133206133034 155049048055051032083079082 ZJ 1040 DATA 0840360400540540440490510480 41061034208165203133205024101214133207 165208101215133208160000185 FP 1050 DATA 0000011900020011342181900010 01200200200132216168136177205209207240 012165218208004144016176046 UX 1060 DATA 1440441760102002022082341642 16196217208210198034155049048055052032 083079082084036040049051049 JV 1070 DATA 0440490560500410610342111692 55197211208006166212240011198212165208 133206165207024144172165213 NX 1080 DATA 2400041342132081480961342131 60000177205170177207145205138145207200 196214208241240203034155
COLLEEN MUSIC CREATOR
Colleen Music Creator, reviewed in Antic March 1988, is no longer distributed the US. However, you can order Colleen directly from the overseas manufacturer Send $29.95 to Colleen Ltd., 18 Bishop Street, Penygraig Mid-Glamorgan, Wales CF40-1PQ, UK. Phone: 0443-434846 or 0443-435709. -ANTIC ED
Our N.E.R.D.S. Disks of map icons (New Products, Antic, February 1988) are now distributed through No Frills Software both 8-bit (Print Shop) and ST (Print Master) formats. For information, send a stamped, self-addressed envelope to: No Frills Software, 800 E. 23rd Street, Kearney, NB 68847.
Because of Charles Cherry's review of Bill board (See "8-Bit Enhancements," Antic, February 1988.), I bought the program. In the review he mentioned that he changed the code to make the program work with a Gemini 10-X printer. I'd like to know what changes he made.
Salt Lake City, UT
Charles Cherry writes, "As Chris Wareham says in his Billboard documentation, the printer codes are used in only three lines: 1020, 1600, and 2100. It's just a matter of changing those lines and inserting the codes for your printer For the Gemini 10-X printer I added some lines to make it easier. Make the changes in lines 1020, 1600 and 2100, then add lines 1601-1604 and 2101-2104." The new code follows:
1020 POKE 764,255:CLOSE #N4:OPEN #N4,N8,Z," P:" :? #N4;"@A:';CHR$(N8);, '1M";CHR$ (LMAR);:RETURN 1600 SCR= SCR+ 320/H:FOR I =N1 TO HT/N8 1601 IF MODE=0 THEN ? #N4;"K"; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOT0 1610 1602 IF MODE= 1 THEN ? #N4; "L"; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOTO 1610 1603 IF MODE= 3 THEN ? #N4; "z"; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOTO 1610 1604 IF MODE= 6 THEN ? #N4;"y"; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOTO 1610 2100 FOR J = N1 TO W 2101 IF MODE=0 THEN ? #N4;"K"; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOTO 2110 2102 IF MODE= 1 THEN ? #N4;"L"'; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOTO 2110 2103 IF MODE= 3 THEN ? #N4;"Z"; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOTO 2110 2104 IF MODE=6 THEN ? #N4;"y"; CHR$(COLL);CHR$(COLH);PRNT$(N1, LIM):GOTO 2110
DESIGNER LABELS FIXES
Designer Labels (Antic, April 1987) doesn't display the directory of pictures saved with Broderbund's Print Shop Companion, even though you can load a picture if you know the filename. To display the directory, change line 3040 to: 3040 FOR X=CO To 96 STEP 32:IF B$(X + 20,X + 20)<>"X" AND B$(X + 20,X + 20)<>"Y" THEN 3060
The above program line comes from Iconverter (Antic, December 1987). Also, after each run of labels, the printer platen must be rolled back so that the next run will print in the vertical center of the labels. But the following line modifications take care of this on Epson and Gemini printers:
2260 FOR I = C1 TO NLABELS:IF I = C1 THEN GOTO 2270
2262 ?#C2:? #C2:IF PEEK(53279)=C3 THEN POP:CLOSE #C2:RETURN
2310 IF P=C1 THEN ? #C2:GOTO 2330
2320 ? #C2
These modifications delete some printer control codes. Turn your printer off and back on again before booting another program that uses the printer.
VENDORS HELP ON-LINE
Type GO ATARIVEN to get to the Atari Vendor Support Forum, a new SIG in the Atari section of CompuServe. As of late February 1988, six vendors, ICD Inc, Intersect Software, Michtron, Drafix, QMI, and Regent Software have uploaded libraries full of short programs, patches, textfiles of tips, etc. Company representatives are also available to read your comments and answeryour questions -ANTIC ED
Three readers pointed out a mistake in BASIC Biorhythms (Antic, January 1988). In line 2232, change the GOTO statement from GOTO 2240 to GOTO 2234. Also, "February" is misspelled in line 4020.
Antic thanks Rick Weissmann of Colorado Springs, Colorado;
Dennis Leitch of Yakima, Washington and Gordon Haddrell of Surnmerland,
British Columbia.-ANTIC ED
Antic welcomes your feedback, but we regret that the large volume of mail makes it impossiblefor the Editors to reply to everyone. Although we do respond to as much reader correspondence as time permits, our highest priority must be to publish I/O answers to questions that are meaningful to a substantial number of readers.
Send letters to: Antic I/O Board, 544 Second Street, San Francisco,