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"