1010 *S.BIG.BUFF 
1030 *----------------------------
1040 *BIG BUFF terminal program for
1050 *Apple II+ with Micro Modem II
1060 *
1070 *
1080 *
1090 *(C) 1984 Jan G. Eugenides
1100 *11601 N.W. 1B ST.
1110 *Pembroke Pines FL 33026
1120 *305-431-6892
1130 *12/5/84
1140 *----------------------------
1150 *CONFIGURED FOR SLOT 2
1160 *----------------------------
1170 *
1180 PTR	.EQ $06
1190 CR1	.EQ $C0A6
1200 CR2	.EQ $C0A5	modem control port
1210 CHAR	.EQ $77B	temp char storage
1220 RDKEY	.EQ $FD0C
1230 OUTA	.EQ $C202
1240 COUT	.EQ $FDED
1250 HOME	.EQ $FC5B
1260 GETLN	.EQ $FD6F
1270 BUFF	.EQ $200
1280 VTAB	.EQ $FC22				??? $F022
1290 CH		.EQ $24		cursor horiz. position
1300 BASL	.EQ $2B
1310 STORADV	.EQ $FBF0
1320 CV		.EQ $25		cursor vert. position
1330 PROMPT	.EQ $33
1340 CURLIN	.EQ $35
1350 LANG	.EQ $AAB6
1360 IPBUF	.EQ $9600 	input buffer
1370 IPTR	.EQ $F9
1380 CAPFLAG	.EQ $FB
1390 TEMP	.EQ $FC
1400 LNGTH	.EQ $19
1410 INVFLG	.EQ $32
1420 WAIT	.EQ $FCA8
1430 VTEMP	.EQ $09
1440 HTEMP	.EQ $0A
1450 CTR	.EQ $0B
1460 *
1470		.OR $9100
1480 		.TF BIG.BUFF 
1490 
1500 *----------------------------
1510 *Initialization
1520 *----------------------------
1530		LDA #$0
1540		STA CAPFLAG	Cature flag
1550		JSR HOME	Clear screen
1560		LDA #4
1570		STA $22
1580		LDA #$00
1590		STA PTR		Set buffer top to $800
1600		LDA #$08
1610		STA PTR+1
1620 *----------------------------
1630 *Allow direct file commands
1640 *----------------------------
1650		LDA #$40
1660		STA LANG
1670		STA CURLIN+1
1680		LDA #$06
1690		STA PROMPT
1700 *----------------------------
1710		LDA #$40
1720		STA $D8		Set errflag so that errors
1730		LDA #CLOSER	go to file close routine
1740		STA #9D5A
1750		LDA /CLOSER
1760		STA $9D5B
1770
1780 *----------------------------
1790 *Print header
1800 *----------------------------
1810		JSR PRINT
1820		.AS -"BIG BUFF TERM PROGRAM---BUFFER TOP=$"
1830		.HS 8D8D
1840		.AS -"    CAPTURE: ON    (C)JAN G. EUGENIDES"
1850		.HS 8D00
1860		LDA #$03
1870		STA CV		VTAB 3
1880		JSR VTAB
1890		JSR PRINT
1900		.AS -"--------------------"
1902		.AS -"--------------------"
1904		.HS 00