!*! Updated on 03-Jan-94 at 3:50 PM by Tim; edit time: 0:01:00
!*************************** AMUS Program Label ******************************
! Filename: BATTL3.BAS                                      Date: 1/3/94
! Category: GAME         Hash Code:                      Version: 3.0(1)
! Initials: TRON/AM      Name: Tim Shoemaker
! Company: Datatronics                             Telephone #: 9099287704
! Related Files: NONE
! Min. Op. Sys.: DBASIC                        Expertise Level:
! Special: must have DBASIC or DRUN to execute this. may be modified for other
! Description: a Multi terminal battleship game based on BATTL2.BAS. This one
! allows for easier placement of pieces, and faster game play.
!
!***************************************************************************!
!                                                                           !
!                                BATTL3.BAS                                 !
!                      Battleship for the Alpha Micro                       !
!                WITH "GRAPHIC" INTERFACE AND MODS FOR DBASIC
!                                                                           !
!***************************************************************************!
!Copyright (C) 1986 by UltraSoft.  All Rights Reserved.
!FreeWare from UltraSoft.  May be distributed free of charge.
!
!Written by: David Pallmann
!
!Edit History:
!1.0 29-Mar-86 created. /DFP
!2.0 01-May-86 Two-user version of BATTLE.BAS /RPW (CENTAURI) (512) 631-9141
!3.0 03-Jan 94 changed to a graphic screen by Tim Shoemaker (714) 455-3493

       PROGRAM BATTL3,3.0

MAP1 OPP'RECORD
       MAP2 OPP'ROW,F,6
       MAP2 OPP'COL,F,6

       MAP1 XXX,S,1
       R'MARGIN = 1
       T'MARGIN = 3
       OLD'OPP'ROW = 2 :OLD'OPP'COL = 2
       MAP1 PIECE'MARKER,S,5

       MAP1 PROMPT,S,20
       MAP1 ENTRY,S,30
       MAP1 HCHAR,S,1,"7"      !Hit marker.
       MAP1 MCHAR,S,1,"-"      !Missed marker.
       MAP1 CCHAR,S,1,"."      !Coordinate marker.
       MAP1 DELAY,F,6,2000     !Delay loop for error mess.
       MAP1 CNAM,S,6           !Opponent's job name.
       MAP1 PNAM,S,6           !This player's job name.
       MAP1 CBRD(10,10),B,1    !COMPUTER BOARD
       MAP1 PBRD(10,10),B,1    !PLAYER BOARD
       MAP1 PIMG(10,10),B,1    !PLAYER IMAGE OF COMPUTER BOARD
       MAP1 CSHIP(5),F         !SHIP COUNTS
       MAP1 PSHIP(5),F         !SHIP COUNTS
       MAP1 NAME(5),S,20       !SHIP NAMES
       MAP1 LENGTH(5),F        !SHIP LENGTHS
       MAP1 CDOWN,F            !COMPUTER SHIPS SANK
       MAP1 PDOWN,F            !PLAYER SHIPS SANK
       MAP1 HR,F               !HIT ROW
       MAP1 HC,F               !HIT COLUMN
       MAP1 SR,F               !SAVED HIT ROW
       MAP1 SC,F               !SAVED HIT COLUMN
       MAP1 HFLAG,F            !HIT FLAG
       MAP1 I,F                !LOOP INDEX
       MAP1 J,F                !LOOP INDEX
       MAP1 K,F                !LOOP INDEX
       MAP1 R,F                !ROW
       MAP1 C,F                !COLUMN
       MAP1 R1,F               !ROW
       MAP1 C1,F               !COLUMN
       MAP1 D,F                !DIRECTION
       MAP1 VD,F               !VERTICAL DIRECTION
       MAP1 HD,F               !HORIZONTAL DIRECTION
       MAP1 L,F                !LENGTH OF CURRENT SHIP
       MAP1 TEXT,S,10          !INPUT STRING
       MAP1 HITS,F             !PLAYER HITS
       MAP1 CHITS,F            !COMPUTER HITS
       MAP1 FLAG,F             !FLAG
       MAP1 USR'BUF            !Borrowed from A.B. USRBUF.CPY
               MAP2 UB'RCN,B,2
               MAP2 UB'UID,S,6
               MAP2 UB'NAME,S,30
               MAP2 UB'FIL,X,62
       MAP1 CNAME,S,30
       MAP1 ANSWER,S,1

       ?TAB(-1,0);"           *+*+*+*+BATTLESHIP*+*+*+*+*+"
