home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8606a.d64 / joyst.zahlen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  44 lines
  1. 60000 PRINT"[147][144]":Z1=48:Z2=48:Z3=48:Z4=48:Z5=48:Z6=48:AZ=0
  2. 60005 IF PEEK(56321)<>254 THEN60005
  3. 60010 BA=1520:ZC=48:POKEBA,ZC:POKEBA+1,ZC:POKEBA+2,ZC:POKEBA+3,ZC:POKEBA+4,ZC
  4. 60011 POKEBA+5,ZC:FORS=1TO100:NEXT
  5. 60020 IF PEEK(56321)<>255 THEN 60025:
  6. 60021 GOTO 60020
  7. 60025 POKEBA+40,32:IF PEEK(56321)=254 THENPOKEBA,Z1:Z1=Z1+1:IF Z1>57THENZ1=48
  8. 60026 GOTO 60032
  9. 60032 IF PEEK(56321)=247 THEN60037
  10. 60033 GOTO 60039
  11. 60037 IF PEEK(56321)=254 THENPOKEBA+1,Z2:Z2=Z2+1:IF Z2>57 THEN Z2=48
  12. 60038 BA=BA+1:IF BA>1525THENBA=1520
  13. 60039 IF PEEK(56321)=251 THEN 60041
  14. 60040 GOTO60045
  15. 60041 IF PEEK(56321)=254 THEN POKEBA-1,Z2:Z2=Z2+1:IF Z2>57THENZ2=48:
  16. 60042 BA=BA-1:IF BA<1520 THENBA=1525
  17. 60045 IF PEEK(56321)=247 THEN60050
  18. 60047 GOTO60055
  19. 60050 IF PEEK(56321)=254 THEN POKEBA+2,Z3:Z3=Z3+1:IF Z3>57 THEN Z3=48
  20. 60051 BA=BA+1:IF BA>1525 THEN BA=1520
  21. 60055 IF PEEK(56321)=247 THEN 60060
  22. 60057 GOTO60065
  23. 60060 IF PEEK(56321)=254 THEN POKEBA+3,Z4:Z4=Z4+1:IF Z4>57 THENZ4=48
  24. 60061 BA=BA+3:IF BA>1525 THEN BA=1520
  25. 60065 IFPEEK(56321)=247 THEN 60070
  26. 60067 GOTO60075
  27. 60070 IF PEEK(56321)=254 THENPOKEBA+4,Z5:Z5=Z5+1:IF Z5>57 THEN Z4=48
  28. 60071 BA=BA+4:IF BA>1525 THEN BA=1520
  29. 60075 IF PEEK(56321)=247 THEN60080
  30. 60077 GOTO 60085
  31. 60080 IF PEEK(56321)=254 THEN POKEBA+5,Z6:Z6=Z6+1
  32. 60081 BA=BA+5:IF BA>1525 THEN BA=1520
  33. 60085 POKEBA+40,30
  34. 60089 IF PEEK(56321)=239 THEN 60091
  35. 60090 GOTO 60020
  36. 60091 IF PEEK(56321)<>239 THEN GOTO 60020
  37. 60092 FORS=1TO45:NEXT:IF PEEK(56321)<>239 THEN 60020
  38. 60097 Z1=PEEK(1520)-48:Z2=PEEK(1521)-48:Z3=PEEK(1522)-48:Z4=PEEK(1523)-48
  39. 60098 Z5=PEEK(1524)-48:Z6=PEEK(1525)-48
  40. 60099 AZ=(Z1*100000)+(Z2*10000)+(Z3*1000)+(Z4*100)+(Z5*10)+Z6
  41. 60100 PRINT"[147][154]DIE ZAHL HEISST: ";AZ
  42. 60110 GETA$:IF A$=""THEN60110
  43. 60120 IF PEEK(56321)<>255 THEN60110
  44.