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