home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 80 / 080.d81 / top ten boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  771 b   |  22 lines
  1. 10 print"[147]":gosub70
  2. 20 poke 53281,0:poke 53280,0
  3. 30 print"[144]":print""
  4. 40 print "load";chr$(34);f$;chr$(34)",8"
  5. 50 print"run"
  6. 60 poke631,13:poke632,13:poke198,2:end
  7. 70 poke53280,0:poke53281,0:iffthenreturn
  8. 80 poke214,10:print"[145]";
  9. 90 fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
  10. 100 fori=217to242:pokei,peek(i)or128:next
  11. 110 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  12. 120 fori=1to7:printtab(4)"[155]                                [151][146][223]":next
  13. 130 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][146][223]"
  14. 140 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  15. 150 poke214,14:print"[145][155]";
  16. 160 fori=1to5:reada$:gosub170:next:goto180
  17. 170 printspc(20-len(a$)/2)""a$:a$="":return
  18. 180 f$="top ten":poke214,24:print"[145]"spc(13)"[204] [207] [193] [196] [201] [206] [199]":return
  19. 190 data"[212][160][193][160][216] [160] [212][160][207] [208] [160][160][212] [197] [206]","by [202]eff [202]ones"
  20. 200 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #80","[211]ubscriptions 1-800-831-2694"
  21. 210 data"[195]opyright ([195]) 1991 [211]oftdisk"
  22.