CLEAR RESET
DRIVE "c:"
IF FIND$("moreless.scr")="" THEN OPEN #5 OUTPUT "moreless.scr":CLOSE #5
SET POINTS 32
WINDOW OPEN:CLS
WINDOW FULL ON
a$="MORE OR LESS":s=0
FOR i=1 TO LEN(a$)
PRINT AT(15+(i*4);10);a${i};CHR$(7);
NEXT i
SET POINTS 10
PRINT AT(35;19);"Press any key"
WHILE INKEY$="":WEND
CLS
WINDOW TITLE a$
INPUT AT(25;5);"What is your name";n$
LABEL ml_start
CLS
PRINT AT(67;1);"Score";s
r1=RND(9)
r2=RND(9)
PRINT POINTS(32);AT(36;10);r1;"   ";r2
PRINT AT(35;19);"Press <, >, = or E"
LABEL loop
a$=INKEY$
IF a$="" THEN GOTO loop
IF a$<>"<" AND a$<>">" AND a$<>"=" AND UPPER$(a$)<>"E" THEN PRINT CHR$(7);:GOTO loop
IF r1<r2 THEN l$="<"
IF r1>r2 THEN l$=">"
IF r1=r2 THEN l$="="
IF a$=l$ THEN GOTO correct
IF UPPER$(a$)="E" THEN GOTO ml_stop
PRINT AT(35;19);"WRONG             "
PRINT AT(44;10);a$
PRINT CHR$(7);
FOR i=1 TO 4375:NEXT i
PRINT AT(44;10);l$
GOTO ml_start
LABEL correct
PRINT POINTS(32);AT(44;10);a$
PRINT AT(35;19);"WELL DONE         ";n$
s=s+1
FOR i=1 TO 4375:NEXT i
GOTO ml_start
LABEL ml_stop
CLS
OPEN #5 INPUT "moreless.scr"
WHILE NOT(EOF(#5))
INPUT #5,n$
INPUT #5,s
PRINT n$,s
WEND
CLOSE #5
PRINT "ARE YOU SURE (Y/N)"
LABEL stop_loop
a$=INKEY$
IF a$="" THEN GOTO stop_loop
IF UPPER$(a$)="Y" THEN GOTO save
IF UPPER$(a$)="N" THEN GOTO ml_start
GOTO ml_stop
LABEL save
CLS
PRINT AT(67;1);"Score";s
PRINT AT(35;19);"Do you want to save your score (Y/N)";s$
LABEL sv_loop
a$=INKEY$
IF a$="" THEN GOTO sv_loop
IF UPPER$(a$)="Y" THEN GOTO sv_sc
IF UPPER$(a$)="N" THEN CLEAR RESET:END
GOTO sv_loop
LABEL sv_sc
OPEN #5 APPEND "moreless.scr"
PRINT #5,n$
PRINT #5,s
CLOSE #5
CLEAR RESET:END