!       ?TAB(10,1);"1.  PLAY AGAINST THE COMPUTER."
!       ?TAB(11,1);"2.  PLAY AGAINST ANOTHER USER."
WHICH:
!       ?TAB(15,1);"_ <-- Enter your choice.";TAB(15,1);
!       INPUT "",WHICH
!       IF WHICH=1 CHAIN "BATTLE"
!       IF WHICH<>2 GOTO WHICH
       ?TAB(20,1);"______ <-- Enter name of job to play against.";TAB(20,1);
       INPUT "",CNAM
       CNAM = RTRIM(CNAM)
       XCALL STRIP,CNAM
       IF LEN(CNAM)<1 GOTO WHICH
SND'MSG:
       ?TAB(21,1);"_ <-- Send message to "+CNAM+"? (Y/N)";TAB(21,1);
       INPUT "",ANSWER
       IF UCS(ANSWER)<>"Y" GOTO INIT1
       ?TAB(22,1);
       RUNDOS "SEND "+CNAM+" <HOW ABOUT A GAME OF BATTLESHIP?>"
       GOTO SND'MSG
INIT1:
!       LOOKUP "MEM:GINDTA.SV",ABF
!       IF ABF THEN &
!               XCALL DB,14,USR'BUF : &
!               PNAM=UB'UID
!       IF ABF=0 THEN XCALL JOBNAM,PNAM
!       XCALL STRIP,PNAM
       PNAM = .JOBNAME
       LOOKUP PNAM+".OPP",B
       WHEN B = 0
               ALLOCATE PNAM+".OPP",1
       WEND
       OPEN #34,PNAM+".OPP",RANDOM,12,OPP'RECNO
       OPP'RECNO = 0
       OPP'ROW = 1
       OPP'COL = 1
       WRITE #34,OPP'RECORD
       CLOSE #34
       OPEN #34,PNAM+".OPP",RANDOM,12,OPP'RECNO

INIT:   RANDOMIZE
       FOR I=1 TO 5
           READ NAME(I),LENGTH(I)
           CSHIP(I)=LENGTH(I)
           PSHIP(I)=LENGTH(I)
           NEXT
       DATA BATTLESHIP,5
       DATA DESTROYER,4
       DATA CRUISER,3
       DATA SUBMARINE,3
       DATA PT BOAT,2

NEWGAM: PRINT TAB(-1,0); TAB(-1,11);
       CALL PLACE'SQUARES
!       FOR I=1 TO 10
!           PRINT TAB(1,I*2+2); STR(I);
!           PRINT TAB(13,I*2+2); STR(I);
!           PRINT TAB(I+1,1); CHR(I+64);
!           PRINT TAB(I+13,1); CHR(I+64);
!           FOR J=1 TO 10
!               CBRD(I,J)=0 : PBRD(I,J)=0 : PIMG(I,J)=0
!               PRINT TAB(I+1,J*2+2); CCHAR;
!               PRINT TAB(I+13,J*2+2); CCHAR;
!               NEXT
!           NEXT
!       PRINT TAB(6,25); "OPPONENT'S";
!       PRINT TAB(7,25); "FIELD";
!       PRINT TAB(17,25);"YOUR";
!       PRINT TAB(18,25);"FIELD";
!       PRINT TAB(-1,12);
!       IF ABF=0 PROMPT="YOUR NAME? " : CALL INPUT : UB'NAME=ENTRY
       UB'NAME = .USERNAME
!       PRINT TAB(19,25);PNAM;" (";UB'NAME;")";

       PRINT TAB(1,50); "**  BATTLESHIP  **";
       LOOKUP PNAM+".BAT",FOUND
       IF FOUND CALL LOAD'OLD'BOARD : GOTO START'PLAY

       PRINT TAB(-1,11);
       PRINT TAB(2,40); "POSITION PIECE USING NUMBER PAD... HIT '5' TO PLACE PIECE, HIT '0' TO ROTATE"
       FOR I=1 TO 5
