home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 88 / Tiger_Disk_088_20xx_Tiger-Crew-Disk_de_Side_D.d64 / show_2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  628b  |  18 lines
  1. 5 poke53280,8:poke53281,9:poke646,7
  2. 10 print"[147]   basic shower for an                     double-size character set
  3. 20 [153]"   and player for an                       $1000-tune
  4. 30 print"   by tiger-disk
  5. 40 [153]"     hit any key to show and play !     wait"
  6. 50 [161]a$:[139]a$[178]""[167]50
  7. 60 [153]"load"
  8. 70 [153]"          t(NULL)iright$gchr$evalr(NULL) dstr$iright$s(NULL)k(NULL)                     t(NULL)iright$gchr$evalr(NULL) dstr$iright$s(NULL)k(NULL)"
  9. 80 [153]"             t(NULL)u(NULL)n(NULL)eval bpeeky(NULL)":[153]"             t(NULL)u(NULL)n(NULL)eval bpeeky(NULL)"
  10. 90 [153]" t(NULL)hleft$eval m(NULL)aatngchr$iright$clenaatnl(NULL) gchr$aatnr(NULL)fasciright$evall(NULL)dstr$"
  11. 100 [153]" t(NULL)hleft$eval m(NULL)aatngchr$iright$clenaatnl(NULL) gchr$aatnr(NULL)fasciright$evall(NULL)dstr$":[151]53272,25
  12. 110 [158]4096
  13. 120 [158]4099
  14. 130 [129]i[178]1[164]5:[130]
  15. 140 [161]a$:[139]a$[178]""[167]120
  16. 150 [151]54296,0
  17. 160 [151]53272,21:[151]43,1:[151]44,8:[155]
  18.