'===========================================================================
' Subject: MINIMAL TEXT BASED PONG            Date: 06-28-00 (18:48)       
'  Author: Edward L. Blake                    Code: QB, QBasic, PDS        
'  Origin: blakee@cyanwerks.com             Packet: GAMES.ABC
'===========================================================================
' 1994-1995 Edward L. Blake
' Minimal Text Based Pong
' While I did better pongs than this, this was my first try at
' creating a "pong"-like game called Game22 (the name is cheezy,
' but that's why it's called game22.bas).
'
' Email: blakee@cyanwerks.com
'
'
DECLARE SUB BEEPER ()
DECLARE SUB FALL ()
DIM X1F AS STRING * 1
DIM Y1F AS STRING * 1
CLS
X2% = 2
Y2% = 2
X3% = 1
X4% = 69
DO
IF X1% > 79 THEN X1F = "0"
IF Y1% > 24 THEN Y1F = "0"
IF X1% < 2 THEN X1F = "1"
IF Y1% < 2 THEN Y1F = "1"
IF X1F = "1" THEN X1% = X1% + 1
IF Y1F = "1" THEN Y1% = Y1% + 1
IF X1F = "0" THEN X1% = X1% - 1
IF Y1F = "0" THEN Y1% = Y1% - 1
LOCATE Y1%, X1%: PRINT "Û";
LOCATE Y2%, X2%: PRINT " ";
IF Y1% = 25 AND X1% > X3% AND X1% < X3% + 11 THEN BEEPER: SCORE = SCORE + 10
IF Y1% = 25 THEN IF X1% < X3% OR X1% > X3% + 11 THEN FALL: X2% = X1%: Y2% = Y1%: X1% = 1: Y1% = 1: SCORE = SCORE - 1000: LOCATE Y2%, X2%: PRINT " ";
T1 = TIMER
DO
IF TIMER > T1 + .1 THEN EXIT DO
I$ = INKEY$
IF I$ = CHR$(27) THEN SYSTEM
IF I$ = CHR$(0) + CHR$(75) THEN X3% = X3% - 5
IF I$ = CHR$(0) + CHR$(77) THEN X3% = X3% + 5
IF I$ = " " THEN
LOCATE 2, 1: PRINT "GAME IS PAUSED"
DO UNTIL INKEY$ <> "": LOOP
LOCATE 2, 1: PRINT "              "
END IF
IF X3% > 71 THEN X3% = 72
IF X3% < 2 THEN X3% = 1
IF SCORE < 1 THEN SCORE = 0
LOCATE 1, 1: PRINT SCORE
LOCATE 25, X3%: PRINT "±ÛÛÛÛÛÛÛ±";
IF X4% <> X3% THEN LOCATE 25, X4%: PRINT "         ";
X4% = X3%
LOOP
X2% = X1%
Y2% = Y1%
LOOP

SUB BEEPER
SOUND 190, .7
END SUB

SUB FALL
FOR I = 190 TO 50 STEP -10
SOUND I, .5
NEXT I
END SUB