Land-Mine

Source Code

   0  % % % %L%A%N%D% %M%I%N%E% % %                  % % %W%R%I%T%T%E%N% % %B%Y% %                  % % % %G%E%N%E% %B%U%Z%A% % % 
   1 FAST 
   2 LET J=0
   3 LET M=1
   4 LET S=0
   5 DIM A(200)
  12 PRINT AT 15,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: ";AT 16,31;"\ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  14 GOSUB 100
  15 FOR I=1 TO 200
  16 RAND 
  17 LET A(I)=(INT (RND*20)+1)-10
  18 NEXT I
  19 PRINT AT 0,0;"% %L%A%N%D% %M%I%N%E% "
  20 FOR I=1 TO 9
  23 LET A(INT (RND*100)+1)=0
  24 NEXT I
  31 PRINT AT 16,1;"                             "
  35 SLOW 
  40 GOSUB 200
  50 GOTO 141
 100 PRINT AT 2,4;"% %0%1%2%3%4%5%6%7%8%9%0%1%2%3%4%5%6%7%8%9%0"
 110 FOR I=3 TO 12
 120 PRINT AT I,4;CHR$ (163+I);"%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%."
 130 NEXT I
 140 SLOW 
 150 RETURN 
 200 PRINT AT 16,1;"                             "
 202 GOSUB 800
 203 PRINT AT 16,2;"YOUR SCORE IS: ";S
 205 GOSUB 300
 210 PRINT AT 18,0;"WHAT IS YOUR MOVE? (1-9)"
 220 LET R$=INKEY$
 225 IF R$="" THEN GOTO 220
 230 IF R$<"1" OR R$>"9" THEN GOTO 220
 240 LET M=M+1
 250 LET R=VAL R$
 255 LET J=J+R
 260 IF J>=200 THEN GOTO 583
 261 LET S=S+A(J)
 262 PRINT AT 8,1;"   "
 263 PRINT AT 8,1;(A(J))
 265 IF A(J)=44 THEN GOTO 500
 266 IF A(J)=0 THEN GOSUB 510
 280 GOTO 200
 300 GOSUB 100
 320 LET K=INT (J/20)
 325 LET L=J-(K*20)+1
 330 PRINT AT K+3,L+4;"%*"
 333 RETURN 
 500 GOTO 560
 519 LET J=0
 520 FOR I=1 TO 20
 525 PRINT AT 21,0;"                                "
 530 PRINT AT 21,0;"% %B%O%O%B%Y% %T%R%A%P% %-% %S%T%A%R%T% %A%G%A%I%N% "
 535 NEXT I
 537 PRINT AT 21,0;"                          "
 540 RETURN 
 560 FOR I=1 TO 25
 570 PRINT AT 20,0;"% % % % % % % % % % % % % %B%O%M%B% % % % % % % % % % % % % % % ";AT 20,0;"                                "
 575 PRINT AT 21,0;"% % % % % % % % % % % % % %B%O%M%B% % % % % % % % % % % % % % % ";AT 21,0;"                                "
 580 NEXT I
 582 IF J<200 THEN GOTO 700
 590 LET SM=S/M
 600 IF SM>SS THEN LET SS=S/M
 650 IF SM=SS THEN PRINT AT 2,0;"%C%O%N%G%R%A%D%U%L%A%T%I%O%N%S%,% %Y%O%U% %I%T% %N%O%W% %H%A%V%E%H%I%G%H% %S%C%O%R%E%."
 700 PRINT AT 19,0;"%++%++ YOUR AVERAGE PER POINT     SCORE IS: ";SM
 760 PRINT AT 21,0;"PRESS ENTER FOR NEW GAME :::"
 770 PAUSE 40000
 780 CLS 
 790 GOTO 1
 800 PRINT AT 3,30;"%M"
 801 PRINT AT 4,30;"%O"
 802 PRINT AT 5,30;"%V"
 803 PRINT AT 6,30;"%E"
 804 PRINT AT 8,30;"%N"
 805 PRINT AT 9,30;"%O"
 806 IF M>99 THEN PRINT AT 11,29;M
 807 IF M<99 THEN PRINT AT 11,30;M
 810 RETURN 
9996 STOP 
9997 LET SS=0
9998 SAVE "LAND MIN%E"
9999 GOTO 1