Listing of file='%3275' on disk='vmedia/3275_v1.10.wvd.zip'
# Sector 232, program filename = '%3275' 0010 REM .%3275 4/28/82 0060 REM %0 #6 TC. BOARD 0090 REM %^VARIABLE DEFINITIONS 0100 REM -------------------------------------------------- 0110 REM VARIABLE MEANING 0120 REM ----------- ----------------------------- 0130 REM %0 A$ HEX(0000) 0140 REM A1 POINTER TO FIELD ATTRIBUTE CHARACTER 0145 REM %0 A1 Ptr to Fld Attr 0150 REM A1$1 CURRENT AID CHARACTER 0155 REM %0 A1$ Curr.AID Char. 0160 REM B POINTER TO MESSAGE "KEYBOARD LOCKED" 0165 REM %0 B Ptr--KBD LOCKED 0170 REM C POINTER TO CURSOR 0175 REM %0 C Cursor ptr 0180 REM C$(80)1 LINE BUFFER AND SCRATCH ARRAY 0185 REM %0 C$( Lne Buffer & W/A 0190 REM C2 SCRATCH VARIABLE 0010 REM .%3275 4/28/82 0060 REM %0 #6 TC. BOARD 0090 REM %^VARIABLE DEFINITIONS 0100 REM -------------------------------------------------- 0110 REM VARIABLE MEANING 0120 REM ----------- ----------------------------- 0130 REM %0 A$ HEX(0000) 0221 REM %0 F1$( Curr.FLD ATTR. 0230 REM I ROW POINTER TO CURSOR (1 - 24) 0231 REM %0 I Cursor row(1-24) 0240 REM I$10 SCRATCH VARIABLE REQUIRED BY $GIO STATEMENT 0241 REM %0 I$ $GIO Arg. (scratch) 0250 REM J COLUMN POINTER TO CURSOR (1 - 80) 0251 REM %0 J Cursor Col(1-80) 0260 REM J$(16) JUMP TABLE 0261 REM %0 J$( JUMP TABLE 0270 REM K INDEX USED FOR DISPLAYING CRT IMAGE 0271 REM %0 K CRT display index 0280 REM K$ CURRENT KEYSTROKE 0281 REM %0 K$ CURRENT KEYSTROKE 0290 REM K$(1)1 CHARACTER IN IMAGE AREA AT CURRENT CURSOR LOCATION 0291 REM %0 K$( Char.at CURSOR pos. 0300 REM L LENGTH (USED IN VARIOUS SUBROUTINES) 0301 REM %0 L LENGTH 0310 REM L$1 ONE-BYTE SCRATCH VARIABLE 0311 REM %0 L$ L$1 0320 REM L1 TEMPORARY LENGTH (USED IN VARIOUS SUBROUTINES) 0321 REM %0 L1 TEMPORARY LENGTH 0330 REM L2 TEMPORARY LENGTH (USED IN VARIOUS SUBROUTINES) 0331 REM %0 L2 TEMPORARY LENGTH 0340 REM M BEGINNING OF INSERT ZONE 0341 REM %0 M Beg. INSERT ZONE 0350 REM M$ "KEYBOARD LOCKED" 0351 REM %0 M$ "KEYBOARD LOCKED" 0360 REM N END OF INSERT ZONE 0361 REM %0 N END OF INSERT ZONE 0365 REM N1 NUMBER OF FIELDS ERASED 0366 REM %0 N1 # OF FIELDS ERASED 0370 REM P$(24,2)40 CRT IMAGE (WITH UNPRINTABLE CHARACTERS) 0371 REM %0 P$( CRT IMAGE (w/ Unprnts) 0380 REM Q$(24,2)40 REVERSE CRT IMAGE 0381 REM %0 Q$( REVERSE CRT IMAGE 0390 REM R$(16) "PRINTABLE ONLY" TRANSLATION TABLE 0391 REM %0 R$( "PRINTABLE" Tran tbl 0400 REM S$(16) LOCATE UNPROTECTED FIELDS 0401 REM %0 R1$( ROW POSITION VECTOR 0410 REM R1$(24)1 ROW POSITIONING VECTOR 0411 REM %0 R1$( ROW POSITION VECTOR 0420 REM R2$(80)1 COLUMN POSITIONING VECTOR 0421 REM %0 R2$( COL.POSITION VECTOR 0425 REM T$3 TERMINAL ID 0426 REM %0 T$ TERMINAL ID 0430 REM X$1 HEX(80) 0431 REM %0 X$ HEX(80) 0440 REM %^SPECIAL KEY DEFINITIONS 0450 REM -------------------------------------------------- 0460 REM KEYS 0470 REM 3270 WANG 0480 REM ---- ---- 0490 REM ENTER RUN 0500 REM RIGHT '12 0510 REM LEFT '13 0520 REM UP '11 0530 REM DOWN '14 0540 REM NEW LINE CARR. RET. 0550 REM TAB STMT # 0560 REM BK TAB LINE ERASE 0570 REM CLEAR CLEAR 0580 REM ERASE INPUT '8 0590 REM ERASE EOF '24 0595 REM FIELD MARK CONTINUE 0596 REM DUP '15 0600 REM TEST REQ '31 0610 REM RESET '0 0620 REM INS. MODE '10 0630 REM DELETE '9 0640 REM PA1 - PA3 '1 - '3 0650 REM PF1 - PF4 '4 - '7 0660 REM PF5 - PF12 '16 - '23 0670 REM VERT. LINE LOAD 0672 REM CENTS UP ARROW 0673 REM UNDERLINE PRINTUSING