forum.defence-force.org

It's a guess word game in Basic
Run it.
Enter word(s)
Maximum 10 words.
Maximum 12 characters per a word.
Press Enter.
Then give it to (another) player or players to guess the words.
Program listing below:
________________________________________________


0 CLS:PAPER0:INK7:LORES0:GRAB
1 PRINT@0,0;CHR$(148);"Iskrina Vesala V1.1 C 01.06.2015"
2 PRINT@3,4;CHR$(148);" "
3 PRINT@0,1;"Max.10 reci, max.12 slova po svakoj reci
4 DIM VR$(50):W=1
5 INPUTA$
6 IFA$="EXIT"THEN CLOAD"MENU.TAP"
7 FORA=1TOLEN(A$):AA$=MID$(A$,A,1):IFAA$=" " ORAA$=""THENW=W+1
8 IFNOTAA$=" "THENVR$(W)=VR$(W)+AA$
9 NEXTA
10 IFW>10THENRUN
11 FORA=1TOW:IFLEN(VR$(A))>12THENRUN
12 NEXTA
13 FORS=1TOW
14 FORA=1TOLEN(VR$(S))
15 GOSUB100
16 'PRINT@(A*3)-1,WW;CHR$(148);MID$(VR$(S),A,1);CHR$(144)
17 PRINT@(A*3)-1,WW;CHR$(148);" ";CHR$(144)
18 NEXTA
19 NEXTS
20 PRINT@0,1;CHR$(14):PRINTCHR$(14):PRINTCHR$(14)
21 PRINT@0,2;" "
22 PRINT@2,24;CHR$(145);" ":F=0
23 PRINT@2,2;"Pritisni zeljeno slovo? (ESC=Exit)"
24 GETA$:IFA$=""THEN24
25 IFASC(A$)=27THENCLOAD"MENU.TAP"
26 FORS=1TOW
27 FORA=1TOLEN(VR$(S))
28 GOSUB100
29 IFMID$(VR$(S),A,1)=A$ THENPRINT@(A*3)-1,WW;CHR$(148);A$;CHR$(144):F=1
30 NEXT A
31 NEXT S:IFFF=37THENFF=0
32 IFF=0 THENFF=FF+1:PRINT@2+FF,24;A$:F=0:GOTO24
33 F=0:GOTO24
98 PRINT@2,20;" "
99 STOP:REM---------SUBRUTINA ZA WW
100 IFS=1THENWW=4
101 IFS=2THENWW=6
102 IFS=3THENWW=8
103 IFS=4THENWW=10
104 IFS=5THENWW=12
105 IFS=6THENWW=14
106 IFS=7THENWW=16
107 IFS=8THENWW=18
108 IFS=9THENWW=20
109 IFS=10THENWW=22
110 RETURN
63998 STOP
63999 CSAVE"VESALA.TAP",AUTO:WAIT99:CLOAD"VESALA.TAP",V

Zdravo, Brana and welcome back.
Nice game and good implementation in Basic.
IMHO it's worth to add limit for entered letters and suitable messages when player wins or loses the game.

Thank You
Well, it was developed "on the fly" - just to play "one-time-only" with a certain girl (in between her school classes), and it WAS developed OK, hoverer she... wasn't interested in it...

Regarding to lines 100 - 109 ;

WW = S*2+2

Might be simpler

> she... wasn't interested in it..

Doesn't matter, you got more fans in us anyway!

Well, this is how it looked like preliminary - on the paper - when I was figuring out the screen coordinates for every letter on the screen...
Yea, I figured out the horizontal axes quite simply..
I messed up the vertical coordinates, so I just simplified with "IF" statements - not to loose time with it...
Again - it WAS developed "on the fly"..
Well.. never mind now ..

...and it works great on a mobile phone too
P.S. Notice the keyboard?
Yes, it has ESC, Ctrl, arrows (and even an F10 key)
Just love it.
(It runs Euphoric emulating Atmos for up to 2,5Mhz of Atmos-CPU)
I'm used to higher speeds, like 12Mhz emulated Atmos CPU but, on a mobile phone...
FINALLY!!!
Absolutely not bad!