5 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
10 IFPEEK(49152)<>32 THEN LOAD"INPUT.ML",8,1
20 POKE53280,0:POKE53281,0:PRINT"[147]HELLO!"
30 PRINT"WHAT IS YOUR NAME ? [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
40 SYS49152,2,20,1,20,1,NM$
50 PRINT:PRINT"HELLO, "NM$
60 PRINT"DO YOU LIKE THIS INPUT (Y/N) Y"
70 SYS49152,10,29,1,1,0,A$
80 IFA$<>"Y"ANDA$<>"N"THEN70
100 PRINT"[147]MULTIPLE CHOICE EXAMPLE:":PRINT
110 FORI=1TO9:PRINT"QUESTION #"STR$(I)". ANSWER (Y/N):":NEXT
120 SYS49152,2,28,9,1,0,RP$
130 FL=0:FORI=1TOLEN(RP$):IFMID$(RP$,I,1)<>"Y"ANDMID$(RP$,I,1)<>"N"THENFL=1
140 NEXTI:IFFLTHEN120
150 PRINT:PRINT:PRINT"ANSWER STRING:"RP$