home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 September / 64er_Magazin_88-09_1988_Markt__Technik_de_Side_A.d64 / sensortest (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  877b  |  29 lines
  1. 1 print"[147][144]":poke53280,12:poke53281,12:f=55754:g=55755:h=55794:i=55795
  2. 2 print"                  [169][223][146]
  3. 3 [153]"                 (NULL)  (NULL)
  4. 4 print"                 [183][181][182][183]
  5. 5 [153]"                  intabs
  6. 6 print"                  [181][182]
  7. 7 [153]"             (NULL)sgn  (NULL)  (NULL)  abs(NULL)
  8. 8 print"            [169][146] [183][183][183] [169][223][146] [183][183][183] [223]
  9. 9 [153]"            (NULL) andandand (NULL)step andandand step
  10. 10 print"             [205][180]  [205]  [206]  [182][206][160]
  11. 11 [153]"                  intabs    closeclose
  12. 12 print"                  [181][182]
  13. 13 [153]"                 andintabsand
  14. 14 print"                 [205]  [206]
  15. 15 [153]"                  (NULL)step
  16. 16 o=55514:p=55515:u=56034:v=56035:l=55748:m=55788:r=55761:s=55801
  17. 20 j=peek(56321)andpeek(56320)
  18. 30 if(jand1)<>0thenpokeo,0:pokep,0
  19. 40 if(jand1)=0thenpokeo,7:pokep,7
  20. 50 if(jand2)<>0thenpokeu,0:pokev,0
  21. 60 if(jand2)=0thenpokeu,7:pokev,7
  22. 70 if(jand4)<>0thenpokel,0:pokem,0
  23. 80 if(jand4)=0thenpokel,7:pokem,7
  24. 90 if(jand8)<>0thenpoker,0:pokes,0
  25. 100 if(jand8)=0thenpoker,7:pokes,7
  26. 110 if(jand16)<>0thenpoke55754,0:poke55755,0:poke55794,0:poke55795,0
  27. 120 if(jand16)=0thenpoke55754,7:poke55755,7:poke55794,7:poke55795,7
  28. 130 goto20
  29.