home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 35 / Tiger_Disk_035_1997-02_Tiger-Crew-Disk_de_Side_B.d64 / datasette_s-bas. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  814b  |  22 lines
  1. 5 print"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  2. 10 print"  steuern der datasette von basic aus [223]"
  3. 20 print" [223]                                     "
  4. 30 DF2:print"[147][144]tastenabfrage der datasette"
  5. 40 :
  6. 50 print"if peek(1)=55 then keine taste gedrueckt"
  7. 60 print"if peek(1)= 7 then taste gedrueckt"
  8. 70 :
  9. 80 print"warten bis <stop>-taste gedrueckt wurde :wait1,16"
  10. 90 print"warten bis <play>-taste gedrueckt wurde :if peek(1)=55then...."
  11. 100 :
  12. 110 print"bei gedrueckter playtaste:
  13. 120 [153]"-------------------------"
  14. 130 [153]"motor aus:poke192,1:poke1,peek(1)or32"
  15. 140 [153]"motor an :poke192,0:poke1,peek(1)and39"
  16. 150 [153]"ladezeiten verkuerzen: vor dem zu laden-den programm eingeben"
  17. 160 [153]"poke45,peek (831):poke46,peek(832):clr
  18. 165 print
  19. 166 print"sound aus datasette:poke 54296,15"
  20. 170 print"[158]                                       ";:print"[144]"
  21. 180 goto180
  22.