priser! - Stone Oakvalley Studios
priser! - Stone Oakvalley Studios
priser! - Stone Oakvalley Studios
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Her er et lite maskinkodeprogram<br />
til PC som du kan<br />
skrive inn selv. Programmet<br />
slår av og på numlock ved å<br />
skrive:<br />
NUMLOCK - (av)<br />
NUMLOCK + (på)<br />
Det er innsendt av:<br />
Einar Baggerud, 7000<br />
Trondheim.<br />
. D:\>debug<br />
It. 010'0<br />
MOW 91, 00'81<br />
lOV , A't, 0040<br />
MOV E$ ,Kf,<br />
bOBSB<br />
CMP AL, 20<br />
JZ 0109<br />
eMil AL, OD<br />
JZ 012J<br />
CMP AL ,2B<br />
JJ1tZ OUD<br />
ES :<br />
OR BYTE FlTR [aGn] , 20<br />
RET<br />
(;MP AL,2D<br />
JNZ on?<br />
ES :<br />
. h'\JD EliTE FTR [ o o 17 ], OF<br />
RET<br />
N NUMLOCK . COM<br />
Fra Martin Havnor har vi fått dette<br />
bidraget for Commodore 64. Det er<br />
et space-skytespill for 2 spillere.<br />
Dere skal prøve å skyte ned hverandres<br />
romskip. Som vanlig er alt i<br />
hakeparentes kursorflyttinger mm.<br />
10 PRINT" [CLR] " : POKE53280, O:<br />
POKE53281,O:V=53248 :<br />
POKEVt39,1:POKEVt40,1<br />
11POKEVt41,4:POKEVt42,4:POKE<br />
2042,15:POKE2043,15<br />
20 POKEVt2 1,15:POKEVt23,O:POKEVt<br />
29,O:POKE2040,13:POKE2041,14<br />
30 FORT=OT062 :READS : POKE832t<br />
T,S:NEXT<br />
40 FORT=OT062 : READS :<br />
POKE832t64tT,S:NEXT<br />
41 FORT=OT062 :READS :POKE832t64<br />
t64tT,S:NEXT<br />
42 FORT=OT062 :READS : POKE<br />
8192tT, S:NEXT<br />
43 FORT=OT062 : READS :POKE<br />
8192t64tT,S:NEXT<br />
44 GOT010000<br />
45FORT=lT0150 : POKE1024tINT (RND (1)<br />
*1000) , 46:NEXTT : POKEVt21, 15<br />
50 Y=100 :Y2=200 :POKEV, 40:<br />
POKEVt16,10:POKEVt2 ,50<br />
60 J=PEEK (56320) :J2=PEEK (56321)<br />
7 O POKEV t 1 , Y : POKEV t 3 , Y2<br />
80 IFJ=126ANDY>48THENY=Y-8<br />
90 IFJ2=254ANDY2>48THENY2=Y2-8<br />
100 IFJ=125ANDY