GETPOS:!            PRINT TAB(-1,11);
!           PRINT TAB(I+7,40); NAME(I); " ("; STR(LENGTH(I)); ")? "; TAB(-1,9);
!           PRINT TAB(-1,12);
!           PROMPT=""
!           CALL INPUT
           PIECE'LENGTH = LENGTH(I)
           CALL PLACE'THE'PIECES
           TEXT=ENTRY
           CALL COORD : IF FLAG THEN GOTO GETPOS
           CALL CHOP
           R1=R : C1=C
           CALL COORD : IF FLAG THEN GOTO GETPOS
           VD=0 : HD=0
           IF R>R1 THEN VD=1
           IF R<R1 THEN VD=-1
           IF C>C1 THEN HD=1
           IF C<C1 THEN HD=-1
!           IF VD#0 AND HD#0 THEN GOTO GETPOS
!           IF VD=0 AND HD=0 THEN GOTO GETPOS
!           IF R1+(LENGTH(I)-1)*VD#R AND C1+(LENGTH(I)-1)*HD#C THEN GOTO GETPOS
           FLAG=0
           FOR J=1 TO LENGTH(I)
               R=R1+(VD*(J-1))
               C=C1+(HD*(J-1))
               IF R>10 OR C>10 GOTO GETPOS     !Watch for subscript out of range.
               IF PBRD(R,C)#0 THEN FLAG=-1
               NEXT J
           IF FLAG THEN GOTO GETPOS
           FOR J=1 TO LENGTH(I)
               PBRD(R1,C1)=I
!               PRINT TAB(R1+13,C1*2+2); CHR(I+96);
               THIS'ROW = R1   :THIS'COL = C1
               PIECE'MARKER = CHR(I+96)+CHR(I+96)+CHR(I+96)+CHR(I+96)+CHR(I+96)
               CALL PLACE'PIECE
               R1=R1+VD : C1=C1+HD
               NEXT
           NEXT
       PRINT TAB(2,1);TAB(-1,9);
!       FOR I=5 TO 12
!           PRINT TAB(I,40); TAB(-1,9);
!           NEXT

       CALL SAVE'BOARD
START'PLAY:
       CALL LOAD'BOARD
       LOOKUP PNAM+".MOV",FOUND
       IF FOUND KILL PNAM+".MOV"

!       PRINT TAB(-1,11);
!       PRINT TAB(5,40); "YOUR GUESS";
!       PRINT TAB(1,40); CNAME+"'S GUESS";
!       PRINT TAB(-1,12);

PLAYER: !PRINT TAB(5,65); TAB(-1,9);
!       PROMPT=""
!       CALL INPUT
       CALL PLACE'YOUR'TORPEDO
       TEXT=ENTRY
       CALL COORD : IF FLAG THEN GOTO PLAYER
       IF R<1 OR R>10 OR C<1 OR C>10 THEN GOTO PLAYER
       IF PIMG(R,C)#0 THEN GOTO PLAYER
       CALL SAVE'MOVE
       CALL WAIT'FOR'MOVE
       IF CBRD(R,C)=0 THEN GOTO MISS

HIT:    PIMG(R,C)=1
!       PRINT TAB(R+1,C*2+2); HCHAR;
       BOARD = 1
       THIS'ROW = R    :THIS'COL = C
       PIECE'MARKER = HCHAR+HCHAR+HCHAR+HCHAR+HCHAR
       PRINT TAB(-1,23);
       CALL PLACE'PIECE
       PRINT TAB(-1,24);
       PRINT TAB(1,20); "HIT "; CHR(7);
       HITS=HITS+1
       I=CBRD(R,C)
       CSHIP(I)=CSHIP(I)-1
       IF CSHIP(I)=0 THEN CDOWN=CDOWN+1 : &
               PRINT TAB(3,20); STR(CDOWN); " OF "+CNAME+"'S SHIPS SANK";
       IF HITS<17 THEN GOTO COMP
       PRINT TAB(2,45); "CONGRATULATIONS, YOU WIN   ";
       CALL DELAY : CALL DELAY
       CALL LOAD'MOVE
       GOTO QUIT

