10 REM TINYLIST›25 REM C. ITOH MODIFICATION BY FLOYD ETHERTON›351 DIM ANS$(5)›380 GOSUB 510›390 FOR ME=1 TO PS:READ IT:SOUND 0,100-IT,10,8:B$(ME,ME)=CHR$(IT):NEXT ME›500 REM PRINTER SECTION›510 ? :? :? "Select one of the following printers"›512 ? "1. Epson/Gemini/Star"›514 ? "2. C. Itoh/Prowriter"›520 INPUT ANS$:IF  NOT (ANS$="1" OR ANS$="2") THEN 510›525 A=VAL(ANS$)›530 ON A GOTO 540,550›540 PS=7:RESTORE 600:RETURN ›550 PS=2:RESTORE 610:RETURN ›600 DATA 27,65,5,15,27,83,0›610 DATA 27,81›