Classic Computer Magazine Archive PROGRAM LISTING: 83-12/ODDMAN2A.LST


5 REM ���Ӡ�����͠�Ӡ��Ԡ�Ơ�����ҭ���Ԡ�����Ӡ����Ġ�����Χ��Π��֮�����®���Ġ���̠��Ԡ��Π�Π��Ӡ��Π�����
10 DIM RAM$(1),ROM$(1)
20 RAMTOP=PEEK(106):POKE 106,RAMTOP-4
30 GRAPHICS 0
40 VT=PEEK(134)+256*PEEK(135):AT=PEEK(140)+256*PEEK(141)
50 GRTOP=RAMTOP-4:RAMLOC=GRTOP*256
60 OFFRAM=RAMLOC-AT
70 LENHI=INT(1025/256):LENLO=INT(1025-(LENHI*256))
80 OFFRAMH=INT(OFFRAM/256):OFFRAML=(OFFRAM-(OFFRAMH*256))
90 POKE VT+2,OFFRAML:POKE VT+3,OFFRAMH
100 POKE VT+4,LENLO:POKE VT+5,LENHI
110 POKE VT+6,LENLO:POKE VT+7,LENHI

Back to previous page