home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / logo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  22 lines
  1. 5 poke53281,0:poke53280,0:print"":poke53272,21
  2. 10 r$="    [157][157][157][157] [146]   [157][157][157][157]    [157][157][157][157] [146][223][223][157][157][157] [146] [223][223][146][145][145][145][145]"
  3. 20 e$="    [157][157][157][157] [146]   [157][157][157][157]   [146] [157][157][157][157] [146]   [157][157][157][157]    [146][145][145][145][145]"
  4. 30 a$="[169]  [223][157][157][157][157] [146]   [157][157][157][157]    [157][157][157][157] [146]   [157][157][157][157] [146]   [146][145][145][145][145]"
  5. 40 d$="   [223][157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157]   [146][169][145][145][145][145]"
  6. 50 i$="   [157][157][157][146]  [146] [157][157][157]  [146] [157][157][157]  [146] [157][157][157]   [146][145][145][145][145]"
  7. 60 n$=" [223][146]    [157][157][157][157][157][157] [146][223][223][146]   [157][157][157][157][157][157] [146] [223][223][146]  [157][157][157][157][157][157] [146]  [223][223] [157][157][157][157][157][157] [146]   [223] "
  8. 65 n$=n$+"[146][145][145][145][145]"
  9. 70 g$="    [157][157][157][157] [146]   [157][157][157][157] [146]  [223][157][157][157][157] [146]   [157][157][157][157]    [146][145][145][145][145]"
  10. 80 s$="    [157][157][157][157] [146]   [157][157][157][157]    [157][157][157][157][146]    [157][157][157][157]    [146][145][145][145][145]"
  11. 90 p$="    [157][157][157][157] [146]   [157][157][157][157]    [157][157][157][157] [146]   [157][157][157][157] [146]   [145][145][145][145]"
  12. 100 l$=" [146]   [157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157]    [146][145][145][145][145]"
  13. 110 u$=" [146]   [157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157]    [146][145][145][145][145]"
  14. 500 print"[147]       ";s$;" ";p$;" ";e$;" "e$;" ";d$;""
  15. 510 print"  ";r$;" ";e$;" ";a$;" "d$;" ";i$;" ";n$;" ";g$;""
  16. 520 print"          ";p$;" ";l$;" ";u$;" "s$
  17. 525 print"        program load in progress"
  18. 530 print" (c) lsr learning associates, inc.,1985";
  19. 600 poke646,peek(53281)
  20. 610 print"";"load"chr$(34)"preview"chr$(34)",8"
  21. 620 poke198,5:poke631,19:poke632,13:poke633,82:poke634,213:poke635,13:end
  22.