image of READY prompt

Wang2200.org

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"