MISS:   PIMG(R,C)=-1
!       PRINT TAB(R+1,C*2+2); MCHAR;
       BOARD = 1
       THIS'ROW = R    :THIS'COL = C
       PIECE'MARKER = MCHAR+MCHAR+MCHAR+MCHAR+MCHAR
       CALL PLACE'PIECE
       PRINT TAB(1,20); "MISS";

COMP:
       CALL LOAD'MOVE
!       PRINT TAB(1,65); CHR(R+64); STR(C); " ";
       IF PBRD(R,C)#0 THEN GOTO CHIT

CMISS:
!       PRINT TAB(R+13,C*2+2); MCHAR;
       BOARD = 2
       THIS'ROW = R    :THIS'COL = C
       PIECE'MARKER = MCHAR+MCHAR+MCHAR+MCHAR+MCHAR
       CALL PLACE'PIECE
       PRINT TAB(1,90); "MISS";
       GOTO PLAYER

CHIT:
!       PRINT TAB(R+13,C*2+2); HCHAR;
       BOARD = 2
       THIS'ROW = R    :THIS'COL = C
       PIECE'MARKER = HCHAR+HCHAR+HCHAR+HCHAR+HCHAR
       PRINT TAB(-1,23);
       CALL PLACE'PIECE
       PRINT TAB(-1,24);
       PRINT TAB(1,90); "HIT "; CHR(7);

       CHITS=CHITS+1
       I=PBRD(R,C)
       PSHIP(I)=PSHIP(I)-1
       IF PSHIP(I)=0 THEN PDOWN=PDOWN+1 : &
               PRINT TAB(3,90); STR(PDOWN); " OF YOUR SHIPS SANK";
       IF CHITS<17 THEN GOTO PLAYER
       PRINT TAB(2,45); "SORRY, YOU HAVE LOST. ";
QUIT:
       IF HITS<17 PRINT TAB(2,68); "WIMP!";
       PRINT TAB(3,45); "EFFICIENCY RATING = ";(HITS/TRIES)*100 USING "###";"%";
       FOR I=1 TO 10
           FOR J=1 TO 10
!               IF CBRD(I,J)#0 AND PIMG(I,J)=0 THEN PRINT TAB(I+1,J*2+2); CHR(96+CBRD(I,J));
               WHEN CBRD(I,J) <> 0 AND PIMG(I,J)=0
                       BOARD = 1
                       THIS'ROW = I    :THIS'COL = J
                       X=CBRD(I,J)
                       PIECE'MARKER = CHR(X+96)+CHR(X+96)+CHR(X+96)+CHR(X+96)+CHR(X+96)
                       CALL PLACE'PIECE
               WEND
               NEXT
           NEXT
       PRINT TAB(2,75);
       CALL DELAY : CALL DELAY
       END

COORD:  FLAG=0
       R=ASC(LEFT(TEXT,1))-64
       CALL CHOP
       C=LEFT(TEXT,1)
       CALL CHOP
       IF LEFT(TEXT,1)="0" THEN C=10 : CALL CHOP
       IF R<1 OR R>10 THEN FLAG=-1
       IF C<1 OR C>10 THEN FLAG=-1
       RETURN

CHOP:   TEXT=RIGHT(TEXT,LEN(TEXT)-1)
       RETURN

LOAD'MOVE:
       LOOKUP CNAM+".MOV",FOUND
       IF FOUND=0 ?TAB(2,40);TAB(-1,9); : CALL DELAY : &
               ?"Waiting for "+CNAME+" to move..."; :&
               CALL DELAY : CALL DELAY : GOTO LOAD'MOVE
       ?TAB(3,40);TAB(-1,9);
       OPEN #1,CNAM+".MOV",INPUT
       INPUT #1,R,C
       CLOSE #1
       KILL CNAM+".MOV"
       RETURN

WAIT'FOR'MOVE:
       CALL UPDATE'OPPONENT
       LOOKUP CNAM+".MOV",FOUND
       IF FOUND=0 ?TAB(3,40);TAB(-1,9); : CALL DELAY : &
               ?"Waiting for "+CNAME+" to move..."; :&
               CALL DELAY : CALL DELAY : GOTO WAIT'FOR'MOVE
       RETURN


