8-Bit Software Online Conversion
:0.$.TUTGEN - Listing
10REM " Typing Tutor lesson generator
20MODE7:INPUT"LESSON NUMBER:";LESSN$
30LESSN$="LESSN"+LESSN$
40X=OPENOUT(LESSN$)
50ONERROR GOTO 100
60INPUTLINE"]"TBP$
70PRINT#X,TBP$
80GOTO60
100ONERROR END
110PRINT#X,"###"
120INPUT'"Sentences:"SENT
130PRINT#X,SENT:FORI=1TOSENT:INPUTLINE
"]"SENT$:PRINT#X,SENT$:NEXT:CLOSE#X