Listing of file='CHANGEID' on disk='vmedia/701-2356A.wvd.zip'
# Sector 173, program filename = 'CHANGEID'
0010 REM ***** CHANGEID - REVISED 1310 11/03/78 RELEASE #1.4 *****
0020 DIM T$34, X$8, A$4
0021 DATA LOAD DC OPEN F "TERM ID"
0022 DATA LOAD DC A$, Q$
0025 T$ = HEX(00300131023203330434053506360737083809390A410B420C430D440E450F46
)
0030 PRINT HEX(03), "ENTER TERMINAL I.D."
0035 PRINT ,"(DEFAULT = ";
: HEXPRINT A$;
: PRINT ")"; HEX(0C)
0040 INPUT X$
0041 IF X$ = " " THEN 135
0045 PRINT HEX(03)
0050 INIT(00) A$
0060 $TRAN(X$,T$)R
0070 IF POS(X$>0F) > 0 THEN 500
0080 FOR I = 1 TO 8
0090 FOR J = 1 TO 4
0100 ADDC(A$,A$)
0110 NEXT J
0115 IF STR(X$,I,1) > HEX(0F) THEN 500
0120 ADDC(A$,STR(X$,I,1))
0130 NEXT I
0135 PRINT HEX(03),"ENTER TYPE OF COMPUTER USED. (1 = 2200T, 2 = 2200VP, 3 =
2200MVP)"
0136 INPUT K
: ON K GOTO 137, 138, 139
: GOTO 135
0137 Q$ = HEX(4403C660)
: GOTO 140
0138 Q$ = HEX(44031020C660)
: GOTO 140
0139 Q$ = HEX(4403102002FF03FF1223C660)
0140 DATA LOAD DC OPEN F "TERM ID"
0150 DATA SAVE DC A$, Q$
0160 DATA SAVE DC CLOSEALL
0170 LOAD DC T "START"
0500 PRINT HEX(030A0A), "INVALID NUMBER"
0510 PRINT HEX(01),"ENTER TERMINAL I.D."
0520 GOTO 35