Re: TELEPONG found! Attn: Michael J. Mahon

["Michael J. Mahon" <mjmahon@aol.com>]

On Nov 21, 10:56 am, aiiad...@gmail.com wrote:
> On Nov 16, 6:52 pm, "Michael J. Mahon" <mjma...@aol.com> wrote:
>
> > Quincy wrote:
> > >>I'd like to get it running over NadaNet!  ;-)
>
> > > Watch your e-mail in a few hours.
>
> > Got it, thanks!
>
> can you post it so we can check it out?

Actually, the Integer BASIC program is short enough that I can post it
here for
a quick look.  I expect that it contains some "funny" characters, so
I'll still make
the disk image available when I get home...

   10 REM   TELEPONG BY W SANDER
   20 REM        4/20/78
   30 REM    COPYRIGHT APPLE COMPUTER


  100 GOSUB 2500:SYSTEM=1
  110 PR# SLOT: PRINT "RUN 200": PR# 0:A=38:B=1:C=-1: GOTO 1400
  200 GOSUB 2500:SYSTEM=2:A=1:B=38:C=1:X=38: GOTO 1400
  460 P(1)=(( PDL (1)-24)*20)/115: IF P(1)=P(2) THEN RETURN : IF
P(1)<0 THEN P(1)=0: IF P(1)>34 THEN P(1)=34
  470 COLOR= 6: VLIN P(1),P(1)+5 AT 39: COLOR= 0: IF P(1)>P(2) THEN
VLIN 0,P(1)-1 AT 39: IF P(1)<P(2) THEN VLIN P(1)+6,39 AT 39:P(2)=P(1)
  480 RETURN
 1120 FOR X=A TO B STEP C
 1130 Y=YY+V+((X+(C=-1)) MOD 5=0)* SGN (V): IF Y>1 AND Y<38 THEN 1150:
IF Y<1 THEN Y=1: IF Y>38 THEN Y=38
 1140 V=-V: FOR T=1 TO 5:M= PEEK (-16336): NEXT T
 1150 IF X=C OR X=39+C THEN 1160: COLOR= 0: PLOT X-C,YY: COLOR= 15:
PLOT X,Y
 1160 YY=Y: IF X MOD 2=0 THEN GOSUB 460: NEXT X
 1170 COLOR= 0: PLOT X-C,Y: GOSUB 2000
 1175 IF X#0 THEN 1180: COLOR= 6: VLIN P(0),P(0)+5 AT 0
 1180 IF SCRN( X,Y+V*(Y+V<40 AND Y+V>-1))=0 THEN 1330
 1190 FOR T=1 TO 10:M= PEEK (-16336): NEXT T
 1210 V=3-Y+P(X/38):V=V- NOT V
 1260 A=39-A:B=39-B:C=-C: GOTO 1120
 1330 COLOR= 15: PLOT X,Y+V*(Y+V>-1 AND Y+V<40)
 1340 FOR T=1 TO 75:M= PEEK (-16336)+ PEEK (-16336)- PEEK (-16336):
NEXT T
 1350 IF X=0 THEN SR=SR+1: IF X=39 THEN SL=SL+1: VTAB 23: TAB 7: PRINT
SL;: TAB 33: PRINT SR: IF SL=15 OR SR=15 THEN 1510
 1390 COLOR= 0: PLOT X,Y+V*(Y+V>-1 AND Y+V<40)
 1400 FOR T=1 TO 75: GOSUB 460: NEXT T: GOSUB 2000
 1420 YY=P(0)+2: IF X=0 THEN YY=P(1)+2:V=1: GOTO 1120
 1510 VTAB 21: TAB 35: PRINT "   ": END
 2000 GOSUB 460: VTAB 21: IF SYSTEM=1 THEN 2110
 2010 IN# SLOT: INPUT A$: IN# 0
 2020 VTAB 21: PR# SLOT: PRINT P(1): PR# 0
 2030 VTAB 21: IN# SLOT: INPUT P(0): IN# 0: GOTO 2140
 2110 PR# SLOT: PRINT : PR# 0
 2120 VTAB 21: IN# SLOT: INPUT P(0): IN# 0
 2130 VTAB 21: PR# SLOT: PRINT P(1): PR# 0
 2140 VTAB 21: PRINT "   ": COLOR= 0: VLIN 0,39 AT 0: RETURN
 2500 Y=V=X=YY=C: DIM P(2):P(2)=0: IN# 0: PR# 0: GR : COLOR= 1: HLIN
1,38 AT 0: HLIN 1,38 AT 39
 2510 INPUT "COMMUNICATION CARD SLOT # ",SLOT: CALL -936: RETURN

-michael