home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b.sfx (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  33 lines
  1. 10 poke56,28:clr:dv=peek(186):ifdv<8thendv=8
  2. 100 dv=peek(186):ifdv<8thendv=8
  3. 110 delay=116:poke53280,0:poke53281,0
  4. 120 print"[147]";
  5. 130 fori=8to23: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
  6. 140 print"":fori=217to242:pokei,peek(i)or128:next
  7. 150 poke214,9:print"[145]"tab(2)"[153][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][164][164][164][164]"
  8. 160 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  9. 170 printtab(2)"[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][163][163][163][163][146][155][223]"
  10. 180 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  11. 190 poke214,10:print"[145][159]";
  12. 200 fori=1to11:reada$
  13. 210 printspc(20-len(a$)/2)""a$:a$="":next
  14. 220 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then220
  15. 230 sys57812"sfx.20 fx",dv,1:poke780,0:poke781,0:poke782,32:sys65493
  16. 232 sys57812"sfx generator",dv,1:poke780,0:poke781,0:poke782,32:sys65493
  17. 234 sys12288:goto40000
  18. 240 data"[211][207][213][206][196] [197][198][198][197][195][212][211] [199][197][206][197][210][193][212][207][210]","by [210]einer [210]ichter"
  19. 250 data"  ([195])1994 by [211]oftdisk [208]ublishing"
  20. 260 data"[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][163][163]
  21. 270 [131]"   (NULL)his is the copyrighted work of
  22. 280 data"[211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], [206][207][212] intended
  23. 290 [131]"for distribution as public domain ","or shareware.  (NULL)eport any illegal
  24. 300 data"distribution of this program by   "
  25. 310 data"calling [211][207][198][212][196][201][211][203] [195]ustomer service:
  26. 320 [131]"1-800-831-2694 or 1-318-221-8718
  27. 10000 open15,8,15,"s0:sfx boot":close15:save"sfx boot",8:end
  28. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  29. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  30. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  31. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  32. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  33.