pascalda assembly örneği
unit Txt;
{$R-} interface uses VGA256, Buffers; const Normal = $00; Kalin = $01; Golge = $02; procedure Fontkur (i: Integer; Style: Word); function Harfim (i: Integer): Pointer; function TextGenis (S: String): Integer; procedure TextYaz (X, Y: Integer; S: String; Attr: Byte); function CenterX (S: String): Integer; procedure CenterText (Y: Integer; S: String; Attr: Byte); implementation const bGolge: Boolean = FALSE; bKalin: Boolean = FALSE; var Font: Pointer; Base: Byte; procedure SuluFont; assembler; asm dw @Space, @Exclamation, @DQuotation, @NumberSign, @Dollar, @Procent dw @AndSign, @SQuotation, @LeftBracket, @RightBracket, @Asterisk, @Plus dw @Comma, @Hyphen, @Dot, @Slash, @Number0, @Number1, @Number2, @Number3 dw @Number4, @Number5, @Number6, @Number7, @Number8, @Number9, @Colon dw @SemiColon, @SqLBracket, @Equal, @SqRBracket, @QuestionMark, @At dw @A1, @B1, @C1, @D1, @E1, @F1, @G1, @H1, @I1, @J1, @K1, @L1, @M1 dw @N1, @O1, @P1, @Q1, @R1, @S1, @T1, @U1, @V1, @W1, @X1, @Y1, @Z1 dw @LBracket2, @BackSlash, @RBracket2, @AccCir, @UnderLine, @BSQuot dw @A2, @B2, @C2, @D2, @E2, @F2, @G2, @H2, @I2, @J2, @K2, @L2, @M2 dw @N2, @O2, @P2, @Q2, @R2, @S2, @T2, @U2, @V2, @W2, @X2, @Y2, @Z2 dw @LBracket3, @VertLine, @RBracket3, @Tilde, @Copyright, @Registered dw @TradeMark @Space: db 8,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00 @Exclamation: db 8,24 db $00,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$1 8,$18,$00,$00 db $18,$18,$18,$00,$00,$00,$00,$00 @DQuotation: db 9,24 db $00,$00,$B0,$61,$C3,$86,$0D,$1B,$36,$6C,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 @NumberSign: db 17,24 db $00,$00,$00,$C6,$00,$8C,$01,$8C,$01,$18,$03,$18,$0 6,$FF,$7F,$FE db $FF,$60,$18,$C0,$18,$80,$31,$F8,$FF,$F3,$FF,$07,$C 6,$00,$C6,$00 db $8C,$01,$0C,$03,$18,$03,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00 @Dollar: db 16,24 db $80,$00,$80,$00,$E0,$07,$F8,$0F,$98,$1C,$8C,$18,$8 C,$30,$8C,$00 db $9C,$00,$F8,$01,$E0,$0F,$80,$1E,$80,$38,$8C,$30,$8 C,$30,$8C,$30 db $9C,$1C,$F8,$0F,$E0,$07,$80,$00,$80,$00,$00,$00,$0 0,$00,$00,$00 @Procent: db 22,24 db $00,$00,$00,$1C,$60,$C0,$1F,$08,$30,$06,$03,$06,$4 3,$80,$C1,$08 db $60,$30,$03,$30,$46,$00,$FC,$19,$00,$3E,$02,$00,$C 0,$7C,$00,$98 db $3F,$00,$62,$0C,$C0,$0C,$06,$10,$83,$01,$C6,$60,$8 0,$60,$0C,$10 db $F8,$03,$06,$38,$80,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00 @AndSign: db 19,24 db $00,$00,$00,$3E,$00,$F8,$03,$E0,$38,$00,$83,$01,$1 8,$0C,$C0,$71 db $00,$DC,$01,$C0,$07,$80,$1F,$00,$CE,$31,$30,$9C,$C 1,$C0,$0F,$06 db $3C,$30,$C0,$81,$03,$0F,$38,$FC,$C0,$7F,$0E,$F8,$E 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @SQuotation: db 6,24 db $00,$C3,$30,$08,$42,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00 @LeftBracket: db 7,24 db $00,$30,$08,$06,$C1,$60,$30,$0C,$06,$83,$C1,$60,$3 0,$18,$0C,$0C db $06,$03,$81,$81,$C0 @RightBracket: db 7,24 db $80,$81,$C0,$40,$60,$30,$18,$18,$0C,$06,$83,$C1,$6 0,$30,$18,$06 db $83,$41,$30,$08,$06 @Asterisk: db 14,24 db $00,$00,$30,$00,$0C,$30,$13,$FC,$0F,$FC,$00,$1E,$C 0,$0F,$38,$07 db $84,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00 @Plus: db 18,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 C,$00,$30,$00 db $C0,$00,$00,$03,$00,$0C,$00,$30,$00,$FF,$3F,$FC,$F F,$00,$0C,$00 db $30,$00,$C0,$00,$00,$03,$00,$0C,$00,$30,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00 @Comma: db 7,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$18,$0C db $06,$02,$C1,$20,$00 @Hyphen: db 10,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$3F,$FC db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00 @Dot: db 6,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 C,$C3,$00,$00 db $00,$00 @Slash: db 10,24 db $00,$00,$06,$18,$20,$C0,$00,$03,$04,$18,$60,$80,$0 0,$03,$0C,$10 db $60,$80,$01,$02,$0C,$30,$40,$80,$01,$06,$00,$00,$0 0,$00 @Number0: db 16,24 db $00,$00,$00,$00,$E0,$07,$F0,$0F,$38,$1C,$18,$18,$1 C,$38,$0C,$30 db $0C,$30,$0C,$30,$0C,$30,$0C,$30,$0C,$30,$0C,$30,$1 C,$38,$18,$18 db $38,$1C,$F0,$0F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number1: db 16,24 db $00,$00,$00,$00,$00,$03,$00,$03,$80,$03,$F0,$03,$F 0,$03,$00,$03 db $00,$03,$00,$03,$00,$03,$00,$03,$00,$03,$00,$03,$0 0,$03,$00,$03 db $00,$03,$00,$03,$00,$03,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number2: db 16,24 db $00,$00,$00,$00,$E0,$07,$F0,$1F,$38,$1C,$1C,$30,$0 C,$30,$0C,$30 db $00,$30,$00,$18,$00,$1E,$80,$0F,$E0,$03,$F0,$00,$3 8,$00,$1C,$00 db $0C,$00,$FC,$3F,$FC,$3F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number3: db 16,24 db $00,$00,$00,$00,$E0,$07,$F0,$0F,$38,$1C,$18,$18,$0 C,$18,$00,$18 db $00,$1C,$80,$0F,$80,$1F,$00,$38,$00,$30,$0C,$30,$0 C,$30,$1C,$38 db $38,$1C,$F8,$1F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number4: db 16,24 db $00,$00,$00,$00,$00,$0C,$00,$0E,$00,$0F,$80,$0F,$8 0,$0D,$C0,$0C db $60,$0C,$70,$0C,$30,$0C,$18,$0C,$1C,$0C,$FC,$7F,$F C,$7F,$00,$0C db $00,$0C,$00,$0C,$00,$0C,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number5: db 16,24 db $00,$00,$00,$00,$F8,$1F,$F8,$1F,$18,$00,$18,$00,$1 8,$00,$C8,$07 db $F8,$1F,$18,$1C,$0C,$38,$00,$30,$00,$30,$00,$30,$0 C,$30,$0C,$38 db $38,$1C,$F8,$0F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number6: db 16,24 db $00,$00,$00,$00,$C0,$07,$F0,$1F,$38,$18,$18,$30,$1 8,$30,$0C,$00 db $CC,$07,$FC,$1F,$3C,$1C,$1C,$38,$0C,$30,$0C,$30,$0 C,$30,$18,$38 db $38,$1C,$F0,$1F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number7: db 16,24 db $00,$00,$00,$00,$FC,$3F,$FC,$3F,$00,$18,$00,$1C,$0 0,$0C,$00,$06 db $00,$07,$00,$03,$80,$03,$80,$01,$C0,$01,$C0,$00,$E 0,$00,$E0,$00 db $60,$00,$60,$00,$70,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number8: db 16,24 db $00,$00,$00,$00,$E0,$07,$F0,$0F,$38,$1C,$18,$18,$1 C,$18,$18,$18 db $38,$1C,$F0,$0F,$F8,$1F,$38,$1C,$0C,$30,$0C,$30,$0 C,$30,$1C,$38 db $38,$1C,$F8,$1F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Number9: db 16,24 db $00,$00,$00,$00,$E0,$07,$F8,$0F,$38,$1C,$1C,$18,$0 C,$30,$0C,$30 db $0C,$30,$1C,$38,$38,$3C,$F8,$3F,$E0,$33,$00,$30,$0 C,$18,$0C,$18 db $18,$1C,$F8,$0F,$E0,$03,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Colon: db 6,24 db $00,$00,$00,$00,$C0,$30,$0C,$00,$00,$00,$00,$00,$0 C,$C3,$00,$00 db $00,$00 @SemiColon: db 6,24 db $00,$00,$00,$00,$C0,$30,$0C,$00,$00,$00,$00,$00,$0 C,$C3,$20,$08 db $43,$00 @SqLBracket: db 19,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$40,$00,$C0 db $03,$80,$07,$80,$0F,$00,$0F,$00,$1E,$00,$18,$00,$8 0,$07,$00,$F0 db $00,$00,$3E,$00,$80,$07,$00,$F0,$00,$00,$04,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @Equal: db 19,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$FC,$FF,$E1,$FF,$0F,$00,$00,$00,$00,$0 0,$00,$00,$FE db $FF,$F0,$FF,$07,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @SqRBracket: db 19,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 4,$00,$E0,$01 db $00,$3C,$00,$80,$0F,$00,$E0,$01,$00,$3C,$00,$00,$0 3,$00,$0F,$00 db $1E,$00,$3E,$00,$3C,$00,$78,$00,$40,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @QuestionMark: db 14,24 db $00,$00,$F8,$80,$7F,$E0,$38,$1C,$0C,$03,$C3,$C0,$0 0,$30,$00,$06 db $C0,$00,$18,$00,$03,$C0,$00,$30,$00,$00,$00,$00,$C 0,$00,$30,$00 db $0C,$00,$00,$00,$00,$00,$00,$00,$00,$00 @At: db 27,24 db $00,$00,$00,$00,$E0,$3F,$00,$C0,$01,$07,$80,$03,$E 0,$00,$06,$00 db $06,$18,$00,$60,$60,$E0,$1B,$06,$83,$F1,$30,$18,$0 6,$87,$61,$30 db $18,$0C,$C3,$C0,$60,$18,$06,$06,$C3,$30,$30,$0C,$8 6,$C1,$60,$30 db $0C,$86,$01,$E3,$68,$06,$18,$3C,$1F,$80,$01,$00,$0 0,$1C,$00,$08 db $80,$01,$60,$00,$78,$E0,$01,$00,$FF,$01,$00,$00,$0 0,$00,$00,$00 db $00 @A1: db 16,24 db $00,$00,$C0,$03,$C0,$03,$C0,$03,$E0,$07,$60,$06,$6 0,$06,$70,$0E db $30,$0C,$30,$0C,$38,$1C,$18,$18,$FC,$3F,$FC,$3F,$0 C,$30,$0E,$70 db $06,$70,$06,$60,$07,$E0,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @B1: db 16,24 db $00,$00,$FC,$0F,$FC,$3F,$0C,$38,$0C,$30,$0C,$30,$0 C,$30,$0C,$30 db $0C,$38,$FC,$0F,$FC,$3F,$0C,$30,$0C,$60,$0C,$60,$0 C,$60,$0C,$60 db $0C,$30,$FC,$3F,$FC,$0F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @C1: db 18,24 db $00,$00,$00,$7F,$00,$FF,$07,$1E,$3C,$1C,$C0,$30,$0 0,$E6,$00,$98 db $01,$00,$06,$00,$18,$00,$60,$00,$80,$01,$00,$06,$8 0,$39,$00,$C6 db $00,$1C,$07,$30,$78,$F0,$C0,$FF,$01,$FC,$01,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00 @D1: db 18,24 db $00,$00,$F0,$7F,$C0,$FF,$07,$03,$3E,$0C,$E0,$30,$0 0,$C3,$00,$1C db $03,$60,$0C,$80,$31,$00,$C6,$00,$18,$03,$60,$0C,$8 0,$31,$00,$C7 db $00,$0C,$03,$38,$0C,$70,$F0,$FF,$C1,$FF,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00 @E1: db 16,24 db $00,$00,$FC,$7F,$FC,$7F,$0C,$00,$0C,$00,$0C,$00,$0 C,$00,$0C,$00 db $0C,$00,$FC,$3F,$FC,$3F,$0C,$00,$0C,$00,$0C,$00,$0 C,$00,$0C,$00 db $0C,$00,$FC,$7F,$FC,$7F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @F1: db 15,24 db $00,$00,$FE,$1F,$FF,$8F,$01,$C0,$00,$60,$00,$30,$0 0,$18,$00,$0C db $00,$FE,$0F,$FF,$87,$01,$C0,$00,$60,$00,$30,$00,$1 8,$00,$0C,$00 db $06,$00,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0 @G1: db 19,24 db $00,$00,$00,$FE,$00,$FC,$0F,$70,$E0,$C1,$01,$0C,$0 6,$E0,$18,$00 db $C0,$00,$00,$06,$00,$30,$F0,$8F,$81,$7F,$0C,$00,$6 3,$00,$18,$07 db $C0,$30,$00,$87,$03,$3C,$78,$F0,$81,$FF,$0D,$F0,$4 3,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @H1: db 18,24 db $00,$00,$30,$00,$C3,$00,$0C,$03,$30,$0C,$C0,$30,$0 0,$C3,$00,$0C db $03,$30,$FC,$FF,$F0,$FF,$C3,$00,$0C,$03,$30,$0C,$C 0,$30,$00,$C3 db $00,$0C,$03,$30,$0C,$C0,$30,$00,$C3,$00,$0C,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00 @I1: db 6,24 db $00,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$00,$00 db $00,$00 @J1: db 13,24 db $00,$00,$C0,$00,$18,$00,$03,$60,$00,$0C,$80,$01,$3 0,$00,$06,$C0 db $00,$18,$00,$03,$60,$0C,$8C,$81,$31,$30,$0E,$87,$7 F,$E0,$07,$00 db $00,$00,$00,$00,$00,$00,$00 @K1: db 16,24 db $00,$00,$0C,$F0,$0C,$38,$0C,$1C,$0C,$0E,$0C,$07,$8 C,$03,$CC,$01 db $EC,$01,$FC,$01,$BC,$03,$1C,$07,$0C,$06,$0C,$0E,$0 C,$1C,$0C,$38 db $0C,$38,$0C,$70,$0C,$E0,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @L1: db 13,24 db $00,$80,$01,$30,$00,$06,$C0,$00,$18,$00,$03,$60,$0 0,$0C,$80,$01 db $30,$00,$06,$C0,$00,$18,$00,$03,$60,$00,$0C,$80,$F F,$F3,$7F,$00 db $00,$00,$00,$00,$00,$00,$00 @M1: db 21,24 db $00,$00,$80,$07,$E0,$F0,$00,$1E,$1E,$C0,$C3,$07,$7 8,$D8,$80,$0D db $1B,$B0,$61,$07,$36,$CC,$60,$86,$19,$CC,$30,$C7,$1 9,$C6,$18,$C3 db $18,$63,$18,$77,$0C,$C3,$86,$61,$D8,$30,$0C,$1F,$8 6,$C1,$C1,$30 db $38,$18,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00 @N1: db 18,24 db $00,$00,$70,$00,$C3,$01,$0C,$0F,$30,$7C,$C0,$B0,$0 1,$C3,$0E,$0C db $73,$30,$8C,$C1,$30,$0E,$C3,$70,$0C,$83,$31,$0C,$C E,$30,$70,$C3 db $80,$0D,$03,$3E,$0C,$F0,$30,$80,$C3,$00,$0E,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00 @O1: db 19,24 db $00,$00,$00,$FE,$00,$FC,$1F,$F0,$E0,$C1,$01,$1C,$0 6,$C0,$38,$00 db $CE,$00,$60,$06,$00,$33,$00,$98,$01,$C0,$0C,$00,$6 6,$00,$30,$07 db $C0,$31,$00,$86,$03,$38,$78,$F0,$80,$FF,$03,$F0,$0 7,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @P1: db 16,24 db $00,$00,$FC,$1F,$FC,$3F,$0C,$70,$0C,$60,$0C,$60,$0 C,$60,$0C,$60 db $0C,$70,$FC,$3F,$FC,$1F,$0C,$00,$0C,$00,$0C,$00,$0 C,$00,$0C,$00 db $0C,$00,$0C,$00,$0C,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Q1: db 19,24 db $00,$00,$00,$FE,$00,$FC,$1F,$F0,$E0,$C1,$01,$1C,$0 6,$C0,$38,$00 db $CE,$00,$60,$06,$00,$33,$00,$98,$01,$C0,$0C,$00,$6 6,$00,$30,$07 db $C4,$31,$70,$86,$03,$3F,$78,$F0,$80,$FF,$0F,$F0,$E 7,$00,$00,$02 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @R1: db 17,24 db $00,$00,$F8,$7F,$F0,$FF,$61,$00,$C7,$00,$8C,$01,$1 8,$03,$30,$06 db $60,$0C,$70,$F8,$7F,$F0,$FF,$61,$80,$C3,$00,$8E,$0 1,$18,$03,$30 db $06,$60,$0C,$C0,$18,$80,$31,$00,$03,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00 @S1: db 16,24 db $00,$00,$F0,$07,$F8,$1F,$1C,$3C,$0E,$30,$06,$30,$0 6,$70,$06,$00 db $3E,$00,$FC,$07,$E0,$3F,$00,$3C,$00,$70,$06,$60,$0 6,$60,$06,$70 db $1E,$38,$FC,$1F,$F0,$0F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @T1: db 14,24 db $00,$C0,$FF,$FF,$FF,$03,$03,$C0,$00,$30,$00,$0C,$0 0,$03,$C0,$00 db $30,$00,$0C,$00,$03,$C0,$00,$30,$00,$0C,$00,$03,$C 0,$00,$30,$00 db $0C,$00,$00,$00,$00,$00,$00,$00,$00,$00 @U1: db 18,24 db $00,$00,$30,$00,$C3,$00,$0C,$03,$30,$0C,$C0,$30,$0 0,$C3,$00,$0C db $03,$30,$0C,$C0,$30,$00,$C3,$00,$0C,$03,$30,$0C,$C 0,$30,$00,$C3 db $00,$0C,$07,$38,$38,$70,$C0,$FF,$00,$FE,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00 @V1: db 15,24 db $00,$80,$03,$B8,$01,$CC,$00,$E6,$80,$63,$C0,$30,$6 0,$38,$38,$18 db $0C,$0C,$06,$8E,$03,$C6,$00,$63,$80,$3B,$80,$0D,$C 0,$06,$E0,$03 db $E0,$00,$70,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0 @W1: db 23,24 db $00,$00,$80,$03,$0C,$B8,$01,$0F,$CC,$80,$07,$E6,$C 0,$03,$73,$F0 db $C1,$31,$98,$61,$18,$CC,$30,$1C,$66,$18,$8E,$33,$0 E,$C6,$30,$03 db $67,$98,$81,$3B,$CC,$80,$0D,$36,$C0,$06,$1E,$E0,$0 3,$0F,$F0,$81 db $07,$70,$80,$01,$38,$C0,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00 @X1: db 15,24 db $00,$80,$07,$B8,$03,$8E,$83,$83,$C3,$C0,$71,$C0,$1 D,$C0,$06,$E0 db $03,$E0,$00,$70,$00,$7C,$00,$77,$80,$31,$E0,$38,$3 8,$38,$0C,$1C db $07,$DC,$01,$1C,$00,$00,$00,$00,$00,$00,$00,$00,$0 0 @Y1: db 16,24 db $00,$00,$0F,$E0,$0E,$70,$1C,$38,$1C,$38,$38,$1C,$3 0,$0C,$70,$0E db $60,$06,$C0,$03,$C0,$03,$80,$01,$80,$01,$80,$01,$8 0,$01,$80,$01 db $80,$01,$80,$01,$80,$01,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @Z1: db 16,24 db $00,$00,$FC,$7F,$FC,$7F,$00,$70,$00,$38,$00,$1C,$0 0,$0E,$00,$0E db $00,$07,$80,$03,$C0,$01,$E0,$00,$E0,$00,$70,$00,$3 8,$00,$1C,$00 db $0C,$00,$FE,$7F,$FE,$7F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 @LBracket2: db 10,24 db $00,$C0,$07,$1F,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$0 0,$03,$0C,$30 db $C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$00,$1 F,$7C @BackSlash: db 10,24 db $00,$18,$60,$00,$01,$0C,$30,$80,$00,$06,$18,$40,$0 0,$03,$0C,$20 db $80,$01,$06,$10,$C0,$00,$03,$08,$60,$80,$01,$00,$0 0,$00 @RBracket2: db 10,24 db $00,$F8,$E0,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$0 0,$03,$0C,$30 db $C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$E0,$8 3,$0F @AccCir: db 21,24 db $00,$00,$00,$C0,$01,$00,$7C,$00,$C0,$1D,$00,$1C,$0 7,$C0,$C1,$01 db $1C,$70,$C0,$01,$1C,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00 @UnderLine: db 14,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$F8,$7F @BSQuot: db 6,24 db $00,$42,$10,$0C,$C3,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00 @a2: db 14,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$F 0,$1F,$0C,$0E db $03,$03,$C0,$C0,$3F,$FC,$8D,$03,$63,$C0,$18,$30,$0 E,$0F,$7F,$8F db $8F,$03,$00,$00,$00,$00,$00,$00,$00,$00 @b2: db 15,24 db $00,$00,$06,$00,$03,$80,$01,$C0,$00,$60,$00,$30,$1 F,$D8,$1F,$3C db $1C,$0E,$0C,$03,$8C,$01,$C6,$00,$63,$80,$31,$C0,$3 8,$30,$3C,$1C db $F6,$07,$F3,$01,$00,$00,$00,$00,$00,$00,$00,$00,$0 0 @c2: db 13,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$7C,$C0,$3 F,$1C,$C6,$81 db $19,$00,$03,$60,$00,$0C,$80,$01,$63,$70,$1C,$07,$F F,$C0,$07,$00 db $00,$00,$00,$00,$00,$00,$00 @d2: db 15,24 db $00,$00,$00,$0C,$00,$06,$00,$03,$80,$01,$C0,$C0,$6 7,$F0,$37,$1C db $1E,$06,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$1 C,$38,$1C,$1E db $FC,$0D,$7C,$06,$00,$00,$00,$00,$00,$00,$00,$00,$0 0 @e2: db 14,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$E 0,$1F,$1C,$8E db $03,$66,$80,$F9,$7F,$FE,$9F,$01,$60,$00,$38,$60,$1 C,$0E,$FE,$01 db $3F,$00,$00,$00,$00,$00,$00,$00,$00,$00 @f2: db 7,24 db $00,$3C,$9F,$C1,$60,$FC,$FF,$0C,$06,$83,$C1,$60,$3 0,$18,$0C,$06 db $03,$00,$00,$00,$00 @g2: db 15,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$6 F,$F0,$37,$1C db $1E,$06,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$1 8,$38,$1C,$1E db $FC,$0D,$7C,$06,$00,$63,$80,$61,$60,$F0,$3F,$E0,$0 7 @h2: db 14,24 db $00,$00,$03,$C0,$00,$30,$00,$0C,$00,$03,$C0,$3C,$B 0,$1F,$3C,$0E db $07,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$30,$0 C,$0C,$03,$C3 db $C0,$00,$00,$00,$00,$00,$00,$00,$00,$00 @i2: db 6,24 db $00,$C3,$30,$00,$C0,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$00,$00 db $00,$00 @j2: db 6,24 db $00,$C3,$30,$00,$C0,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$30,$0C db $F3,$1C @k2: db 13,24 db $00,$80,$01,$30,$00,$06,$C0,$00,$18,$00,$03,$67,$3 0,$0C,$83,$39 db $B0,$03,$7E,$C0,$1B,$38,$07,$C3,$60,$38,$0C,$86,$8 1,$31,$70,$00 db $00,$00,$00,$00,$00,$00,$00 @l2: db 6,24 db $00,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$00,$00 db $00,$00 @m2: db 20,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$EC db $F3,$C1,$BF,$1F,$1C,$8F,$C3,$60,$30,$0C,$06,$C3,$6 0,$30,$0C,$06 db $C3,$60,$30,$0C,$06,$C3,$60,$30,$0C,$06,$C3,$60,$3 0,$0C,$06,$03 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 @n2: db 14,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$7E,$F 0,$1F,$3C,$0E db $07,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$30,$0 C,$0C,$03,$C3 db $C0,$00,$00,$00,$00,$00,$00,$00,$00,$00 @o2: db 14,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1F,$E 0,$1F,$1C,$0E db $03,$67,$80,$19,$60,$06,$98,$01,$66,$80,$31,$70,$1 C,$0E,$FE,$01 db $1F,$00,$00,$00,$00,$00,$00,$00,$00,$00 @p2: db 15,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$1 F,$D8,$1F,$3C db $1C,$0E,$0C,$03,$8C,$01,$C6,$00,$63,$80,$31,$C0,$3 8,$30,$3C,$1C db $F6,$07,$F3,$81,$01,$C0,$00,$60,$00,$30,$00,$18,$0 0 @q2: db 15,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$6 F,$F0,$37,$1C db $1E,$07,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$1 8,$38,$1C,$1E db $FC,$0D,$7C,$06,$00,$03,$80,$01,$C0,$00,$60,$00,$3 0 @r2: db 8,24 db $00,$00,$00,$00,$00,$00,$EC,$FC,$3C,$1C,$0C,$0C,$0 C,$0C,$0C,$0C db $0C,$0C,$0C,$00,$00,$00,$00,$00 @s2: db 12,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$F8,$C0,$3F,$0 E,$63,$60,$06 db $E0,$03,$F8,$03,$7C,$00,$66,$60,$0E,$C7,$3F,$F8,$0 0,$00,$00,$00 db $00,$00,$00,$00 @t2: db 7,24 db $00,$00,$83,$C1,$60,$FC,$FF,$0C,$06,$83,$C1,$60,$3 0,$18,$0C,$3E db $1E,$00,$00,$00,$00 @u2: db 14,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$C0,$3 0,$30,$0C,$0C db $03,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$38,$1 C,$0F,$FE,$03 db $CF,$00,$00,$00,$00,$00,$00,$00,$00,$00 @v2: db 12,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$6E,$60,$0 6,$E6,$70,$0C db $C3,$30,$98,$81,$19,$98,$01,$0F,$F0,$00,$0F,$60,$0 0,$00,$00,$00 db $00,$00,$00,$00 @w2: db 18,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$70,$70,$B0 db $C1,$61,$86,$8F,$19,$36,$E6,$D8,$1C,$73,$33,$CC,$C C,$30,$63,$83 db $8F,$07,$1E,$1E,$78,$78,$C0,$C1,$00,$03,$03,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00 @x2: db 12,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$EE,$70,$9 C,$83,$19,$F8 db $01,$0F,$70,$00,$0F,$F8,$C1,$39,$0C,$E3,$70,$07,$0 E,$00,$00,$00 db $00,$00,$00,$00 @y2: db 12,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$6E,$60,$0 6,$E6,$70,$0C db $C3,$30,$9C,$83,$19,$98,$81,$0F,$F0,$00,$0F,$60,$0 0,$06,$60,$00 db $03,$3E,$E0,$01 @z2: db 14,24 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$FF,$F 1,$7F,$00,$0E db $80,$01,$30,$00,$0E,$C0,$01,$38,$00,$07,$E0,$00,$1 8,$00,$FF,$C7 db $FF,$01,$00,$00,$00,$00,$00,$00,$00,$00 @LBracket3: db 10,24 db $00,$00,$0E,$3E,$38,$60,$80,$01,$06,$18,$60,$80,$0 1,$07,$0F,$3C db $C0,$01,$06,$18,$60,$80,$01,$06,$18,$60,$80,$03,$3 E,$F0 @VertLine: db 8,24 db $18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$1 8,$18,$18,$18 db $18,$18,$18,$18,$18,$18,$18,$18 @RBracket3: db 10,24 db $00,$3C,$F0,$01,$07,$18,$60,$80,$01,$06,$18,$60,$8 0,$03,$3C,$F0 db $E0,$80,$01,$06,$18,$60,$80,$01,$06,$18,$70,$F0,$C 1,$01 @Tilde: db 19,24 db $00,$00,$00,$00,$00,$3C,$60,$F0,$03,$83,$31,$18,$0 6,$63,$30,$F8 db $83,$01,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00 @Copyright: db 22,24 db $00,$00,$00,$00,$00,$00,$F0,$03,$00,$83,$03,$60,$8 0,$01,$0C,$C0 db $80,$F1,$61,$20,$C6,$10,$8C,$60,$0C,$31,$00,$42,$0 C,$80,$10,$03 db $20,$C4,$00,$08,$71,$18,$83,$18,$43,$60,$7C,$18,$3 0,$00,$03,$18 db $60,$00,$0C,$0E,$00,$7C,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00 @Registered: db 22,24 db $00,$00,$00,$00,$00,$00,$F0,$03,$00,$83,$03,$20,$8 0,$01,$04,$C0 db $80,$F9,$63,$20,$C6,$11,$84,$61,$08,$61,$18,$42,$F 8,$83,$10,$66 db $20,$84,$19,$08,$63,$0C,$83,$18,$43,$20,$86,$19,$1 0,$00,$03,$0C db $60,$00,$0C,$0E,$00,$7C,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00 @TradeMark: db 20,24 db $00,$00,$00,$00,$00,$7C,$C6,$00,$61,$0C,$10,$EE,$0 0,$A1,$0A,$10 db $AA,$00,$A1,$0B,$10,$92,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00 db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 end; procedure Font8x8; assembler; asm dw @0d128, @0d129, @0d130, @0d131, @0d132, @0d133, @0d134, @0d135, @0d136 dw @0d137, @0d138, @0d139, @0d140, @0d141, @0d142, @0d143, @0d144, @0d145 dw @0d146, @0d147, @0d148, @0d149, @0d150, @0d151, @0d152, @0d153, @0d154 dw @0d155, @0d156, @0d157, @0d158, @0d159, @0d160, @0d161, @0d162, @0d163 dw @0d164, @0d165, @0d166, @0d167, @0d168, @0d169, @0d170, @0d171, @0d172 dw @0d173, @0d174, @0d175, @0d176, @0d177, @0d178, @0d179, @0d180, @0d181 dw @0d182, @0d183, @0d184, @0d185, @0d186, @0d187, @0d188, @0d189, @0d190 dw @0d191, @0d192, @0d193, @0d194, @0d195, @0d196, @0d197, @0d198, @0d199 dw @0d200, @0d201, @0d202, @0d203, @0d204, @0d205, @0d206, @0d207, @0d208 dw @0d209, @0d210, @0d211, @0d212, @0d213, @0d214, @0d215, @0d216, @0d217 dw @0d218, @0d219, @0d220, @0d221, @0d222, @0d223, @0d224, @0d225, @0d226 dw @0d227, @0d228, @0d229, @0d230, @0d231, @0d232, @0d233, @0d234, @0d235 dw @0d236, @0d237, @0d238, @0d239, @0d240, @0d241, @0d242, @0d243, @0d244 dw @0d245, @0d246, @0d247, @0d248, @0d249, @0d250, @0d251, @0d252, @0d253 dw @0d254, @0d255 @0d128: db 8,8 db $00,$00,$00,$00,$00,$00,$00,$00 @0d129: db 8,8 db $7E,$81,$A5,$81,$BD,$99,$81,$7E @0d130: db 8,8 db $7E,$FF,$DB,$FF,$C3,$E7,$FF,$7E @0d131: db 8,8 db $36,$7F,$7F,$7F,$3E,$1C,$08,$00 @0d132: db 8,8 db $08,$1C,$3E,$7F,$3E,$1C,$08,$00 @0d133: db 8,8 db $1C,$3E,$1C,$7F,$7F,$3E,$1C,$3E @0d134: db 8,8 db $08,$08,$1C,$3E,$7F,$3E,$1C,$3E @0d135: db 8,8 db $00,$00,$18,$3C,$3C,$18,$00,$00 @0d136: db 8,8 db $FF,$FF,$E7,$C3,$C3,$E7,$FF,$FF @0d137: db 8,8 db $00,$3C,$66,$42,$42,$66,$3C,$00 @0d138: db 8,8 db $FF,$C3,$99,$BD,$BD,$99,$C3,$FF @0d139: db 8,8 db $F0,$E0,$F0,$BE,$33,$33,$33,$1E @0d140: db 8,8 db $3C,$66,$66,$66,$3C,$18,$7E,$18 @0d141: db 8,8 db $FC,$CC,$FC,$0C,$0C,$0E,$0F,$07 @0d142: db 8,8 db $FE,$C6,$FE,$C6,$C6,$E6,$67,$03 @0d143: db 8,8 db $99,$5A,$3C,$E7,$E7,$3C,$5A,$99 @0d144: db 8,8 db $01,$07,$1F,$7F,$1F,$07,$01,$00 @0d145: db 8,8 db $40,$70,$7C,$7F,$7C,$70,$40,$00 @0d146: db 8,8 db $18,$3C,$7E,$18,$18,$7E,$3C,$18 @0d147: db 8,8 db $66,$66,$66,$66,$66,$00,$66,$00 @0d148: db 8,8 db $FE,$DB,$DB,$DE,$D8,$D8,$D8,$00 @0d149: db 8,8 db $7C,$C6,$1C,$36,$36,$1C,$33,$1E @0d150: db 8,8 db $00,$00,$00,$00,$7E,$7E,$7E,$00 @0d151: db 8,8 db $18,$3C,$7E,$18,$7E,$3C,$18,$FF @0d152: db 8,8 db $18,$3C,$7E,$18,$18,$18,$18,$00 @0d153: db 8,8 db $18,$18,$18,$18,$7E,$3C,$18,$00 @0d154: db 8,8 db $00,$18,$30,$7F,$30,$18,$00,$00 @0d155: db 8,8 db $00,$0C,$06,$7F,$06,$0C,$00,$00 @0d156: db 8,8 db $00,$00,$03,$03,$03,$7F,$00,$00 @0d157: db 8,8 db $00,$24,$66,$FF,$66,$24,$00,$00 @0d158: db 8,8 db $00,$18,$3C,$7E,$FF,$FF,$00,$00 @0d159: db 8,8 db $00,$FF,$FF,$7E,$3C,$18,$00,$00 @0d160: db 6,8 db $00,$00,$00,$00,$00,$00 @0d161: db 3,8 db $92,$24,$08 @0d162: db 4,8 db $55,$00,$00,$00 @0d163: db 6,8 db $8A,$F2,$29,$9F,$A2,$00 @0d164: db 6,8 db $84,$37,$38,$D8,$43,$00 @0d165: db 8,8 db $46,$29,$16,$08,$34,$4A,$31,$00 @0d166: db 7,8 db $0C,$09,$C3,$94,$49,$D8,$00 @0d167: db 3,8 db $0A,$00,$00 @0d168: db 4,8 db $24,$11,$21,$04 @0d169: db 4,8 db $21,$44,$24,$01 @0d170: db 7,8 db $00,$09,$E3,$C7,$90,$00,$00 @0d171: db 6,8 db $00,$41,$7C,$04,$01,$00 @0d172: db 3,8 db $00,$00,$28 @0d173: db 6,8 db $00,$00,$7C,$00,$00,$00 @0d174: db 2,8 db $00,$10 @0d175: db 5,8 db $88,$10,$21,$42,$00 @0d176: db 6,8 db $4E,$14,$45,$51,$E4,$00 @0d177: db 6,8 db $84,$41,$10,$04,$E1,$00 @0d178: db 6,8 db $4E,$04,$31,$42,$F0,$01 @0d179: db 6,8 db $4E,$04,$31,$50,$E4,$00 @0d180: db 6,8 db $08,$A3,$24,$1F,$82,$00 @0d181: db 6,8 db $5F,$F0,$40,$50,$E4,$00 @0d182: db 6,8 db $8C,$10,$3C,$51,$E4,$00 @0d183: db 6,8 db $1F,$04,$21,$04,$41,$00 @0d184: db 6,8 db $4E,$14,$39,$51,$E4,$00 @0d185: db 6,8 db $4E,$14,$79,$10,$62,$00 @0d186: db 2,8 db $10,$10 @0d187: db 3,8 db $80,$00,$28 @0d188: db 5,8 db $88,$88,$20,$08,$02 @0d189: db 6,8 db $00,$F0,$01,$C0,$07,$00 @0d190: db 5,8 db $41,$10,$44,$44,$00 @0d191: db 6,8 db $4E,$04,$21,$04,$40,$00 @0d192: db 6,8 db $4E,$D4,$55,$5D,$E0,$00 @0d193: db 6,8 db $84,$12,$45,$5F,$14,$01 @0d194: db 6,8 db $4F,$14,$3D,$51,$F4,$00 @0d195: db 7,8 db $1C,$51,$20,$10,$10,$71,$00 @0d196: db 7,8 db $8F,$48,$28,$14,$8A,$3C,$00 @0d197: db 6,8 db $5F,$10,$3C,$41,$F0,$01 @0d198: db 6,8 db $5F,$10,$3C,$41,$10,$00 @0d199: db 7,8 db $1C,$51,$20,$10,$13,$F1,$00 @0d200: db 6,8 db $51,$14,$7D,$51,$14,$01 @0d201: db 2,8 db $55,$15 @0d202: db 6,8 db $1E,$04,$41,$51,$E4,$00 @0d203: db 6,8 db $51,$52,$0C,$45,$12,$01 @0d204: db 6,8 db $41,$10,$04,$41,$F0,$01 @0d205: db 8,8 db $41,$63,$55,$49,$41,$41,$41,$00 @0d206: db 6,8 db $D1,$54,$65,$51,$14,$01 @0d207: db 8,8 db $1C,$22,$41,$41,$41,$22,$1C,$00 @0d208: db 6,8 db $4F,$14,$3D,$41,$10,$00 @0d209: db 6,8 db $4E,$14,$45,$91,$83,$01 @0d210: db 6,8 db $4F,$14,$3D,$45,$12,$01 @0d211: db 6,8 db $4E,$14,$38,$50,$E4,$00 @0d212: db 6,8 db $1F,$41,$10,$04,$41,$00 @0d213: db 6,8 db $51,$14,$45,$51,$E4,$00 @0d214: db 6,8 db $51,$14,$45,$91,$42,$00 @0d215: db 8,8 db $41,$41,$41,$49,$55,$63,$41,$00 @0d216: db 8,8 db $41,$22,$14,$08,$14,$22,$41,$00 @0d217: db 8,8 db $41,$22,$14,$08,$08,$08,$08,$00 @0d218: db 7,8 db $3F,$10,$04,$41,$10,$FC,$00 @0d219: db 3,8 db $4B,$92,$0C @0d220: db 5,8 db $41,$08,$42,$10,$02 @0d221: db 3,8 db $93,$24,$0D @0d222: db 6,8 db $00,$A1,$44,$00,$00,$00 @0d223: db 6,8 db $00,$00,$00,$00,$00,$FC @0d224: db 3,8 db $11,$00,$00 @0d225: db 5,8 db $00,$B8,$94,$92,$05 @0d226: db 5,8 db $21,$9C,$94,$D2,$01 @0d227: db 5,8 db $00,$B8,$10,$82,$03 @0d228: db 5,8 db $08,$B9,$94,$92,$05 @0d229: db 6,8 db $00,$E0,$44,$5F,$E0,$00 @0d230: db 4,8 db $2C,$27,$22,$02 @0d231: db 5,9 db $00,$B8,$94,$92,$43,$80 @0d232: db 5,8 db $21,$9C,$94,$52,$02 @0d233: db 2,8 db $51,$15 @0d234: db 3,9 db $82,$24,$49,$00 @0d235: db 5,8 db $21,$A4,$32,$4A,$02 @0d236: db 2,8 db $55,$15 @0d237: db 8,8 db $00,$00,$37,$49,$49,$49,$49,$00 @0d238: db 5,8 db $00,$9C,$94,$52,$02 @0d239: db 6,8 db $00,$E0,$44,$51,$E4,$00 @0d240: db 5,9 db $00,$9C,$94,$D2,$09,$40 @0d241: db 5,9 db $00,$B8,$94,$92,$43,$00 @0d242: db 5,8 db $00,$98,$14,$42,$00 @0d243: db 6,8 db $00,$E0,$05,$0E,$F4,$00 @0d244: db 5,8 db $40,$3C,$21,$04,$03 @0d245: db 5,8 db $00,$A4,$94,$92,$03 @0d246: db 6,8 db $00,$10,$45,$91,$42,$00 @0d247: db 8,8 db $00,$00,$49,$49,$49,$49,$36,$00 @0d248: db 6,8 db $00,$10,$29,$84,$12,$01 @0d249: db 5,9 db $00,$A4,$94,$92,$43,$C0 @0d250: db 6,8 db $00,$F0,$21,$84,$F0,$01 @0d251: db 4,8 db $24,$12,$22,$04 @0d252: db 2,8 db $15,$15 @0d253: db 4,8 db $21,$42,$22,$01 @0d254: db 7,8 db $A6,$0C,$00,$00,$00,$00,$00 @0d255: db 6,8 db $00,$40,$28,$51,$F4,$01 end; procedure Fontkur (i: Integer; Style: Word); begin case i of 0: begin Font := @Font8x8; Base := 0; end; 1: begin Font := @SuluFont; Base := 32; end; end; bKalin := Style or Kalin = Style; bGolge := Style or Golge = Style; end; function Harfim (i: Integer): pointer; var W1, W2: Word; P: Pointer; begin P := Font; Dec (i, Base); asm push ds lds si, P mov ax, i shl ax, 1 add si, ax lodsw mov W1, ds mov W2, ax pop ds end; Harfim := Ptr (W1, W2); end; function TextGenis (S: String): Integer; var P: Pointer; Width: Integer; i: Byte; A: Word; begin P := Font; Width := 0; for i := 1 to Length (S) do begin A := Ord (S [i]) shl 1; Dec (A, 2 * Base); asm push ds lds si, P mov ax, A add si, ax cld lodsw mov si, ax lodsb mov ah, 0 add Width, ax pop ds end; Inc (Width, Byte (bKalin) + Byte (bGolge)); end; TextGenis := Width; end; procedure TextYaz (X, Y: Integer; S: String; Attr: Byte); var i: Byte; C: Char; begin i := 1; repeat C := S [i]; if bGolge then DrawBitmap (X + 1, Y + 1, Harfim (Ord (C))^, 16); if bKalin then begin if bGolge then DrawBitmap (X, Y + 1, Harfim (Ord (C))^, 16); DrawBitmap (X - 1, Y, Harfim (Ord (C))^, Attr); end; DrawBitmap (X, Y, Harfim (Ord (C))^, Attr); inc (X, TextGenis (C)); Inc (i); until i > Length (S); end; function CenterX (S: String): Integer; begin CenterX := XView + (SCREEN_WIDTH - TextGenis (S)) shr 1; end; procedure CenterText (Y: Integer; S: String; Attr: Byte); begin TextYaz (CenterX (S), Y, S, Attr); end; begin Fontkur (0, Normal); end. işte öle:D |
Paylaşım için tşkler…
|
paylaşım için tşkler
|
teŞekkÜrler PaylaŞim İİÇİn
|
Paylaşım İçin Teşekkürler
|
Paylaşım İçin Teşekkürler
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 19:06 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.