_________________________________________________________________________ Title: 5X5-BOARD Author: Mats Forson Written by: Mats Forson Description: Draws a 5 by 5 grid and allows placement of markers. Can be used for 3,4 and 5 in a row Remarks: Version 1.0 for fx7700-GE. I first tried to include testing so you couldn+t place a marker on another. But then the game took over 1500 bytes of memory, i tried it another way but then it needs 26 program slots! Size: 895 Bytes _________________________________________________________________________ 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) Everything after a ; is a comment and should not be in the code. _________________________________________________________________________ Program: '5x5 BOARD' Range 1,95,0,1,63,0 Plot 1,60 Plot 60,60 Line Plot 60,1 Line Plot 1,1 Line Plot 1,60 Line ;Draws the edge 12->A Lbl 1 Plot A,1 Plot A,60 Line Plot 1,A Plot 60,A Line A>=60=>Goto 2 ;Greater or equal A+12->A Goto 1 Lbl 2 Line_ ;Disp! 0->A~Z 1->B Lbl 3 B=1=>" PLAYER 1" B=2=>" PLAYER 2" "CHOOSE AREA:" "(01-02-03-04-05)" "(06-07-08-09-10)" "(11-12-13-14-15)" "(16-17-18-19-20)" "(21-22-23-24-25)" ?->A A=1=>1->S ;Sets where to place the marker A=1=>5->T A=2=>2->S A=2=>5->T A=3=>3->S A=3=>5->T A=4=>4->S A=4=>5->T A=5=>5->S A=5=>5->T A=6=>1->S A=6=>4->T A=7=>2->S A=7=>4->T A=8=>3->S A=8=>4->T A=9=>4->S A=9=>4->T A=10=>5->S A=10=>4->T A=11=>1->S A=11=>3->T A=12=>2->S A=12=>3->T A=13=>3->S A=13=>3->T A=14=>4->S A=14=>3->T A=15=>5->S A=15=>3->T A=16=>1->S A=16=>2->T A=17=>2->S A=17=>2->T A=18=>3->S A=18=>2->T A=19=>4->S A=19=>2->T A=20=>5->S A=20=>2->T A=21=>1->S A=21=>1->T A=22=>2->S A=22=>1->T A=23=>3->S A=23=>1->T A=24=>4->S A=24=>1->T A=25=>5->S A=25=>1->T A<1=>Goto 3 A>25=>Goto 3 B=2=>Goto 6 Plot S*12,T*12 ;Draws the X Plot S*12-11,T*12-11 Line Plot S*12,T*12-11 Plot S*12-11,T*12 Line_ ;Disp! 2->B Goto 3 Lbl 6 Plot S*12-8,T*12-8 ;Draws the O Plot S*12-8,T*12-2 Line Plot S*12-2,T*12-2 Line Plot S*12-2,T*12-8 Line Plot S*12-8,T*12-8 Line_ ;Disp! 1->B Goto 3 ______________________________________________________________________ If you need help or information concerning this file, please contact Mats Forson at one of the following adresses. E-Mail : 5tsforsm@mail.ava.taby.se WWW : http://www.ava.taby.se/elev/5tsforsm/homepage/home.htm _________________________________________________________________________