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¢
