home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / huron.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  35 lines
  1. 1 'HURON.BA Neil Wick 
  2. 2 DEFINTA-Z:P=INP(186):GOSUB28:U(0)=PEEK(U)+256*PEEK(U+1)-65536
  3. 3 U(1)=U(0)+401:U(2)=U(1)+401:U(3)=U(2)+401:U(4)=U(3)+401:U(5)=U(4)+401:U(6)=U(5)+401:U(7)=U(6)+401:U(8)=U(7)+401
  4. 4 DATA229,205,92,118,33,52,254,205,59,117,62,0,225,87,211,254,6,50,126,35,230,207,7,7,7,7,79,126,35,230,207,129,211,255,5,194,22,254,126,254,34,200,122,198,64,195,17,254,31,0
  5. 5 CLS:FORX=-508TO-459:READA:POKEX,A:NEXT:R=0:GOSUB23:I=2
  6. 6 READF,M:IFF>-1THENGOSUB17:GOTO6
  7. 7 GOSUB24:I=0
  8. 8 READF,M:IFF>-1THENGOSUB17:GOTO8
  9. 9 POKE-460,224:POKE-459,3:CALL-508,0,U(1):POKE-459,0:GOSUB25
  10. 10 POKE-497,0:POKE-460,1:CALL-508,0,U(5):POKE-460,32:CALL-508,0,U(6):POKE-460,64:CALL-508,0,U(7)
  11. 11 READF,M:IFF>-1THENGOSUB18:GOTO11
  12. 12 POKE-460,128:POKE-459,3:CALL-508,0,U(1):POKE-459,0:GOSUB26
  13. 13 READF,M:IFF>-1THENGOSUB18:GOTO13
  14. 14 POKE-460,225:POKE-459,3:CALL-508,0,U(1):POKE-459,0:GOSUB27:POKE-497,0:POKE-460,1:CALL-508,0,U(3):POKE-460,32:CALL-508,0,U(4)
  15. 15 READF,M:IFF>-1THENGOSUB18:GOTO15
  16. 16 FORX=1TO1500:NEXT:CLS:MENU
  17. 17 FORL=1TOM:POKE-497,RMOD50:OUT188,FMOD256:OUT189,((F/256)AND127)OR64:OUT184,195:OUT186,PAND219OR32:FORD=1TO120:NEXT:CALL-508,0,U(I):R=R+1:NEXT:RETURN
  18. 18 FORL=1TOM:OUT188,FMOD256:OUT189,((F/256)AND127)OR64:OUT184,195:OUT186,PAND219OR32:FORD=1TO160:NEXT:NEXT:RETURN
  19. 19 DATA0,6,7456,2,5586,2,4976,2,4697,2,4184,2,4697,2,4976,2,5586,2,6269,2,5586,2,5586,2,4976,2,6269,2,5586,4,0,2,-1,
  20. 20 DATA7456,2,5586,2,4976,2,4697,2,4184,2,4697,2,4976,2,5586,2,6269,2,5586,2,4697,2,4976,2,6269,2,5586,4,0,2,-1,
  21. 21 DATA5586,2,3728,2,3728,2,4976,2,4697,2,4184,3,4697,1,4976,1,-1,0,4976,2,4697,2,4976,2,5586,2,5586,2,4976,3,5586,1,6269,2,0,1,-1,
  22. 22 DATA7456,2,5586,3,5586,1,5586,2,6269,2,7032,2,7456,4,5586,4,6269,2,7456,2,5586,2,0,2,5586,2,4976,2,4697,2,4184,2,3728,2,7456,2,5586,6,0,4,-1,
  23. 23 PRINT@205,"'Twas in the moon of wintertime,":PRINT"     When all the birds had fled,";:RETURN
  24. 24 PRINT@205,"That Mighty Gitchi-Manitou      ":PRINT"     Sent angel choirs instead;  ";:RETURN
  25. 25 PRINT@218,"Before their light":PRINT@258,"the stars grew dim,";:RETURN
  26. 26 PRINT@218,"And wand'ring hunters":PRINT@258,"heard the hymn:";:RETURN
  27. 27 PRINT@210,"Jesus, your King, is Born,":PRINT@250,"Jesus is born,":PRINT@290,"In excelsis gloria.";:RETURN
  28. 28 ONERRORGOTO29:FI$="HURON ":OPENFI$FORINPUTAS1:IFINPUT$(4,1)="??77"THEN30ELSEPRINT"Data file must begin ??77"
  29. 29 PRINT"You must have HURON.DAT in memory.  See HURON.DOC":STOP
  30. 30 A=VARPTR(FI$):A=PEEK(A+1)+256*PEEK(A+2)-65536:U=-1693:
  31. 31 X=U+1:Y=A-1:IFPEEK(U-1)<192THEN34
  32. 32 X=X+1:Y=Y+1:IFX=U+6THENRETURN
  33. 33 IFPEEK(X)=PEEK(Y)THEN32
  34. 34 U=U+11:GOTO31
  35.