10 REM COPYRIGHT 1993 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
20 REM TYPEWRITER SIMULATOR
30 POKE53281,0:POKE53280,0:OPEN1,4:PRINT"[147]"SPC(8)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
40 PRINT"        [194][129]TYPEWRITER SIMULATOR[194]":PRINTSPC(8)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
50 PRINT"[159]          MENU OF OPERATIONS:"
60 PRINT"       [158]1[146] SET UP FORM IN PRINTER"
70 PRINT"       [158]2[146] SET UP L-R POINTER"
80 PRINT"       [158]3[146] INPUT TYPING ROUTINE"
90 PRINT"       [158]4[146] EXTRA LINE FEEDS"
100 PRINT"       [158]5[146] QUIT PROGRAM"
110 GOSUB440:ONVAL(A$)GOTO120,190,250,410,430:GOTO110
120 PRINT"TO ALIGN THE FORM, ENTER THE HORIZONTAL"
130 PRINT"COLUMN WHERE A REPEATED [129]X CAN BE PRINTED"
140 PRINT"USE SPACE TO REPEAT THE [129]X AND RETURN TO EXIT";
150 PRINT".  ENTER COLUMN NUMBER:";:INPUTN
160 PRINT#1,SPC(N)"X":PRINT#1,CHR$(27);CHR$(106);CHR$(0):PRINT#1,CHR$(27);"@";
170 GOSUB440:IFA$=CHR$(32)THEN160
180 IFA$=CHR$(13)THEN50
190 PRINT"ENTER AN [158]L IF YOU ARE PLANNING TO"
200 PRINT"ORIENT YOUR ENTRIES TO THE LEFT":PRINT
210 PRINT"ENTER AN [158]R IF YOU ARE PLANNING TO"
220 PRINT"ORIENT YPUR ENTRIES TO THE RIGHT":PRINT"L/R?  ";:GOSUB440:M$=A$
230 PRINTM$:IFM$<>"L"ANDM$<>"R"THEN190
240 GOTO50
250 PRINTCHR$(14)
260 IFM$<>"L"ANDM$<>"R"THENPRINT"[129]    L OR R LOCATOR ?":PRINTCHR$(142):GOTO190
270 PRINT"[147]     [197]NTER AN UP ARROW ([158]^) TO QUIT"
280 LO$="[204][197][198][212]":IFM$="R"THENLO$="[210][201][199][200][212]"
290 A$="":PRINT" [197]NTER THE PRINT POSITION FOR YOUR ";LO$;:INPUT" MARGIN";A$
300 IFA$=CHR$(94)THENPRINT"[147]"CHR$(142):GOTO50
310 IFVAL(A$)>80ORA$=""THEN250
320 P=VAL(A$):A$="":PRINT"     [197]NTER PHRASE TO BE PRINTED":INPUTA$
330 IFA$=CHR$(94)THENPRINT"[147]"CHR$(142):GOTO50
340 IFM$="L"THENN=P:IFN+LEN(A$)>80THENPRINT"[206][207][160][210][207][207][205][160][212][207][160][208][210][201][206][212]":GOTO290
350 IFM$="R"THENN=P-LEN(A$)+1:IFN<0THENPRINT"[206][207][160][210][207][207][205][160][212][207][160][208][210][201][206][212]":GOTO290
360 PRINT#1,SPC(N);A$:PRINT#1,CHR$(27);CHR$(106);CHR$(0):PRINT#1,CHR$(27);"@";
370 PRINT"     [204]INE FEED? [217]/[206]   ";:GOSUB440:PRINTA$
380 IFA$=CHR$(94)THENPRINT"[147]"CHR$(142):GOTO50
390 IFA$="Y"THENPRINT#1,"":GOTO250
400 GOTO250
410 PRINT"     ENTER NUMBER OF LINE FEEDS";:INPUTA$:IFVAL(A$)=0THEN50
420 FORI=1TOVAL(A$):PRINT#1:NEXT:GOTO50
430 CLOSE1:END
440 A$="":GETA$:IFA$=""THEN440
450 RETURN