Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 REM OUTPUT of the multiplication table of 16 numbers
- 20 CLS:KEY OFF
- 30 LOCATE 1,10
- 40 PRINT "HEXADECIMAL MULTIPLICATION TABLE"
- 50 LOCATE 2,10
- 60 PRINT "Composition of N*M is at intersection"
- 70 LOCATE 3,10
- 80 PRINT "N-th row and M-th column"
- 90 REM header OUTPUT
- 100 LOCATE 5,10
- 110 FOR N=&H1 TO &HF
- 120 PRINT SPC(2);HEX$(N);
- 130 NEXT N
- 140 FOR N=&H1 TO &HF
- 150 LOCATE 6+N,7
- 160 PRINT HEX$(N);SPC(1) Header
- 170 PRINT SPC(1); '1 space for alignment
- 180 REM OUTPUT of the N-th LINE.
- 190 FOR M=&H1 TO &HF
- 200 PRD=N*M
- 210 PRINT SPC(3-LEN(HEX$(PRD)));HEX$(PRD);
- 220 NEXT M:NEXT N
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement