Listing of file='609@term' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1925, program filename = '609@term'
0010 REM "609@term" Edit terminal defaults, 10/31/80
0040 COM C1
: DIM S4,S5(1),S0(1),T5(1),T1$(14)80,S3(1)
: DIM S5,T1(65),S6(65),S1(65),T2$(65)80
: DIM S6,T2(1),S7(1),S2(1),S4(1),T5$(1)1
: DIM S2$1,S1$(14)2,S2$(1)2,T1$80,T2$2
: GOSUB '61
: S5=S5+1
: CONVERT #TERMTO T2$(S5),(##)
: S6(S5)=22
: S1(S5)=24
: T1(S5)=4
0170 DATA LOAD DC OPEN T#0,"609@T"
: FOR D0=0TO 12
: A0$()=ALL(20)
: DATA LOAD DC A0$()
: FOR D1=1TO 4
: IF D1>2THEN 180
: T2$(S5+D0*4+D1)=STR(A0$(),D1,1)
: GOTO 230
0180 IF D1=4THEN 220
: A1=VAL(STR(A0$(),3,1))
: ON A1+1GOTO 190,200,210
0190 T2$(S5+D0*4+3)="N/A"
: GOTO 230
0200 T2$(S5+D0*4+3)="Character"
: GOTO 230
0210 T2$(S5+D0*4+3)="Line"
: GOTO 230
0220 T2$(S5+D0*4+D1)=STR(A0$(),10,25)
0230 NEXT D1
: NEXT D0
: T5(1)=#TERM
: FOR D0=0TO 12
: FOR D1=1TO 4
: S6(S5+D0*4+D1)=D0+8
: NEXT D1
: NEXT D0
: FOR D0=1TO 49STEP 4
: S1(S5+D0)=20
: NEXT D0
: FOR D0=2TO 50STEP 4
: S1(S5+D0)=30
: NEXT D0
: FOR D0=3TO 51STEP 4
: S1(S5+D0)=40
: NEXT D0
: FOR D0=4TO 52STEP 4
: S1(S5+D0)=54
: NEXT D0
: S5=S5+52
: PRINT HEX(0306);
: GOSUB '62
: IF T5=1THEN 320
: COM CLEAR C1
: DATA SAVE DC CLOSE#0
: LOAD DC T"609menu"
0320 DATA SAVE DC CLOSE#0
: C1=T5(1)
: LOAD DC T"609@tmod"10,2999
0350 DATA 3,0,0,"T E R M I N A L D E F A U L T S"
: DATA 4,5,4,"Terminal "
: DATA 3,6,4," Number"
: DATA 4,5,22,"Default"
: DATA 3,6,17,"Library"
: DATA 3,6,27,"Archive"
: DATA 4,5,39,"Attached"
: DATA 3,6,38," Printer"
: DATA 3,6,54,"Comment "
: DATA 4,3,0,"Please select one of the following"
0450 DATA 4,22,0,"This terminal is number "
: DATA 1,8,6,1,"01","02","03","04","05","06","07","08","09","10","11","12",
"13","\DE"
: DATA 0