SAVE'MOVE:
       LOOKUP PNAM+".MOV",FOUND
       IF FOUND ?TAB(3,40);TAB(-1,9); : CALL DELAY : &
               ?"Waiting for "+CNAME+" to get your move..."; :&
               CALL DELAY : CALL DELAY : GOTO SAVE'MOVE
       ?TAB(3,40);TAB(-1,9);
       OPEN #1,PNAM+".MOV",OUTPUT
       PRINT #1,STR(R);",";STR(C)
       CLOSE #1
       TRIES=TRIES+1
       RETURN

LOAD'BOARD:
       IF ABF PROMPT="OPPONENT'S ID " : CALL INPUT : CNAM=ENTRY
       LOOKUP CNAM+".BAT",FOUND
       IF FOUND=0 ?TAB(3,40);TAB(-1,9); : CALL DELAY : &
               ?"Waiting for "+CNAM+" to set up board..."; :&
               CALL DELAY : CALL DELAY : GOTO LOAD'BOARD
       ?TAB(3,40);TAB(-1,9);
       OPEN #1,CNAM+".BAT",INPUT
       INPUT LINE #1,CNAME
       FOR X = 1 TO 10
               FOR Y = 1 TO 10
                       INPUT #1,CBRD(X,Y)
               NEXT
       NEXT
       CLOSE #1
       KILL CNAM+".BAT"
!       PRINT TAB(5,40);TAB(-1,9);
!       PRINT TAB(8,25);CNAM;" (";CNAME;")";
       OPEN #35,CNAM+".OPP",RANDOM,12,OPP'RECNO
       OPP'RECNO = 0
       RETURN
SAVE'BOARD:
       OPEN #1,PNAM+".BAT",OUTPUT
       PRINT #1,UB'NAME
       FOR X = 1 TO 10
               FOR Y = 1 TO 10
                       PRINT #1,STR(PBRD(X,Y))
               NEXT
       NEXT
       CLOSE #1
       RETURN
LOAD'OLD'BOARD:
       OPEN #1,PNAM+".BAT",INPUT
       INPUT LINE #1,TEXT
       TEXT=""
       FOR X = 1 TO 10
               FOR Y = 1 TO 10
                       INPUT #1,PBRD(X,Y)
!                       IF PBRD(X,Y)<>0 &
!                               PRINT TAB(X+13,Y*2+2); CHR(PBRD(X,Y)+96);
                       WHEN PBRD(X,Y) <> 0
                               THIS'ROW = X    :THIS'COL = Y
                               I=PBRD(X,Y)
                               PIECE'MARKER = CHR(I+96)+CHR(I+96)+CHR(I+96)+CHR(I+96)+CHR(I+96)
                               CALL PLACE'PIECE
                       WEND
               NEXT
       NEXT
       CLOSE #1
       RETURN

INPUT:
       IF LEN(PROMPT)>0 &
               PRINT TAB(-1,11);TAB(5,40);TAB(-1,9);PROMPT;TAB(-1,12);
       INPUT LINE ENTRY
       ENTRY = UCS(RTRIM(ENTRY))
       !XCALL STRIP,ENTRY
       !ENTRY=UCS(ENTRY)
       IF ENTRY[1,1]="Q" OR ENTRY="END" OR ENTRY="BYE" GOTO QUIT
       RETURN

DELAY:  SLEEP 500
       RETURN

!@@@@
       PRINT TAB(-1,0);TAB(-1,80);
       CALL PLACE'SQUARES
       PRINT TAB(1,1);"HIT 'Q' TO QUIT, OR NUMBER PAD TO MOVE... "5" TO PLACE PIECE"
       BOARD = 1
       PRINT TAB(1,1);
       THIS'ROW = 1 :THIS'COL = 1
PLACE'THE'PIECES:
       THIS'PIECE'COL = 1
       THIS'PIECE'ROW = 1
       PIECE'HORZ = 1
!       PIECE'LENGTH = 3
       BOARD = 2
