30 lines
1.2 KiB
QBasic
30 lines
1.2 KiB
QBasic
10 PRINT CHR$(147):PRINT " WORD SCRAMBLE":PRINT
|
|
20 PRINT "UNSCRAMBLE FIVE C64 WORDS.":PRINT "TYPE Q TO QUIT.":PRINT
|
|
30 PRINT "PRESS ANY KEY"
|
|
40 GET A$:IF A$="" THEN 40
|
|
50 R=RND(-TI):DIM W$(12),H$(12),U(12),P(20)
|
|
60 FOR I=1 TO 12:READ W$(I),H$(I):NEXT:S=0
|
|
70 FOR T=1 TO 5
|
|
80 N=INT(RND(1)*12)+1
|
|
85 IF U(N) THEN 80
|
|
90 U(N)=1:L=LEN(W$(N)):FOR I=1 TO L:P(I)=I:NEXT
|
|
100 FOR I=1 TO L:J=INT(RND(1)*L)+1:X=P(I):P(I)=P(J):P(J)=X:NEXT
|
|
110 A$="":FOR I=1 TO L:A$=A$+MID$(W$(N),P(I),1):NEXT
|
|
120 IF A$=W$(N) THEN 100
|
|
130 PRINT CHR$(147):PRINT "WORD";T;"OF 5":PRINT:PRINT " ";A$:PRINT
|
|
140 PRINT "HINT: ";H$(N):PRINT:INPUT "YOUR ANSWER";G$
|
|
150 IF G$="Q" THEN 230
|
|
160 IF G$=W$(N) THEN PRINT "CORRECT!":S=S+1:GOTO 190
|
|
170 PRINT "THE WORD WAS ";W$(N)
|
|
190 FOR D=1 TO 700:NEXT:NEXT
|
|
200 PRINT CHR$(147):PRINT "FINAL SCORE";S;"OUT OF 5":PRINT
|
|
210 PRINT "R=PLAY AGAIN Q=QUIT"
|
|
230 GET A$:IF A$="R" THEN RUN
|
|
240 IF A$<>"Q" THEN 230
|
|
250 PRINT CHR$(147):END
|
|
300 DATA COMMODORE,THE COMPANY,JOYSTICK,GAME CONTROLLER
|
|
310 DATA SPRITE,MOVING GRAPHIC,CASSETTE,TAPE STORAGE
|
|
320 DATA FLOPPY,DISK TYPE,KEYBOARD,TYPING DEVICE
|
|
330 DATA MONITOR,VIDEO DISPLAY,PROGRAM,LIST OF COMMANDS
|
|
340 DATA MEMORY,COMPUTER STORAGE,CURSOR,SCREEN MARKER
|
|
350 DATA MODEM,PHONE CONNECTION,PIXEL,TINY PICTURE DOT
|