home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / lullaby (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  71 lines
  1. 1 gosub 6000
  2. 10 rem lullaby - joseph r.charnetski
  3. 11 print"[147]      [208]lease [215]ait while playing...":restore
  4. 20 r=54272:forj=rtor+23:pokej,0:next
  5. 30 poker+5,10:poker+6,9:poker+24,15
  6. 40 forj=1to51:readp,t:ck=ck+p+t
  7. 50 poker+1,p:poker+4,33
  8. 60 fors=1tot*128:next:poker+4,32
  9. 70 ford=1to64:next:next:poker+24,0
  10. 80 ifck<>1976thenprint"data error"
  11. 81 data 31,2,31,2,37,8,31,2,31,2
  12. 82 data 37,8,31,2,37,2,50,4,47,6
  13. 83 data 42,2,42,4,37,6,28,2,31,2
  14. 84 data 33,8,28,2,31,2,33,8,28,2
  15. 85 data 33,2,47,4,42,2,37,4,47,2
  16. 86 data 50,8,25,2,25,2,50,8,42,2
  17. 87 data 33,2,37,7,31,2,25,2,33,2
  18. 88 data 37,2,42,4,31,2,37,8,25,2
  19. 89 data 25,2,50,8,42,2,33,2,37,8
  20. 90 data 31,2,25,2,33,4,31,6,28,2
  21. 91 data 25,8
  22. 100 goto 6510
  23. 6000 poke53280,.:poke53281,.
  24. 6010 print"[147]"
  25. 6030 print
  26. 6040 print"            [158]L[160]O A[160]D S T A R"
  27. 6050 print"            [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  28. 6060 print
  29. 6070 print
  30. 6080 print"               [156]Presents"
  31. 6090 print
  32. 6100 print
  33. 6110 print"             [159][204] [213] [204] [204] [193] [194] [217]"
  34. 6120 print"             [154][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  35. 6130 print
  36. 6140 print
  37. 6150 print
  38. 6160 print"         By Joseph R. Charnetski"
  39. 6170 print
  40. 6180 print
  41. 6190 print
  42. 6200 print"             [154]Copyright 1987"
  43. 6210 print
  44. 6220 print
  45. 6230 print
  46. 6240 print"         Press SPACE To Continue"
  47. 6250 print"";
  48. 6300 geta$:ifa$<>" "then6300
  49. 6500 :
  50. 6510 print"[147]"
  51. 6520 print
  52. 6530 print"            [159][204] [213] [204] [204] [193] [194] [217]"
  53. 6540 print"            [154][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  54. 6550 print
  55. 6560 print"         1[152]) [129]Play Tune."
  56. 6570 print
  57. 6580 print"         2[152]) [129]Exit Back To [158]LOADSTAR"
  58. 6590 print"                         [152][163][163][163][163][163][163][163][163]"
  59. 6600 print"         [197]nter [211]election [153](1 [207][210] 2[153])   "
  60. 6620 geta$:ifa$=""then6620
  61. 6630 ifa$="1"then 10
  62. 6640 ifa$="2"then 6660
  63. 6650 goto 6620
  64. 6660 print"[145][154]        [196]o [217]ou [215]ish [212]o [209]uit? ([217]/[206]) "
  65. 6670 geta$:ifa$="y"ora$="[217]"then6700
  66. 6680 ifa$="n"ora$="[206]"thenprint"[145][145]":goto6600
  67. 6690 goto 6670
  68. 6700 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  69. 6710 ifer<>63 then print"[147]":end
  70. 6720 load"hello connect",8,1
  71.