1 GRAPHICS 2+16:DIM D$(1):LSCH=764:CON=53279
2 POSITION 1,3:? #6;"Download / Upload":POSITION 5,5:? #6;"V 2.818"
3 REM Original routines arreared in ANALOG Magazine. Debugged and extended by Bob House & Marshall Abrams
4 REM 2906 Covington Road, Silver Spring, MD  20910
5 REM To use: RUN this program; it will call the other programs as needed
6 FOR I=1 TO 200:NEXT I:GRAPHICS 0
7 SETCOLOR 2,12,0:SETCOLOR 4,12,0
8 ? "DOWNLOAD: press START to start &":? "  stop saving characters to memory"
9 ? :? "Press OPTION to select various":? "  other modes":? 
10 FOR I=1648 TO 1742:READ A:POKE I,A:NEXT I:REM RS232 & KEYBOARD HANDLER
20 DATA 162,32,169,7,157,66,3,169,0,157,72,3,157,73,3
30 DATA 32,86,228,133,208,201,31,16,6,169,32,133,208,104,96
40 DATA 168,162,0,169,11,157,66,3,169,0,157,72,3,157,73
50 DATA 3,152,32,86,228,104,96,0,162,16,169,7,157,66,3
60 DATA 169,0,157,72,3,157,73,3,32,86,228,133,208,168,162
70 DATA 32,169,11,157,66,3,169,0,157,72,3,157,73,3,152
80 DATA 32,86,228,104,96
84 FOR I=1539 TO 1571:READ A:POKE I,A:NEXT I:REM BUFFER & FILE TRANSFER
86 DATA 104,104,104,10,10,10,10,170
87 DATA 104,157,69,3,104,157,68,3,104
88 DATA 157,73,3,104,157,72,3,169,11
89 DATA 157,66,3,32,86,228,96
110 GOSUB 330:D$=" ":POKE 580,0
120 D$=" ":MODE=0
125 GOSUB 330:GOSUB 500
130 ? "}","SELECT TRANSLATION":? :? "Light ASCII translation (default)":? "Heavy ASCII translation"
135 ? "No translation"
140 INPUT IN$:IF LEN(IN$)=0 THEN 160
145 IF IN$(1,1)="L" THEN 160
150 IF IN$(1,1)="H" THEN MODE=MODE+16:GOTO 160
155 IF IN$(1,1)="N" THEN MODE=MODE+32:GOTO 160
158 GOTO 125
160 ? "}","OUTPUT PARITY":? :? "None (default)":? "Odd":? "Even":? "Set to 1":? :INPUT IN$
163 IF LEN(IN$)=0 THEN 190
165 IF IN$(1,1)="N" THEN GOTO 190
170 IF IN$(1,1)="O" THEN MODE=MODE+1:GOTO 190
175 IF IN$(1,1)="E" THEN MODE=MODE+2:GOTO 190
180 IF IN$(1,1)="S" THEN MODE=MODE+3:GOTO 190
185 GOTO 160
190 ? "}","APPEND LINE FEED":? :? "Append line feed after return":? "No line feed after return (default)":? 
195 INPUT IN$:IF LEN(IN$)=0 THEN 300
200 IF IN$(1,1)="A" THEN MODE=MODE+64:GOTO 300
210 IF IN$(1,1)="N" THEN GOTO 300
220 GOTO 190
300 POKE 209,MODE:? :? "Loading main terminal program"
320 CLR :RUN "D:ATERMPT2"
330 POKE LSCH,255:RETURN 
500 POKE 82,1:DIM IN$(200)
504 ? "Instructions (Y/N)":INPUT IN$:IF IN$<>"Y" THEN RETURN 
508 TRAP 540:OPEN #3,4,0,"D:ATERMHLP.TXT":? "}"
510 POKE 195,1:TRAP 520:INPUT #3,IN$:? IN$:IF LEN(IN$)<5 THEN 510
515 IF IN$(1,5)<>"*****" THEN 510
520 A=PEEK(195):? ,"Press RETURN";:INPUT IN$:? "}":IF A=1 THEN 510
530 IF A<>136 THEN ? "ERROR ";A;" READING INSTRUCTION FILE"
535 TRAP 40000:CLOSE #3:RETURN 
540 CLOSE #3:? CHR$(253);"Couldn't open instruction file"
550 FOR I=1 TO 500:NEXT I:GOTO 535