HP Business BASIC/XL Reference Manual - HP 3000 MPE/iX Computer Systems - Edition 1 (32715-90001)

9-: 14
50 Suit$(1)="spades"
60 Suit$(2)="hearts"
70 Suit$(3)="clubs"
80 Suit$(4)="diamonds"
.
.
.
200 COPTION NORANGE CHECKING
210 FOR I=1 TO 62
220 Deck(I)=I
230 NEXT I
.
.
.
I D E N T I F I E R T A B L E
IDENTIFIER CLASS TYPE ADDRESS
Deck ARRAY REAL SP- $774,I
I SIMPLE INTEGER SP- $778
Ranks$ ARRAY STRING SP- $76C,I
Suits$ ARRAY STRING SP- $770,I
PAGE 3 function fnprint
1000 DEF FNPrint$(SHORT INTEGER Row, Col, S$)
1010 COPTION TITLESUB="Function FNPrint",PAGESUB,NO WARN,NO LABEL TABLES
1015 PAUSE
1020 Move_to(Row, Col)
1030 RETURN S$
1090 FNEND
1095 !***** Subprogram to move the cursor.
I D E N T I F I E R T A B L E
IDENTIFIER CLASS TYPE ADDRESS
Col SIMPLE PARAMETER INTEGER PSP-$28,I
FNPrint$ FUNCTION STRING
Move_to SUBPROGRAM
Row SIMPLE PARAMETER INTEGER PSP-$24,I
S$ SIMPLE PARAMETER STRING PSP-$2C,I
PAGE 4 move_to
2000 SUB Move_to (INTEGER Row, Col)
2005 COPTION TITLESUB="Subprogram Move_to", PAGESUB
2010 PRINT '27"&a";VAL$(Row);"r";VAL$(Col);"C";
2020 SUBEND
I D E N T I F I E R T A B L E
IDENTIFIER CLASS TYPE ADDRESS
Col SIMPLE PARAMETER INTEGER PSP-$28,I
Move_to SUBPROGRAM
Row SIMPLE PARAMETER INTEGER PSP-$24,I
C O D E O F F S E T S
LINE OFFSET LINE OFFSET LINE OFFSET LINE OFFSET LINE OFFSET
MAIN
10=000001EC 20=000001EC 30=000001EC 35=000001EC 40=000001EC
50=000001EC 60=00002A8 70=00000364 80=00000420 90=000004DC
200=00000594 210=00000594 220=000005C4 230=000005FC