Guess Word Game For Euphoric
Posted: Wed Jun 03, 2015 10:32 pm
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
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