Here is, without a doubt, in my immodest, unhumble opinion, the
greatest two-liner ever written for AppleSoft Basic :)
Please tell me what you think! (email below)
Dave Ljung
-------------- >8 Cut me whip me beat me here 8< --------------------
SPEEDWALLER
-----------
SpeedWaller is a two-line AppleSoft Basic program implementing a
two-player action game.
I wrote SpeedWaller about 6 years ago, and upon recently finding it
deep in the recesses of my filing cabinet, I decided that it was high time
that I released it to the public. SpeedWaller was written in response to
the numerous two-line AppleSoft Basic programming contests I used to see
in Apple ][ magazines all the time. I wrote SpeedWaller over a period
of many months in my high school computer lab during study hall, since
there was little else to do. The last three months I distinctly
remember because I was trying figure out how to shave off ten more
characters in order to get it to fit in two lines. Crazy. :)
The program is, to the best of my knowledge, the only two-line
two-player action game in existence.
If you try it out, please tell me what you think, via email, at:
dxl@fc.hp.com
=====================
Typing In SpeedWaller
=====================
This program must be typed in exactly as shown, WITHOUT spaces!
For example:
]1ONSCRN(X,Y)<>7ANDB<>0ANDSCRN(U,V) etc...
===================
Running SpeedWaller
===================
Keys to play the game:
Player 1 Player 2
W I
^ ^
| |
A <-+-> S J <-+-> K
| |
v v
Z M
Try playing the game before you read the rules in the "Hints" file.
===========
The Program
===========
(Okay - it's three lines - but the REM doesn't count. :)
0 REM SPEEDWALLER - COPYRIGHT DAVID LJUNG - I RETAIN ALL RIGHTS AND
OWNERSHIP OF THIS SOFTWARE - TO CHANGE AT MY DISCRETION - THIS REM
MUST REMAIN WITH THE PROGRAM UNCHANGED. CREATED 1988-1989 BY
DAVID LJUNG - EMAIL DXL@FC.HP.COM
1 ONSCRN(X,Y)<>7 AND B<>0 AND SCRN(U,V) <> 7 GOTO 2: HOME : GR :
X=10 : Y=20 : U=30 : V=Y : I=201 : J=202 : K=203 : M=205 : W=215 :
A=193 : S=211 : Z=218 : O=1 : Q=-1 : P=49152 : COLOR=7 : HLIN 0,39
AT 0 : HLIN 0,39 AT 39 : VLIN 0,39 AT 0 : VLIN 0,39 AT 39 : VTAB 22 :
? "WASZ IJKM "C : ON B=0 GOTO 2 : CALL -678 : RUN
2 PLOT X,Y : PLOT U,V : B=PEEK(P) : G= B<>Z AND B<>W: H=B<>A AND B<>S :
O=G*(O*H+(B=S)-(B=A)) : L=H*(L*G+(B=Z)-(B=W)) : G=B<>I AND B<>M :
H=B<>J AND B<>K : Q=G*(Q*H+(B=K)-(B=J)) : R=H*(R*G+(B=M)-(B=I)) :
X=X+O : Y=Y+L : U=U+Q : V=V+R : FOR N=1 TO 99 : NEXT : C=C+1 :
VTAB 22 : HTAB 12 : ? C : GOTO 1
=========
Copyright
=========
I retain all rights and ownership to this 'software'. Redistribution
without fee is permitted so long as my name remains and the original,
unmodified code is present. I also retain the right to give ownership
of this software away at my discretion.
David Ljung
dxl@fc.hp.com
Hewlett-Packard
303-229-2379 (Work)
303-282-9853 (Home)
Version 1.00
November, 1994
Created April, 1989
===========
Explanation
===========
** PLEASE DON'T READ THIS UNTIL YOU'VE TRIED THE PROGRAM **
The game is remniscent of Snafu or Tron Light Cycles, if you are familiar
with those. If not, the game consists of two 'cars' - represented using
lo-res blocks - that the players drive around the screen. Each car leaves
a trail behind it. The game continues until one of the players crashes
into one of the trails or the walls of the screen. The object is, of
course, to trap your opponent and stay alive longer.
If you don't have a second player, then you can also try to challenge
'yourself' by driving both cars and seeing how long you can stay alive.
There is a counter that keeps track of time at the bottom of the screen
for this purpose.
When the game is over, you can hit a return to start again. To stop
the game, type <control-c> while the game is running.
:oooo / oooooooo: -------------------------------------------------- (__) ---
ooo /-- --- ooo | David Ljung W: (303) 229-2379 oo ) |
oo / / /__/ oo | Hewlett-Packard H: (303) 282-9853 moo. |_/\ |
ooo / ooo | HPPA Design Lab dxl@fc.hp.com |
:oooo / ooooooo: ---------= Run this command on a UNIX machine: =-----------
echo '[q]sa[ln0=aln256%Pln256/snlbx]sb3135071790101768542287578439snlbxq'|dc