home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 81
/
Tiger_Disk_081_20xx_Tiger-Crew-Disk_de_Side_C.d64
/
hauptbildschirm
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
16 lines
10 print"[147]";:poke53280,11:poke53281,12:printchr$(14)
20 print"[196]rucken: [196]rucker einschalten und "chr$(34)"[196]"chr$(34)" druecken!"
40 getd$:ifd$=""then40
50 ifd$="d"thenopen4,4,7:cmd4
60 print"[147]";
2320 print"[144][211][208] [212][210][203]1 [212][210] [211][212] [212][210][203]2 [212][210] [211][212] [212][210][203]3 [212][210] [211][212] [196][210][213][205]";:print"[144]00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";:print"[144]01[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";
2350 print"[144]02[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";:print"[144]03[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";:print"[144]04[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";
2380 print"[144]05[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";:print"[144]06[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";:print"[144]07[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] be00[146] 00[146] 00[146] bf00";:print""
2420 print"[144]r[146]ecord track : 0 o[146]ctave :c-0";:print"p[146]lay:* voice :1 2 3 k[146]eytranspose :^^^";:print"q[146]uantize : 0 arpeggio *[146] : 00";:print"sound \[146]/clr[146] begin/stop f7[146]":print""
2470 print"current step :00 f1[146] ";chr$(34);".................";chr$(34);"";:print"first step :00 f3[146] [212][146]ype: _song & drums";:print"last step :00 f5[146] [204][146]oad/[211][146]ave":print"copy steps :00-00=[146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:print"@[146] [196]elete notes [221][212]his bit, i've been";
2520 print"z[146] [197]dit sound [221]told, is unused and";:print"ret[146] [197]dit notes/arp [221]can (i think) be":print"[201]ns[146] [201]nsert step [221]ignored .... please";:print"[196]el[146] [196]elete step [221]inform & correct me";:gosub4510:poke53280,11:poke53281,12:print"[147]";
4508 ifd$="d"thenprint#4:print#4:close4
4509 end
4510 ifd$="d"thenreturn
4511 poke198,0:wait198,1:return