0 Members and 5 Guests are viewing this topic.
"welcome to the world of computers, where everything seems to be based on random number generators"
There are other ways to create a matrix other than [[0][0]] -> Mat A, however, I have not programmed casio for 2 years and have forgotten. Something like Dim Mat A, or setting the number of rows and columns
[[5][5]]->Mat A[[1,2,3,1,2][2,3,1,2,1][3,1,2,1,2][1,2,1,2,3][2,1,2,3,1]]->Mat AFor 1->A To 5For 1->B To 5Mat A[A,B] = 1 => Locate B,A, "O"Mat A[A,B] = 2 => Locate B,A, "M"Mat A[A,B] = 3 => Locate B,A, "N"NextNext
For 1->A To 10Red Locate 1,1,"HELLO WORLD!"Red Locate 1,2,"THIS IS A TEST"Red Locate 1,3,"PROGRAM!"Red Locate 1,4,"BUT IT TAKES"Red Locate 1,5,"WAY TOO MUCH"Red Locate 1,6,"BLEEPING SPACE"Red Locate 1,7,"OPTIMIZE PLZ!"Magenta Locate 1,1,"HELLO WORLD!"Magenta Locate 1,2,"THIS IS A TEST"Magenta Locate 1,3,"PROGRAM!"Magenta Locate 1,4,"BUT IT TAKES"Magenta Locate 1,5,"WAY TOO MUCH"Magenta Locate 1,6,"BLEEPING SPACE"Magenta Locate 1,7,"OPTIMIZE PLZ!"Blue Locate 1,1,"HELLO WORLD!"Blue Locate 1,2,"THIS IS A TEST"Blue Locate 1,3,"PROGRAM!"Blue Locate 1,4,"BUT IT TAKES"Blue Locate 1,5,"WAY TOO MUCH"Blue Locate 1,6,"BLEEPING SPACE"Blue Locate 1,7,"OPTIMIZE PLZ!"Cyan Locate 1,1,"HELLO WORLD!"Cyan Locate 1,2,"THIS IS A TEST"Cyan Locate 1,3,"PROGRAM!"Cyan Locate 1,4,"BUT IT TAKES"Cyan Locate 1,5,"WAY TOO MUCH"Cyan Locate 1,6,"BLEEPING SPACE"Cyan Locate 1,7,"OPTIMIZE PLZ!"Green Locate 1,1,"HELLO WORLD!"Green Locate 1,2,"THIS IS A TEST"Green Locate 1,3,"PROGRAM!"Green Locate 1,4,"BUT IT TAKES"Green Locate 1,5,"WAY TOO MUCH"Green Locate 1,6,"BLEEPING SPACE"Green Locate 1,7,"OPTIMIZE PLZ!"Yellow Locate 1,1,"HELLO WORLD!"Yellow Locate 1,2,"THIS IS A TEST"Yellow Locate 1,3,"PROGRAM!"Yellow Locate 1,4,"BUT IT TAKES"Yellow Locate 1,5,"WAY TOO MUCH"Yellow Locate 1,6,"BLEEPING SPACE"Yellow Locate 1,7,"OPTIMIZE PLZ!"Next
For 1->A To 10For 1->B To 6If B=1Then<code to set color to Red>EndIfIf B=2Then<code to set color to Magenta>EndIfIf B=3Then<code to set color to Blue>EndIfIf B=4Then<code to set color to Cyan>EndIfIf B=5Then<code to set color to Green>EndIfIf B=6Then<code to set color to Yellow>EndIf<color set> Locate 1,1,"HELLO WORLD!"<color set> Locate 1,2,"THIS IS A TEST"<color set> Locate 1,3,"PROGRAM!"<color set> Locate 1,4,"BUT IT TAKES"<color set> Locate 1,5,"WAY TOO MUCH"<color set> Locate 1,6,"BLEEPING SPACE"<color set> Locate 1,7,"OPTIMIZE PLZ!"NextNext
"HELLO WORLD!_________THIS IS A TEST_______PROGRAM!_____________BUT IT TAKES_________WAY TOO MUCH_________BLEEPING SPACE.______OPTIMIZE PLZ!________"->Str 1ClrText:0->IDo:I+1->I:I>7=>1->IFor 1->J To 7I=1=>Black Locate 1,J,Str 1I=2=>Blue Locate 1,J,Str 1I=3=>Red Locate 1,J,Str 1I=4=>Magenta Locate 1,J,Str 1I=5=>Green Locate 1,J,Str 1I=6=>Cyan Locate 1,J,Str 1I=7=>Yellow Locate 1,J,Str 1StrRotate(Str 1,21)->Str 1NextLpWhile Getkey=/=47ClrText:" "