This Programs is from Silver Stone BBS _________________________________________________________________________ SilverSTone BBS - Casio Support BBS SysOp: Magnus Werner, M.Werner@abc.se Magnus.Werner@f345.n201.z2.fidonet.org Casio URL: http://www.abc.se/~m9935/casio.html Casio FTP: ftp://ftp.abc.se/pub/casio/ FidoNet : 2:201/345 Open 24 hours/day on 28k8 V34/VFC, Phone +46-(0)8-6417838. 951020 _________________________________________________________________________ Titel: Mines 1.5 Author: Magnus Werner Written by: Magnus Werner Description: Get to the other corner of the web and avoid mines. You will know how many mines you're contact with, but not exactly where they are, this is for you to figure out by moving around. But your mission is to get to the filled square as soon as possible, the faster the more points. You move with: \ | / 7 8 9 P = Current position -6 8- 1 2 3 / | \ _________________________________________________________________________ Command translation: -> Single arrow (located on the keyboard) => Double arrow (press: [shift] [prgm] [f1] [f1]) _ Display, -Disp- (press: [shift] [prgm] [f4]) <= Less or equal (A <= B) >= Greater or equal (A >= B) <> Not equal (A <> B) ^ Raised to the power of / Division or fraction (explain which with a comment) 2rt() Root (2rt(7) is the square root of 7) 4rt() 4th root pi pi (~3.14159265359, low case) e() e(1) (~2.7818281846 low case) E Exponent (5E4 gives 5*10^4) (located on the keyboard, [EXP]) _________________________________________________________________________ All commands which in ASCII-form are two or more characters are to be seperated from other commands with a space (i.e. -> , => , <> or pi). Refer to the command standard used in R20_CASIO and set by Magnus Werner on SilverSTone BBS (2:201/345@fidonet.org). Everything after a ; is a comment and should not be in the code. _________________________________________________________________________ Program M: 'MINE EXE' " ~~MINES~~ 1.5"_ Defm 31 Fix 2 30 -> Z:0 -> V:100 -> S Lbl 0 f5 -> A[Z] ; code for functionmemory 5 below Lbl 1 Int (Z-V)=30 => Goto 2 Isz V A[Z]=A[Z-V] => Goto 3 Goto 1 Lbl 2 Z=55 => Goto 4 Isz Z:0 -> V Goto 0 Lbl 3 0 -> V Goto 0 Lbl 4 Range 1,127,127,1,63,63 ; 7700 GB: Range 1,95,95,1,63,63 Cls 1 -> G~J ; [alpha][f3] Lbl 5 Plot G,H Plot G,H+59 Line G <= 125 => Goto 6 ; 7700 GB: G <= 93 => Goto 6 G+5 -> G Goto 5 Lbl 6 Plot I,J Plot I+124,J ; 7700 GB: Plot I+92,J Line J <= 60 => Goto 7 J+5 -> J Goto 6 Lbl 7 Plot 122,5 ; 7700 GB: Plot 92,5 Plot 125,5 ; 7700 GB: Plot 95,5 Line Plot 125,2 ; 7700 GB: Plot 95,2 Line Plot 122,2 ; 7700 GB: Plot 92,2 Line Plot 122,5 ; 7700 GB: Plot 92,5 Line Prog N _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Program N: 'MINE MOVE' 0 -> K:2 -> X:60 -> Y Lbl 0 Plot X,Y Plot X+3,Y Line K=3 => Goto 5 Dsz Y:Isz K:X-3 -> X Goto 0 Lbl 5 Prog O "DIRECTION"? -> M 0 -> P:0 -> K M=0 => Prog P M=1 => Goto 1 M=2 => Goto 2 M=3 => Goto 3 M=4 => Goto 4 M=6 => Goto 6 M=7 => Goto 7 M=8 => Goto 8 M=9 => Goto 9 Goto 5 Lbl 1 X=5 => Goto 5 Y=2 => Goto 5 X-8 -> X:Y-2 -> Y Goto 0 Lbl 2 Y=2 => Goto 5 Y-2 -> Y:X-3 -> X Goto 0 Lbl 3 X=122 => Goto 5 ; 7700 GB: X=95 => Goto 5 Y=2 => Goto 5 X+2 -> X:Y-2 -> Y Goto 0 Lbl 4 X=5 => Goto 5 X-8 -> X:Y+3 -> Y Goto 0 Lbl 6 X=122 => Goto 5 ; 7700 GB: X=95 => Goto 5 X+2 -> X:Y+3 -> Y Goto 0 Lbl 7 X=5 => Goto 5 Y=57 => Goto 5 X-8 -> X:Y+8 -> Y Goto 0 Lbl 8 Y=57 => Goto 5 Y+8 -> Y:X-3 -> X Goto 0 Lbl 9 X=122 => Goto 5 ; 7700 GB: X=95 => Goto 5 Y=57 => Goto 5 X+2 -> X:Y+8 -> Y Goto 0 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Program O: 'MINE CHECK' Int (X/5)+(Int (Y/5+1)/100) -> E E=25.01 => Goto 2 ; 7700 GB: E=19.01 => Goto 2 30 -> Z:0 -> F Lbl 0 A[Z]=E => Goto 1 A[Z]=(E+.01) => Isz F A[Z]=(E-.01) => Isz F A[Z]=(E+1) => Isz F A[Z]=(E-1) => Isz F A[Z]=(E+1.01) => Isz F A[Z]=(E+.99) => Isz F A[Z]=(E-1.01) => Isz F A[Z]=(E-.99) => Isz F Z=55 => Goto 4 Isz Z Goto 0 Lbl 1 0 -> S "DAMMIT!!!" 30 -> Z Lbl 8 Int A[Z]*5 -> A Frac A[Z]*500-3 -> B Plot A,B Plot A-3,B+3 Line Plot A,B+3 Plot A-3,B Line Z=55 => Goto 9 Isz Z Goto 8 Lbl 9_ ; -Disp- "FINAL SCORE:" S_ "GAME OVER..."_ Prog M Lbl 2 "YOU MADE IT!!!" "FINAL SCORE:" S_ Prog M Lbl 4 Dsz S "MINES IN CONTACT:" F_ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Program P: 'MINE POS' Int (X/5)+(Int (Y/5+1)/100) -> Q "YOUR POSITION:" Q_ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Functionmemory 5: Int (24Ran#+1)+((Int 11Ran#+1)/100) ; 7700 GB: Int (24Ran#+1)+1((Int 12Ran#+1/100) _________________________________________________________________________ If you need help or information concerning this file, please contact Magnus Werner at the addresses above, or the author if possible. _________________________________________________________________________