

Summer Consumer Electronics Show -
1985
Nintendo was showing off their new high
resolution video game
machine and its new robot accessory. If the video game industry is
still alive, then this machine
should do well. If you will remember, Nintendo is the company that gave
us "Donkey Kong" in
the arcades. There should be a lot of write ups on this product, since
Nintendo threw a big
evening press party with lots of food and prizes. Unfortunately, I
didn't read my press packet until
after the party was over, so we missed out on the goodies.
Any two programs for the price of one!! Choose from these
exciting and
useful programs! All new!! RESUME - Instant
personalized resume. DATAKEEPER - A versatile
data base. CASTLE OF DOOM - Medieval
adventure. DRAGON'S CAVERN - Fantasy
graphics
game using great sprite characters! KEYMAN - (Logo Needed) For
kids
(6-12). APPIAN WAY - (Logo Needed)
Keep your
chariot on the road to adventure!List your two selections and send check or money order for $19.95 to: CHALLENGE WARE 1017 Brewster Court Grafton, Ohio 44044 (216) 926-2671 |
In addition to our software projects and ECN,
we have a number
of projects in the formative stages. We will keep you posted, but
unfortunately most of this stuff we have to keep the lid on until it is
more finalized.|
#1 Adam Users Group P.O. Box 3761 - Attn: Jay Forman Cherry Hill, NJ 08034 Adam Users Group, Inc. LOCAL GROUPS Metro Adam User's Group - Russell
Williams Bill & Nancy Rahn
Adam Users of El Paso - Dick Lewin
Robert R. Marentes Victor L. Watford The (717) Adam Users - Steve
Chamberlain Genesee Valley Adam Users Donald R. Lager Puget Sound Adam Network -
Valorie Zimmerman Alan L. Taylor Danny Levitt The Lake Erie Adam Users -
Jonathan Fligner Tri-Angle Adam Users - Gary E.
Hill East Texas Adam Users - Jerry
Pritchard Robert Dunstan Dennis A. Jurewicz |
Box 820 Claresholm, Alberta, Canada T0L 0T0 Richard Bains Brian Stranahan - So. Calif. Adam
Users Dave Sandahl H.A.A.U.G. c/o Thomas Rutan
Downtown Minneapolis AUG - Tom C.
Gilmore J.A. Girard Frank Fleich Mike Laurier Russell M. Clinton -
Houston Users
Group Al Roginski Central Calif. Adam Users
Group ADAM Washington, D.C. Users Group
Inland Empire Adam Users Group
Hawaii AUG - Harlan Fletcher
Mr. G. Hibbert First Canadian ADAM User's Group
Winnipeg ADAM Users Group Greater Cincinnati ADAM Users
Group Metro-Toronto ADAM Group |
|
|
|||
| GAME | PLAYER |
|
SCORE |
| A.E. | Joe Blenkle |
|
60,400 |
| Antartic Adventure | Jeff Platt |
|
176,750 |
| B.C.'s Quest For Tires | Jeff Platt |
|
39,490 |
| Buck Rogers, Super | Jeff Platt |
|
10,167,642 |
| Centipede | Raymond So | 1 | 204,142 |
| Choplifter | Joe Blenkle |
|
32 |
| Congo Bongo | Raymond So |
|
9,960 |
| Defender | Jeff Platt |
|
1,005,200 |
| Destructor | Jeff Platt |
|
316,620 |
| Diablo | Joe Blenkle |
|
452 |
| Donkey Kong, Super | Jeff Platt |
|
1,201,800 |
| Donkey Kong Jr., Super | Jeff Platt |
|
481,300 |
| Dragon's Lair | Alan Neeley |
|
87,000 |
| Dukes of Hazzard | Jeff Platt |
|
83,570 |
| Galaxian | Joe Blenkle |
|
9,950 |
| Gateway to Asphai | William Summerville |
|
1,304,535 |
| Gust Buster | Jeff Platt |
|
122,090 |
| Grog's Revenge | Joe Blenkle |
|
5,960 |
| Gyruss | William Summerville |
|
241,400 |
| Gust Buster | Jeff Platt |
|
122,090 |
| Illusions | Joe Blenkle |
|
46,590 |
| James Bond 007 | Joe Blenkle |
|
57,550 |
| Jumpman Jr. | Jeff Platt |
|
1,055,175 |
| Montezuma's Revenge | Jeff Platt |
|
1,045,900 |
| Mountain King | Joe Blenkle |
|
125,360 |
| Oil's Well | Don Lager |
|
169,250 |
| Pitfall | Jeff Platt |
|
113,458 |
| Pitfall II | Joe Blenkle |
|
195,665 |
| Popeye | Jeff Platt |
|
166,540 |
| Q*Bert's Qubes | Joe Blenkle |
|
126,100 |
| Rock N' Rope | Ms. Leclerc |
|
3,000,080 |
| Rolloverture | Jeff Platt |
|
42,300 |
| Sewer Sam | Scott Swenson |
|
15,799 |
| Slither | Don Lager |
|
164,895 |
| Spy Hunter | Raymond So |
|
153,935 |
| Squish 'Em | Jeff Platt |
|
53,620 |
| Star Trek | Alan Samuels |
|
287,925 |
| Tapper | Joe Blenkle |
|
182,375 |
| Tarzan | Joe Blenkle |
|
162,250 |
| War Games | Joe Blenkle |
|
274,260,000 |
| Wing War | Jeff Platt |
|
150,200 |
| Zaxxon, Super | Raymond So |
|
308,600 |
|
|
|||
Some further observations on ASCOM: this is a
very well designed program that allows uploading and downloading of
files, as well as more advanced functions such as communicating with
mainframe machines. There are some subtleties of using ASCOM that were
not obvious from the manual. First, when downloading files using the
CPMUG protocol (equivalent to XMODEM or MODEM7), you
must return to command mode after asking the system you are calling to
download the file, and give the command
"RECEIVE [filename]". This will initiate the downloading process and
cause the file to be saved to disk under
whatever filename you specify.(Notice that this line is what you have changed, adding the option to permit you to SKIP system generation - permitting the next section of SYSGEN to load whatever is in memory to the system tracks of your disk or datapack).![]()
A> ddt sysgen.com [ret]
DDT VERS 2.2
NEXT PC
0800 0100
-s125 [ret]
0125 C3 00 [ret]
0126 00 . [ret]
-s26d [ret]
026D 52 53 [ret]
026E 65 6b [ret]
026F 62 69 [ret]
0270 6F 70 [ret]
0271 6F 29 [ret]
0272 74 20 [ret]
0273 29 3f [ret]
0274 20 [ret]
0275 3F 20 [ret]
0276 20 . [ret]
-g0
A> era sysgen.com [ret]
A> save 8 sysgen.com [ret]
A>sysgen [ret]
SYSTEM GENERATOR
ENTER SOURCE DRIVE
(OR RETURN TO SKIP) ? a [ret]
ENTER DESTINATION DRIVEIf you have typed the program in correctly ADAM will reboot and respond with the prompt "A0>" (assuming you are using the default drive in user area 0). Since there are 16 user areas, they will be displayed in hex (i.e. USER 15 would display as F).
(OR RETURN TO REBOOT) ? [ret]
A>save 60 mycpm.com [ret]
A>ddt mycpm.com [ret]
DDT VERS 2.2
NEXT PC
3D00 0100
-s2a8e [ret]
2A8E 8C f0 [ret]
2A8F C4 d9 [ret]
2A90 3E . [ret]
-s3cf0 [ret]
3CF0 00 cd [ret]
3CF1 00 8c [ret]
3CF2 00 c4 [ret]
3CF3 00 cd [ret]
3CF4 00 13 [ret]
3CF5 00 c5 [ret]
3CF6 00 c6 [ret]
3CF7 00 90 [ret]
3CF8 00 27 [ret]
3CF9 00 ce [ret]
3CFA 00 40 [ret]
3CFB 00 27 [ret]
3CFC 00 c3 [ret]
3CFD 00 8c [ret]
3CFE 00 c4 [ret]
3CFF 00 . [ret]
-g0 [ret]
A>sysgen [ret]
SYSTEM GENERATOR
ENTER SOURCE DRIVE
(OR RETURN TO SKIP)? [ret]
ENTER DESTINATION DRIVE
(OR RETURN TO REBOOT)? a [ret]
ENTER DESTINATION DRIVE
(OR RETURN TO REBOOT)? [ret]
10 REM A file creatorAfter running this program, the file name SAMPLE may be edited via SmartWriter to contain data readable by a SmartBasic program. If the sentences are too long, however, you cannot use the INPUT statement to input the data. In such a case you will have to use the GET statement.
20 PRINT CHR$(4);"OPEN SAMPLE"
30 PRINT CHR$(4);"WRITE SAMPLE"
40 PRINT
50 PRINT CHR$(4);"CLOSE SAMPLE"
60 END
1 GOTO 65000Upon the successful completion of this program, the file named LISTFILE may be accessed for printing using SmartWRITER. I recommend the use of page numbering and setting the bottom of the page to 55, or some other length. One word of caution, however, do not attempt to load this printout version of your program. Long lines may be cutoff, causing them to not be loaded completely. Notice how much more disk or data pack space is taken up by this file. I usually keep an extra diskette around for this kind of temporary transfer. Deleted SmartBasic files often take up disk space, so an extra diskette or data pack containing only such temporary files may be re-initialized at any time. I also use this diskette when testing new creations.
65000 PRINT CHR$(4); "OPEN LISTFILE"
65010 PRINT CHR$(4); "WRITE LISTFILE"
65020 LIST 2, 64999
65030 PRINT CHR$(4); "CLOSE LISTFILE"
65040 END
10 LOMEM :37550Return to Top
15 base = 27500
20 PRINT "CP/M to Adam fix program"
30 PRINT "This program fixes files"
40 PRINT "transfered to ADAM from CP/M"
70 PRINT "Enter name of drive"
80 INPUT " Drive (d1,d5,d6)"; drive$
90 PRINT CHR$(4); "catalog,"; drive$
120 PRINT "Enter name of file just loaded"
130 PRINT "from CP/M"
140 INPUT " Filename: "; sfile$
150 PRINT "Enter name of new file"
160 INPUT " Filename: "; dfile$
170 maxln = 250
180 length = 10000
190 lastchr = 0
200 done = 0
210 bn = 0
220 GOSUB 2000
230 GOSUB 3000
235 PRINT "Block "; bn; " complete"
240 IF done <> 1 THEN 220
250 PRINT
260 PRINT "Conversion program is complete"
270 END
2000 REM read text block
2005 ONERR GOTO 2150
2010 adr = 0
2020 HTAB 1 : PRINT CHR$(4); "open "; sfile$
2030 HTAB 1: PRINT CHR$(4); "read "; sfile$
2040 GOSUB 7000
2050 GET a$
2060 IF a$ = CHR$(26) THEN done = 1
2070 POKE adr+base, ASC(a$)
2080 adr = adr+1
2085 If adr < length-maxln THEN 2090
2086 IF a$ = CHR$(13) THEN 2110
2090 If done = 1 THEN 2110
2100 IF adr <> length THEN 2050
2110 bn = bn+1
2120 lastchr = lastchr+adr
2125 blk = adr
2130 HTAB 1: PRINT CHR$(4); "close "; sfile$
2140 RETURN
2150 PRINT
2155 HTAB 1: PRINT CHR$(4); "close "; sfile$
2160 PRINT "Error occured accessing"
2170 PRINT " source file "; sfile$
2180 CLRERR
2190 END
3000 REM Write block routine
3005 ONERR GOTO 3200
3010 If bn <> 1 THEN 3050
3020 HTAB 1: PRINT CHR$(4); "open "; dfile$
3030 HTAB 1 : PRINT CHR$(4); "write "; dfile$
3040 GOTO 3060
3050 HTAB 1: PRINT CHR$(4); "append "; dfile$
3060 adr = 0
3070 a = PEEK(adr+base)
3080 IF a = 10 THEN count = 0: GOTO 3140
3090 IF a = 9 THEN GOSUB 6000: GOTO 3140
3100 IF a = 26 THEN 3160
3110 IF a = 13 THEN PRINT: count = 0: GOTO 3140
3120 PRINT CHR$(a);
3130 count = count+1
3140 adr = adr+1
3150 IF adr <> blk THEN 3070
3160 HTAB 1: PRINT CHR$(4); "close "; dfile$
3170 RETURN
3200 PRINT
3210 PRINT: PRINT CHR$(4); "close "; dfile$
3220 PRINT "Error occured accessing"
3230 PRINT " destination file "; dfile$
3240 CLRERR
3250 END
6000 PRINT " ";
6010 count = count+1
6020 IP count <> 8*INT(count/8) THEN 6000
6030 RETURN
7000 REM dump data block routine
7010 FOR db = lastchr TO 0 STEP -1
7020 GET a$
7030 NEXT db
7040 RETURN
DOTS
5 REM DOTS
6 REM by A.LECLERC
10 HOME
15 HGR
20 INPUT "RADIUS ?"; r
30 HCOLOR = 3
45 FOR d = 0 TO 1.6 STEP 1/r
50 c = INT(SlN(d)*r)
60 l = INT(COS(d)*r)
80 HPLOT 128+c, 80-l TO 128-c, 80-l
86 HPLOT 128+c, 80+l TO 128-c, 80+l
90 NEXT
ELLYPSES
5 REM ELLYPSES
6 REM by A.LECLERC
10 HOME
15 HGR
20 INPUT "WIDTH ?"; w
25 INPUT "HEIGHT ?"; h
30 HCOLOR=3
45 FOR d=0 TO 1 .64 STEP 1/((w+h)/2)
50 c=INT(SIN(d)*v/2)
60 l=INT(COS(d)*h/2)
80 HPLOT 128+c, 80-l
85 HPLOT 128-c, 80-l
86 HPLOT 128+c, 80+l
87 HPLOT 128-c, 80+l
90 NEXT
100 END
TRUNCONES
1 REM TRUNCONES
5 REM by A.Leclerc
10 HOME
20 HGR
30 INPUT "WIDTH ?"; w
33 VTAB 21 : HTAB 15
36 INPUT "HEIGHT ?"; h
40 VTAB 23
43 INPUT "COLUMN ?"; cl
48 VTAB 23: HTAB 15
50 INPUT "ROW ? ; li
60 HOME
70 INPUT "Length of cone ?"; hc
80 INPUT "Length of Trunc. Cone ?";ht
85 p=ht/hc
90 INPUT "COLOR ?";co
95 HCOLOR = co
96 HOME
100 FOR d=0 TO 1 .64 STEP 1/((w+h)/2)
110 c=INT(SIN(d)*w/2)
120 l=INT(COS(d)*h/2)
122 lc=hc+li
124 tc=ht+li
126 c2=INT(SIN(d)*((w/2)*(1-p)))
128 l2 =INT(COS(d)*((h/2)*(1-p)))
130 HPLOT cl+c, li-l
140 HPLOT cl-c, li-l
145 IF li+l>li+(h/2)-INT((h/(8*(h/lc)))) THEN 180
150 HPLOT cl+c, li+l
160 HPLOT cl-c, li+l
170 GOTO 200
180 HPLOT cl+c, li+l TO cl+c2, tc+l2
190 HPLOT cl-c, li+1 TO cl-c2, tc+l2
200 NEXT
210 END
CIRCLES
5 REM CIRCLES
6 REM by A. LECLERC
10 HOME
15 HGR
16 FOR x=1 TO 8
17 INPUT "COLUMN ?"; co
18 INPUT "ROW ?";li
20 INPUT "RADIUS ?";r
25 INPUT "COLOR ?";y
30 HCOLOR=y
45 FOR d=0 TO 1.6 STEP 1/r
50 c=INT(SIN(d)*r)
60 l=INT(COS(d)*r)
70 HPLOT co+c, li-l
75 HPLOT co-c, li-l
80 HPLOT co+c, li+l
85 HPLOT co-c, li+l
90 NEXT
95 HOME
100 NEXT
HEARTS
5 REM HEARTS
6 REM by A.LECLERC
10 HOME
15 HGR
16 FOR x = 1 TO 8
17 INPUT "COLUMN ?"; CO
18 INPUT "ROW?"; li
20 INPUT "SIZE ?"; s
25 INPUT "COLOR ?"; y
26 r = s/2
28 cr = r/2
30 HCOLOR = y
45 FOR d = 0 TO 1.65 STEP 1/r
50 c = INT(SIN(d)*r)
60 l = INT(COS(d)*r)
70 HPLOT co+c, li-l-(SIN(d)*cr) TO co+c, li-(cr/4)+l-(SIN(d)*cr)
75 HPLOT co-c, li-l-(SIN(d)*cr) TO co-c, li-(cr/4)+l-(SIN(d)*cr)
90 NEXT
95 HOME
100 NEXT
110 END