home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / grid.200 < prev    next >
Text File  |  2006-10-19  |  4KB  |  118 lines
  1. 0 'GRID.BA  Henry Melton  1984
  2. 1 'Modified for the Model 200 by           Gary Sullivan
  3. 2 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  4. 10 '
  5. 12 DEFINTA-Z:TRUE=NOTFALSE:CLS:PRINT@55,"Grid-Runner":PRINT@121,"One player or Two (1/2):"; 
  6. 14 A$=INPUT$(1):IFA$="1"THENPRINT:PRINT:PRINT" The GridBug will play A. You are B.":A=1:ONKEYGOSUB,,,,,,,226:KEYON:GOTO16 
  7. 15 IFA$<>"2"THENRUNELSEA=0:ONKEYGOSUB218,220,222,224,,,,226:KEYON 
  8. 16 GOSUB20'randomstart 
  9. 18 IFNOTDNTHENGOSUB38:GOTO18ELSECLS:IFCRTHENC1=C1+100-C/3ELSEC0=C0+100-C/3 
  10. 19 DN=FALSE:PRINT@57,"Scores":PRINT@241,"A:";C0;:PRINT@271,"B:";C1:A$=INPUT$(1):IFA$=CHR$(13)THEN16ELSE19 
  11. 20 'randomstart 
  12. 22 T$=TIME$ 
  13. 24 X=RND(1):IFT$=TIME$THEN24ELSET$=TIME$ 
  14. 25 X=RND(1):IFT$=TIME$THEN25ELSEIFRND(1)>.151THENCLS 
  15. 26 P=RND(1)*240:Q=RND(1)*64 
  16. 28 R=RND(1)*240:S=RND(1)*64 
  17. 30 PD=RND(1)*4:RD=RND(1)*4 
  18. 32 PSET(P,Q):PSET(R,S) 
  19. 34 PRESET(P,Q):FORI=0TO100:NEXTI:SOUND10,10:PSET(P,Q):FORI=0TO100:NEXTI:A$=INKEY$:IFA$=""THEN34ELSESOUND5000,20:C=0:RETURN 
  20. 36 PRINTCHR$(27)+"P";:PRINT@INT(X/6)+40*INT(Y/8),;:Z=SGN((2^(YMOD8))ANDPEEK((XMOD6)-20)):PRINTCHR$(27)+"Q";:RETURN'ppoint 
  21. 38 'turns 
  22. 39 C=C+1 
  23. 40 GOSUB48'B: 
  24. 42 IFDNTHENRETURN 
  25. 44 IFATHENGOSUB84ELSEGOSUB192'A: 
  26. 46 RETURN 
  27. 48 'B: 
  28. 50 K$=INKEY$ 
  29. 52 IFK$=CHR$(29)THENDP=3 
  30. 54 IFK$=CHR$(28)THENDP=1 
  31. 56 IFK$=CHR$(30)THENDP=0 
  32. 58 IFK$=CHR$(31)THENDP=2 
  33. 60 ONDP+1GOTO62,64,66,68 
  34. 62 Q=Q-1:GOTO70 
  35. 64 P=P+1:GOTO70 
  36. 66 Q=Q+1:GOTO70 
  37. 68 P=P-1:GOTO70 
  38. 70 IFP<0THENDN=TRUE:CR=0:GOTO80 
  39. 72 IFP>239THENDN=TRUE:CR=0:GOTO80 
  40. 74 IFQ<0THENDN=TRUE:CR=0:GOTO80 
  41. 76 IFQ>63THENDN=TRUE:CR=0:GOTO80 
  42. 78 X=P:Y=Q:GOSUB36:IFZ=0THENDN=TRUE:CR=0 
  43. 80 IFDNTHENSOUND10000,50ELSEPSET(P,Q) 
  44. 82 RETURN 
  45. 84 'A:-automatic 
  46. 85 IFRND(I)<.05THENDR=INT(RND(I)*4) 
  47. 86 ONDR+1GOTO88,90,92,94 
  48. 88 S=S-1:GOTO96 
  49. 90 R=R+1:GOTO96 
  50. 92 S=S+1:GOTO96 
  51. 94 R=R-1:GOTO96 
  52. 96 IFR<0THENGOSUB144:IFDNTHEN106ELSE84 
  53. 98 IFR>239THENGOSUB156:IFDNTHEN106ELSE84 
  54. 100 IFS<0THENGOSUB168:IFDNTHEN106ELSE84 
  55. 102 IFS>63THENGOSUB180:IFDNTHEN106ELSE84 
  56. 104 X=R:Y=S:GOSUB36:IFZ=0THENGOSUB110 
  57. 106 IFDNTHENSOUND6000,50:CR=1ELSEPSET(R,S) 
  58. 108 RETURN 
  59. 110 'collisionavoidance 
  60. 112 ONDR+1GOTO116,128,140,142 
  61. 114 DN=TRUE:RETURN 
  62. 116 S=S+1 
  63. 118 IFR=0THENDR=1:R=R+1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN 
  64. 120 IFR=239THENDR=3:R=R-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN 
  65. 122 X=R+1:Y=S:GOSUB36:IFZ=0THENDR=3:R=R-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN 
  66. 124 X=R-1:Y=S:GOSUB36:IFZ=0THENDR=1:R=R+1:RETURNELSEIFRND(1)>.5THENDR=1:R=R+1:RETURNELSEDR=3:R=R-1:RETURN 
  67. 126 RETURN 
  68. 128 R=R-1 
  69. 130 IFS=0THENDR=2:S=S+1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN 
  70. 132 IFS=63THENDR=0:S=S-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN 
  71. 134 X=R:Y=S+1:GOSUB36:IFZ=0THENDR=0:S=S-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN 
  72. 136 X=R:Y=S-1:GOSUB36:IFZ=0THENDR=2:S=S+1:RETURNELSEIFRND(1)>.5THENDR=2:S=S+1:RETURNELSEDR=0:S=S-1:RETURN 
  73. 138 RETURN 
  74. 140 S=S-1:GOTO118 
  75. 142 R=R+1:GOTO130 
  76. 144 'leftwall 
  77. 146 R=0:IFS=0THENDR=2:RETURN 
  78. 148 IFS=63THENDR=0:RETURN 
  79. 150 X=R:Y=S-1:GOSUB36:IFZ=0THENDR=2:RETURN 
  80. 152 X=R:Y=S+1:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=0ELSEDR=2 
  81. 154 RETURN 
  82. 156 'rightwall 
  83. 158 R=239:IFS=0THENDR=2:RETURN 
  84. 160 IFS=63THENDR=0:RETURN 
  85. 162 X=R:Y=S-1:GOSUB36:IFZ=0THENDR=2:RETURN 
  86. 164 X=R:Y=S+1:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=0ELSEDR=2 
  87. 166 RETURN 
  88. 168 'top 
  89. 170 S=0:IFR=0THENDR=1:RETURN 
  90. 172 IFR=239THENDR=3:RETURN 
  91. 174 X=R-1:Y=S:GOSUB36:IFZ=0THENDR=1:RETURN 
  92. 176 X=R+1:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=1ELSEDR=3 
  93. 178 RETURN 
  94. 180 'bottom 
  95. 182 S=63:IFR=0THENDR=1:RETURN 
  96. 184 IFR=239THENDR=3:RETURN 
  97. 186 X=R-1:Y=S:GOSUB36:IFZ=0THENDR=1:RETURN 
  98. 188 X=R+1:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=1ELSEDR=3 
  99. 190 RETURN 
  100. 192 'A:-manual 
  101. 194 ONDR+1GOTO196,198,200,202 
  102. 196 S=S-1:GOTO204 
  103. 198 R=R+1:GOTO204 
  104. 200 S=S+1:GOTO204 
  105. 202 R=R-1:GOTO204 
  106. 204 IFR<0THENDN=TRUE:CR=1:GOTO214 
  107. 206 IFR>239THENDN=TRUE:CR=1:GOTO214 
  108. 208 IFS<0THENDN=TRUE:CR=1:GOTO214 
  109. 210 IFS>63THENDN=TRUE:CR=1:GOTO214 
  110. 212 X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:CR=1 
  111. 214 IFDNTHENSOUND8000,50ELSEPSET(R,S) 
  112. 216 RETURN 
  113. 218 DR=3:RETURN 
  114. 220 DR=1:RETURN 
  115. 222 DR=0:RETURN 
  116. 224 DR=2:RETURN 
  117. 226 MENU 
  118.