Wham! The Music Box: WHAM(R)!.B

  0VAL$ ATN COS t PAUSE ` REM AT e INPUT  FORMAT ATTR  LIST T
  1 POKE VAL "23606",VAL "42": POKE VAL "23607",VAL "217"
  5 DEF FN P(PP)=PEEK P+256*PEEK (P+1)
  10 CLS : LET O=0: LET I=1: LET N7=7: BORDER N7: RANDOMIZE USR VAL "50000": INPUT '''': LET t$=""
  15 LET str=VAL "60000": LET len=VAL "2000"
  20 LET kp=PEEK VAL "23559"-VAL "48"
  25 IF KP<NOT PI OR KP>VAL "7" THEN  RUN 
  30 OVER VAL "1": PRINT AT VAL "5"+KP,VAL "10"; FLASH VAL "1"; BRIGHT VAL "1";"            ": OVER NOT PI
  35 POKE VAL "23658",VAL "8"
  40 IF kp<VAL "3" THEN  GO TO VAL "3000"
  50 IF kp=N7 THEN  PAUSE VAL "100": BORDER NOT PI: PAPER NOT PI:: CLS : RANDOMIZE USR VAL "55420": PAUSE NOT PI: RUN 
  60 GO TO VAL "8000"
  100 IF T$="M" THEN  GO SUB VAL "4000": IF KP=I THEN  RANDOMIZE USR VAL "54000": GO TO VAL "140"
  105 GO SUB VAL "6000"
  110 IF KP=VAL "2" THEN  GO TO VAL "200"
  115 IF T$="D" THEN  CLS : RANDOMIZE USR VAL "15619": REM : LOAD F$CODE STR,LEN
  120 IF T$="T" THEN  CLS : PRINT "BKl MAg-fon"'"jdu:";F$: POKE VAL "23606",NOT PI: POKE VAL "23607",VAL "60": IF f$<>"        " THEN  LOAD F$CODE STR: POKE VAL "23606",VAL "42": POKE VAL "23607",VAL "217"
  130 POKE VAL "23606",VAL "42": POKE VAL "23607",VAL "217": IF t$="T" AND f$="        " THEN  PRINT "sAgrusKA lqbogo fA{lA": POKE VAL "23606",NOT PI: POKE VAL "23607",VAL "60": LOAD ""CODE STR,LEN: POKE VAL "23606",VAL "42": POKE VAL "23607",VAL "217"
  140 IF PEEK str>VAL "220" THEN  POKE VAL "52860",PEEK str
  150 RUN 
  200 CLS : POKE str,PEEK VAL "52860": IF T$="D" THEN  RANDOMIZE USR VAL "15619": REM : SAVE F$CODE str,len
  220 IF T$="T" THEN  GO TO VAL "222"
  221 GO TO VAL "225"
  222 POKE VAL "23606",NOT PI: POKE VAL "23607",VAL "60": SAVE F$CODE str,len: POKE VAL "23606",VAL "42": POKE VAL "23607",VAL "217": GO TO VAL "250"
  225 IF T$="M" THEN  RANDOMIZE USR VAL "54006": FOR a=I TO 10: POKE VAL "65289"+a+(tn*10),CODE f$(a): NEXT a:
  230 RUN 
  250 PRINT #O;"VERIFY?(Y/N)"
  260 GO SUB VAL "500": IF f THEN  VERIFY f$CODE 
  270 RUN 
  500 POKE VAL "23658",VAL "8": IF INKEY$="Y" THEN  LET f=I: RETURN 
  510 IF INKEY$="N" THEN  LET f=O: RETURN 
  520 GO TO VAL "500"
  3000 PRINT AT VAL "21",VAL "13";"Byberi:"
  3010 PRINT #0;"T-MAgnitofon M-pAMcTm D-diCKoBod"
  3012 PRINT AT VAL "19",VAL "9";"'SPACE' B MEnq"
  3015 LET T$=INKEY$: IF INKEY$=" " THEN  RUN 
  3030 IF T$="M" OR T$="T" OR T$="D" THEN  GO TO VAL "3040"
  3035 GO TO VAL "3015"
  3040 INPUT "": PRINT AT 20,O,,: IF T$="D" THEN  PRINT #O;"KATAlog diCKOBOdA 'A' ?(Y/N)": PAUSE 0: BORDER NOT PI: PAPER NOT PI: INK VAL "7": POKE VAL "23606",NOT PI: POKE VAL "23607",VAL "60": IF INKEY$="Y" THEN  RANDOMIZE USR VAL "15619": REM : CAT 
  3050 POKE VAL "23606",VAL "42": POKE VAL "23607",VAL "217": GO TO 100
  4000 CLS : PRINT "MElodii B pAMcTi:"
  4030 LET d=VAL "65300": LET t=i: PRINT '"N nAsBAniE"
  4050 PRINT ''T;" ";
  4060 FOR D=D TO D+9: PRINT CHR$ PEEK D;: NEXT D: LET T=T+1: IF T=N7 THEN  GO TO VAL "4090"
  4080 GO TO VAL "4050"
  4090 PRINT #O;"noMEr:L"
  4091 LET n$=INKEY$: IF N$<"1" OR N$>"6" THEN  GO TO VAL "4091"
  4100 LET TN=VAL N$: POKE VAL "23681",TN: RETURN 
  6000 DIM F$(10): INPUT "iMc fA{lA: "; LINE F$: IF F$="        " AND T$<>"T" THEN  GO TO VAL "6000"
  6006 RETURN 
  7000 LET CHN1=VAL "57266": IF WHIND=VAL "3000" THEN  LET CHN1=VAL "57464"
  7010 LET CHN2=CHN1+LEN1+I
  7020 LET HL=VAL "60001": LET DE=CHN1: LET BC=LEN1: GO SUB VAL "7500": LET HL=VAL "61001": LET DE=CHN2: LET BC=LEN2: GO SUB VAL "7500"
  7030 LET TLENG=CHN2+LEN2-VAL "57000"
  7031 LET CHN1=CHN1-VAL "57000"+ASEM
  7032 LET CHN2=CHN2-VAL "57000"+ASEM
  7040 PRINT AT VAL "10",VAL "6";"KOl-Bo bA{t : ";TLENG
  7050 POKE VAL "57030",INT (CHN1/VAL "256"): POKE VAL "57029",CHN1-VAL "256"*PEEK VAL "57030"
  7055 POKE VAL "57002",INT ((CHN1-1)/VAL "256"): POKE VAL "57001",CHN1-1-VAL "256"*PEEK VAL "57002"
  7060 POKE VAL "57034",INT (CHN2/VAL "256"): POKE VAL "57033",CHN2-VAL "256"*PEEK VAL "57034"
  7065 POKE VAL "57008",INT ((CHN2-1)/VAL "256"): POKE VAL "57007",CHN2-1-VAL "256"*PEEK VAL "57008"
  7080 RETURN 
  7500 LET Z=VAL "256": LET H=INT (HL/Z): LET L=HL-H*Z: LET D=INT (DE/Z): LET E=DE-D*Z: LET B=INT (BC/Z): LET C=BC-B*Z: RESTORE VAL "7700": FOR Z=VAL "23296" TO VAL "23308": READ S: POKE Z,S: NEXT Z: RANDOMIZE USR VAL "23296": RETURN 
  7700 DATA 33,L,H,17,E,D,1,C,B,237,176,201,PI
  7701 PRINT #O;"BybEri:1,2,3"
  7702 PRINT AT VAL "12",NOT PI;"1,nAjATiE"'"2,KlABivA"'"3,odnoKPATno"
  7703 IF INKEY$="1" THEN  RETURN 
  7704 IF INKEY$="2" THEN  PRINT AT VAL "4",VAL "20";"KlABivA ": POKE VAL "57020",VAL "62": RETURN 
  7706 IF INKEY$="3" THEN  POKE VAL "57063",VAL "225": POKE VAL "57064",VAL "225": POKE VAL "57065",VAL "251": POKE VAL "57066",VAL "201": PRINT AT VAL "4",VAL "20";"odnoKrATno": LET A$=" n/o ": PRINT AT VAL "7",VAL "20";A$;AT VAL "9",VAL "20";A$: RETURN 
  7707 GO TO VAL "7702"
  8000 PAPER N7: INK I: BORDER VAL "5": CLS : PRINT : RANDOMIZE USR VAL "55640"
  8110 POKE VAL "23681",I: LET LEN1=USR VAL "54032"-VAL "60000"
  8115 PRINT AT VAL "6",VAL "20";LEN1
  8116 IF LEN1=VAL "999" THEN  PRINT AT VAL "6",VAL "20";"**net!**"   
  8120 POKE VAL "23681",VAL "2": LET LEN2=USR VAL "54032"-VAL "61000"
  8125 PRINT AT VAL "8",VAL "20";LEN2
  8126 IF LEN2=VAL "999" THEN  PRINT AT VAL "8",VAL "20";"**net!**"
  8130 LET WHIND=USR VAL "54056"
  8133  IF WHIND=VAL "3000" THEN  PRINT AT VAL "5",VAL "20";"**ECtm**"
  8140 IF LEN1=VAL "999" OR LEN2=VAL "999" THEN  GO TO VAL "8800"
  8141 LET SM=LEN1-I: IF LEN2<LEN1 THEN  LET SM=LEN2-I
  8142 IF (LEN1-1)/SM<>INT ((LEN1-1)/SM) OR (LEN2-1)/SM<>INT ((LEN2-1)/SM) THEN  GO TO VAL "8600"
  8150 INPUT "AdreC BygrusKi:";ASEM
  8160 IF ASEM<VAL "32768" THEN  GO TO VAL "8150"
  8161 IF ASEM+LEN1+LEN2+260+(240*(WHIND=3000))>VAL "65530" THEN  PRINT #0;"ovibKA:dlc Melodii neT MeCTA": PAUSE 0: INPUT "": GO TO VAL "8150"
  8162 PRINT AT VAL "3",VAL "20";ASEM
  8163 LET T$="": GO SUB VAL "6000": PRINT AT VAL "21",NOT PI,,: PRINT AT VAL "2",VAL "6";"iMc MElodii : ";F$
  8164 POKE VAL "55703",INT (ASEM/VAL "256"): POKE VAL "55702",ASEM-256*PEEK VAL "55703": RANDOMIZE USR VAL "55700"
  8165 IF LEN1=LEN2 THEN  GO SUB  VAL "7700": INPUT "": PRINT AT VAL "12",NOT PI,,,,,,: GO TO VAL "8170"
  8166 PRINT #O;"PEjiM 'BCEgdA'?": GO SUB VAL "500": IF F THEN  POKE VAL "57020",VAL "62": PRINT AT VAL "4",VAL "20";"BCEgdA  "
  8167 INPUT ""
  8172 GO SUB VAL "7000"
  8176 INK O: PRINT AT VAL "12",VAL "6";"KOMpilczic sAKonhEnA"'"   MElodic gotoBA K BygrusKE! "
  8177 PRINT '"isMEnEnic 'POKE A,D':"
  8178 PRINT "CKoroCtm igry:";ASEM+35;",(230 TO 255)"'"zBEt BORDER:";ASEM+26;",(0 TO 7)"
  8179 PRINT '"sApuCK MElodii-"'" RANDOMIZE  USR ";ASEM
  8200 FOR A=1 TO 8: POKE VAL "56800"+A,CODE (F$(A)): NEXT A
  8205 POKE VAL "56814",INT (ASEM/VAL "256"): POKE VAL "56813",ASEM-VAL "256"*PEEK VAL "56814"
  8207 POKE VAL "56812",INT (TLENG/VAL "256"): POKE VAL "56811",TLENG-VAL "256"*PEEK VAL "56812"
  8208 POKE VAL "56718",PEEK VAL "56811": POKE VAL "56719",PEEK VAL "56812"
  8209 PRINT #0;"   diCKOBOd  ili  MAgnitofon    ": PAUSE NOT PI: IF INKEY$="D" THEN  GO TO 8215
  8210 PRINT #O;"BKlqhi MAgniTofon, nAjMi KlABivu": PAUSE O: INPUT "": RANDOMIZE USR VAL "56700": RUN 
  8215 RANDOMIZE USR VAL "15619": REM : SAVE F$CODE 57000,TLENG
  8216 RANDOMIZE USR VAL "56728"
  8217 RUN 
  8600 PRINT AT VAL "12",VAL "11";"BniMAniE!"'''"KonEz KAnAlA sAdAn neprABilmno."''"BosMojno iCKAjEniE MElodii."'''"prodoljAtm ? (Y/N)"
  8610 GO SUB VAL "500": IF F THEN  GO TO VAL "8145"
  8620 RUN 
  8810 PRINT AT VAL "12",NOT PI;" KoMpilczic MElodii nEBosMojnA !"
  8811 PRINT '"* ne opredel}n KonEz u KAnAlA."
  8813 PRINT : PRINT " ( iCpolmsu{ KlABivu 'W' dlc"'"   sAdAnic KonzA KAnAlA ,": PRINT "   put}M Ego sAziKliBAnic. )"
  8820 PAUSE NOT PI: RUN 
  9994 CLEAR VAL "29999": POKE VAL "23675",VAL "88": POKE VAL "23676",VAL "255": POKE VAL "23606",VAL "42": POKE VAL "23607",VAL "217": INK NOT PI: PAPER NOT PI: BORDER NOT PI: CLS 
  9995 RANDOMIZE USR VAL "15619": REM : LOAD "w0scr"CODE 
  9996 RANDOMIZE USR VAL "15619": REM : LOAD "w1"CODE 
  9997 RANDOMIZE USR VAL "15619": REM : LOAD "w2"CODE 
  9998 RANDOMIZE USR VAL "15619": REM : LOAD "w3"CODE 
  9999 RUN 
  28416