� VDU Poker
� By Neil Davidson
� (c) Electron User
(� 6
2� ' �40,"*");
<[� ' �ctr("Vdu Poker")'�ctr("by")'�ctr("Neil Davidson")''�ctr("(c) Electron User 1988") 
F� �0,9);�40,"*"); 
P� 28,0,24,39,12
Z	�poke
d�
n 
x� �ctr(A$)
�� �20-�A$/2);:=A$
�� �vdu(vdu$)
�Z%=� vdu$-1
�.� �vdu$,1)="$" � total$=total$+�vdu$,Z%):�
�H� �vdu$,1)=";" � E%=�(�vdu$,Z%)):total$=total$+�(E%�256)+�(E%�256):�
�6� �vdu$,1)="D" total$=total$+Ġ(�vdu$,Z%)),�127):�
�B� �vdu$,1)="Q" E%=�(�vdu$,Z%)):�'"VDU ";E%;" : "'vdata$(E%)':�
�total$=total$+�(�vdu$)
��
� 
�� �newline
��"Line number ..."L%
�total$=�34+total$

?&A00=� total$:$&A01=total$

5�"KEY0 "+�L%+"REM"+ĩ total$," ")+"|MPROCvduit|M"

*FX138,0,128

"�

, 

6� �vduit

@
T%=�+3

J0� ?(T%-2)*256+?(T%-1)<>L% � T%=T%+?T%:� �DJA

T� G%=T%+2 � T%+?&A00+1

^?G%=?(G%-T%-2+&A01)

h� 

r�

| 

�� �input

�
total$=""

��

�� �"VDU =>"A$

�� A$="" � �TpB

�L%=� A$

�V%=0

��

�	S%=V%

��

�V%=V%+1

�C$=�A$,V%,1)

�� V%>L% � C$="," � C$=";"
G$=�A$,S%+1,V%-S%-1)
� C$=";" � G$=G$+C$
� G$<>"" � �vdu(G$)
&� V%>L%
0� A$=""
:�
D 
N� �poke
X	�data
b
�input
l�newline
v�
� 
�� �data
�� vdata$(255)
�� G%=0 � 32
�� vdata$(G%)
��
�� G%=33 � 126
�vdata$(G%)=�(G%)
��
�� vdata$(127)
�� G%=128 � 255
�vdata$(G%)="User definable"
��
�
 
�� Nothing,Send character to printer only,Enable printer,Disable printer,Write text at cursor,Write text at graphics cursor,Enable vdu output (undoes VDU21),Beep,Backspace cursor one character,Forward character one place
 �� Move cursor down one line,Move cursor up one line,Clear text area (CLS),Move cursor to start of current line,Page mode on,Page mode off,Clear graphics area (CLG),"Define text colour (VDU17,colour) :     COLOUR"
*�� "Define graphics colour (VDU18,GCOL1,    GCOL2) : GCOL","Define logical colour (VDU19,logical    colour,actual colour;0;)",Restore default logical colours,Disable vdu output (opposite of VDU6),"Select screen mode (VDU22,mode)"
4�� "Redefine character (VDU23,character,n1, n2,n3,n4,n5,n6,n7,n8).To eliminate      cursor : 'VDU23;8202;0;0;0;'.To create  cursor : 'VDU23,1,1;0;0;0;'","Define graphics window (VDU24,x1;y1;x2; y2;)"
>�� "Plot K,x,y (VDU5,K,x;y;) : K=4 - Move ; K=5 - Draw (see User Guide for others)",Restore default windows,Escape code (printer),"Define text window (VDU28,x1,y1,x2,y2)","Define graphics origin (VDU29,x1;y1;x2; y2;)"
H�� Home text cursor to top left,"Move text cursor to position on screen (VDU31,x,y) : PRINT TAB(x,y)",Space,Backspace and delete
�

