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 >
Wrap
Commodore BASIC
|
2023-02-26
|
814b
|
22 lines
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]"
10 print" steuern der datasette von basic aus [223]"
20 print" [223] "
30 DF2:print"[147][144]tastenabfrage der datasette"
40 :
50 print"if peek(1)=55 then keine taste gedrueckt"
60 print"if peek(1)= 7 then taste gedrueckt"
70 :
80 print"warten bis <stop>-taste gedrueckt wurde :wait1,16"
90 print"warten bis <play>-taste gedrueckt wurde :if peek(1)=55then...."
100 :
110 print"bei gedrueckter playtaste:
120 [153]"-------------------------"
130 [153]"motor aus:poke192,1:poke1,peek(1)or32"
140 [153]"motor an :poke192,0:poke1,peek(1)and39"
150 [153]"ladezeiten verkuerzen: vor dem zu laden-den programm eingeben"
160 [153]"poke45,peek (831):poke46,peek(832):clr
165 print
166 print"sound aus datasette:poke 54296,15"
170 print"[158] ";:print"[144]"
180 goto180