LOCATE 5, 30PRINT "INTRODUCTION"PLAY "10aaa4gg1bb10e2g1a"LOCATE 8, 4PRINT " This is a program to learn, for very young children, and adults too"PRINT " Eso es una programa, para ni¤os, y tambien adultos"PRINT " Es deficil, porque no estoy seguro, por donde empieza"PRINT " This is hard because I am not sure where to start."PRINT " It has become obvious, if the person or child dose not know how to read,"PRINT " I either need to use some voice instruction, or they need some, guidance."PRINT "Neccistas un guia, o voz, por algunos los quein,no sabes nada de leer"INPUT ; "press enter to continue,prende intro para continuar ", dummy$_DELAY 3SCREEN 12WIDTH 40COLOR 15: LOCATE 10, 12: PRINT SPACE$(20)COLOR 14: LOCATE 10, 12: INPUT "Name: ", name$PRINT "hello,hola "; name$INPUT ; "press enter to continue,prende intro para continuar ", dummy$CLSCOLOR 5: LOCATE 12, 18WIDTH 40PRINT "A"'_playsnd later, "this is AINPUT "Letter: ", letter$'-------------------------------'IF Not A , try again'----------------------------------' ELSEPRINT " Bien,te escribe ,Good You wrote "; letter$_DELAY 1INPUT ; "press enter to continue,prende intro para continuar ", dummy$PRINT "Good,you typed,"; letter$INPUT ; "press enter to continue,prende intro paracontinuar ", dummy$PRINT "Sorry , thats all for now"
PRINT "A"INPUT "Letter: ", letter$'-------------------------------IF letter$ <> "A" then 'redo (redirect) this input or fall through to the next statement below the end if.End IforWhile letter$ <> "A" INPUT "Letter: ", letter$WEND
SCREEN 12LOCATE 5, 30PRINT "INTRODUCTION"LOCATE 8, 4PRINT " This is a program to learn, for very young children, and adults too"PRINT " Eso es una programa, para ni¤os, y tambien adultos"PRINT " Es deficil, porque no estoy seguro, por donde empieza"PRINT " This is hard because I am not sure where to start."PRINT " It has become obvious, if the person or child dose not know how to read,"PRINT " I either need to use some voice instruction, or they need some, guidance."PRINT "Neccistas un guia, o voz, por algunos los quein,no sabes nada de leer"PRINTPRINT "press enter to continue,prende intro para continuar "dummy$ = INPUT$(1)CLSDO PRINT "Press the LETTER please" z = INT(RND * 26) + 66 PRINT CHR$(z) WHILE Letter$ <> CHR$(z) INPUT "Letter: ", Letter$ Letter$ = UCASE$(Letter$) WEND PRINT " Bien,te escribe ,Good You wrote "; Letter$ _DELAY 1 CLSLOOP UNTIL _KEYDOWN(27)PRINT "Sorry , thats all for now"SLEEPSYSTEM
SCREEN 12LOCATE 5, 30PRINT "INTRODUCTION"LOCATE 8, 4PRINT " This is a program to learn, for very young children, and adults too"PRINT " Eso es una programa, para ni¤os, y tambien adultos"PRINT " Es deficil, porque no estoy seguro, por donde empieza"PRINT " This is hard because I am not sure where to start."PRINT " It has become obvious, if the person or child dose not know how to read,"PRINT " I either need to use some voice instruction, or they need some, guidance."PRINT "Neccistas un guia, o voz, por algunos los quein,no sabes nada de leer"PRINTPRINT "press enter to continue,prende intro para continuar "dummy$ = INPUT$(1)RANDOMIZE TIMERCLSDO PRINT "Press the LETTER please" z = INT(RND * 26) + 65 Dir = INT(RND * 2) + 1 RRow% = 1: CCol% = 40: DDelay! = 1 DO LOCATE RRow%, CCol% PRINT CHR$(z) Letter$ = INKEY$ IF UCASE$(Letter$) = CHR$(z) THEN EXIT DO RRow% = RRow% + 1: IF Dir = 1 THEN CCol% = CCol% + 1 ELSE CCol% = CCol% - 1 _DELAY DDelay! DDelay! = DDelay! - .03 '<-- greater than .03 leads to error LOOP WHILE RRow% < 29 PRINT " Bien,te escribe ,Good You wrote "; Letter$ _DELAY 1 CLSLOOP UNTIL _KEYDOWN(27)PRINT "Sorry , thats all for now"SLEEPSYSTEM
DO PRINT "Press the LETTER please" z = INT(RND * 26) + 66 PRINT CHR$(z) WHILE Letter$ <> CHR$(z) INPUT "Letter: ", Letter$ '//// somewhere in here, I want it to print "sorry, that is not the correct letter, try again " if the letter is not correct Letter$ = UCASE$(Letter$) WEND PRINT " Bien,te escribe ,Good You wrote "; Letter$ _DELAY 1 CLSLOOP UNTIL _KEYDOWN(27)PRINT "Sorry , thats all for now"SLEEPSYSTEM
WHILE Letter$ <> CHR$(z) INPUT "Letter: ", Letter$ '//// somewhere in here, I want it to print "sorry, that is not the correct letter, try again " if the letter is not correct Letter$ = UCASE$(Letter$) If ucase$(Letter$) <> chr$(z) then Print "You selected ";Letter$;" which is wrong.Please enter ";chr$(z) end if WEND
REMDEFINT A-ZSCREEN 12'create and fill our alphabet arrayOPTION BASE 1 'set all arrays to start a element 1 and not as zeroDIM Alphabet%(26) 'our container for the letterscount% = 1FOR a% = 65 TO 90 Alphabet%(count%) = a% 'assign the value of a into the correct element of the array PRINT CHR$(a%), Alphabet%(count%) count% = count% + 1 'count upward 1 to 26 to represent the correct element of the array to be usedNEXT a%_DELAY 1PRINT'shuffle our alphabet array so the order is differentFOR a = 1 TO 26 elementotswap = INT(RND * 26) + 1 'create randomly 1 to 26 SWAP Alphabet%(a), Alphabet%(elementotswap) 'swap current with random PRINT CHR$(a + 64), Alphabet%(a), CHR$(Alphabet%(a)) ' show proofNEXT aSLEEPSYSTEM