Hi,
Im trying to find the memory locations for the characters
I remember doing this at some point ,and now forgot where
scrolling through the memory using PEEK and displaying the result as 1, and 0s
at some point the Ascii Characters appear..... where is that?
thanks!
Peek Character maps...help?
mmm, not sure, can't find it yet..
any other ideas?
Im sure it was quite simple, it may have been the Character set of the Quick basic program or the character set of the pc itself....
Someone is going to know this....
Its one of the first lessons for using PEEK....
Anyone know how to view them...
i just made a quick loop with
do
z=peek(x)
x=x+1
'some display stuff here
loop
I keep hunting..... whats the Address?
any other ideas?
Im sure it was quite simple, it may have been the Character set of the Quick basic program or the character set of the pc itself....
Someone is going to know this....
Its one of the first lessons for using PEEK....
Anyone know how to view them...
i just made a quick loop with
do
z=peek(x)
x=x+1
'some display stuff here
loop
I keep hunting..... whats the Address?
here a simple memory looker
don't laugh!
Im teaching kids basic....
so am starting off with line numbers..
10 x = PEEK(z)
20 z = z + 1
30 IF x > 127 THEN x = x - 128: PRINT "1"; ELSE PRINT "0";
40 IF x > 63 THEN x = x - 64: PRINT "1"; ELSE PRINT "0";
50 IF x > 31 THEN x = x - 32: PRINT "1"; ELSE PRINT "0";
60 IF x > 15 THEN x = x - 16: PRINT "1"; ELSE PRINT "0";
70 IF x > 7 THEN x = x - 8: PRINT "1"; ELSE PRINT "0";
80 IF x > 3 THEN x = x - 4: PRINT "1"; ELSE PRINT "0";
90 IF x > 1 THEN x = x - 2: PRINT "1"; ELSE PRINT "0";
100 IF x > 0 THEN x = x - 1: PRINT "1" ELSE PRINT "0"
200 FOR del = 1 TO 5000: NEXT del
250 a$ = INKEY$: IF a$ = " " THEN PRINT z: END
300 GOTO 10
but what is the address and I guess I need a DEF SEG statement at the start also...
Please help if you can....
don't laugh!
Im teaching kids basic....
so am starting off with line numbers..
10 x = PEEK(z)
20 z = z + 1
30 IF x > 127 THEN x = x - 128: PRINT "1"; ELSE PRINT "0";
40 IF x > 63 THEN x = x - 64: PRINT "1"; ELSE PRINT "0";
50 IF x > 31 THEN x = x - 32: PRINT "1"; ELSE PRINT "0";
60 IF x > 15 THEN x = x - 16: PRINT "1"; ELSE PRINT "0";
70 IF x > 7 THEN x = x - 8: PRINT "1"; ELSE PRINT "0";
80 IF x > 3 THEN x = x - 4: PRINT "1"; ELSE PRINT "0";
90 IF x > 1 THEN x = x - 2: PRINT "1"; ELSE PRINT "0";
100 IF x > 0 THEN x = x - 1: PRINT "1" ELSE PRINT "0"
200 FOR del = 1 TO 5000: NEXT del
250 a$ = INKEY$: IF a$ = " " THEN PRINT z: END
300 GOTO 10
but what is the address and I guess I need a DEF SEG statement at the start also...
Please help if you can....
-
- Veteran
- Posts: 703
- Joined: Sun Nov 14, 2004 7:36 am
- Contact:
video adress is B800 for colot monitor and B000 for monochrome if i recall
When God created light, so too was born, the first Shadow!
MystikShadows
Need hosting? http://www.jc-hosting.net
Interested in Text & ASCII development? Look no further!
http://www.ascii-world.com
MystikShadows
Need hosting? http://www.jc-hosting.net
Interested in Text & ASCII development? Look no further!
http://www.ascii-world.com
-
- Veteran
- Posts: 703
- Joined: Sun Nov 14, 2004 7:36 am
- Contact:
Where's that useless Sock documentation?Nathan1993 wrote:Intresting... play around at $HB0000 I think... check the useless sock documentation. Also, please send me anything you know about this becuase i want to know too
When God created light, so too was born, the first Shadow!
MystikShadows
Need hosting? http://www.jc-hosting.net
Interested in Text & ASCII development? Look no further!
http://www.ascii-world.com
MystikShadows
Need hosting? http://www.jc-hosting.net
Interested in Text & ASCII development? Look no further!
http://www.ascii-world.com