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