home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / hex.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  30 lines
  1. 0 'HEX.BA BY BOB DELBOURGO
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:DEFINTA-Z:DIMP(9,9):LINE(0,0)-(50,0):LINE-(0,25):LINE-(0,0):LINE(119,62)-(119,37):LINE-(69,62):LINE-(119,62):FORJ=0TO25:LINE(69+2*J,J)-(119,J):LINE(0,62-J)-(50-2*J,62-J):NEXTJ:GOSUB20
  4. 3 FORI=1TO25:READX,Y:GOSUB26:NEXTI:PRINTCHR$(27)"p";:PRINT@186,"A version for";:PRINT@226,"the MODEL 100";CHR$(27)"q";:PRINT@306,"Bob Delbourgo";:FORI=0TO9:FORJ=0TO9:P(I,J)=0:NEXTJ,I:FORT=1TO3000:NEXTT:FORI=25TO305STEP40:PRINT@I,SPACE$(14);:NEXTI
  5. 4 N=0:P=0:I=4:J=4:PRINT@25,"Use arrow keys";:PRINT@65,"and '<' or '>' ";:PRINT@105,"to move cursor ";:PRINT@145,"Then press 'I'";:PRINT@185,"to insert piece";:PRINT@225,"or 'E' to end.";
  6. 5 PRINT@310,"TO PLAY";:IFP=0THENPRINT@308,CHR$(239);ELSEPRINT@308,"O";
  7. 6 X=6*(I-J)+60:Y=3*(I+J)+4:GOSUB27:FORT=1TO100:NEXTT:GOSUB26:FORT=1TO100:NEXTT:K$=INKEY$:IFK$=""THEN6
  8. 7 IFK$="I"ORK$="i"THENGOSUB21
  9. 8 IFK$=CHR$(30)THENI=I-1:J=J-1
  10. 9 IFK$=CHR$(31)THENI=I+1:J=J+1
  11. 10 IFK$=CHR$(29)THENJ=J+1
  12. 11 IFK$=CHR$(28)THENI=I+1
  13. 12 IFK$="<"ORK$=","THENI=I-1
  14. 13 IFK$=">"ORK$="."THENJ=J-1
  15. 14 IFI<0THENBEEP:I=0
  16. 15 IFJ<0THENBEEP:J=0
  17. 16 IFI>9THENBEEP:I=9
  18. 17 IFJ>9THENBEEP:J=9
  19. 18 IFK$="e"ORK$="E"ORN=100THENCLS:END
  20. 19 GOTO5
  21. 20 FORI=0TO9:FORJ=0TO9:X=6*(J-I)+60:Y=3*(I+J)+4:GOSUB26:NEXTJ,I:RETURN
  22. 21 IFP(I,J)=1OR(N=0ANDI=J)THENBEEP:RETURN
  23. 22 IFP=0THENPSET(X-3,Y):PSET(X+3,Y):LINE(X-2,Y-2)-(X+2,Y+2),1,BF:FORT=1000TO2000STEP100:SOUNDT,1:NEXTT
  24. 23 IFP=1THENPSET(X-3,Y):PSET(X+3,Y):LINE(X-2,Y-2)-(X+2,Y+2),1,B:FORT=2000TO1000STEP-100:SOUNDT,1:NEXTT
  25. 24 P(I,J)=1:N=N+1:P=P+1:IFP=2THENP=0
  26. 25 RETURN
  27. 26 LINE(X-2,Y-3)-(X+2,Y-3):LINE-(X+4,Y):LINE-(X+2,Y+3):LINE-(X-2,Y+3):LINE-(X-4,Y):LINE-(X-2,Y-3):RETURN
  28. 27 LINE(X-2,Y-3)-(X+2,Y-3),0:LINE-(X+4,Y),0:LINE-(X+2,Y+3),0:LINE-(X-2,Y+3),0:LINE-(X-4,Y),0:LINE-(X-2,Y+3),0:RETURN:DATA 158,6,158,12,158,18,158,24,164,15,170,6,170,12,170,18,170,24:DATA 188,6,188,12,188,18,188,24,194,15,194,3,194,27,200,6,200,24
  29. 28 DATA 218,6,218,24,224,9,224,15,224,21,230,6,230,24
  30.