00000000  0d 00 0a 0f f4 20 56 44  55 20 50 6f 6b 65 72 0d  |..... VDU Poker.|
00000010  00 14 16 f4 20 42 79 20  4e 65 69 6c 20 44 61 76  |.... By Neil Dav|
00000020  69 64 73 6f 6e 0d 00 1e  17 f4 20 28 63 29 20 45  |idson..... (c) E|
00000030  6c 65 63 74 72 6f 6e 20  55 73 65 72 0d 00 28 07  |lectron User..(.|
00000040  eb 20 36 0d 00 32 11 f1  20 27 20 c4 34 30 2c 22  |. 6..2.. ' .40,"|
00000050  2a 22 29 3b 0d 00 3c 5b  f1 20 27 20 a4 63 74 72  |*");..<[. ' .ctr|
00000060  28 22 56 64 75 20 50 6f  6b 65 72 22 29 27 a4 63  |("Vdu Poker")'.c|
00000070  74 72 28 22 62 79 22 29  27 a4 63 74 72 28 22 4e  |tr("by")'.ctr("N|
00000080  65 69 6c 20 44 61 76 69  64 73 6f 6e 22 29 27 27  |eil Davidson")''|
00000090  a4 63 74 72 28 22 28 63  29 20 45 6c 65 63 74 72  |.ctr("(c) Electr|
000000a0  6f 6e 20 55 73 65 72 20  31 39 38 38 22 29 20 0d  |on User 1988") .|
000000b0  00 46 16 f1 20 8a 30 2c  39 29 3b c4 34 30 2c 22  |.F.. .0,9);.40,"|
000000c0  2a 22 29 3b 20 0d 00 50  13 ef 20 32 38 2c 30 2c  |*"); ..P.. 28,0,|
000000d0  32 34 2c 33 39 2c 31 32  0d 00 5a 09 f2 70 6f 6b  |24,39,12..Z..pok|
000000e0  65 0d 00 64 05 e0 0d 00  6e 05 20 0d 00 78 0e dd  |e..d....n. ..x..|
000000f0  20 a4 63 74 72 28 41 24  29 0d 00 82 15 f1 20 8a  | .ctr(A$)..... .|
00000100  32 30 2d a9 41 24 2f 32  29 3b 3a 3d 41 24 0d 00  |20-.A$/2);:=A$..|
00000110  8c 10 dd 20 f2 76 64 75  28 76 64 75 24 29 0d 00  |... .vdu(vdu$)..|
00000120  96 0f 5a 25 3d a9 20 76  64 75 24 2d 31 0d 00 a0  |..Z%=. vdu$-1...|
00000130  2e e7 20 c2 76 64 75 24  2c 31 29 3d 22 24 22 20  |.. .vdu$,1)="$" |
00000140  8c 20 74 6f 74 61 6c 24  3d 74 6f 74 61 6c 24 2b  |. total$=total$+|
00000150  c0 76 64 75 24 2c 5a 25  29 3a e1 0d 00 aa 48 e7  |.vdu$,Z%):....H.|
00000160  20 c2 76 64 75 24 2c 31  29 3d 22 3b 22 20 8c 20  | .vdu$,1)=";" . |
00000170  45 25 3d a0 28 c0 76 64  75 24 2c 5a 25 29 29 3a  |E%=.(.vdu$,Z%)):|
00000180  74 6f 74 61 6c 24 3d 74  6f 74 61 6c 24 2b bd 28  |total$=total$+.(|
00000190  45 25 83 32 35 36 29 2b  bd 28 45 25 81 32 35 36  |E%.256)+.(E%.256|
000001a0  29 3a e1 0d 00 b4 36 e7  20 c0 76 64 75 24 2c 31  |):....6. .vdu$,1|
000001b0  29 3d 22 44 22 20 74 6f  74 61 6c 24 3d 74 6f 74  |)="D" total$=tot|
000001c0  61 6c 24 2b c4 a0 28 c2  76 64 75 24 2c 5a 25 29  |al$+..(.vdu$,Z%)|
000001d0  29 2c bd 31 32 37 29 3a  e1 0d 00 be 42 e7 20 c0  |),.127):....B. .|
000001e0  76 64 75 24 2c 31 29 3d  22 51 22 20 45 25 3d a0  |vdu$,1)="Q" E%=.|
000001f0  28 c2 76 64 75 24 2c 5a  25 29 29 3a f1 27 22 56  |(.vdu$,Z%)):.'"V|
00000200  44 55 20 22 3b 45 25 3b  22 20 3a 20 22 27 76 64  |DU ";E%;" : "'vd|
00000210  61 74 61 24 28 45 25 29  27 3a e1 0d 00 c8 1a 74  |ata$(E%)':.....t|
00000220  6f 74 61 6c 24 3d 74 6f  74 61 6c 24 2b bd 28 a0  |otal$=total$+.(.|
00000230  76 64 75 24 29 0d 00 d2  05 e1 0d 00 dc 05 20 0d  |vdu$)......... .|
00000240  00 e6 0e dd 20 f2 6e 65  77 6c 69 6e 65 0d 00 f0  |.... .newline...|
00000250  18 e8 22 4c 69 6e 65 20  6e 75 6d 62 65 72 20 2e  |.."Line number .|
00000260  2e 2e 22 4c 25 0d 00 fa  15 74 6f 74 61 6c 24 3d  |.."L%....total$=|
00000270  bd 33 34 2b 74 6f 74 61  6c 24 0d 01 04 1f 3f 26  |.34+total$....?&|
00000280  41 30 30 3d a9 20 74 6f  74 61 6c 24 3a 24 26 41  |A00=. total$:$&A|
00000290  30 31 3d 74 6f 74 61 6c  24 0d 01 0e 35 ff 22 4b  |01=total$...5."K|
000002a0  45 59 30 20 22 2b c3 4c  25 2b 22 52 45 4d 22 2b  |EY0 "+.L%+"REM"+|
000002b0  c4 a9 20 74 6f 74 61 6c  24 2c 22 20 22 29 2b 22  |.. total$," ")+"|
000002c0  7c 4d 50 52 4f 43 76 64  75 69 74 7c 4d 22 0d 01  ||MPROCvduit|M"..|
000002d0  18 10 2a 46 58 31 33 38  2c 30 2c 31 32 38 0d 01  |..*FX138,0,128..|
000002e0  22 05 e0 0d 01 2c 05 20  0d 01 36 0c dd 20 f2 76  |"....,. ..6.. .v|
000002f0  64 75 69 74 0d 01 40 0a  54 25 3d 90 2b 33 0d 01  |duit..@.T%=.+3..|
00000300  4a 30 e7 20 3f 28 54 25  2d 32 29 2a 32 35 36 2b  |J0. ?(T%-2)*256+|
00000310  3f 28 54 25 2d 31 29 3c  3e 4c 25 20 8c 20 54 25  |?(T%-1)<>L% . T%|
00000320  3d 54 25 2b 3f 54 25 3a  e5 20 8d 44 4a 41 0d 01  |=T%+?T%:. .DJA..|
00000330  54 1a e3 20 47 25 3d 54  25 2b 32 20 b8 20 54 25  |T.. G%=T%+2 . T%|
00000340  2b 3f 26 41 30 30 2b 31  0d 01 5e 17 3f 47 25 3d  |+?&A00+1..^.?G%=|
00000350  3f 28 47 25 2d 54 25 2d  32 2b 26 41 30 31 29 0d  |?(G%-T%-2+&A01).|
00000360  01 68 06 ed 20 0d 01 72  05 e0 0d 01 7c 05 20 0d  |.h.. ..r....|. .|
00000370  01 86 0c dd 20 f2 69 6e  70 75 74 0d 01 90 0d 74  |.... .input....t|
00000380  6f 74 61 6c 24 3d 22 22  0d 01 9a 05 f5 0d 01 a4  |otal$=""........|
00000390  11 e8 20 86 22 56 44 55  20 3d 3e 22 41 24 0d 01  |.. ."VDU =>"A$..|
000003a0  ae 12 e7 20 41 24 3d 22  22 20 8c 20 8d 54 70 42  |... A$="" . .TpB|
000003b0  0d 01 b8 0b 4c 25 3d a9  20 41 24 0d 01 c2 08 56  |....L%=. A$....V|
000003c0  25 3d 30 0d 01 cc 05 f5  0d 01 d6 09 53 25 3d 56  |%=0.........S%=V|
000003d0  25 0d 01 e0 05 f5 0d 01  ea 0b 56 25 3d 56 25 2b  |%.........V%=V%+|
000003e0  31 0d 01 f4 10 43 24 3d  c1 41 24 2c 56 25 2c 31  |1....C$=.A$,V%,1|
000003f0  29 0d 01 fe 1d fd 20 56  25 3e 4c 25 20 84 20 43  |)..... V%>L% . C|
00000400  24 3d 22 2c 22 20 84 20  43 24 3d 22 3b 22 0d 02  |$="," . C$=";"..|
00000410  08 18 47 24 3d c1 41 24  2c 53 25 2b 31 2c 56 25  |..G$=.A$,S%+1,V%|
00000420  2d 53 25 2d 31 29 0d 02  12 17 e7 20 43 24 3d 22  |-S%-1)..... C$="|
00000430  3b 22 20 8c 20 47 24 3d  47 24 2b 43 24 0d 02 1c  |;" . G$=G$+C$...|
00000440  17 e7 20 47 24 3c 3e 22  22 20 8c 20 f2 76 64 75  |.. G$<>"" . .vdu|
00000450  28 47 24 29 0d 02 26 0b  fd 20 56 25 3e 4c 25 0d  |(G$)..&.. V%>L%.|
00000460  02 30 0b fd 20 41 24 3d  22 22 0d 02 3a 05 e1 0d  |.0.. A$=""..:...|
00000470  02 44 05 20 0d 02 4e 0b  dd 20 f2 70 6f 6b 65 0d  |.D. ..N.. .poke.|
00000480  02 58 09 f2 64 61 74 61  0d 02 62 0a f2 69 6e 70  |.X..data..b..inp|
00000490  75 74 0d 02 6c 0c f2 6e  65 77 6c 69 6e 65 0d 02  |ut..l..newline..|
000004a0  76 05 e1 0d 02 80 05 20  0d 02 8a 0b dd 20 f2 64  |v...... ..... .d|
000004b0  61 74 61 0d 02 94 11 de  20 76 64 61 74 61 24 28  |ata..... vdata$(|
000004c0  32 35 35 29 0d 02 9e 0f  e3 20 47 25 3d 30 20 b8  |255)..... G%=0 .|
000004d0  20 33 32 0d 02 a8 10 f3  20 76 64 61 74 61 24 28  | 32..... vdata$(|
000004e0  47 25 29 0d 02 b2 05 ed  0d 02 bc 11 e3 20 47 25  |G%).......... G%|
000004f0  3d 33 33 20 b8 20 31 32  36 0d 02 c6 14 76 64 61  |=33 . 126....vda|
00000500  74 61 24 28 47 25 29 3d  bd 28 47 25 29 0d 02 d0  |ta$(G%)=.(G%)...|
00000510  05 ed 0d 02 da 11 f3 20  76 64 61 74 61 24 28 31  |....... vdata$(1|
00000520  32 37 29 0d 02 e4 12 e3  20 47 25 3d 31 32 38 20  |27)..... G%=128 |
00000530  b8 20 32 35 35 0d 02 ee  1f 76 64 61 74 61 24 28  |. 255....vdata$(|
00000540  47 25 29 3d 22 55 73 65  72 20 64 65 66 69 6e 61  |G%)="User defina|
00000550  62 6c 65 22 0d 02 f8 05  ed 0d 03 02 05 e1 0d 03  |ble"............|
00000560  0c 05 20 0d 03 16 df dc  20 4e 6f 74 68 69 6e 67  |.. ..... Nothing|
00000570  2c 53 65 6e 64 20 63 68  61 72 61 63 74 65 72 20  |,Send character |
00000580  74 6f 20 70 72 69 6e 74  65 72 20 6f 6e 6c 79 2c  |to printer only,|
00000590  45 6e 61 62 6c 65 20 70  72 69 6e 74 65 72 2c 44  |Enable printer,D|
000005a0  69 73 61 62 6c 65 20 70  72 69 6e 74 65 72 2c 57  |isable printer,W|
000005b0  72 69 74 65 20 74 65 78  74 20 61 74 20 63 75 72  |rite text at cur|
000005c0  73 6f 72 2c 57 72 69 74  65 20 74 65 78 74 20 61  |sor,Write text a|
000005d0  74 20 67 72 61 70 68 69  63 73 20 63 75 72 73 6f  |t graphics curso|
000005e0  72 2c 45 6e 61 62 6c 65  20 76 64 75 20 6f 75 74  |r,Enable vdu out|
000005f0  70 75 74 20 28 75 6e 64  6f 65 73 20 56 44 55 32  |put (undoes VDU2|
00000600  31 29 2c 42 65 65 70 2c  42 61 63 6b 73 70 61 63  |1),Beep,Backspac|
00000610  65 20 63 75 72 73 6f 72  20 6f 6e 65 20 63 68 61  |e cursor one cha|
00000620  72 61 63 74 65 72 2c 46  6f 72 77 61 72 64 20 63  |racter,Forward c|
00000630  68 61 72 61 63 74 65 72  20 6f 6e 65 20 70 6c 61  |haracter one pla|
00000640  63 65 0d 03 20 d8 dc 20  4d 6f 76 65 20 63 75 72  |ce.. .. Move cur|
00000650  73 6f 72 20 64 6f 77 6e  20 6f 6e 65 20 6c 69 6e  |sor down one lin|
00000660  65 2c 4d 6f 76 65 20 63  75 72 73 6f 72 20 75 70  |e,Move cursor up|
00000670  20 6f 6e 65 20 6c 69 6e  65 2c 43 6c 65 61 72 20  | one line,Clear |
00000680  74 65 78 74 20 61 72 65  61 20 28 43 4c 53 29 2c  |text area (CLS),|
00000690  4d 6f 76 65 20 63 75 72  73 6f 72 20 74 6f 20 73  |Move cursor to s|
000006a0  74 61 72 74 20 6f 66 20  63 75 72 72 65 6e 74 20  |tart of current |
000006b0  6c 69 6e 65 2c 50 61 67  65 20 6d 6f 64 65 20 6f  |line,Page mode o|
000006c0  6e 2c 50 61 67 65 20 6d  6f 64 65 20 6f 66 66 2c  |n,Page mode off,|
000006d0  43 6c 65 61 72 20 67 72  61 70 68 69 63 73 20 61  |Clear graphics a|
000006e0  72 65 61 20 28 43 4c 47  29 2c 22 44 65 66 69 6e  |rea (CLG),"Defin|
000006f0  65 20 74 65 78 74 20 63  6f 6c 6f 75 72 20 28 56  |e text colour (V|
00000700  44 55 31 37 2c 63 6f 6c  6f 75 72 29 20 3a 20 20  |DU17,colour) :  |
00000710  20 20 20 43 4f 4c 4f 55  52 22 0d 03 2a e8 dc 20  |   COLOUR"..*.. |
00000720  22 44 65 66 69 6e 65 20  67 72 61 70 68 69 63 73  |"Define graphics|
00000730  20 63 6f 6c 6f 75 72 20  28 56 44 55 31 38 2c 47  | colour (VDU18,G|
00000740  43 4f 4c 31 2c 20 20 20  20 47 43 4f 4c 32 29 20  |COL1,    GCOL2) |
00000750  3a 20 47 43 4f 4c 22 2c  22 44 65 66 69 6e 65 20  |: GCOL","Define |
00000760  6c 6f 67 69 63 61 6c 20  63 6f 6c 6f 75 72 20 28  |logical colour (|
00000770  56 44 55 31 39 2c 6c 6f  67 69 63 61 6c 20 20 20  |VDU19,logical   |
00000780  20 63 6f 6c 6f 75 72 2c  61 63 74 75 61 6c 20 63  | colour,actual c|
00000790  6f 6c 6f 75 72 3b 30 3b  29 22 2c 52 65 73 74 6f  |olour;0;)",Resto|
000007a0  72 65 20 64 65 66 61 75  6c 74 20 6c 6f 67 69 63  |re default logic|
000007b0  61 6c 20 63 6f 6c 6f 75  72 73 2c 44 69 73 61 62  |al colours,Disab|
000007c0  6c 65 20 76 64 75 20 6f  75 74 70 75 74 20 28 6f  |le vdu output (o|
000007d0  70 70 6f 73 69 74 65 20  6f 66 20 56 44 55 36 29  |pposite of VDU6)|
000007e0  2c 22 53 65 6c 65 63 74  20 73 63 72 65 65 6e 20  |,"Select screen |
000007f0  6d 6f 64 65 20 28 56 44  55 32 32 2c 6d 6f 64 65  |mode (VDU22,mode|
00000800  29 22 0d 03 34 ca dc 20  22 52 65 64 65 66 69 6e  |)"..4.. "Redefin|
00000810  65 20 63 68 61 72 61 63  74 65 72 20 28 56 44 55  |e character (VDU|
00000820  32 33 2c 63 68 61 72 61  63 74 65 72 2c 6e 31 2c  |23,character,n1,|
00000830  20 6e 32 2c 6e 33 2c 6e  34 2c 6e 35 2c 6e 36 2c  | n2,n3,n4,n5,n6,|
00000840  6e 37 2c 6e 38 29 2e 54  6f 20 65 6c 69 6d 69 6e  |n7,n8).To elimin|
00000850  61 74 65 20 20 20 20 20  20 63 75 72 73 6f 72 20  |ate      cursor |
00000860  3a 20 27 56 44 55 32 33  3b 38 32 30 32 3b 30 3b  |: 'VDU23;8202;0;|
00000870  30 3b 30 3b 27 2e 54 6f  20 63 72 65 61 74 65 20  |0;0;'.To create |
00000880  20 63 75 72 73 6f 72 20  3a 20 27 56 44 55 32 33  | cursor : 'VDU23|
00000890  2c 31 2c 31 3b 30 3b 30  3b 30 3b 27 22 2c 22 44  |,1,1;0;0;0;'","D|
000008a0  65 66 69 6e 65 20 67 72  61 70 68 69 63 73 20 77  |efine graphics w|
000008b0  69 6e 64 6f 77 20 28 56  44 55 32 34 2c 78 31 3b  |indow (VDU24,x1;|
000008c0  79 31 3b 78 32 3b 20 79  32 3b 29 22 0d 03 3e dc  |y1;x2; y2;)"..>.|
000008d0  dc 20 22 50 6c 6f 74 20  4b 2c 78 2c 79 20 28 56  |. "Plot K,x,y (V|
000008e0  44 55 35 2c 4b 2c 78 3b  79 3b 29 20 3a 20 4b 3d  |DU5,K,x;y;) : K=|
000008f0  34 20 2d 20 4d 6f 76 65  20 3b 20 4b 3d 35 20 2d  |4 - Move ; K=5 -|
00000900  20 44 72 61 77 20 28 73  65 65 20 55 73 65 72 20  | Draw (see User |
00000910  47 75 69 64 65 20 66 6f  72 20 6f 74 68 65 72 73  |Guide for others|
00000920  29 22 2c 52 65 73 74 6f  72 65 20 64 65 66 61 75  |)",Restore defau|
00000930  6c 74 20 77 69 6e 64 6f  77 73 2c 45 73 63 61 70  |lt windows,Escap|
00000940  65 20 63 6f 64 65 20 28  70 72 69 6e 74 65 72 29  |e code (printer)|
00000950  2c 22 44 65 66 69 6e 65  20 74 65 78 74 20 77 69  |,"Define text wi|
00000960  6e 64 6f 77 20 28 56 44  55 32 38 2c 78 31 2c 79  |ndow (VDU28,x1,y|
00000970  31 2c 78 32 2c 79 32 29  22 2c 22 44 65 66 69 6e  |1,x2,y2)","Defin|
00000980  65 20 67 72 61 70 68 69  63 73 20 6f 72 69 67 69  |e graphics origi|
00000990  6e 20 28 56 44 55 32 39  2c 78 31 3b 79 31 3b 78  |n (VDU29,x1;y1;x|
000009a0  32 3b 20 79 32 3b 29 22  0d 03 48 83 dc 20 48 6f  |2; y2;)"..H.. Ho|
000009b0  6d 65 20 74 65 78 74 20  63 75 72 73 6f 72 20 74  |me text cursor t|
000009c0  6f 20 74 6f 70 20 6c 65  66 74 2c 22 4d 6f 76 65  |o top left,"Move|
000009d0  20 74 65 78 74 20 63 75  72 73 6f 72 20 74 6f 20  | text cursor to |
000009e0  70 6f 73 69 74 69 6f 6e  20 6f 6e 20 73 63 72 65  |position on scre|
000009f0  65 6e 20 28 56 44 55 33  31 2c 78 2c 79 29 20 3a  |en (VDU31,x,y) :|
00000a00  20 50 52 49 4e 54 20 54  41 42 28 78 2c 79 29 22  | PRINT TAB(x,y)"|
00000a10  2c 53 70 61 63 65 2c 42  61 63 6b 73 70 61 63 65  |,Space,Backspace|
00000a20  20 61 6e 64 20 64 65 6c  65 74 65 0d ff           | and delete..|
00000a2d