home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Querbyte_02_19xx_Civitas.d64 / datasette-player (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  24 lines
  1. 10 poke53280,0:poke53281,0:poke53272,23:print"[147]";
  2. 11 print"[155][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]
  3. 12 [153]"{$7d}  getwaitget     *rnd              *rnd  *rnd      {$7d}
  4. 13 print"{$7d}[172][162][190][146][161][188][162][187][146][161][188][187][172][146][190][188][162][187][146][161][161][172][162][146][190][161][172][187][146][161][188][187][172][146][190][188][187][172][146][190][161][172][187][146][161] {$7d}
  5. 14 [153]"{$7d}getwaitgetgetwaitgetget*rndwaitget getwaitget get*rndwaitgetlognewrndwaitgetget*newwaitcos getwaitget  getwaitget get*newwaitcos {$7d}
  6. 15 print"{$7d}[188][162][162][146][190][188][162][162][146][190] [188][162][146][190][188][162][162][146][190][188][162][162][146][190][188][162][162][146][190] [188][162][146][190] [188][162][146][190][188][162][162][146][190] {$7d}
  7. 16 [153]"{$7d}           newrnd                        {$7d}
  8. 17 print"{$7d}        [162] [146] [161][146][161] [188][162][187][146][161][161][146][161][161][146][161][161][172][187][146][161][161][172][187][146][161]       {$7d}
  9. 18 [153]"{$7d}        waitnew wait getwaitget get*rndwaitgetgetwaitgetgetwaitgetget*newwaitcosgetwaitget         {$7d}
  10. 19 print"{$7d}        [146]   [162][162][146][190][188][162][162][146][190][188][162][187][146][161][188][162][162][146][190][188][190]         {$7d}
  11. 20 [153]"/{$60}{$60}{$60}{$60}{$60}{$60}{$60}poswait          lognewnewwaitcos               {$7d}
  12. 21 print"[176][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][189]
  13. 22 [153]"(NULL) right$nsert musilenassette in data recorder
  14. 23 print"[221]         and press[170] [208]lay [146][180]!
  15. 24 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  16. 29 getb$:ifb$=""then29
  17. 30 fora=0to49:readb:poke49152+a,b:next
  18. 31 data120,162,0,142,17,208,160,15,173
  19. 32 data13,220,41,16,201,16,38,2,165,2
  20. 33 data41,15,170,189,34,192,141,24,212
  21. 34 data141,32,208,76,8,192,0,9,12,15,12
  22. 35 data15,12,15,9,9,15,15,15,15,15,15
  23. 36 sys49152
  24.