The Museum of HP Calculators

HP Articles Forum

[Return to the Index ]
[ Previous | Next ]


HP-82163A how-to and video

Posted by Sylvain Cote on 21 July 2012, 2:47 p.m.

------------------------------------------------------------------------------------------------- YouTube video located at : http://youtu.be/vOyvLKpwc74 ------------------------------------------------------------------------------------------------- HP-75C/D basic program that show the capability of the HP-82163A video interface Used: HP-75C, I/O ROM (WKEY$, RPT$), HP-82163A, PIL-BOX (with Gateway & Scope soft running) ------------------------------------------------------------------------------------------------- 10 ! setup 20 DISPLAY IS * @ PRINTER IS ':d1' @ PWIDTH INF 30 C1=0 @ C2=1 @ C3=0 @ I1=0 @ I2=0 40 E7$=CHR$(27) 50 A$=E7$&'A' @ B$=E7$&'B' @ C$=E7$&'C' @ D$=E7$&'D' 60 E$=E7$&'E' @ H$=E7$&'H' @ J$=E7$&'J' 70 Q$=E7$&'Q' @ R$=E7$&'R' @ S$=E7$&'S' @ T$=E7$&'T' 80 L$=E7$&'<' @ G$=E7$&'>' @ P$=E7$&'%' 90 DIM S1$[96],S2$[96] 100 S1$=' ' @ FOR I=32 TO 126 @ S1$=S1$&CHR$(I) @ NEXT I 110 S2$=' ' @ FOR I=32+128 TO 126+128 @ S2$=S2$&CHR$(I) @ NEXT I 120 ! scan keyboard 125 PRINT E$&'Ready ...' 130 DISP 'Press a key ...' @ K1$=UPRC$(WKEY$) @ K2=NUM(K1$) 140 IF K2=81 THEN PRINT E$&'Leaving ...' @ END ! Q : Quit 150 IF K2=139 THEN PRINT E$; @ GOTO 130 ! CLR : device clear 160 IF K2=83 THEN PRINT S1$&S2$; @ GOTO 130 ! S : print char set 170 IF K2=65 THEN PRINT RPT$(CHR$(C3+32),32); @ C3=MOD(C3+1,94) @ GOTO 130 ! A : print a line 180 IF K2=132 THEN PRINT A$; @ GOTO 130 ! UP : cursor up 190 IF K2=133 THEN PRINT B$; @ GOTO 130 ! DOWN : cursor down 200 IF K2=134 THEN PRINT D$; @ GOTO 130 ! LEFT : cursor left 210 IF K2=135 THEN PRINT C$; @ GOTO 130 ! RIGHT : cursor right 220 IF K2=137 THEN PRINT H$; @ GOTO 130 ! FET : cursor home 230 IF K2=138 THEN PRINT J$; @ GOTO 130 ! DEL : clear screen from cursor 240 IF K2=136 AND C1=0 THEN PRINT Q$; @ C1=1 @ GOTO 130 ! I/R : show insert cursor 250 IF K2=136 AND C1=1 THEN PRINT R$; @ C1=0 @ GOTO 130 ! I/R : show replace cursor 260 IF K2=168 AND C2=0 THEN PRINT G$; @ C2=1 @ GOTO 130 ! SHIFT+I/R : cursor on 270 IF K2=168 AND C2=1 THEN PRINT L$; @ C2=0 @ GOTO 130 ! SHIFT+I/R : cursor off 280 IF K2=164 THEN PRINT S$; @ GOTO 130 ! SHIFT+UP : roll up 290 IF K2=165 THEN PRINT T$; @ GOTO 130 ! SHIFT+DOWN : roll down 300 ! G : set cursor at row,col 310 IF K2=71 THEN INPUT 'Row,Col?'; I1,I2 @ PRINT P$&CHR$(I2)&CHR$(I1); @ GOTO 130 320 GOTO 130 ------------------------------------------------------------------------------------------------- YouTube video script ------------------------------------------------------------------------------------------------- CLR : clear screen S : print char set A : print a line of ' ' S : print char set A : print a line of '!' S : print char set A : print a line of '"' S : print char set A : print a line of '#' S : print char set A : print a line of '$' UP : cursor up UP : cursor up UP : cursor up RIGHT : cursor right RIGHT : cursor right RIGHT : cursor right I/R : show insert cursor SHIFT+I/R : cursor off SHIFT+I/R : cursor on I/R : show replace cursor UP : cursor up UP : cursor up UP : cursor up RIGHT : cursor right I/R : show insert cursor I/R : show replace cursor SHIFT+I/R : cursor off SHIFT+I/R : cursor on DOWN : cursor down LEFT : cursor left SHIFT+UP : roll up SHIFT+UP : roll up SHIFT+UP : roll up SHIFT+DOWN : roll down SHIFT+DOWN : roll down SHIFT+DOWN : roll down DEL : clear screen from cursor SHIFT+UP : roll up SHIFT+UP : roll up SHIFT+UP : roll up FET : cursor home G : set cursor at row,col : Row,Col? 10,20[RTN] Q : quit ------------------------------------------------------------------------------------------------- PIL-BOX with Gateway & Scope soft running ------------------------------------------------------------------------------------------------- UNL UNL UNL LAD 01 DAB 1B DAB 45 DAB 52 DAB 65 DAB 61 DAB 64 DAB 79 DAB 20 DAB 2E DAB 2E DAB 2E DAB 0D DAB 0A DAB 1B DAB 45 DAB 20 DAB 20 DAB 21 DAB 22 DAB 23 DAB 24 DAB 25 DAB 26 DAB 27 DAB 28 DAB 29 DAB 2A DAB 2B DAB 2C DAB 2D DAB 2E DAB 2F DAB 30 DAB 31 DAB 32 DAB 33 DAB 34 DAB 35 DAB 36 DAB 37 DAB 38 DAB 39 DAB 3A DAB 3B DAB 3C DAB 3D DAB 3E DAB 3F DAB 40 DAB 41 DAB 42 DAB 43 DAB 44 DAB 45 DAB 46 DAB 47 DAB 48 DAB 49 DAB 4A DAB 4B DAB 4C DAB 4D DAB 4E DAB 4F DAB 50 DAB 51 DAB 52 DAB 53 DAB 54 DAB 55 DAB 56 DAB 57 DAB 58 DAB 59 DAB 5A DAB 5B DAB 5C DAB 5D DAB 5E DAB 5F DAB 60 DAB 61 DAB 62 DAB 63 DAB 64 DAB 65 DAB 66 DAB 67 DAB 68 DAB 69 DAB 6A DAB 6B DAB 6C DAB 6D DAB 6E DAB 6F DAB 70 DAB 71 DAB 72 DAB 73 DAB 74 DAB 75 DAB 76 DAB 77 DAB 78 DAB 79 DAB 7A DAB 7B DAB 7C DAB 7D DAB 7E DAB 20 DAB A0 DAB A1 DAB A2 DAB A3 DAB A4 DAB A5 DAB A6 DAB A7 DAB A8 DAB A9 DAB AA DAB AB DAB AC DAB AD DAB AE DAB AF DAB B0 DAB B1 DAB B2 DAB B3 DAB B4 DAB B5 DAB B6 DAB B7 DAB B8 DAB B9 DAB BA DAB BB DAB BC DAB BD DAB BE DAB BF DAB C0 DAB C1 DAB C2 DAB C3 DAB C4 DAB C5 DAB C6 DAB C7 DAB C8 DAB C9 DAB CA DAB CB DAB CC DAB CD DAB CE DAB CF DAB D0 DAB D1 DAB D2 DAB D3 DAB D4 DAB D5 DAB D6 DAB D7 DAB D8 DAB D9 DAB DA DAB DB DAB DC DAB DD DAB DE DAB DF DAB E0 DAB E1 DAB E2 DAB E3 DAB E4 DAB E5 DAB E6 DAB E7 DAB E8 DAB E9 DAB EA DAB EB DAB EC DAB ED DAB EE DAB EF DAB F0 DAB F1 DAB F2 DAB F3 DAB F4 DAB F5 DAB F6 DAB F7 DAB F8 DAB F9 DAB FA DAB FB DAB FC DAB FD DAB FE DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 20 DAB 21 DAB 22 DAB 23 DAB 24 DAB 25 DAB 26 DAB 27 DAB 28 DAB 29 DAB 2A DAB 2B DAB 2C DAB 2D DAB 2E DAB 2F DAB 30 DAB 31 DAB 32 DAB 33 DAB 34 DAB 35 DAB 36 DAB 37 DAB 38 DAB 39 DAB 3A DAB 3B DAB 3C DAB 3D DAB 3E DAB 3F DAB 40 DAB 41 DAB 42 DAB 43 DAB 44 DAB 45 DAB 46 DAB 47 DAB 48 DAB 49 DAB 4A DAB 4B DAB 4C DAB 4D DAB 4E DAB 4F DAB 50 DAB 51 DAB 52 DAB 53 DAB 54 DAB 55 DAB 56 DAB 57 DAB 58 DAB 59 DAB 5A DAB 5B DAB 5C DAB 5D DAB 5E DAB 5F DAB 60 DAB 61 DAB 62 DAB 63 DAB 64 DAB 65 DAB 66 DAB 67 DAB 68 DAB 69 DAB 6A DAB 6B DAB 6C DAB 6D DAB 6E DAB 6F DAB 70 DAB 71 DAB 72 DAB 73 DAB 74 DAB 75 DAB 76 DAB 77 DAB 78 DAB 79 DAB 7A DAB 7B DAB 7C DAB 7D DAB 7E DAB 20 DAB A0 DAB A1 DAB A2 DAB A3 DAB A4 DAB A5 DAB A6 DAB A7 DAB A8 DAB A9 DAB AA DAB AB DAB AC DAB AD DAB AE DAB AF DAB B0 DAB B1 DAB B2 DAB B3 DAB B4 DAB B5 DAB B6 DAB B7 DAB B8 DAB B9 DAB BA DAB BB DAB BC DAB BD DAB BE DAB BF DAB C0 DAB C1 DAB C2 DAB C3 DAB C4 DAB C5 DAB C6 DAB C7 DAB C8 DAB C9 DAB CA DAB CB DAB CC DAB CD DAB CE DAB CF DAB D0 DAB D1 DAB D2 DAB D3 DAB D4 DAB D5 DAB D6 DAB D7 DAB D8 DAB D9 DAB DA DAB DB DAB DC DAB DD DAB DE DAB DF DAB E0 DAB E1 DAB E2 DAB E3 DAB E4 DAB E5 DAB E6 DAB E7 DAB E8 DAB E9 DAB EA DAB EB DAB EC DAB ED DAB EE DAB EF DAB F0 DAB F1 DAB F2 DAB F3 DAB F4 DAB F5 DAB F6 DAB F7 DAB F8 DAB F9 DAB FA DAB FB DAB FC DAB FD DAB FE DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 21 DAB 20 DAB 20 DAB 21 DAB 22 DAB 23 DAB 24 DAB 25 DAB 26 DAB 27 DAB 28 DAB 29 DAB 2A DAB 2B DAB 2C DAB 2D DAB 2E DAB 2F DAB 30 DAB 31 DAB 32 DAB 33 DAB 34 DAB 35 DAB 36 DAB 37 DAB 38 DAB 39 DAB 3A DAB 3B DAB 3C DAB 3D DAB 3E DAB 3F DAB 40 DAB 41 DAB 42 DAB 43 DAB 44 DAB 45 DAB 46 DAB 47 DAB 48 DAB 49 DAB 4A DAB 4B DAB 4C DAB 4D DAB 4E DAB 4F DAB 50 DAB 51 DAB 52 DAB 53 DAB 54 DAB 55 DAB 56 DAB 57 DAB 58 DAB 59 DAB 5A DAB 5B DAB 5C DAB 5D DAB 5E DAB 5F DAB 60 DAB 61 DAB 62 DAB 63 DAB 64 DAB 65 DAB 66 DAB 67 DAB 68 DAB 69 DAB 6A DAB 6B DAB 6C DAB 6D DAB 6E DAB 6F DAB 70 DAB 71 DAB 72 DAB 73 DAB 74 DAB 75 DAB 76 DAB 77 DAB 78 DAB 79 DAB 7A DAB 7B DAB 7C DAB 7D DAB 7E DAB 20 DAB A0 DAB A1 DAB A2 DAB A3 DAB A4 DAB A5 DAB A6 DAB A7 DAB A8 DAB A9 DAB AA DAB AB DAB AC DAB AD DAB AE DAB AF DAB B0 DAB B1 DAB B2 DAB B3 DAB B4 DAB B5 DAB B6 DAB B7 DAB B8 DAB B9 DAB BA DAB BB DAB BC DAB BD DAB BE DAB BF DAB C0 DAB C1 DAB C2 DAB C3 DAB C4 DAB C5 DAB C6 DAB C7 DAB C8 DAB C9 DAB CA DAB CB DAB CC DAB CD DAB CE DAB CF DAB D0 DAB D1 DAB D2 DAB D3 DAB D4 DAB D5 DAB D6 DAB D7 DAB D8 DAB D9 DAB DA DAB DB DAB DC DAB DD DAB DE DAB DF DAB E0 DAB E1 DAB E2 DAB E3 DAB E4 DAB E5 DAB E6 DAB E7 DAB E8 DAB E9 DAB EA DAB EB DAB EC DAB ED DAB EE DAB EF DAB F0 DAB F1 DAB F2 DAB F3 DAB F4 DAB F5 DAB F6 DAB F7 DAB F8 DAB F9 DAB FA DAB FB DAB FC DAB FD DAB FE DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 22 DAB 20 DAB 20 DAB 21 DAB 22 DAB 23 DAB 24 DAB 25 DAB 26 DAB 27 DAB 28 DAB 29 DAB 2A DAB 2B DAB 2C DAB 2D DAB 2E DAB 2F DAB 30 DAB 31 DAB 32 DAB 33 DAB 34 DAB 35 DAB 36 DAB 37 DAB 38 DAB 39 DAB 3A DAB 3B DAB 3C DAB 3D DAB 3E DAB 3F DAB 40 DAB 41 DAB 42 DAB 43 DAB 44 DAB 45 DAB 46 DAB 47 DAB 48 DAB 49 DAB 4A DAB 4B DAB 4C DAB 4D DAB 4E DAB 4F DAB 50 DAB 51 DAB 52 DAB 53 DAB 54 DAB 55 DAB 56 DAB 57 DAB 58 DAB 59 DAB 5A DAB 5B DAB 5C DAB 5D DAB 5E DAB 5F DAB 60 DAB 61 DAB 62 DAB 63 DAB 64 DAB 65 DAB 66 DAB 67 DAB 68 DAB 69 DAB 6A DAB 6B DAB 6C DAB 6D DAB 6E DAB 6F DAB 70 DAB 71 DAB 72 DAB 73 DAB 74 DAB 75 DAB 76 DAB 77 DAB 78 DAB 79 DAB 7A DAB 7B DAB 7C DAB 7D DAB 7E DAB 20 DAB A0 DAB A1 DAB A2 DAB A3 DAB A4 DAB A5 DAB A6 DAB A7 DAB A8 DAB A9 DAB AA DAB AB DAB AC DAB AD DAB AE DAB AF DAB B0 DAB B1 DAB B2 DAB B3 DAB B4 DAB B5 DAB B6 DAB B7 DAB B8 DAB B9 DAB BA DAB BB DAB BC DAB BD DAB BE DAB BF DAB C0 DAB C1 DAB C2 DAB C3 DAB C4 DAB C5 DAB C6 DAB C7 DAB C8 DAB C9 DAB CA DAB CB DAB CC DAB CD DAB CE DAB CF DAB D0 DAB D1 DAB D2 DAB D3 DAB D4 DAB D5 DAB D6 DAB D7 DAB D8 DAB D9 DAB DA DAB DB DAB DC DAB DD DAB DE DAB DF DAB E0 DAB E1 DAB E2 DAB E3 DAB E4 DAB E5 DAB E6 DAB E7 DAB E8 DAB E9 DAB EA DAB EB DAB EC DAB ED DAB EE DAB EF DAB F0 DAB F1 DAB F2 DAB F3 DAB F4 DAB F5 DAB F6 DAB F7 DAB F8 DAB F9 DAB FA DAB FB DAB FC DAB FD DAB FE DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 23 DAB 20 DAB 20 DAB 21 DAB 22 DAB 23 DAB 24 DAB 25 DAB 26 DAB 27 DAB 28 DAB 29 DAB 2A DAB 2B DAB 2C DAB 2D DAB 2E DAB 2F DAB 30 DAB 31 DAB 32 DAB 33 DAB 34 DAB 35 DAB 36 DAB 37 DAB 38 DAB 39 DAB 3A DAB 3B DAB 3C DAB 3D DAB 3E DAB 3F DAB 40 DAB 41 DAB 42 DAB 43 DAB 44 DAB 45 DAB 46 DAB 47 DAB 48 DAB 49 DAB 4A DAB 4B DAB 4C DAB 4D DAB 4E DAB 4F DAB 50 DAB 51 DAB 52 DAB 53 DAB 54 DAB 55 DAB 56 DAB 57 DAB 58 DAB 59 DAB 5A DAB 5B DAB 5C DAB 5D DAB 5E DAB 5F DAB 60 DAB 61 DAB 62 DAB 63 DAB 64 DAB 65 DAB 66 DAB 67 DAB 68 DAB 69 DAB 6A DAB 6B DAB 6C DAB 6D DAB 6E DAB 6F DAB 70 DAB 71 DAB 72 DAB 73 DAB 74 DAB 75 DAB 76 DAB 77 DAB 78 DAB 79 DAB 7A DAB 7B DAB 7C DAB 7D DAB 7E DAB 20 DAB A0 DAB A1 DAB A2 DAB A3 DAB A4 DAB A5 DAB A6 DAB A7 DAB A8 DAB A9 DAB AA DAB AB DAB AC DAB AD DAB AE DAB AF DAB B0 DAB B1 DAB B2 DAB B3 DAB B4 DAB B5 DAB B6 DAB B7 DAB B8 DAB B9 DAB BA DAB BB DAB BC DAB BD DAB BE DAB BF DAB C0 DAB C1 DAB C2 DAB C3 DAB C4 DAB C5 DAB C6 DAB C7 DAB C8 DAB C9 DAB CA DAB CB DAB CC DAB CD DAB CE DAB CF DAB D0 DAB D1 DAB D2 DAB D3 DAB D4 DAB D5 DAB D6 DAB D7 DAB D8 DAB D9 DAB DA DAB DB DAB DC DAB DD DAB DE DAB DF DAB E0 DAB E1 DAB E2 DAB E3 DAB E4 DAB E5 DAB E6 DAB E7 DAB E8 DAB E9 DAB EA DAB EB DAB EC DAB ED DAB EE DAB EF DAB F0 DAB F1 DAB F2 DAB F3 DAB F4 DAB F5 DAB F6 DAB F7 DAB F8 DAB F9 DAB FA DAB FB DAB FC DAB FD DAB FE DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 24 DAB 1B DAB 41 DAB 1B DAB 41 DAB 1B DAB 41 DAB 1B DAB 43 DAB 1B DAB 43 DAB 1B DAB 43 DAB 1B DAB 51 DAB 1B DAB 3C DAB 1B DAB 3E DAB 1B DAB 52 DAB 1B DAB 41 DAB 1B DAB 41 DAB 1B DAB 41 DAB 1B DAB 43 DAB 1B DAB 51 DAB 1B DAB 52 DAB 1B DAB 3C DAB 1B DAB 3E DAB 1B DAB 42 DAB 1B DAB 44 DAB 1B DAB 53 DAB 1B DAB 53 DAB 1B DAB 53 DAB 1B DAB 54 DAB 1B DAB 54 DAB 1B DAB 54 DAB 1B DAB 4A DAB 1B DAB 53 DAB 1B DAB 53 DAB 1B DAB 53 DAB 1B DAB 48 DAB 1B DAB 25 DAB 14 DAB 0A DAB 1B DAB 45 DAB 4C DAB 65 DAB 61 DAB 76 DAB 69 DAB 6E DAB 67 DAB 20 DAB 2E DAB 2E DAB 2E DAB 0D DAB 0A LPD -------------------------------------------------------------------------------------------------

Edited: 1 July 2013, 11:27 a.m.

Password:

[ Return to the Message Index ]

Go back to the main exhibit hall