0POKE 8114, 217:REM   JUST INCASE TURN ON ONERR GOTO 
1ONERR  GOTO 3
2GOTO 4
3? " TEST YOUR SKILL BSAVE THIS     PROGRAM AND TRY TO GET IN !  ":NEW
4TEXT:INVERSE:? "":? "":? "   PRINTER MUST BE CONECTED  "
5? "":? "   AND TURNED ON WHEN ADAM   "
6? "":? "   WAS TURNED ON TO OPERATE  ":FOR delay=1 TO 6500:NEXT:NORMAL
7DATA  229,33,21,245,34,100,252,33,252,244,34,103,252,225,201
8DATA  229,33,70,000,34,100,252,33,057,000,34,103,252,225,201 
9DATA  03,03,03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
10DATA  229,33,41,0,54,3,43,119,205,99,252,225,201
11DATA  126,254,3,40,13,245,219,64,230,1,40,250,241,211,64,35,24,238,201
12DATA  00
13DATA  229,33,40,0,205,99,252,225,201
14FOR x=10 TO 98:READ v:POKE x, v:NEXT x
15CALL 25
16POKE 17059, 4:TEXT
17? "":? ""
18&          PROGRAM by
19? "   ADAM USERS GROUP of VA."
20? "":? ""
21? "    PRINTER SETUP STRINGS   "
22? "":? ""
23? "  UPDATES CALL 804-978-4404  "
24? "":? ""
25? "         PUBLIC DOMAIN          "
26? "":? ""
27? "       FOR TANDY DMP 130"
28FOR delay=1 TO 6500
29NEXT
30TEXT:? "":? "":? ""
31? "    WHICH CHARACTER SET ? "
32? "":? "":? ""
33? "  ARE DIP SWITCHES SET TO "
34? "":? "":? ""
35? "     1 = IBM CODE"
36? "":? "":? ""
37? "     2 = TANDY "
38GET c$
39PR #1
40IF c$="1" THEN 43
41IF c$="2" THEN 45
42GOTO 38
43? CHR$(27); "!"
44GOTO 46
45? CHR$(27); CHR$(33)
46PR #0
47TEXT
48? "":? ""
49? "  PLEASE SELECT MODE "
50? "":? ""
51? "     1 = WORD PROCESSING"
52? "":? ""
53? "     2 = DRAFT "
54? "         FOR TYPESTYLES"
55? "         TO BE SETABLE "
56? "":? ""
57? "     3 = GRAPHICS"
58? "":? ""
59REM  ESCAPE = EXIT             
60GET m$
61IF m$="" THEN STOP
62IF m$<"1" OR m$>"3" GOTO 47
63IF m$="1" THEN 66
64IF m$="2" THEN 67
65IF m$="3" THEN 68
66PR #1:? CHR$(27); CHR$(20):PR #0
67PR #1:? CHR$(27); CHR$(19):PR #0
68PR #1:? CHR$(27); CHR$(18):PR #0
70TEXT
140? "          TYPESTYLES"
210? "":? ""
280? "   1 = NORMAL     10 CPI"
350? "   2 = COMPRESSED 12 CPI"
420? "   3 = CONDENSED  17 CPI"
490? "   4 = PROPORTIONAL     "
560? "   5 = CORESPONDENCE NORMAL 10"
630? "   6 = CORESPONDENCE COMP   12"
700? "   I = START ITALICS "
770? "   i = END   ITALICS "
840? "   M = MICROFONT "
910? "   m = END MICROFONT"
980? "   E = ELONGATION"
1050? "   e = END ELONGATION  "
1120? "   B = BOLD   "
1190? "   b = END BOLD  "
1260? "":? ""
1330? "    PRESS KEY FOR SELECTION"
1400GET s$
1470PR #1
1540IF s$="1" THEN 2590
1610IF s$="2" THEN 2730
1680IF s$="3" THEN 2870
1750IF s$="4" THEN 3010
1820IF s$="5" THEN 3150
1890IF s$="6" THEN 3290
1960IF s$="I" THEN 3430
2030IF s$="i" THEN 3570
2100IF s$="M" THEN 3710
2170IF s$="m" THEN 3850
2240IF s$="E" THEN 3990
2310IF s$="e" THEN 4130
2380IF s$="B" THEN 4270
2450IF s$="b" THEN 4410
2520GOTO 1400
2590? CHR$(27); CHR$(19)
2660GOTO 4550
2730? CHR$(27); CHR$(23)
2800GOTO 4550
2870? CHR$(27); CHR$(20)
2940GOTO 4550
3010? CHR$(27); CHR$(17)
3080GOTO 4550
3150? CHR$(27); CHR$(18)
3220GOTO 4550
3290? CHR$(27); CHR$(29)
3360GOTO 4550
3430? CHR$(27); CHR$(66); CHR$(1)
3500GOTO 4550
3570? CHR$(27); CHR$(66); CHR$(0)
3640GOTO 4550
3710? CHR$(27); CHR$(77)
3780GOTO 4550
3850? CHR$(27); CHR$(19)
3920GOTO 4550
3990? CHR$(27); CHR$(14)
4060GOTO 4550
4130? CHR$(27); CHR$(15)
4200GOTO 4550
4270? CHR$(27); CHR$(31)
4340GOTO 4550
4410? CHR$(27); CHR$(32)
4480GOTO 4550
4550PR #0
4620TEXT
4690? "   YOUR PRINTER IS NOW SET "
4760? "":? ""
4830? "    YOU CAN NOW REBOOT TO   "
4900? "    THE WORD PROCESSOR OR   "
4970? "    CONTINUE IN BASIC ALL   "
5040? "   PRINTING WILL BE IN THE "
5110? "   FORMAT YOU  HAVE CHOSEN  "
5180? ""
5250? "     TO USE SMART WRITER     "
5320? "   INSERT  FAST PATCH DISK  "
5390? "    PULL RESET AND SELECT   "
5460? " SMART WRITER  THE TYPESTYLE"
5530? "      WILL BE REMEMBERED"
5600? "         AS SELECTED "
5670? "":? ""
5740? "   TO SELECT A COMBINATION "
5810? "       OF TYPE STYLES     "
5880? "  EXAMPLE ELONGATED ITALICS"
5950? "       PRESS  ANY KEY "
6020? "    TO EXIT PRESS ESCAPE "
6090GET x$
6160IF x$="" THEN 7000
6230TEXT:GOTO 140
7000TEXT
7010? " We recommend that your         printer DIP switches be set    to the IBM mode call for     "
7015? " information on how to set      printer and other available    patches for the DMP 130      "
7020? " for programs like              sign shop / graphics printer   multiwrite and many more     "
7021? " CALL 804-978-4404 or write     to AUG of VA "
7022? "    120 Turtle Creek APT # 3       Charlottesville, Va. 22901"
