home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2001-12_2001_CSW_Side_B.d64
/
cal-pcj
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
207b
|
6 lines
1 print"[147]"
2 a=peek(56321):x1=aand1:x2=(aand2)/2:x3=(aand4)/4:x4=(aand8)/8:x5=(aand16)/16
3 print"joy1";x1;x2;x3;x4;x5
4 a=peek(56320):x1=aand1:x2=(aand2)/2:x3=(aand4)/4:x4=(aand8)/8:x5=(aand16)/16
5 print"joy2";x1;x2;x3;x4;x5:goto2