home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / oscilloscope (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  36 lines
  1. 10 poke53280,6:poke53281,0:printchr$(14)
  2. 20 print"[147]                                        ";
  3. 30 print"     [158][146][211] [201] [196]   [207][160][211][160][195][160][201][160][204][160][204][160][207][160][211][160][195][160][207][160][208][160][197]    ";
  4. 40 print"                                        ";
  5. 50 print"[154]   [158]Displays the output of the SID chip[154]  ";
  6. 60 print"                                        ";
  7. 70 print"    [150][206]ow you can [158][211][197][197][150] what you [158][200][197][193][210][150] ![154]     ";
  8. 80 print"                                        ";:print
  9. 90 print"         [159]+[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  10. 100 print"          [221]"tab(31)"[221]"
  11. 110 print"[150] [211]ound    [221]                    [221]"
  12. 120 print"[150] pressure [221]"tab(31)"[221]"
  13. 130 print"         [159]0[219]"tab(31)"[221]"
  14. 140 print"          [221]"tab(31)"[221]"
  15. 150 print"          [221]"tab(31)"[221]"
  16. 160 print"          [221]"tab(31)"[221]"
  17. 170 print"         [159]-[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  18. 180 print"            [150]  ---- time --->"
  19. 190 print
  20. 200 print"[152]       [194]y [205]ason [193]. [195]lark ([195]) 1989     "
  21. 210 print"        [208]ublished on [204][207][193][196][211][212][193][210] #67     "
  22. 220 print"      [211]ubscriptions 1-800-831-2694    "
  23. 230 print"           [193]ll [210]ights [210]eserved        ":print
  24. 240 print"  [151][212]o[160][204]oad the program: [208][210][197][211][211] [211][208][193][195][197] [194][193][210][158]";:a$(0)=" ":a$(1)="^"
  25. 241 s=54272:forz=stos+24:pokez,0:next:pokes+6,248
  26. 242 pokes,88:pokes+15,23:pokes+24,8
  27. 243 fory=12to8step-1:x=23-y:gosub300:next
  28. 244 fory=9to14:x=y+7:gosub300:next
  29. 245 fory=13to8step-1:x=35-y:gosub300:next
  30. 246 fory=9to11:x=y+19:gosub300:next
  31. 247 geta$:ifa$=""thenq=1-q:d=q*33:pokes+4,20+q:goto242
  32. 260 poke214,9:print:print"[153]    [201]s your sound volume turned up?"
  33. 276 print"  [217]ou will want to [150]hear[153] what you [150]see.             ":pokes+24,0
  34. 280 load"oscilloscope.bt",8,1
  35. 300 poke214,y:print:poke211,x:printa$(q):forp=0tod:next:return
  36.