Feel Free to be a Co-Author If you want to help me with making the Title come in Backwards and spin Around for the word "PRIZM"
I'll post all the code I have so far, so you can see the progress!
Code:
6->J
ClrText
Locate 1,4,"--------------------"
Locate 3,1,"O"
Locate 2,2,"-I-*"
Locate 2,3,"I I"
For 1 ->A to 7
Locate 5,2,"+"
Locate 5,2,"*"
Locate 5,2," "
Next
Locate 2,2," "
Locate 4,4,"="
Locate 5,2," "
for 1 ->A to 12
Locate J-1,2," "
Locate J,2,"*"
Locate J,2,"+"
" Mortal"->Str 1
For 0->I To 6
Locate I+10,2,StrMid(Str 1,I+1,I)
Next
Locate 17,2," "
Locate 18,5,"O"
Locate 16,6,"*-I-"
Locate 17,7,"I I"
15 ->J
For 1 ->A to 7
Locate 16,6,"+"
Locate 16,6,"*"
Locate 16,6," "
Next
Locate 20,6," "
Locate 17,6,"="
Locate 16,6," "
For 1 ->A to 12
Locate J+1,6," "
Locate J,6,"*"
Locate J,6,"+"
" Kombat"->Str 2
For 0->I To 5
Locate I+5,6,StrMid(Str 2,I+1,1)
Next
For 1 ->A to 10
Locate 8,1," "
Locate 8,1," "
Next
ClrText
Lbl Y
Locate 7,3,"MK 9850"
Locate 5,5,"PRESS [EXE]"_ (Where _ is the triangle or disp command
ClrText
100 ->T
1 ->Z
7 ->B
5 ->M
4 ->N
7 ->O
7 ->F
For 1 ->A to 7
Locate 8,4,"READY!"
Locate 8,4,"READY!"
Locate 8,4," " (6 spcs.
Next
Locate 2,1,"xxxxxxx"
Locate 14,1,"xxxxxxx"
Locate 10,1,T
Locate 1,7,"-------------------" (21 -'s
While Z=1
Locate 10,1," " (3 spcs
Locate 10,1,T
7 ->B
Locate M,4,"O"
Locate N,5,"-I-+"
Locate N,6,"I I"
Locate O,5,"*"
Locate O,5,"+"
Locate O,5,"*"
Locate O,5,"+"
Locate O,5,"*"
Locate O,5,"+"
If Getkey=26
Then O+2 ->F
Locate N,5," "
For 1 ->A to 12
Locate F,5,"*"
Locate F,5,"+"
Locate F,5,"*"
F+1 ->F
Locate F-1,5," "
F=21 =>20 ->F
Next
IfEnd
If Getkey=27
Then M=19 =>M-1 ->M
O=21 =>21 ->O
N=17 =>17 ->N
Locate N,4," " (3 spcs
Locate N,5," " (4 spcs
Locate N,6," "
just copy and paste it, then delete the comments to make it work!