Listing of file='BSC*010V' on disk='vmedia/731-0111.wvd.zip'
# Sector 669, program filename = 'BSC*010V'
0010 REM BSC*010V, (04/03/81), BISYNC EMULATOR FOR VP PROCESSOR
0100 GOTO 9900
: ON AGOTO 150,4500,5000,6000
0150 COM D$(3)9,I$(4)64,O$(255)1,E$1,A1$(5)2,A2$(5)2,G$(12)1,F1,F1$2,F4$2
0220 KEYIN C$,260,230
0230 IF C$<>HEX(00)THEN 260
: GOSUB '41(HEX(03))
0250 F9=0
: IF C=1THEN 290
0260 IF E$>HEX(00)THEN 390
: $IF ON /001,220
: INIT(20)O$()
: GOSUB 4000
0290 A2$(2)=HEX(0050)
0300 $GIO#6(6C026A406A10A200,A2$())O$()<,A2$(2)>
: $GIO#6(G$,G$())A$
: IF A2$(4)=HEX(0000)THEN 260
: ON VAL(G$(5))GOTO 350,500,370,300
: GOTO 500
0350 N$="TRANSMISSION ABORTED"
: GOSUB 700
: GOTO 5140
0370 N$="TRANSMISSION ABORTED"
: GOSUB 700
: GOTO 5435
0390 N$="TRANSMISSION COMPLETED"
: GOSUB 700
0400 $GIO#6(G$,G$())A$
: ON VAL(G$(5))GOTO 5140,500,5435,400
: GOTO 500
0430 AND (A1$(2),02)
: GOSUB 3000
0450 $IF ON /001,620
: $GIO#6(6C03C6608601111304000755156703021546,A1$())I$()
: $GIO#6(G$,G$())A$
: IF A1$(4)=HEX(5528)THEN 430
: ON VAL(G$(5))GOTO 510,500,450,500
0500 STOP "SYSTEM ERROR"
0510 AND (A1$(1),01)
: A1$(3)="11"
: ON VAL(A1$(1))GOTO 5140
: A1$(1)=HEX(0100)
: A1$(2)=HEX(0000)
: INIT(2A)I$()
: STR(I$(1),25,17)="RECEPTION ABORTED"
: A1$(5)=HEX(0050)
: GOSUB 3000
: PRINT STR(D8$,1,9);TAB(64)
: PRINT STR(D8$,1,9);STR(I$(1),25,17)
: GOTO 5140
0620 KEYIN C$,450,630
0630 IF C$<>HEX(00)THEN 450
: B$(3)="1"
: GOSUB '41(HEX(03))
: F9=1
: GOTO 450
0700 M,N=0
: PRINT STR(D8$,1,4);TAB(50);HEX(0D);N$
: RETURN
3000 STOP "Overlay Save"
4000 STOP "Overlay Read"
4100 STOP "Overlay Read open"
4500 STOP "Overlay Device Ready"
5000 IF I$="1"THEN 5120
: INIT(00)A1$(),A2$(),D$(),E$
: G$(1)=HEX(00)
: G$(2)=HEX(16)
: G$(3)=HEX(AB)
: G$(4)=HEX(40)
: D$(1)=D8$
: STR(D$(2),1,5)=D8$
: STR(D$(3),1,7)=D8$
: F1$=HEX(A001)
: F4$=HEX(A040)
: I$="1"
5120 DEFFN'0
: F9=0
: SELECT PRINT 005,#4005,#5215
: PRINT HEX(03);
: GOSUB '41(HEX(01))
5140 C=0
: PRINT HEX(0D01),"ACTIVE KEYBOARD CONTROLS---2200 VP BATCH EMULATOR"
: PRINT "'0=CONTROL '1=ATTN '2=SEND '3=SEND TRSP C/R=KYBD"
: PRINT STR(D8$,1,11);"---MODEM SIGNALS---";TAB(31);"BLOCKS BLOCKS"
5160 PRINT "DTR DSR RTS CTS CAR","SENT RECD"," --MODE--"
: C=N
: IF M=1THEN 5525
: E$=HEX(00)
5170 KEYIN C$,5210,5200
: B$(3)="1"
: IF F9=1THEN 5180
: GOSUB '80
5180 GOSUB 5585
: $GIO#6(G$,G$())A$
: ON VAL(G$(5))GOTO 5170,5545,5435,500
: GOTO 500
5200 ON VAL(C$)+1GOTO 5120,5420,5455,5470
: GOTO 5170
5210 IF C$<>HEX(0D)THEN 5170
: PRINT HEX(010A);TAB(63);HEX(0D);"BACKSPACE";TAB(25);"LINE ERASE";TAB(52);
"C/R = END"
: PRINT STR(D8$,1,4);"....!....1....!....2....!....3....!....4....!....5...
.!....6..."
: PRINT TAB(64);STR(D8$,1,5);
: INIT(20)I$(),O$()
: SELECT PRINT 405
: PRINT HEX(050D);
: I$(1)="/*$"
: A=4
: PRINT I$(1);
5270 KEYIN C$,5280,5370
: GOTO 5270
5280 IF C$=HEX(0D)THEN 5375
: IF C$=HEX(08)THEN 5335
: IF C$=HEX(E5)THEN 5355
: IF C$<HEX(20)THEN 5270
: $TRAN(C$,G3$)R
: PRINT C$;
: STR(I$(1),A,1)=C$
: A=A+1
: IF A<64THEN 5270
: A=63
: PRINT HEX(08);
: GOTO 5270
5335 IF A=1THEN 5270
: PRINT HEX(08);
: A=A-1
: GOTO 5270
5350 INIT(20)I$()
: PRINT HEX(0D);STR(I$(1),1,63);HEX(0D);
: RETURN
5355 GOSUB 5350
: A=1
: GOTO 5270
5370 IF C$>HEX(00)THEN 5270
: GOSUB 5350
5375 SELECT PRINT 005
: PRINT HEX(0D0C);TAB(64);HEX(0D)
: IF I$(1)=" "THEN 5140
: $PACK(F=F4$)O$()FROMI$(1)
: STR(A2$(2),2)=HEX(50)
: E$=HEX(01)
: A2$(1)=HEX(05)
: C,M,N=1
: GOTO 5460
5420 PRINT HEX(010A);TAB(64);HEX(0D);STR(D8$,1,13);HEX(09090909090909);TAB(46)
;"ATTENTION"
: GOSUB '83
: GOTO 5120
5435 B$(3)="1"
: GOSUB 5585
: PRINT HEX(010A);TAB(63);HEX(0D);"'0=ABORT";STR(D8$,1,9);HEX(0D);TAB(64)
: GOTO 450
5455 IF STR(W$,1,3)="WPS"THEN 5470
: A2$(1)=HEX(00)
5460 F1=-1
: GOTO 5480
5470 A2$(1)=HEX(02)
: F1=1
5480 PRINT HEX(010A);TAB(63);HEX(0D);"'0=ABORT";STR(D8$,1,9);HEX(0D);TAB(64);H
EX(0D);STR(D8$,1,4);TAB(50);HEX(0D);"SEND";
: IF C=1THEN 5525
: IF F1=-1THEN 5500
: PRINT " TRANSPARENT"
5500 PRINT HEX(0D)
: GOSUB 4100
: C=0
: IF E$>HEX(00)THEN 5120
: E$=HEX(00)
: M=1
: N=0
5525 GOSUB '41(HEX(02))
5530 $GIO#6(G$,G$())A$
: ON VAL(G$(5))GOTO 5120,5545,5435,250
: GOTO 500
5545 KEYIN C$,5530,5555
: GOTO 5530
5555 IF C$<>HEX(00)THEN 5530
: $GIO#6(4580440040104080A2004404,Z$)G9$()<1,6>
: FOR A=1TO 100
: NEXT A
: GOTO 5120
5580 DEFFN'41(B$(2))
5585 G2$=G2$(1)
: $GIO#6(6C0042104220A2004404,G2$)B$()
: B$(2)=HEX(00)
: RETURN
5605 DEFFN'31
: $GIO#6(4580440601FF02F012114400120040104080A2004404,Z$)G9$()<1,6>
: STOP "RESET & DISCONNECT"
6000 STOP "Overlaid by ATTENTION"