home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 75 / 075.d81 / bits (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 100 ifa=0thenprint"[147]":gosub190
  2. 110 poke 53281,0:poke 53280,0
  3. 120 ifa=0thena=1:load"reader $ca00",8,1
  4. 130 sys51712,"t.bits","[212] [197][160][216] [212][160][160] [210][160][197] [193][160][196] [197][160][210] . [207]"
  5. 140 poke214,24:poke211,13:print"[145]                         "
  6. 150 print""tab(9)"[159][214]iew [212]ext again? ([217][159]/[206][159])"
  7. 160 geta$:ifa$<>"y"anda$<>"n"then160
  8. 170 ifa$="n"then350
  9. 180 sys51824,"[200] [197] [210] [197] [160] [201] [212][160][160] [201] [211] [160] [193] [199][160][193][160][201] [206]":goto160
  10. 190 poke53280,0:poke53281,0:iffthenreturn
  11. 200 print"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
  12. 210 a$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  13. 220 b$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  14. 230 c$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
  15. 240 printc$;:fori=1to3:printa$c$b$c$;:next
  16. 250 print"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
  17. 260 fori=217to242:pokei,peek(i)or128:next
  18. 270 a$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
  19. 280 poke214,12:print"[145]";:fori=1to32:printa$;:next:print"[155]"
  20. 290 fori=1to5:reada$:gosub300:next:goto310
  21. 300 printspc(20-len(a$)/2)""a$:a$="":return
  22. 310 poke214,24:print"[145]"spc(13)"[204] [207] [193] [196] [201] [206] [199]":return
  23. 320 data"[212] [197] [216] [212]   [210] [197] [193] [196] [197] [210]","by [202]eff [202]ones"
  24. 330 data"[208]ublished on [204][207][193][196][211][212][193][210] #75","[211]ubscriptions 1-800-831-2694"
  25. 340 data"[195]opyright ([195]) 1990 [211]oftdisk"
  26. 350 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  27. 360 if er<>63 then print"[147]":end
  28. 370 q$=chr$(34):poke646,peek(53281):print"[147]"
  29. 380 print"load"q$a$q$",8"
  30. 390 print"run":poke631,13:poke632,13:poke198,2:end
  31.