home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 81 / 081.d81 / bits (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  33 lines
  1. 5 ifpeek(828)<>173thenload"linelocker.o",8,1
  2. 10 x=rnd(-ti):print"[147]":gosub70
  3. 20 print"[159]"tab(5)"[208]ress [211][208][193][195][197][159] for [196]emo [209][159] to [209]uit"
  4. 21 geta$:ifa$<>" "anda$<>"q"then21
  5. 22 ifa$="q"then60000
  6. 23 print"[147][159] [211][212][193][212][197]      [153] [210][197][199][201][207][206][193][204]    [206]ational   "
  7. 24 print"";:sys828
  8. 25 fori=1to100:print"[159]"rnd(0)*500;
  9. 26 printtab(12)"[153]"rnd(0)*1000;
  10. 27 printtab(24)""rnd(0)*2000;
  11. 40 print:next:sys828:restore:goto10
  12. 69 stop
  13. 70 poke53280,0:poke53281,0:iffthenreturn
  14. 80 poke214,10:print"[145]";
  15. 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""
  16. 100 fori=217to242:pokei,peek(i)or128:next
  17. 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]"
  18. 120 fori=1to7:printtab(4)"[155]                                [151][146][223]":next
  19. 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]"
  20. 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]"
  21. 150 poke214,14:print"[145][155]";
  22. 160 fori=1to5:reada$:gosub170:next:goto180
  23. 170 printspc(20-len(a$)/2)""a$:a$="":return
  24. 180 return
  25. 190 data"[201][206][212][197][210][213][208][212] [196][197][205][207]","by [202]eff [202]ones"
  26. 200 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #81","[211]ubscriptions 1-800-831-2694"
  27. 210 data"[195]opyright ([195]) 1991 [211]oftdisk"
  28. 60000 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  29. 60010 if er<>63 then print"[147]":end
  30. 60011 q$=chr$(34):poke646,peek(53281):print"[147]"
  31. 60020 print"load"q$a$q$",8"
  32. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  33.