image of READY prompt

Wang2200.org

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