Thanks for the code, I've scrapped what I had and rebuilt using yours. I've made a few changes RND(0) becomes RND(1) for example. I've also reinstalled the timing using;
- Code: Select all
6220 FOR K=1 TO LEN(S$)
6230 WHILE C$<>MID$(S$,K,1)
6235 C$=INKEY$
6237 --- WORKING ON THIS LINE NOW FOR NICE TIMING ---
6238 WEND
6239 NEXT K
I also removed a couple of syntax errors "**" instead of "*", and rather than use RANDOMIZE I've changed the instructions part to read;
- Code: Select all
160 PRINT "DO YOU NEED INSTRUCTIONS (Y/N)?"
170 DIM C$[5]
180 WHILE C$<>"Y" AND C$<>"N"
190 C$=INKEY$
195 I=RND(1)
196 WEND
200 IF C$="N" THEN 690
So basically all I have left to do is work out the timings correctly for line 6237 and I'm done. I'd say I'll have this complete this weekend and will upload my version.
Once again thanks heaps for the nice/clean code dump.