home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / PIANO-MAN / PIANO-MAN.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  29.8 KB  |  98 lines
  1. 0 :FORD=1TO100*M:NEXT:IFM>0THENRETURN:    *::::::::::::::DELAY:::::::::::::::*
  2. 10 REM"[141][145][158]                                        
  3. 20 [143]"GOSUBONSYS ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  4. 30 REM"[141][145][158] ""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
  5. 40 [143]"GOSUBONSYS ""FRE""       SO MUCH EFFORT       SYS""FRE""
  6. 50 REM"[141][145][158] ""[184]""                            ""[184]""
  7. 60 [143]"GOSUBONSYS ""FRE""   FOR SO LITTLE RESULTS!   SYS""FRE""
  8. 70 REM"[141][145][158] ""[184]""                            ""[184]""
  9. 80 [143]"GOSUBONSYS ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  10. 90 REM"[141][145][158] ""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[154]
  11. 100 [143]"GOSUBONPRINT         OPENA JIM GREEN BOGGLE....CONT
  12. 110 IFA=1THEN180
  13. 120 POKE53280,0 :POKE53281,0:PRINT"[147][142]";:S=54272
  14. 130 PRINT"[158]     [198] [146]  [146]  [198] [146][188] [162] [146]  [162] [146]   [188] [187][187][146]  [198] [146][188] [162] [146]
  15. 140 [153]"     WAITUSRUSR  WAIT  WAITUSR WAIT  WAIT  WAIT  WAITNEW WAIT     GETGETWAIT  WAITUSR WAIT  WAIT  WAIT"
  16. 150 [141]720:[153]"LIST        PUTTIN' THE BEER ON ICE
  17. 155 IFPEEK(30120)=173THENM=20:GOSUB:GOTO180
  18. 170 REM  * *  PRINT AT ROUTINE:                  SYSZ,C,R,"PRINT SOMETHING"
  19. 180 Z=700:FORT=ZTO726:READA:POKET,A:NEXT
  20. 190 DATA 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32
  21. 200 DATA 240,255,32,253,174,76,164,170,0
  22. 210 P$="[155][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204]"
  23. 220 H$="[150]  [165][165][207][157][157][157][157][165][165][165][165][157][157][157][157][165]   [165][146] [157][157][157][157][157][157][154]=-=-=[146][165]"
  24. 230 H1$="[150]     [157][157][157][157][207][165][165][165][157][157][157][157][165]   [165][146] [157][157][157][157][157][157][154]=-=-=[146][165]"
  25. 240 H2$="[155][165][157][157][157][157][150][165][157][157][157][157][207][165][165][165][157][157][157][157][165]   [165][146] [157][157][157][157][157][157][154]=-=-=[146][165]"
  26. 245 H3$="[157][157][157][157][150][165][157][157][157][157][207][165][165][165][157][157][157][157][165]   [165][146] [157][157][157][157][157][157][154]=-=-=[146][165]"
  27. 246 REM    PRINTH$;H1$;H2$;H3$:END
  28. 250 HB$=" [157][157][157][157]    [157][157][157][157]      [157][157][157][157][157][157]      "
  29. 260 HC$="   [157][157][157][157]    [157][157][157][157]      [157][157][157][157][157][157]      "
  30. 270 PRINT"[147]";:GOSUB720:F=7:GOSUB750
  31. 280 SYSZ,5,13,"[149][164][164][175][175][185][185][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][185][185][175][175][164][164]
  32. 290 [153]"    (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  33. 300 PRINT"  [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]
  34. 310 [153]" (null)(null)(null)(null)(null)(null)(null)(null)(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$(null)(null)(null)(null)(null)(null)(null)(null)
  35. 320 PRINT"[214][214][214][152][214][149][214][214][214][214][214][199][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][149][200][214][214][214][214][214][152][214][149][214][214][214][146]";
  36. 330 PRINT" [214][214][214][214][214][214][214][214][202][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][149][203][214][214][214][214][214][214][214][214]
  37. 340 [153]"  (null)(null)(null)(null)WAIT      LISTMID$(null)            MID$(null)      VERIFY(null)(null)(null)(null)
  38. 350 PRINT"   [214][214][146]                              [214][214]":F=10:GOSUB750:GOSUB520
  39. 360 SYSZ,15,20,H$:F=5:GOSUB750:M=7
  40. 370 FORT=1TO3:SYSZ,15,20,H1$:GOSUB710:GOSUB:SYSZ,15,20,H$:GOSUB:NEXT
  41. 380 F=6:GOSUB750:SYSZ,16,20,HC$:SYSZ,10,20,H1$:GOSUB750:SYSZ,11,23,"      "
  42. 390 SYSZ,10,19,H$:F=5:GOSUB750:SYSZ,11,19,HC$
  43. 400 SYSZ,26,19,"  "
  44. 410 SYSZ,9,16,"[149][213][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][201]
  45. 420 [158]Z,10,17,P$:F[178]10:[141]750:[158]30120
  46. 430 [129]J[178]1[164]2:[129]T[178]1[164]34:[158]Z,10,17,P$
  47. 440 N[178][181]([187](1)[172]18)[170]11:[139][187](1)[177].7[167][158]Z,N[171]3,17,H2$:[137]442
  48. 441 [158]Z,N[171]3,17,H3$
  49. 442 M[178].3:[141]:[158]Z,N[171]3,18,HB$:[130]
  50. 450 [158]Z,10,17,P$:M[178]12.20:[141]:[130]:M[178]4:[141]
  51. 460 [129]T[178]1[164]16:[158]Z,10,17,P$
  52. 470 N[178][181]([187](1)[172]18)[170]11:[158]Z,N[171]3,17,H2$:M[178].5:[141]:[158]Z,N[171]3,18,HB$:[130]
  53. 480 [158]Z,10,17,P$:F[178]10:[141]750
  54. 490 [158]Z,3,6,"OPENWELL!! IF THAT'S THE WAY YOU FEEL...":F[178]10:[141]750
  55. 500 [158]Z,5,9,"OPENI JUST MAY NOT PLAY ANYMORE!!!":F[178]30:[141]750
  56. 510 [141]650:F[178]15:[141]750:[158]Z,0,20,"POKE":[137]880
  57. 520 [153]"SYS      WELL BARFLIES AND FLOOZIES,
  58. 530 PRINT"     IF YOU WOULD LIKE SOME MUSIC,
  59. 540 [153]"      GIVE OUR PIANO PLAYER SOME
  60. 550 PRINT"            ENCOURAGEMENT!!!":F=25:GOSUB750:GOSUB630
  61. 560 PRINT"[158]     YEAH! YEA! COME ON GOOD BUDDY!
  62. 570 [153]"  GIVE US SOME GOOD OLD DRINKIN' MUSIC.
  63. 580 PRINT"         WHOOPEE! LET'ER RIP!":GOSUB750:GOSUB630:F=2:GOSUB750
  64. 590 SYSZ,4,5,"[153]WHISTLE!.... CLAP!":GOSUB650:F=2:GOSUB750
  65. 600 SYSZ,11,8,"WHISTLE!.... CLAP!":GOSUB650:GOSUB750
  66. 610 SYSZ,18,11,"[150]WHISTLE!.... CLAP!":GOSUB650:F=20:GOSUB750:GOSUB630:RETURN
  67. 620 :  * * BLANK OUT LINES...
  68. 630 FORT=4TO11:POKE781,T:SYS59903:NEXT:RETURN
  69. 640 :  * * SOUND- WHISTLE/CLAP
  70. 650 POKES+23,0:POKE54296,15:POKES+5,9:POKES+4,17
  71. 660 FORT=80TO140STEP4:POKES+1,T:NEXT:POKES+4,0:POKES+5,74:FORD=1TO120:NEXT
  72. 670 POKES+4,17:FORT=100TO120:POKES+1,T:NEXT
  73. 680 FORT=115TO60STEP-0.4:POKES+1,T:NEXT:POKES+4,0:FORT=1TO8
  74. 690 POKES,240:POKES+1,INT(RND(1)*21)+13:POKES+5,8:POKE S+22,104:POKES+23,1
  75. 700 :POKES+24,79:POKES+4,129:FORD=1TO120:NEXT:POKES+4,128:NEXT:RETURN
  76. 710 POKES+24,0:POKES+24,5:RETURN
  77. 720 PRINT"[169]  [213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]  [223]";
  78. 730 PRINT" [215] [199] JAGGY'S  SALOON AND DANCE HALL [200] [215] ";
  79. 740 PRINT"[146][223]  [202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]  [146][169]":RETURN
  80. 750 FORT=1TOF:PRINT" O [221][150] JAGGY'S  SALOON AND DANCE HALL [221] O ";:M=.6:GOSUB
  81. 760 PRINT" [215] [199] JAGGY'S  SALOON AND DANCE HALL [200] [215] [146]";:M=.6:GOSUB:NEXT:RETURN
  82. 770 :IF NO NUMBER IS GIVEN FOR 'GOSUB'           THEN '0' IS THE 'GOSUB'
  83. 880 F$="PENCIL"
  84. 890 F$="ULTIMATE WP":POKE53280,14:POKE53281,6:PRINT"[147][159]   [208]RESS....
  85. 900 [153]"       <SYSATNOPEN> TO SEE ATNCHR$ATNRIGHT$(null)
  86. 910 PRINT"   <[158][211][208][193][195][197][159]> TO [204][207][193][196] NEXT
  87. 912 [153]"              CARTOON  > SYS"F$
  88. 920 [153]"       <SYS(null)OPEN> TO (null)(null)ATNSTR$ LENATN(null)(null)(null)(null)(null)                         OF YOUR CHOICE
  89. 940 PRINT"       <[158][205][159]> TO LOAD [205][197][206][213]
  90. 945 [153]"       <SYS(null)OPEN> TO (null)(null)RIGHT$(null)
  91. 950 GETG$:IFG$<>"A"ANDG$<>" "ANDG$<>"L"ANDG$<>"M"ANDG$<>"Q"THEN950
  92. 970 IFG$="A"THENRUN
  93. 980 IFG$="Q"THENEND
  94. 990 IFG$=" "THENPRINT"    [204][207][193][196][201][206][199] "F$
  95. 1000 IFG$="L"THENINPUT"    [195][193][210][212][207][207][206] NAME";F$
  96. 1010 IFG$="M"THENF$="M"
  97. 1050 PRINT"[147][142]LOADF$,8[154]":POKE631,19:POKE632,131:POKE198,2:END
  98.