HARAVAPLUS- a minesweeper game for TI-80 Instructions: Move cursor and select square. Number of white dots coming to square indicate amount of mines in surrounding squares. PROGRAM:HARAVA :CLRHOME :DISP "HARAVAPLUS!","(C) COPYRIGHT","1996 JARKKO","VAARANIEMI.","ALL RIGHTS","RESERVED." :PAUSE :DISP "CONTINUE PREV.","GAME?" :INPUT "(1/0)",X :IF X=1:Then :CLRHOME :GOTO A :End :CLRDRAW :INPUT "MINES:",R :1->XMIN :1->YMIN :1->\delta X\ :1->\delta Y\ :0->XSCL :0->YSCL :FNOFF :CLRDRAW:DISPGRAPH :FOR(X,0,10) :VERTICAL X6+2 :HORIZONTAL X6+5 :END :FOR(X,0,5) :HORIZONTAL X :END :VERTICAL 1 :VERTICAL 63 :0->DIM L6 :70->DIM L6 :R->N :LBL \@\ :RANDINT(0,9)->A :RANDINT(0,6)->B :L6(A+10B+1)->\@\ :IF \@\=0:THEN:1->L6(A+10B+1) :N-1->N:END :IF N>0:GOTO \@\ :70-R->\@\ :LBL A :INPUT :INT ((X-3)/6)->X :INT ((Y-6)/6)->Y :0->E :IF X>9:GOTO A :IF X<0:GOTO A :IF Y>6:GOTO A :IF Y<0:GOTO A :IF L6(X+10Y+1)=2:GOTO A :IF L6(X+10Y+1)=0:THEN :0->W :FOR(T,X-1,X+1) :FOR(U,Y-1,Y+1) :0->E :IF T>9:GOTO Z :IF U>6:GOTO Z :IF T<0:GOTO Z :IF U<0:GOTO Z :(L6(T+U10+1)=1)+W->W :LBL Z :END :END :ELSE :FOR(X,0,9) :FOR(Y,0,6) :IF L6(X+10Y+1)=1:THEN :PT-ON(6X+3,6Y+9) :PT-ON(6X+3,6Y+7) :PT-ON(6X+7,6Y+9) :PT-ON(6X+7,6Y+7) :PT-ON(6X+6,6Y+10) :PT-ON(6X+6,6Y+6) :PT-ON(6X+4,6Y+6) :PT-ON(6X+4,6Y+10) :END:END:END :DISP "YOU DIED.":STOP :END :W->N :LBL Y :FOR(P,1,5) :LINE(6X+2+P,6Y+6,6X+2+P,6Y+10) :END :IF N>0:PT-OFF(6X+3,6Y+10) :IF N>1:PT-OFF(6X+5,6Y+10) :IF N>2:PT-OFF(6X+7,6Y+10) :IF N>3:PT-OFF(6X+7,6Y+8) :IF N>4:PT-OFF(6X+7,6Y+6) :IF N>5:PT-OFF(6X+5,6Y+6) :IF N>6:PT-OFF(6X+3,6Y+6) :IF N>7:PT-OFF(6X+3,6Y+8) :IF \@\=1:THEN :DISP "YOU WON!":STOP:END :\@\-1->\@\:2->L6(X+10Y+1) :GOTO A S-Mail: Jarkko Vääräniemi Kaitoväylä 14B12 FIN-90570 Oulu Finland E-Mail: jvaarani@ee.oulu.fi