PLACE'PIECE'LOOP:
       ROW'MIN = 1     :ROW'MAX = 10   :COL'MIN = 1    :COL'MAX = 10
       IF PIECE'HORZ = 1 OR PIECE'HORZ = 2                     ROW'MAX = 11- PIECE'LENGTH
       IF PIECE'HORZ = 2 OR PIECE'HORZ = 3 OR PIECE'HORZ = 4   COL'MAX = 11-PIECE'LENGTH
       IF PIECE'HORZ = 4                                       ROW'MIN = 0 + PIECE'LENGTH
       THIS'PIECE'COL = (THIS'PIECE'COL MIN COL'MAX) MAX COL'MIN
       THIS'PIECE'ROW = (THIS'PIECE'ROW MIN ROW'MAX) MAX ROW'MIN

       FOR ADJUSTER=0 TO PIECE'LENGTH - 1
               CALL ADJUST'POSITION
               CALL PLACE'BIG'CURSOR
       NEXT ADJUSTER
       X=GETKEY(-1)
       IF CHR(X) = "Q" PRINT TAB(-1,0);        :END
       XXX = CHR(X)
       FOR ADJUSTER=0 TO PIECE'LENGTH - 1
               CALL ADJUST'POSITION
               CALL UNPLACE'BIG'CURSOR
       NEXT ADJUSTER
       THIS'COL = THIS'PIECE'COL       :THIS'ROW = THIS'PIECE'ROW
       CALL FIGURE'NEW'LOCATION
       THIS'PIECE'COL = THIS'COL
       THIS'PIECE'ROW = THIS'ROW
       WHEN XXX = 5
               ENTRY = ""
               ENTRY = "ABCDEFGHIJ"[THIS'ROW;1]+THIS'COL+","
               ADJUSTER = 1
               CALL ADJUST'POSITION
               ENTRY += "ABCDEFGHIJ"[THIS'ROW;1]+THIS'COL
               RETURN
       WEND
       WHEN XXX = "R" OR XXX = "." OR XXX = "0"
               PIECE'HORZ += 1
               IF PIECE'HORZ > 4 PIECE'HORZ = 1
       WEND
       goto PLACE'PIECE'LOOP

ADJUST'POSITION:
       THIS'COL = THIS'PIECE'COL       :THIS'ROW = THIS'PIECE'ROW
       IF PIECE'HORZ = 1 OR PIECE'HORZ = 2                     THIS'ROW = THIS'ROW + ADJUSTER
       IF PIECE'HORZ = 4                                       THIS'ROW = THIS'ROW - ADJUSTER
       IF PIECE'HORZ = 2 OR PIECE'HORZ = 3 OR PIECE'HORZ = 4   THIS'COL = THIS'COL + ADJUSTER
       RETURN
PLACE'YOUR'TORPEDO:
       BOARD = 1
       THIS'ROW = (YOUR'ROW MIN 10) MAX 1
       THIS'COL = (YOUR'COL MIN 10) MAX 1
       CALL PLACE'BIG'CURSOR
  PYT1:
       CALL UPDATE'OPPONENT
       X=GETKEY(0)
       WHEN X = -1
               SLEEP 500
               GOTO PYT1
       WEND
       IF CHR(X) = "Q" PRINT TAB(-1,0);        :END
       XXX = CHR(X)
       CALL UNPLACE'BIG'CURSOR
       CALL FIGURE'NEW'LOCATION
       YOUR'ROW = THIS'ROW     :YOUR'COL = THIS'COL
       WHEN XXX = 5
               ENTRY = ""
               ENTRY = "ABCDEFGHIJ"[THIS'ROW;1]+THIS'COL
               RETURN
       WEND
       WHEN XXX = "B"
               IF BOARD = 1 BOARD = 2 ELSE BOARD = 1
       WEND
       goto PLACE'YOUR'TORPEDO

UPDATE'OPPONENT:
!       WHEN OLD'THIS'ROW <> THIS'ROW OR OLD'THIS'COL <> THIS'COL
               OPP'ROW = THIS'ROW      :OPP'COL = THIS'COL
               WRITE #34,OPP'RECORD
               CLOSE #34
               OPEN #34,PNAM+".OPP",RANDOM,12,OPP'RECNO
!               PRINT TAB(1,1);"WRITING: ";OPP'ROW;OPP'COL;
!       WEND
   UO2:
       CLOSE #35
       OPEN #35,CNAM+".OPP",RANDOM,12,OPP'RECNO
       READ #35,OPP'RECORD
!       PRINT TAB(2,1);"READING: ";OPP'ROW;OPP'COL;
       IF OPP'ROW = OLD'OPP'ROW AND OPP'COL = OLD'OPP'COL      RETURN
       SAVE'THIS'ROW = THIS'ROW        :SAVE'THIS'COL = THIS'COL       :SAVE'BOARD = BOARD

       BOARD = 2
       THIS'ROW = OLD'OPP'ROW          :THIS'COL = OLD'OPP'COL         :CALL UNPLACE'BIG'CURSOR
       THIS'ROW = OPP'ROW              :THIS'COL = OPP'COL             :CALL PLACE'BIG'CURSOR
!       THIS'ROW= R                     :OPP'COL = C                    :CALL PLACE'BIG'CURSOR

       OLD'OPP'ROW = OPP'ROW           :OLD'OPP'COL = OPP'COL
       THIS'ROW = SAVE'THIS'ROW        :THIS'COL = SAVE'THIS'COL       :BOARD = SAVE'BOARD
       RETURN

FIGURE'NEW'LOCATION:
       IF XXX = 3 OR XXX = 6 OR XXX = 9 THIS'COL = (THIS'COL + 1) MIN 10
       IF XXX = 1 OR XXX = 4 OR XXX = 7 THIS'COL = (THIS'COL - 1) MAX 1
       IF XXX = 7 OR XXX = 8 OR XXX = 9 THIS'ROW = (THIS'ROW - 1) MAX 1
       IF XXX = 1 OR XXX = 2 OR XXX = 3 THIS'ROW = (THIS'ROW + 1) MIN 10
       RETURN

