home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 39 / 64er_Magazin_Sonderheft_39_19xx_Markt__Technik_de_Side_A.d64 / device.gen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  865 b   |  47 lines
  1. 10 dimde$(20)
  2. 20 restore
  3. 30 z=0
  4. 40 readde$(z):ifde$(z)="*"goto100
  5. 50 z=z+1:goto40
  6. 100 poke53272,23
  7. 110 printchr$(147)chr$(14)chr$(8);
  8. 120 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  9. 130 print" [197]ingabegeraet festlegen"
  10. 140 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  11. 150 print"a) [212]astatur"
  12. 160 print"b) [202]oystick"
  13. 170 print"c) [205]aus 1351"
  14. 180 rem print""
  15. 190 rem print""
  16. 200 rem print""
  17. 210 rem print""
  18. 220 rem print""
  19. 230 print"x) [197]xit"
  20. 300 poke198,0:wait198,1
  21. 310 geta$:ifa$="x"thenend
  22. 320 ifa$<"a"ora$>"c"goto300
  23. 330 de=asc(a$)-65
  24. 340 poke1265+de*80,122
  25. 500 open15,8,15
  26. 510 print#15,"s:ge4"
  27. 520 gosub10000
  28. 530 print#15,"c:ge4=ge."+de$(de)
  29. 540 gosub10000
  30. 550 :
  31. 560 print#15,"s:gp[202]"
  32. 570 gosub10000
  33. 580 print#15,"c:gp[202]=gp[202]."+de$(de)
  34. 590 gosub10000
  35. 600 close15:goto100
  36. 10000 input#15,a,a$,b,c
  37. 10010 ifa<10thenreturn
  38. 10020 print"";
  39. 10030 printa;a$;b;c;
  40. 10040 poke198,0:wait198,1:poke198,0
  41. 10050 fori=1984to2023:pokei,32:next
  42. 10060 return
  43. 50000 data "tastatur"
  44. 50010 data "joystick"
  45. 50020 data "maus 1351"
  46. 50999 data "*"
  47.