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
\n9996 STOP
\n9997 LET SS=0
\n9998 SAVE "LAND MIN%E"
\n9999 GOTO 1