PLACE'PIECE:
       CALL CALC'PLACE'XY
       PRINT TAB(-1,12);
       PRINT TAB(PLACE'X,PLACE'Y);PIECE'MARKER;
       PRINT TAB(-1,11);
       RETURN

CALC'PLACE'XY:
       IF BOARD=1 R'MARGIN = 1 ELSE R'MARGIN = 71
       PLACE'X = T'MARGIN+2+(THIS'ROW-1)*2
       PLACE'Y = R'MARGIN+1+(THIS'COL-1)*6
       RETURN

PLACE'BIG'CURSOR:
       CALL CALC'PLACE'XY
       PRINT TAB(-1,23);
       PRINT TAB(PLACE'X-1,PLACE'Y-1); TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);
       PRINT TAB(PLACE'X,PLACE'Y-1); TAB(-1,49);
       PRINT TAB(PLACE'X,PLACE'Y+5); TAB(-1,49);
       PRINT TAB(PLACE'X+1,PLACE'Y-1); TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);
       PRINT TAB(-1,24);
       RETURN
UNPLACE'BIG'CURSOR:
       CALL CALC'PLACE'XY
       PRINT TAB(-1,23);
       PRINT TAB(PLACE'X-1,PLACE'Y-1); TAB(-1,48);
       PRINT TAB(-1,46);TAB(-1,46);TAB(-1,46);TAB(-1,46);TAB(-1,46);
       PRINT TAB(-1,48);
       PRINT TAB(PLACE'X,PLACE'Y-1); TAB(-1,47);
       PRINT TAB(PLACE'X,PLACE'Y+5); TAB(-1,47);
       PRINT TAB(PLACE'X+1,PLACE'Y-1); TAB(-1,48);
       PRINT TAB(-1,46);TAB(-1,46);TAB(-1,46);TAB(-1,46);TAB(-1,46);
       PRINT TAB(-1,48);
       PRINT TAB(-1,24);
       RETURN




PLACE'SQUARES:
       PRINT TAB(-1,80);TAB(-1,0);
       FOR BOARD = 1 TO 2
               FOR THIS'ROW = 1 TO 10
                       FOR THIS'COL = 1 TO 10
                               CALL UNPLACE'BIG'CURSOR
                       NEXT THIS'COL
               NEXT THIS'ROW
       NEXT BOARD
       PRINT TAB(1,1);
       RETURN

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.