10 PRINT CHR$(147)
20 Q=RND(-TI):Z=1
30 S=10*RND(1)
40 N=INT(S*Z)
50 PRINT"REMEMBER---->";N
60 IF W=3 THEN PRINT"FORGET IT FROGFACE!":GOTO 140
70 FOR T=1 TO 1000:NEXT T
80 PRINT CHR$(147)
90 INPUT"WHAT WAS IT";S
100 IF S<>N THEN PRINT"***YOU ARE WRONG***":W=W+1:GOTO 60
110 PRINT"***YOU ARE RIGHT***":R=R+1:Z=Z*10
120 PRINT R;"RIGHT SO FAR"
130 PRINT:GOTO 30
140 PRINT:PRINT"YOU HAD";R;"RIGHT"
150 PRINT"FOR YOUR ENJOYMENT, I BRING YOU A "
151 PRINT"PROGRAM TO TEST YOUR MEMORY. ALL YOU"
152 PRINT"HAVE TO DO IS REMEMBER THE NUMBER "
153 PRINT"PRINTED ON THE SCREEN AND RETYPE IT."
154 PRINT"ENJOY AND LEAVE LOTS OF MESSAGES ON"
155 PRINT"CHARLIE."
156 PRINT:PRINT
157 PRINT"AND PLEASE LEAVE LOTS OF MESSAGES FOR"
158 PRINT"ZANE RYBKOWSKI. THE GUY THAT BROUGHT"
159 PRINT"YOU THIS PROGRAM."
160 PRINT"PRESS ANY KEY"
170 GET K$
180 IF K$=""THEN 170
190 CLR:GOTO 10
200 PRINT"FOR YOUR ENJOYMENT, I BRING YOU A "
210 PRINT"PROGRAM TO TEST YOUR MEMORY. ALL YOU"
220 PRINT"HAVE TO DO IS REMEMBER THE NUMBER "
230 PRINT"PRINTED ON THE SCREEN AND RETYPE IT."
240 PRINT"ENJOY AND LEAVE LOTS OF MESSAGES ON"
250 PRINT"CHARLIE."
260 PRINT:PRINT:
270 PRINT"AND PLEASE LEAVE LOTS OF MESSAGES FOR"
280 PRINT"ZANE RYBKOWSKI. THE GUY THAT BROUGHT"
290 PRINT"YOU THIS PROGRAM."
300 GOTO 10