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 >
Commodore BASIC  |  2023-02-26  |  2KB  |  16 lines
  1. 10 print"[147]";:poke53280,11:poke53281,12:printchr$(14)
  2. 20 print"[196]rucken: [196]rucker einschalten und "chr$(34)"[196]"chr$(34)"    druecken!"
  3. 40 getd$:ifd$=""then40
  4. 50 ifd$="d"thenopen4,4,7:cmd4
  5. 60 print"[147]";
  6. 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";
  7. 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";
  8. 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""
  9. 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""
  10. 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";
  11. 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]";
  12. 4508 ifd$="d"thenprint#4:print#4:close4
  13. 4509 end
  14. 4510 ifd$="d"thenreturn
  15. 4511 poke198,0:wait198,1:return
  16.