0 REM                               ›1 REM  ะาษฮิลา รฯฮิาฯฬฌ ำลิญีะ ฦฯาบ ›2 REM            ฮลร ธฐฒณ           ›3 REM           ะอร ฤอะญธต          ›4 REM         ะาฯืาษิลา ธตฑฐ        ›5 REM                               ›6 REM           ๐๒๏็๒แํ โ๙          ›7 REM                               ›8 REM     าษรศมาฤ ยาฯืฮล  อมา ธด    ›9 REM                               ›10 DIM A$(1),C$(8),M$(3),P$(2),T$(130)›20 C$=CHR$(27)›30 GOSUB 960›40 POKE 82,0:? "}":? ›50 ? "1. PICA  NORMAL-(10cpi)"›60 ? "2. ELITE(12cpi)"›70 ? "3. CONDENSED(17cpi)"›80 ? "4. PROPORTIONAL SPACING"›90 ? "5. DOUBLE WIDTH CHARACTERS"›100 ? "6. BOLD PRINT"›110 ? "7. UNDERLINED PRINT"›120 ? "8. DEFINE LINE SPACING"›130 ? "9. RESET PRINTER'S DEFAULTS"›140 ? :? "0. TO END"›150 ? :TRAP 40:? "WHAT'S YOUR CHOICE..";:INPUT F›160 IF F=1 THEN LPRINT C$;CHR$(78):GOTO 270›170 IF F=2 THEN LPRINT C$;CHR$(69):GOTO 270›180 IF F=3 THEN LPRINT C$;CHR$(81):GOTO 270›190 IF F=4 THEN LPRINT C$;CHR$(80):GOTO 270›200 IF F=5 THEN LPRINT CHR$(14):GOTO 270›210 IF F=6 THEN LPRINT C$;CHR$(33):GOTO 270›220 IF F=7 THEN LPRINT C$;CHR$(88):GOTO 270›230 IF F=8 THEN 320›240 IF F=9 THEN GOSUB 960›250 IF F=0 THEN 940›260 GOTO 40›270 ? :? "  DO YOU WANT TO COMBINE? (ูes/ฮo)";›280 INPUT A$›290 IF A$="Y" THEN 150›300 IF A$="N" THEN 940›310 GOTO 270›320 ? "}":? :? ›330 ? "1. LEFT MARGIN SET"›340 ? "2. HORIZONTAL TAB SET"›350 ? "3. UNIDIRECTIONAL PRINTING"›360 ? "4. REVERSE LINE FEED"›370 ? "5. LINE FEED PITCH"›380 ? "6. PERFORATION SKIP OVER"›390 ? "7. DEFINE PRINT TYPE"›400 ? "8. RESET PRINTER'S DEFAULTS"›410 ? :? "0. TO END"›420 ? :TRAP 320:? "WHAT'S YOUR CHOICE..";:INPUT S›430 IF S=1 THEN 530›440 IF S=2 THEN 610›450 IF S=3 THEN LPRINT C$;CHR$(62):GOTO 790›460 IF S=4 THEN LPRINT C$;CHR$(114):GOTO 790›470 IF S=5 THEN 700›480 IF S=6 THEN 840›490 IF S=7 THEN 40›500 IF S=8 THEN GOSUB 960›510 IF S=0 THEN 940›520 GOTO 320›530 ? "}":? :? ›540 ? "  SET LEFT MARGIN TO: XXX"›550 ? :? :? "   XXX MUST = 000 TO 160"›560 ? :? "  DEPENDING ON CHARACTER PITCH SETTING"›570 ? :? :? "  SET LEFT MARGIN TO: ";:INPUT M$›580 IF M$<"000" OR M$>"160" THEN M$="000":GOTO 570›590 LPRINT C$;CHR$(76);M$›600 GOTO 790›610 ? "}":? :? ›620 ? " HORIZONTAL TABS XXX,XXY,XXZ (UP TO 32)"›630 ? :? :? "      TAB STOPS MUST BE 000 TO 160"›640 ? :? "  DEPENDING ON CHARACTER PITCH SETTING"›650 ? :? "  caution: no error trap in this option"›660 ? :? :? " SET TABS TO :";:INPUT T$›670 LPRINT C$;CHR$(40);T$;CHR$(46)›680 ? :? " HORIZONTAL TABS SET AT:";:PRINT T$›690 GOTO 790›700 ? "}":? :? ›710 ? "LINE FEED PITCH SETTING XX"›720 ? :? "    XX MUST = 01 TO 99"›730 ? :? "      18 = 1/8 INCH"›740 ? "  24 = 1/6 INCH (NORMAL)"›750 ? :? :? "SET LINE FEED PITCH TO: ";:INPUT P$›760 IF P$="00" THEN 700›770 LPRINT C$;CHR$(84);P$›780 ? :? "  LINE FEED PITCH SET AT: ";:PRINT P$;:PRINT "/144 INCH"›790 ? :? "  DO YOU WANT TO COMBINE? (ูes / ฮo)";›800 INPUT A$›810 IF A$="Y" THEN 320›820 IF A$="N" THEN 0›830 GOTO 790›840 OPEN #2,8,0,"P:"›850 PUT #2,29:PUT #2,65:PUT #2,64›860 FOR X=2 TO 60›870 PUT #2,64:PUT #2,64:NEXT X›880 PUT #2,67:PUT #2,64›890 FOR X=62 TO 66›900 PUT #2,64:PUT #2,64:NEXT X›910 PUT #2,65:PUT #2,64›920 PUT #2,30›930 CLOSE #2:LPRINT :GOTO 790›940 ? :? "PROGRAMING IS NOW COMPLETE."›950 FOR X=1 TO 400:NEXT X:PRINT "}":END ›960 LPRINT C$;CHR$(78);C$;CHR$(79);C$;CHR$(89);C$;CHR$(34);C$;"L000"›970 LPRINT CHR$(15);C$;CHR$(48);C$;CHR$(102);C$;CHR$(65);C$;CHR$(60):RETURN ›