Listing of file='T07D010B' on disk='vmedia/702-0079.wvd.zip'
# Sector 799, program filename = 'T07D010B'
0010 REM MOD 1/14/80 J. BROOKS
0160 REM THE 2207B PROGRAM
: DIM N(21),A$(3)4,B$64,C$1
: GOSUB 9000
: GOSUB 1500
: GOSUB 9000
: PRINT
: PRINT " TELETYPE INPUT/OUTPUT ADDRESSES ARE:";G$;",";F$
0210 PRINT "MAKE SURE 2207 SWITCH IS SET TO BINARY"
0220 STOP "--TURN TELETYPE ON LOCAL; TURN PUNCH ON. PRESS 'HERE-IS' SEV
ERAL TIMES. MOUNT BEGINNING OF PAPER TAPE IN READER. TURN TELETYP
E ON-LINE. PRESS SF'0"
0230 DEFFN'0
: GOSUB 9000
: PRINT
: PRINT "TESTING DATASAVE/DATALOAD... ";
: GOSUB '100
0250 DATA SAVE OPEN "TTY"
: FOR I=-5TO 5STEP .5
: N(I*2+11)=I
: DATA SAVE #6,I
: NEXT I
: DATA SAVE#6,END
: DATA SAVE #6," ARRAY",N(),HEX(3132333435363738),I,1.23E+34,-1.245E-19
: DATA SAVE #6,END
: A$(1)="ABCD"
: A$(2)="EFG"
: A$(3)="HI"
0310 DATA SAVE A$(),"XYZ"
: C$=HEX(30)
: FOR I=1TO 64
: STR(B$,I,1)=C$
: ADD(C$,01)
: NEXT I
: DATA SAVE B$,STR(B$,4,4),"123"
: DATA SAVE END
0340 FOR I=-5TO 5STEP .5
: DATA LOAD X
: IF X<>ITHEN 540
: NEXT I
: DATA LOAD #6,X
: IF END THEN 370
: GOTO 540
0370 FOR I=1TO 21
: N(I)=.1
: NEXT I
: DATA LOAD #6,B$,N(),D$,E$,F$,X1,I
: IF END THEN 390
: GOTO 540
0390 IF B$<>" ARRAY"THEN 540
: FOR I=-5TO 5STEP .5
: IF N(I*2+11)<>ITHEN 540
: NEXT I
: IF D$<>HEX(3132333435363738)THEN 540
: CONVERT E$TO X
: IF X<>5THEN 540
: CONVERT F$TO X
: IF X<>1.23E+34THEN 540
0440 IF X1<>-1.245E-19THEN 540
: DATA LOAD B$,A$()
: IF B$<>"ABCD"THEN 540
: IF A$(1)<>"EFG"THEN 540
: IF A$(2)<>"HI"THEN 540
: IF A$(3)<>"XYZ"THEN 540
: DATA LOAD STR(B$,5),A$(1),X,Y
: IF X<>123THEN 540
: IF STR(B$,1,4)<>"ABCD"THEN 540
: C$=HEX(30)
0500 FOR I=5TO 64
: IF STR(B$,I,1)<>C$THEN 540
: ADD(C$,01)
: NEXT I
: IF A$(1)<>HEX(33343536)THEN 540
: IF END THEN 530
: GOTO 540
0530 PRINT "OK"
: STOP "KEY SF'0 TO TEST AGIAN"
0540 PRINT "ERROR"
1000 DEFFN'31
: LOAD DC T"START"
1500 PRINT HEX(010A0A0A);"1. RCV=019,XMT=01D"
: PRINT "2. RCV=01A,XMT=01E"
: PRINT "3. RCV=01B,XMT=01F"
1510 PRINT HEX(0C0C0C0C);
: INPUT "CONTROLLER ADDRESS ",Q
: ON Q GOTO 1520,1530,1540
1520 F$="01D"
: G$="019"
: RETURN
1530 F$="01E"
: G$="01A"
: RETURN
1540 F$="01F"
: G$="01B"
: RETURN
1600 DEFFN'100
: ON Q GOTO 1620,1630,1640
1620 SELECT #2019
: SELECT #641D
: SELECT TAPE 41D
: RETURN
1630 SELECT #201A
: SELECT #641E
: SELECT TAPE 41E
: RETURN
1640 SELECT #201B
: SELECT #641F
: SELECT TAPE 41F
: RETURN
9000 PRINT HEX(03);"2200 HARDWARE DIAGNOSTICS - 2207 W/TTY -------------------
------"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSTIC MENU ; KEY 'RESET' AN
D SF'31";HEX(01)
: RETURN
9010 DEFFN'31
: SELECT PRINT 005(64)
: LOAD DC T"START"