
Ramblings From
The Ridge
Line-Spacing In
SmartWRITER
Getting
The Most Out Of
CompuServe10 LOMEN :32100Return to Top
15 REM SPRITE DEMO by D. Sage
20 CLEAR: a = 30000
30 x = 32000: c = 0
110 DATA 14,227,6,1,205,32,253
115 REM LDC,E3H;LDB,I;CALL FD20
116 REM E3H=16xl6 double sprites
120 DATA 58,24,252
125 REM LDA(FC18H) - table #1
130 DATA 253,33,04,00
135 REM LDIY,0004H - # of entries
140 DATA 33,00,125
145 REM LD HL,7D00H - location of data (32000)
150 DATA 17,00,00
155 REM LD DE,0000H - entry to write to
160 DATA 205,44,253
165 REM CALL FD2C - write tbl entries to VRAM
170 DATA 58 23,252
175 REM LDA(FC17H) - table #0
180 DATA 253,33,1,0
185 REM LD IY,0001H - # of entries
190 DATA 17,0,0
195 REM LD DE,0000H - entry to write to
200 DATA 33,32,125
205 REM LD HL,7D20H - location of data (32032)
210 DATA 205,44,253
215 REM CALL FD2C - write table entries to VRAM
220 DATA 201
225 REM RETURN
230 DATA 256
235 REM end of ml data
240 REM SPRITE DATA
245 REM upper left quadrant
250 DATA 3,3,15,7,5,7,1,1
255 REM lower left
260 DATA 7,11,19,35,2,2,2,14
265 REM upper right
270 DATA 192,192,240,224,160,224,128,128
275 REM lower right
280 DATA 224,208,200,196,64,64,64,112
285 REM SPRITE ATTRIBUTE TABLE DATA
290 DATA 1,1,0,9
295 REM 1=vertical position
296 REM 1=horizontal position
297 REM 0=name
298 REM 9=color code-red
990 REM store ml routine
1000 READ a: IF a = 256 THEN 1030
1010 POKE s+c, a
1020 c = c+1: GOTO 1000
1030 REM
1990 REM store sprite
2000 FOR i = 0 TO 35
2010 READ a
2020 POKE x+i, a
2030 NEXT i
2100 HOME: PRINT " USE Joystick #1"
2105 PRINT "Stop with Control-C"
2110 PRINT " Clear with TEXT"
2115 REM call sprite routine
2120 CALL 30000
2495 REM read Joysticks
2500 b = PDL(1): d = PDL(3)
2510 POKE X+32, b
2520 POKE x+33, d
2525 REM call sprite location routine
2530 CALL 30023
2560 GOTO 2500
3000 END
Product Reviews: Briefs
from Imagic. This is an extremely elaborate arcade type game that is
excellent in
every respect. Wing War is not an easy game. Game play is extremely
varied and the
graphics are excellent. I recommend it.
Product Review: Smart Letters
&
Forms
Product
Review: ADAMLink Modem
The ADAMLink is easy to install
and plugs into
the
Expansion Port #1 inside the ADAM's Memory Console. A dual phone jack
is provided
that plugs into your phone jack so that you can plug your phone into
one side and the
ADAMLink into the other. A 10-foot phone cord is provided to hook to
your phone line
and the system is connected through the top of the console's
ventilation slots.
Product Review: ADAMLink Modem
(5-2)
Product Review: ADAM Disk Drive
The
correct order for turning everything on is:
TV, disk
drive, and ADAM last.
Product Review: The Stock
Market
Game
Product Review: Black Gold
Product Review: Congo Bongo
Product Review: James Bond 007
I've
managed to make it as far as the fourth
game, but
then it gets the best of me and I have yet to complete it. In the first
game, your
mission is to make it across first a desert scene and then an ocean
scene, avoiding
craters in the desert and killer frogmen, subs and a killer satellite
on the ocean until
you reach and land safely on an oil rig.
Product Review: SmartFiler
Product Review: SmartFiler (5-2)
The
computer automatically puts your files in
alphabetical
or numerical order, depending on what you are searching for and the
whole program
kames it very easy to change information in any of the files at any
time.
Product Review: SmartFiler (5-3)
inch break, 4 lines-11/12, 5 lines-1 1/12. The problem is caused by
ADAM's infamous
extra half of a line feed that it insists on issuing at the end of each
form. As a
programmer things like this bug me, so I will try to find the time to
write a utility that
will allow standard mailing lists to be printed from SmartFiler files.
Product Review: ExperType|
|
|||
| GAME | PLAYER |
|
SCORE |
| Antartic Adventure | Joe Blenkle |
|
150,460 |
| B.C.'s Quest For Tires | Joe Blenkle |
|
13,320 |
| Blackjack/Poker | Skip Clark |
|
$11,000 |
| Buck Rogers, Super | Scott Swenson |
|
1,964,901 |
| Congo Bongo | Joe Blenkle |
|
7,010 |
| Cosmic Avenger | Skip Clark |
|
30,310 |
| Destructor | Joe Blenkle |
|
85, 140 |
| Donkey Kong | Dale Rohde |
|
3,419,500 |
| Donkey Kong, Super | Joe Blenkle |
|
251,000 |
| Donkey Kong Jr. | Scott Swenson |
|
143,200 |
| Donkey Kong Jr., Super | Jason Hirsch |
|
218,100 |
| Front Line | Robert Cavanagh |
|
110,500 |
| Frogger | Ann Petersen |
|
14,000 |
| Gateway to Asphai | Ann Petersen |
|
37,000 |
| Gorf | Joe Blenkle |
|
12,100 |
| Heist | Joe Blenkle |
|
96,782 |
| James Bond 007 | Joe Blenkle |
|
57,550 |
| Looping | Scott Swenson |
|
644,425 |
| Miner 2049er | Joe Blenkle |
|
78,785 |
| Montezuma's Revenge | Joe Blenkle |
|
43,650 |
| Mousetrap | Skip Clark |
|
1,550,480 |
| Mr. Do | Scott Swenson |
|
2,225,230 |
| Nova Blast | Joe Blenkle |
|
97,400 |
| Pepper II | Skip Clark |
|
139,380 |
| Pitfall | Joe Blenkle |
|
64,862 |
| Pitfall II | Joe Blenkle |
|
195,665 |
| Popeye | Kari Elsila |
|
109,600 |
| Q*Bert | Joe Blenkle |
|
461,575 |
| Quest For Quintana Roo | Tom Earnest, Jr. |
|
91,900 |
| River Raid | Robert Cavanagh |
|
43,220 |
| Space Fury | Skip Clark |
|
32,480 |
| Subroc | Robert Cavanagh |
|
2,575,900 |
| Time Pilot | Robert Cavanagh |
|
201,420 |
| Temple of Asphai | Judy Rose |
|
42,000 |
| Turbo | Scott Swenson |
|
169,792 |
| War Games | Robert Cavanagh |
|
102,420,000 |
| Zaxxon | Scott Swenson |
|
169,600 |
| Zaxxon, Super | Joe Blenkle |
|
113,700 |
|
|
|||
| COMPUSERVE SUBSCRIBER | ID NUMBER | ACCESS |
| Joe Blenkle | 75056,1074 | EMAIL, Game (SIG), Space (SIG) |
| Darrell Sage | 75035,1264 |
|
Norman Castro 809 West 33rd Ave. Bellevue, NE 68005 402/291-4405 Metro Adam User's Group Russell Williams 414 W, 149th St. New York, NY 10031 212/208-0645 (9am-5pm M-F) Bill & Nancy Rahn 12426-15th St. S. Afton, MN 55001 612/436/6577 Harry L. McDonald 1222 Division St. Charleston, IL 61920 |
9425 N. 38th Ave. Phoenix, AZ 85021 Adam Users of El Paso Dick Lewin 6308 Falling Star El Paso, TX 79912 Victor L. Watford P.O. Box 777 Russellville, AL 35653 The (717) Adam Users Steve Chamberlain 120 E. 4th St. Bloomsburg, PA 17815 |
Donald K. Zimmerman 5132 Jordon Road Silver Springs, NY 14550 Alan L. Taylor 612 7th Ave. NE Stewartville, MN 55976 507/533-8415 (after 6pm) ADAM Microhackers David Kennedy 236 McKibben St. Suite 19 New York, NY 11206 Danny Levitt 4525 S. White Pine Tucson, AZ 85730 602/790-9678 |
Compatible
pre-formatted blank C-
250 data cassettes. Quality data cassettes ready to use on your
computer. Why pay
more? ONLY!PRINTER LEGS AND SWITCH ACTIVATOR: Legs raise printer 3.75" to allow fanfold paper underneath. Activator moves control of on/off switch to front of printer. No electrical modifications. $22.95 + $2.00 S&H. SWITCH ACTIVATOR: $12.95 + $1 S&H. DUST COVERS: 3 Piece, tan, lightweight, nylon cloth. $21.95 EDUCATIONAL PROGRAMS: Data cassette with: Capitals and states, Annuity, Calculator, and Spelling quiz. Get all for $6.95 + $1.00 S&H DATAFILER CASSETTE: $6.95 + $1.00 S&H DATA DRIVE HEAD CLEANER PADS: 10 @ $5 To order, send name, address, and zip code, with a cashier's check or money order (personal checks require 3 weeks to clear) to: BOX 335, IONA, IDAHO 83427 (208) 523-2505 Idaho residents add 4% sales tax. Canadian residents add 5% U.S. each order for shipping & handling. For more information send self addressed stamped envelope ADAM is a registered trademark of Coleco Industries Inc. Products for the
ADAM
computer Box 355 Iona,
Idaho 83427This coupon worth $5.00 towards the purchase of the printer leg set with remote switch activator for the ADAM. Return this certificate with order. Expires 12-31- 1984. Address: _____________________ City/ST/Zip: ___________________ |
|
Disks (blank for ADAM) 10/$19.95 Ribbon Cart. (ADAM Printer) $5.50 Daisy Wheel-Elite, Script etc. $5.50 Covers (3) Key,CPU,Printer $19.95 Labels T/F-F/F (Address) 1000/$5.00 Labels T/F-F/F (Data Pack) 100/$5.00 FREE CATALOG - everything for ADAM DIABLO - It's here - The greatest mind challenge - All Graphic $24.95 DISASSEMBLER - Now convert machine code into something readable $34.95 THE STOCK MARKET GAME - A fun & educational board style game $24.95 BLACK GOLD - Look for oil. Survey, profits, fun. 1-4 players $24.95 MORSE CODE - Learn & Practice $19.95 PRINTER STAND - Front ON/OFF $22.95 BOUNTY HUNTER - Text adventure $24.95 TREK - Space text adventure $24.95 SAVINGS & LOAN - Calculates $24.95 ADAM ENTERTAINER - Book $12.95 ADAM'S COMPANION - Book (updated) $9.95 Shipping and Handling $2.50 VISA/MASTERCARD/Fast Delivery Dealers Wanted - Programs Wanted M.W. Ruth Co. Dept. SB4 510 Rhode Island Ave. Cherry Hill, NJ 08002 (609) 667-2526 |
|
Join the leading ADAM users' group Receive "SPRITE CHASER" newsletter. Advanced updating, evaluations on programs & hardware, technical information direct from Coleco. Problem solving - program exchange - discount buying service - etc. Send $15 for Charter membership to: P.O. Box 3761 - Attn: Jay Forman Cherry Hill, NJ 08034 (609) 667-2526 * VISA/MASTER-ADD $1 |
|
is the leading discount distributor of ADAM computer software, supplies and peripherals! CALL OR WRITE TODAY! - EVERYTHING'S ADAM Box 579 - Gwynedd Valley, PA 19437 (215) 643-7666 (609) 424-5485 (Attn. Programmers: we pay the highest royalties) |
10 REM 24 hour timer by M. LightbournReturn to Top
20 INPUT "Set timer for hours?"; a
30 INPUT "Set timer for minutes?"; b
40 INPUT "Set timer for seconds?"; c
41 h = 0
42 m = 0
43 s = 0
50 PRINT h; TAB(5); m; TAB(8); s
60 HOME
70 SPEED = 68
80 h = h+0: m = m+0: s = s+1
90 IF s = 60 THEN LET m = m+1: IF m = 60 THEN LET h = h+1
95 IF s = 60 THEN LET s = 0
100 IF m = 60 THEN LET M = 0
105 IF a = h AND b =m AND c = s THEN 130
110 IF h = 24 GOTO 20
120 GOTO 50
130 PRINT h; TAB(5); m; TAB(8); s
140 PRINT CHR$(7)
145 PRINT CHR$(7)
150 PRINT CHR$(7)
|
with 14 BASIC programs and 5 tutorials aimed at helping YOU get more enjoyment and results from your system! Display text on your high or low resolution graphics screens! Print or display JUMBO characters! Format text in realtime for screen or printer! Use special purpose and SMARTKEYS in BASIC! Two Data Pack Package for only $32.95 TapeWare Technology, Inc. P.O. Box 95691, Atlanta, GA 30347 Visa or MasterCard phone orders accepted - Sorry, no CODs 404-498-3831 Dealer inquiries invited |
2 REM DAVE'S REVENGEReturn to Top
5 REM by DB Jacksch
10 HGR: HPLOT 127,95
20 LOMEM :29000
30 ONERR GOTO 190
40 GOSUB 280
50 POKE c, 228: CALL s
60 p = n: HCOLOR = 1
70 h = RND(1)*127
80 m = RND(1)*127+128
90 HCOLOR = RND(1)*15+1
100 HPLOT TO m-63, h
110 IF p < 127 THEN 130
120 n = h: a = -1: GOTO 140
130 n = m: a = 1
140 FOR m = p TO n STEP a
150 POKE c, m: CALL s
160 NEXT m
170 GOTO 50
180 REM SILENCE
190 POKE c, 191: CALL s
200 POKE c, 223: CALL s
210 POKE c, 255: CALL s
220 POKE c, 158: CALL s
230 POKE c, 63: CALL s
240 POKE c, 95: CALL s
250 POKE c, 127: CALL s
260 END
270 REM INITIALIZE
280 DATA 58,102,109,211,255,201
290 s = 28000
300 c = 28006
310 FOR a = s TO s+5
320 READ b
330 POKE a, b
340 NEXT a
350 RETURN
Excitement This Christmas ADAM Connection - Enjoy a collection of eight to ten programs every six weeks on digital data pack for only $9.95 an issue! Subscribe today by sending $9.95 for your first issue. No obligation, cancel anytime! FUN HOUSE - A collection of four programs designed to entertain your kids for hours! Including THE GINGERBREAD CAPER and TREASURE TROVE - two dazzling adventures! A great stocking stuffer at only $19.95! Send $1.00 for Catalog. INTERNATIONAL COMPUTING, P.O. BOX 176, PATTERSON, N.C. 28661 |
1 REM alpha-filer by Mike ElsilaReturn to Top
5 DIM a$(300)
10 HOME
20 PRINT TAB(5); "A L P H A - F I L E R": PRINT:PRINT:PRINT "A
COMPUTERIZED ALPHABETIZING":PRINT TAB(8); "FILE PROGRAM"
21 PRINT: PRINT: PRINT: PRINT: For a= 1 TO 31: PRINT "-"; : NEXT a
22 PRINT: PRINT TAB(3); "B Y M I K E E L S I L A": PRINT
23 FOR a = 1 TO 31: PRINT "-"; : NEXT a
24 PRINT: PRINT: PRINT: PRINT
25 PRINT: PRINT: PRINT: PRINT
30 PRINT TAB(4.5); "PRESS ANY KEY TO START: "; :GET a$: HOME: k = 1
40 PRINT "No. "; k; ". "; : INPUT b$
45 IF LEN(b$) > 76 THEN PRINT: PRINT "NAME TOO LONG. PLEASE REDO.":
PRINT: GOTO 40
46 IF b$ = "REDO" OR b$ = "redo" THEN k = k-1: GOTO 40
47 IF b$ = "DONE" OR b$ = "done" THEN 70
50 a$(k) = b$: k = k+1: GOTO 40
70 PRINT: PRINT "DONE: ARE YOU SURE? ";
71 GET c$: IF c$ = "N" OR c$ = "n" THEN PRINT: GOTO 40
72 IF c$ <> "Y" AND c$ <> "y" THEN 70
80 HOME
90 PRINT "ALPHABETIZING PROCESS": PRINT "--------------------"
100 FOR i = 1 TO k-1: PRINT i; : IF a$(i+1)>= a$(i) THEN 150
102 b$ = a$(i+1)
104 a$(i+1) = a$(i)
106 a$(i) = b$
108 GOTO 100
150 NEXT i
160 HOME
165 FOR a = 2 TO k: a$(a-1) = a$(a): NEXT a: k = k-1
170 PRINT "DO YOU WANT A PRINTOUT? ";
171 GET c$: IF c$ <> "Y" AND c$ <> "y" AND c$ <> "N" AND c$ <>
"n" THEN 175
172 IF c$ = "y" or c$ = "Y" THEN 180
174 PRINT: PRINT "ARE YOU SURE? ";
175 GET c$: IF c$ <> "Y" AND c$ <> "y" AND c$ <> "N" AND c$ <>
"n" THEN 175
176 IF c$ = "N" OR c$ = "n" THEN PRINT: GOTO 170
177 GOTO 200
180 HOME
182 PR #1
184 FOR a = 1 TO k: PRINT a; ". "; a$(a): PRINT: NEXT a
186 PR #0
200 HOME
210 PRINT "DO YOU WISH TO CONTINUE? ";
220 GET c$: IF c$ <> "Y" AND c$ <> "y" AND c$ <> "N" AND c$ <>
"n" THEN 220
230 IF c$ = "Y" OR c$ = "y" THEN 240
232 PRINT: PRINT "ARE YOU SURE? ";
234 GET c$: IF c$ <> "N" AND c$ <> "n" AND c$ <> "Y" AND c$ <>
"y" THEN 234
238 GOTO 300
240 HOME: FOR a = 1 TO k: PRINT "No. "; a; ". "; a$(a): NEXT a:
k = k+1: GOTO 40
300 END
0 HIMEM : 41000Return to Top
10 TEXT: HOME: HTAB(12): VTAB(8): PRINT "N O E L"
20 PRINT: PRINT: PRINT: PRINT TAB(16); "by"
30 PRINT: PRINT: TAB(7); "Robert C. Purrenhage"
40 PRINT: PRINT TAB(15); "1984"
50 FOR t = 1 TO 10000: NEXT t
110 HGR: SCALE = 1: ROT = 0
120 GOSUB 8000
1000 REM draw horizon
1010 FOR x = 0 TO 19 STEP .07
1020 y = SIN(x)*2+150
1030 HCOLOR = 9: HPLOT x*13, 159 TO x*13, y
1040 NEXT x
1050 HCOLOR = 0: FOR x =75 TO 255 STEP 3: HPLOT x, 150 TO x, 148: NEXT x
1060 HCOLOR = 4: HPLOT 0, 156 TO 255, 156: HPLOT 0, 154 TO 255, 154:HPLOT
0, 152 TO 255, 152
4000 HCOLOR = 2: DRAW 1 AT 10, 150
4100 FOR stars = 1 TO 500
4110 HCOLOR = 10: x = INT(RND(1)*255): y = INT(RND(1)*135): HPLOT x, y
4120 NEXT stars
4200 HCOLOR = 8: DRAW 2 AT 183, 29
4300 REM draw magi
4310 FOR magi = 200 TO 55 STEP -1
4320 y = SIN(magi)*1+150
4330 HCOLOR = 15: DRAW 3 AT magi, y: XDRAW 3 AT magi, y
4340 NEXT magi
4350 HCOLOR = 15: DRAW 3 AT magi, y: DRAW 3 AT magi+15, y: DRAW 3 AT
magi+30, y
5000 REM rays from star
5010 HCOLOR = 8: x = 185: y = 30: HPLOT x, y TO 35, 140: HPLOT x, y
TO 30, 135
5020 HPLOT x, y TO 25, 131: HPLOT x, y TO 15, 132: HPLOT x, y TO 5, 133
6000 REM message
6010 SPEED = 25: PRINT: PRINT TAB(4); "GLORIA IN EXCELSIS, DEO": SPEED
= 255
7999 END
8000 qs = 3: pt = 16766: tl = 41000
8005 of = qs*2+3
8010 by = tl: GOSUB 8100
8015 POKE pt, lo: POKE pt+1, hi
8020 POKE tl, qs
8030 FOR n = 1 TO qs
8040 by = of: GOSUB 8100
8050 POKE tl+n*2, lo: POKE tl+n*2+1, hi
8060 READ a: POKE tl+of, a: of = of+1
8065 IF a <> 0 THEN 8060
8070 NEXT n
8075 RESTORE
8080 RETURN
8100 hi = INT(by/256): lo = by-hi*256
8130 RETURN
8999 REM stable shape table
9000 DATA 9, 36, 36, 36, 36, 36, 45, 45, 53, 54, 54
9010 DATA 54, 54, 62, 63, 63, 36, 36, 36, 37, 37, 37
9020 DATA 37, 45, 45, 45, 36, 36, 52, 54, 54, 45, 45
9030 DATA 45, 45, 45, 54, 54, 54, 54, 54, 63, 63, 39
9040 DATA 36, 36, 36, 36, 44, 46, 46, 46, 46, 36, 76
9050 DATA 60, 39, 63, 60, 39, 63, 60, 39, 63, 63, 62
9060 DATA 55, 63, 62, 55, 63, 62, 183, 146, 146, 82, 73
9070 DATA 73, 33, 36, 37, 53, 54, 14, 44, 14, 36, 36
9080 DATA 53, 53, 54, 0
9999 REM star shape table
10000 DATA 9, 45, 45, 63, 36, 45, 63, 63, 45, 62, 46
10010 DATA 38, 37, 60, 52, 6, 0
10999 REM camel & rider shape table
11000 DATA 73, 33, 36, 37, 53, 182, 9, 36, 44, 44, 54
11010 DATA 6, 128, 128, 128, 37, 60, 60, 36, 63, 44, 54
11020 DATA 119, 57, 62, 60, 62, 39, 60, 55, 53, 46, 53
11030 DATA 45, 45, 0
|
ADVENTURE PACK
I (3
PROGRAMS) MOON BASE ALPHA - Destroy the meteor that is racing
towards
the moon or else your colony will be detroyed. JACK & THE BEANSTALK
- Defeat the
giant in your quest for his golden hen. COMPUTER ADVENTURE - Re-live
the
"excitement" of getting your first computer. An adventure with a very
different flair.
Played with KEYBOARD. ADVENTURE PACK II (3
PROGRAMS) AFRICAN ADVENTURE - As
the sole
survivor of a plane crash, you must find your way out of the dark
continent.
HOSPITAL ADVENTURE - You are a spy whose mission is to complete the
bungled
assassination attempt on the evil dictator, who is recuperating in the
hospital under
heavy guard. BOMB THREAT - Get back to town to warn the authorities of
the bomb
planted by the terrorists who left you prisoner at their hideout.
Played with
KEYBOARD. |
| SAVINGS & LOAN - An extremely easy to use home finance program. Calculates loan payments and more. Prints out amortization tables. Figures out the value of savings and investments based on one deposit or deposits made regularly. This program can pay for itself with the first loan or investment! | TREK - This classic strategy game has fascinated computerists for over a decade. Now it's available for the ADAM! Commanding the bridge or your starship, you explore the galaxy. Fend off the Klingon invasion with phasers and photon torpedoes while conserving limited time and energy. |
VICTORY SOFTWARE CORP.,
50
South
Valley Road, Paoli, PA 19301 - (215) 296-3787 - Send for free catalog
or order
directly. We accept checks, M.O.'s, VISA and Mastercard. Charges -
include card #
and expiration date. Orders under $9.00 add $1.50 for postage. PA
residents add 6%
sales tax.